Changeset 6be769 in git for Singular/iplib.cc

Timestamp:

May 9, 1998, 4:34:33 PM (26 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

7cdf52894508b5af568db20ad09389a32ccca531

Parents:

4d6a4d8ac279c490518dc0c8d688532d047ca93a

Message:

Changes for help-section of procedures


git-svn-id: file:///usr/local/Singular/svn/trunk@1672 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iplib.cc (modified) (3 diffs)

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.23 1998-05-05 13:46:37 krueger Exp $ */
+/* $Id: iplib.cc,v 1.24 1998-05-09 14:34:29 krueger Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -140 +140 @@
   if(part==0)
   { // load help string
-    procbuflen = pi->data.s.body_start - pi->data.s.proc_start;
+    long head = pi->data.s.def_end - pi->data.s.proc_start;
+    procbuflen = pi->data.s.help_end - pi->data.s.help_start;
     //Print("Help=%ld-%ld=%d\n", pi->data.s.body_start,
     //    pi->data.s.proc_start, procbuflen);
-    s = (char *)AllocL(procbuflen);
-    myfread(s, procbuflen, 1, fp);
-    s[procbuflen] = '\0';
+    s = (char *)AllocL(procbuflen+head+2);
+    myfread(s, head, 1, fp);
+    s[head] = '\n';
+    fseek(fp, pi->data.s.help_start, SEEK_SET);
+    myfread(s+head+1, procbuflen, 1, fp);
+    s[procbuflen+head+1] = '\n';
+    s[procbuflen+head+2] = '\0';
     return(s);
   }
@@ -718 +723 @@
   pi->data.s.proc_start = pos;
   pi->data.s.help_start = 0L;
+  pi->data.s.help_end   = 0L;
   pi->data.s.body_start = 0L;
   pi->data.s.body_end   = 0L;