Changeset c04b94 in git for Singular/misc.cc

Timestamp:

Dec 6, 1999, 5:07:00 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

e612312190d9035d6258e7dd6bac20871a42d807

Parents:

4a553b8ad97e5927df9e168f04952d3d3c4d855c

Message:

* example on kernel commands implemented


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

File:

• Singular/misc.cc (modified) (1 diff)

Singular/misc.cc

@@ -232 +232 @@
     }
   }
-  Werror("%s not found",str);
+  else
+  {
+    char sing_file[MAXPATHLEN];
+    FILE *fd;
+    sprintf(sing_file, "%s/%s.sing", feResource('m', 0), s);
+    fd = feFopen(sing_file, "r");
+    if (fd != NULL)
+    {
+      
+      int old_echo = si_echo;
+      int length, got;
+      char* s;
+      
+      fseek(fd, 0, SEEK_END);
+      length = ftell(fd);
+      fseek(fd, 0, SEEK_SET);
+      s = (char*) AllocL((length+20)*sizeof(char));
+      got = fread(s, sizeof(char), length, fd);
+      fclose(fd);
+      if (got != length)
+      {
+        Werror("Error while reading file %s", sing_file);
+        FreeL(s);
+      }
+      else
+      {
+        s[length] = '\0';
+        strcat(s, "\n;return();\n\n");
+        si_echo = 2;
+        iiEStart(s, NULL);
+        si_echo = old_echo;
+      }
+    }
+    else
+    {
+      Werror("no example for %s", str);
+    }
+  }
 }