Changeset 873d82 in git for Singular/iplib.cc
- Timestamp:
- Nov 28, 2002, 6:15:23 PM (21 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- ee2f866e36b3ff44717f9046b160032c4b43af65
- Parents:
- 3bd82dbf67384056c8d17355e9546fb5532d207f
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/iplib.cc
r3bd82d r873d82 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: iplib.cc,v 1. 99 2002-07-04 15:54:12 levandovExp $ */4 /* $Id: iplib.cc,v 1.100 2002-11-28 17:15:23 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: interpreter: LIB and help … … 216 216 { // load proc part - must exist 217 217 procbuflen = pi->data.s.def_end - pi->data.s.proc_start; 218 char *ss=(char *)omAlloc(procbuflen+2); 218 219 //fgets(buf, sizeof(buf), fp); 219 myfread( buf, procbuflen, 1, fp);220 myfread( ss, procbuflen, 1, fp); 220 221 char ct; 221 222 char *e; 222 s=iiProcName( buf,ct,e);223 s=iiProcName(ss,ct,e); 223 224 char *argstr=NULL; 224 225 *e=ct; … … 238 239 procbuflen+=strlen(argstr); 239 240 omFree(argstr); 241 omFree(ss); 240 242 fclose( fp ); 241 243 pi->data.s.body[procbuflen] = '\0'; … … 437 439 iiCheckPack(currPack); 438 440 currPackHdl=packFindHdl(currPack); 441 //Print("set pack=%s\n",IDID(currPackHdl)); 439 442 } 440 443 #endif 441 444 err=iiPStart(pn,sl); 445 #ifdef HAVE_NS 446 #endif 442 447 break; 443 448 case LANG_C:
Note: See TracChangeset
for help on using the changeset viewer.