Changeset fefe03 in git

Timestamp:

Apr 28, 2005, 7:10:57 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

23b5a65cf5607012698a7371986704418775654b

Parents:

cfc9c0a1f0e480d7fbfe9a32ec1bc89a904a83ba

Message:

*hannes: generate plural_cmd.inc


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

Location:

Singular

Files:

• iparith.cc (modified) (3 diffs)
• tesths.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.347 2005-04-27 15:15:18 Singular Exp $ */
+/* $Id: iparith.cc,v 1.348 2005-04-28 17:10:47 Singular Exp $ */
 
 /*
@@ -62 +62 @@
 #include "gring.h"
 #define ALLOW_PLURAL    ,1
+#define ALLOW_PLURAL_N   1
 #define NO_PLURAL       ,0
+#define NO_PLURAL_N      0
 #define COMM_PLURAL     ,2
+#define COMM_PLURAL_N    2
 #else
 #define ALLOW_PLURAL
@@ -6250 +6253 @@
 }
 #endif
+void ttGen4()
+{
+  FILE *outfile = myfopen("plural_cmd.inc","w");
+  int i;
+  char *old_s="";
+  fprintf(outfile,
+  "@c *****************************************\n"
+  "@c *  Computer Algebra System SINGULAR     *\n"
+  "@c *****************************************\n\n");
+/*-------------------------------------------------------------------*/
+  fprintf(outfile,"@multicolumn .45 .45\n");
+  int op;
+  i=0;
+  while ((op=dArith1[i].cmd)!=0)
+  {
+    if (dArith1[i].p!=jjWRONG)
+    {
+      char *s = iiTwoOps(op);
+      if ((s!=NULL) && (isalpha(s[0])) && (strcmp(s,old_s)!=0))
+      {
+        old_s=s;
+        switch (dArith1[i].valid_for_plural)
+        {
+          case NO_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab @code{---}\n",s);
+            break;
+          case ALLOW_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab @ref{%s (plural)}\n",s,s);
+            break;
+          case COMM_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab %s\n",s,s);
+            break;
+        }
+      }
+    }
+    i++;
+  }
+  fprintf(outfile,"@c ---------------------------------------------\n");
+  i=0;
+  while ((op=dArith2[i].cmd)!=0)
+  {
+    if (dArith2[i].p!=jjWRONG2)
+    {
+      char *s = iiTwoOps(op);
+      if ((s!=NULL) && (isalpha(s[0])) && (strcmp(s,old_s)!=0))
+      {
+        old_s=s;
+        switch (dArith2[i].valid_for_plural)
+        {
+          case NO_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab @code{---}\n",s);
+            break;
+          case ALLOW_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab @ref{%s (plural)}\n",s,s);
+            break;
+          case COMM_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab %s\n",s,s);
+            break;
+        }
+      }
+    }
+    i++;
+  }
+  fprintf(outfile,"@c ---------------------------------------------\n");
+  i=0;
+  while ((op=dArith3[i].cmd)!=0)
+  {
+    char *s = iiTwoOps(op);
+    if (dArith3[i].p!=jjWRONG3)
+    {
+      if ((s!=NULL) && (isalpha(s[0])) && (strcmp(s,old_s)!=0))
+      {
+        old_s=s;
+        switch (dArith3[i].valid_for_plural)
+        {
+          case NO_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab @code{---}\n",s);
+            break;
+          case ALLOW_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab @ref{%s (plural)}\n",s,s);
+            break;
+          case COMM_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab %s\n",s,s);
+            break;
+        }
+      }
+    }
+    i++;
+  }
+  fprintf(outfile,"@c ---------------------------------------------\n");
+  i=0;
+  while ((op=dArithM[i].cmd)!=0)
+  {
+    char *s = iiTwoOps(op);
+    if ((s!=NULL) && (isalpha(s[0])) && (strcmp(s,old_s)!=0))
+    {
+        old_s=s;
+        switch (dArithM[i].valid_for_plural)
+        {
+          case NO_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab @code{---}\n",s);
+            break;
+          case ALLOW_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab @ref{%s (plural)}\n",s,s);
+            break;
+          case COMM_PLURAL_N:
+            fprintf(outfile,"@item @ref{%s} @tab %s\n",s,s);
+            break;
+        }
+    }
+    i++;
+  }
+  fprintf(outfile,"@c ---------------------------------------------\n");
+  fprintf(outfile,"@end table\n");
+  fclose(outfile);
+}
 /*-------------------------------------------------------------------*/
 #else

Singular/tesths.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: tesths.cc,v 1.96 2005-02-04 14:44:12 Singular Exp $ */
+/* $Id: tesths.cc,v 1.97 2005-04-28 17:10:57 Singular Exp $ */
 
 /*
@@ -57 +57 @@
   extern void ttGen1();
   extern void ttGen2();
+  extern void ttGen4();
   #ifndef __MWERKS__
     extern void mpsr_ttGen(); // For initialization of (CMD, MP_COP) tables
     mpsr_ttGen();
   #endif
+  ttGen4();
   ttGen1();
   ttGen2();