Changeset 809adb5 in git

Timestamp:

Apr 6, 2006, 9:46:13 PM (18 years ago)

Author:

Anne Frühbis-Krüger <anne@…>

Branches:

(u'spielwiese', '873fc1222e995d7cb33f79d8f1792ce418c8c72c')

Children:

91329a9b65526a851a4d7c7fbf602058f17a0a26

Parents:

254a94285388c665a03760a37dabbbacbe7046b9

Message:

*anne: fixed linefeed problem in strings from .mod file for strings
       help, example


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

File:

• modules/modgen/proc.cc (modified) (4 diffs)

modules/modgen/proc.cc

@@ -1 +1 @@
 /*
- * $Id: proc.cc,v 1.23 2003-06-11 21:33:18 krueger Exp $
+ * $Id: proc.cc,v 1.24 2006-04-06 19:46:13 anne Exp $
  */
 
@@ -523 +523 @@
   )
 {
+  unsigned int i;
   if(pi->help_string!=NULL) {
     fprintf(module->fmtfp2, "#line %d \"%s\"\n", pi->lineno_other,
             module->filename);
     fprintf(module->fmtfp2, "  enter_id(\"%s_help\",", pi->procname);
-    fprintf(module->fmtfp2, " \"%s\", STRING_CMD);\n\n", pi->help_string);
+    fprintf(module->fmtfp2, " \"");
+    for(i=0; i<strlen(pi->help_string); i++) {
+        if(pi->help_string[i]=='\n') fprintf(module->fmtfp2,"\\n");
+        else fprintf(module->fmtfp2,"%c", pi->help_string[i]);
+    }
+    fprintf(module->fmtfp2, "\", STRING_CMD);\n\n", pi->help_string);
   }
 }
@@ -537 +543 @@
   )
 {
+  unsigned int i;
   /* if proc is NULL, just return */
   if( pi == NULL ) return;
@@ -544 +551 @@
             module->filename);
     fprintf(module->fmtfp3, "  enter_id(\"%s_example\",\n", pi->procname);
-    fprintf(module->fmtfp3, " \"%s\", STRING_CMD);\n\n", pi->example_string);
+    fprintf(module->fmtfp3, " \"");
+    for(i=0; i<strlen(pi->example_string); i++) {
+        if(pi->example_string[i]=='\n') fprintf(module->fmtfp3,"\\n");
+        else fprintf(module->fmtfp3,"%c", pi->example_string[i]);
+    }
+    fprintf(module->fmtfp3, "\", STRING_CMD);\n\n", pi->example_string);
   }
 }