Changeset df595d in git for Singular/misc.cc
- Timestamp:
- Apr 27, 1998, 12:55:56 PM (26 years ago)
- Branches:
- (u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
- Children:
- e9a5b9f04c03846bd8c017cf227e7f9b1dc2e264
- Parents:
- 1387fc63c740eb636ccead6aacbb9969235f1dfd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/misc.cc
r1387fc6 rdf595d 373 373 extern FILE *yylpin; 374 374 lib_style_types lib_style; // = OLD_LIBSTYLE; 375 375 376 376 yylpin = fp; 377 377 yylplex(str, libnamebuf, &lib_style, GET_INFO); 378 378 reinit_yylp(); 379 if(lib_style == OLD_LIBSTYLE) { 380 char buf[256]; 381 fseek(fp, 0, SEEK_SET); 379 if(lib_style == OLD_LIBSTYLE) 380 { 381 char buf[256]; 382 fseek(fp, 0, SEEK_SET); 382 383 #else /* HAVE_LIBPARSER */ 383 384 { char buf[256]; 384 385 #endif /* HAVE_LIBPARSER */ 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 386 Warn( "library %s has an old format. Please fix it for the next time", 387 str); 388 BOOLEAN found=FALSE; 389 while (fgets( buf, sizeof(buf), fp)) 390 { 391 if (strncmp(buf,"//",2)==0) 392 { 393 if (found) return; 394 } 395 else if ((strncmp(buf,"proc ",5)==0)||(strncmp(buf,"LIB ",4)==0)) 396 { 397 if (!found) Warn("no help part in library found"); 398 return; 399 } 400 else 401 { 402 found=TRUE; 403 PrintS(buf); 404 } 405 } 405 406 } 406 407 #ifdef HAVE_LIBPARSER 407 else { 408 fclose( yylpin ); 409 PrintS(text_buffer); 410 FreeL(text_buffer); 408 else 409 { 410 fclose( yylpin ); 411 PrintS(text_buffer); 412 FreeL(text_buffer); 411 413 } 412 414 #endif /* HAVE_LIBPARSER */
Note: See TracChangeset
for help on using the changeset viewer.