Index: Singular/algmap.h
===================================================================
--- Singular/algmap.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/algmap.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: algmap.h,v 1.3 1997-04-09 12:19:37 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT:
 */
 #include "structs.h"
Index: Singular/attrib.h
===================================================================
--- Singular/attrib.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/attrib.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: attrib.h,v 1.3 1997-04-09 12:19:37 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: attributes to leftv and idhdl
 */
 #include <string.h>
Index: Singular/binom.h
===================================================================
--- Singular/binom.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/binom.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: binom.h,v 1.3 1997-04-09 12:19:38 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT - set order (=number of monomial) for dp
 */
 //#define TEST_MAC_ORDER
Index: Singular/clapconv.cc
===================================================================
--- Singular/clapconv.cc	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/clapconv.cc	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -3,5 +3,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapconv.cc,v 1.3 1997-04-08 16:49:16 Singular Exp $
+// $Id: clapconv.cc,v 1.4 1997-04-09 12:19:38 Singular Exp $
 /*
 * ABSTRACT: convert data between Singular and factory
@@ -517,3 +517,8 @@
 }
 
+int convClapISingI( const CanonicalForm & f)
+{
+  if (!f.isImm()) Werror("int overflow in det");
+  return f.intval();
+}
 #endif
Index: Singular/clapconv.h
===================================================================
--- Singular/clapconv.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/clapconv.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -1,4 +1,11 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: clapconv.h,v 1.2 1997-03-21 13:18:55 Singular Exp $
+/****************************************
+*  Computer Algebra System SINGULAR     *
+****************************************/
+// $Id: clapconv.h,v 1.3 1997-04-09 12:19:39 Singular Exp $
+/*
+* ABSTRACT: convert data between Singular and factory
+*/
+
 
 #ifndef INCL_SINGCONV_H
@@ -25,3 +32,5 @@
 poly convClapPSingTrP ( const CanonicalForm & f );
 
+// CanonicalForm convSingIClapI( int i);a <- by constructor of CanonicalForm
+int convClapISingI( const CanonicalForm & f);
 #endif /* INCL_SINGCONV_H */
Index: Singular/clapsing.cc
===================================================================
--- Singular/clapsing.cc	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/clapsing.cc	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -3,5 +3,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.2 1997-04-08 16:49:18 Singular Exp $
+// $Id: clapsing.cc,v 1.3 1997-04-09 12:19:40 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -625,4 +625,21 @@
   return res;
 }
+
+int singclap_det_i( intvec * m )
+{
+  setCharacteristic( 0 );
+  CFMatrix M(m->rows(),m->cols());
+  int i,j;
+  for(i=1;i<=m->rows();i++)
+  {
+    for(j=1;j<=m->cols();j++)
+    {
+      M(i,j)=IMATELEM(*m,i,j);
+    }
+  }
+  int res= convClapISingI( determinant(M,m->rows())) ;
+  Off(SW_RATIONAL);
+  return res;
+}
 /*==============================================================*/
 /* interpreter interface : */
Index: Singular/clapsing.h
===================================================================
--- Singular/clapsing.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/clapsing.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -1,4 +1,11 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: clapsing.h,v 1.1.1.1 1997-03-19 13:18:53 obachman Exp $
+/****************************************
+*  Computer Algebra System SINGULAR     *
+****************************************/
+// $Id: clapsing.h,v 1.2 1997-04-09 12:19:41 Singular Exp $
+/*
+* ABSTRACT: interface between Singular and factory
+*/
+
 
 #ifndef INCL_FACTORYSING_H
@@ -32,4 +39,5 @@
 
 poly singclap_det( const matrix m );
+int singclap_det_i( intvec * m );
 
 BOOLEAN jjGCD_P(leftv res, leftv u, leftv v);
Index: Singular/cntrlc.h
===================================================================
--- Singular/cntrlc.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/cntrlc.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,4 +4,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: cntrlc.h,v 1.3 1997-04-09 12:19:41 Singular Exp $ */
 /*
 * ABSTRACT - interupt and signal handling
Index: Singular/febase.h
===================================================================
--- Singular/febase.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/febase.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,4 +4,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: febase.h,v 1.3 1997-04-09 12:19:42 Singular Exp $ */
 /*
 * ABSTRACT
Index: Singular/ffields.h
===================================================================
--- Singular/ffields.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/ffields.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: ffields.h,v 1.3 1997-04-09 12:19:43 Singular Exp $ */
 /*
-* ABSTRACT - interupt and signal handling
+* ABSTRACT: finite fields with a none-prime number of elements (via tables)
 */
 #include "structs.h"
Index: Singular/grammar.y
===================================================================
--- Singular/grammar.y	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/grammar.y	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -2,5 +2,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: grammar.y,v 1.5 1997-03-27 20:23:39 obachman Exp $ */
+/* $Id: grammar.y,v 1.6 1997-04-09 12:19:43 Singular Exp $ */
 /*
 * ABSTRACT: SINGULAR shell grammatik
@@ -149,5 +149,4 @@
 %token <i> DEGREE_CMD
 %token <i> DEG_CMD
-%token <i> DET_CMD
 %token <i> DIFF_CMD
 %token <i> DIM_CMD
@@ -1532,5 +1531,5 @@
             FreeL((ADDRESS)$3);
           }
-        | PROC_CMD extendedid '=' expr ';'
+        | PROC_CMD elemexpr '=' expr ';'
           {
             #ifdef SIC
@@ -1542,10 +1541,7 @@
             }
             #endif
-            if ($4.Typ()!=STRING_CMD)
-              MYYERROR("string expression expected");
-            idhdl h = enterid($2,myynest,PROC_CMD,&idroot,FALSE);
-            if (h==NULL) YYERROR;
-            IDSTRING(h) = (char *)$4.CopyD();
-            $4.CleanUp();
+            sleftv v;
+            if ((iiDeclCommand(&v,&$2,myynest,PROC_CMD,&idroot,FALSE))
+            || (iiAssign(&v,&($4)))) YYERROR;
           }
         | PROC_DEF STRINGTOK BLOCKTOK
Index: Singular/ideals.h
===================================================================
--- Singular/ideals.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/ideals.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: ideals.h,v 1.3 1997-04-09 12:19:44 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT - all basic methods to manipulate ideals
 */
 #include "structs.h"
Index: Singular/intvec.h
===================================================================
--- Singular/intvec.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/intvec.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: intvec.h,v 1.3 1997-04-09 12:19:45 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: class intvec: lists/vectors of integers
 */
 #include <string.h>
Index: Singular/iparith.cc
===================================================================
--- Singular/iparith.cc	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/iparith.cc	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -2,5 +2,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.16 1997-04-08 08:43:16 obachman Exp $ */
+/* $Id: iparith.cc,v 1.17 1997-04-09 12:19:46 Singular Exp $ */
 /*
 * ABSTRACT: table driven kernel interface, used by interpreter
@@ -1867,5 +1867,7 @@
 ,{jjTIMES_MA,  '*',            MATRIX_CMD,     MATRIX_CMD, MATRIX_CMD }
 ,{jjOP_IV_I,   '*',            INTVEC_CMD,     INTVEC_CMD, INT_CMD }
+,{jjOP_I_IV,   '*',            INTVEC_CMD,     INT_CMD,    INTVEC_CMD }
 ,{jjOP_IV_I,   '*',            INTMAT_CMD,     INTMAT_CMD, INT_CMD }
+,{jjOP_I_IV,   '*',            INTMAT_CMD,     INT_CMD,    INTMAT_CMD }
 ,{jjTIMES_IV,  '*',            INTVEC_CMD,     INTMAT_CMD, INTVEC_CMD }
 ,{jjTIMES_IV,  '*',            INTMAT_CMD,     INTMAT_CMD, INTMAT_CMD }
@@ -2068,4 +2070,8 @@
   return FALSE;
 }
+static BOOLEAN jjNULL(leftv res, leftv u)
+{
+  return FALSE;
+}
 //static BOOLEAN jjPLUSPLUS(leftv res, leftv u)
 //{
@@ -2251,9 +2257,16 @@
     }
 
-    res->data = (char *)singclap_det((matrix)(v->Data()));
+    res->data = (char *)singclap_det(m);
     return FALSE;
   }
 nonconst:
-  res->data = (char *)mpDet((matrix)(v->Data()));
+  res->data = (char *)mpDet(m);
+  return FALSE;
+}
+static BOOLEAN jjDET_I(leftv res, leftv v)
+{
+  int i,j;
+  intvec * m=(intvec*)v->Data();
+  res->data = (char *)singclap_det_i(m);
   return FALSE;
 }
@@ -2898,4 +2911,5 @@
 ,{jjCOUNT_IV,   COUNT_CMD,       INT_CMD,        INTMAT_CMD }
 ,{jjCOUNT_L,    COUNT_CMD,       INT_CMD,        LIST_CMD }
+,{jjNULL,       DEF_CMD,         DEF_CMD,        INT_CMD }
 ,{jjWRONG,      DEF_CMD,         0,              ANY_TYPE }
 ,{jjDEG,        DEG_CMD,         INT_CMD,        POLY_CMD }
@@ -2905,6 +2919,8 @@
 ,{jjDEFINED,    DEFINED_CMD,     INT_CMD,        DEF_CMD }
 #ifdef HAVE_LIBFACTORY
+,{jjDET_I,      DET_CMD,         INT_CMD,        INTMAT_CMD }
 ,{jjDET,        DET_CMD,         POLY_CMD,       MATRIX_CMD }
 #else
+//,{jjWRONG,      DET_CMD,         INT_CMD,        INTMAT_CMD }
 ,{jjmpDet,      DET_CMD,        -((s)POLY_CMD),  MATRIX_CMD }
 #endif
Index: Singular/ipassign.cc
===================================================================
--- Singular/ipassign.cc	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/ipassign.cc	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -2,5 +2,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.7 1997-04-08 08:43:19 obachman Exp $ */
+/* $Id: ipassign.cc,v 1.8 1997-04-09 12:19:48 Singular Exp $ */
 
 /*
@@ -512,4 +512,9 @@
     return TRUE;
   }
+  if((rt==DEF_CMD)||(rt==NONE))
+  {
+    if (!errorreported) WerrorS("right side is not a datum");
+    return TRUE;
+  }
   
   int i=0;
@@ -729,5 +734,5 @@
     h->next=NULL;
     rt=h->Typ();
-    if (rt==0)
+    if ((rt==0)||(rt==NONE))
     {
       L->Clean();
Index: Singular/ipconv.h
===================================================================
--- Singular/ipconv.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/ipconv.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: ipconv.h,v 1.3 1997-04-09 12:19:49 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: interpreter: converting types
 */
 #include "structs.h"
Index: Singular/ipid.h
===================================================================
--- Singular/ipid.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/ipid.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: ipid.h,v 1.3 1997-04-09 12:19:50 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: identfier handling
 */
 #include <string.h>
Index: Singular/ipprint.h
===================================================================
--- Singular/ipprint.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/ipprint.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: ipprint.h,v 1.3 1997-04-09 12:19:50 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: interpreter: printing
 */
 #include "structs.h"
Index: Singular/ipshell.h
===================================================================
--- Singular/ipshell.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/ipshell.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,4 +4,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: ipshell.h,v 1.3 1997-04-09 12:19:51 Singular Exp $ */
 /*
 * ABSTRACT
Index: Singular/khstd.h
===================================================================
--- Singular/khstd.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/khstd.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,4 +4,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: khstd.h,v 1.3 1997-04-09 12:19:52 Singular Exp $ */
 /*
 * ABSTRACT:hilbert driven std
Index: Singular/kstd1.h
===================================================================
--- Singular/kstd1.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/kstd1.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,4 +4,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: kstd1.h,v 1.3 1997-04-09 12:19:52 Singular Exp $ */
 /*
 * ABSTRACT
Index: Singular/kstd2.h
===================================================================
--- Singular/kstd2.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/kstd2.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: kstd2.h,v 1.3 1997-04-09 12:19:53 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT -  Kernel: alg. of Buchberger
 */
 #include "structs.h"
Index: Singular/kstdfac.h
===================================================================
--- Singular/kstdfac.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/kstdfac.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: kstdfac.h,v 1.3 1997-04-09 12:19:53 Singular Exp $ */
 /*
-* ABSTRACT
+*  ABSTRACT -  Kernel: factorizing alg. of Buchberger
 */
 #include "structs.h"
Index: Singular/kutil.h
===================================================================
--- Singular/kutil.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/kutil.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: kutil.h,v 1.3 1997-04-09 12:19:54 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: kernel: utils for std
 */
 #include "structs.h"
Index: Singular/lists.cc
===================================================================
--- Singular/lists.cc	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/lists.cc	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -2,5 +2,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: lists.cc,v 1.3 1997-04-02 15:07:20 Singular Exp $ */
+/* $Id: lists.cc,v 1.4 1997-04-09 12:19:55 Singular Exp $ */
 /*
 * ABSTRACT: handling of the list type
@@ -70,6 +70,7 @@
 lists lInsert0(lists ul, leftv v, int pos)
 {
+  if ((pos<0)||(v->rtyp==NONE))
+    return NULL;
   lists l=(lists) Alloc(sizeof(slists));
-  if (pos<0) return NULL;
   l->Init(max(ul->nr+2,pos+1));
   int i,j;
@@ -99,5 +100,5 @@
   lists ul=(lists)u->CopyD();
   res->data=(char *)lInsert0(ul,v,0);
-  return FALSE;
+  return (res->data==NULL);
 }
 
@@ -109,5 +110,5 @@
   lists ul=(lists)u->CopyD();
   res->data=(char *)lInsert0(ul,v,(int)w->Data());
-  return FALSE;
+  return (res->data==NULL);
 }
 
@@ -119,5 +120,5 @@
   lists ul=(lists)u->CopyD();
   res->data=(char *)lInsert0(ul,v,ul->nr+1);
-  return FALSE;
+  return (res->data==NULL);
 }
 
Index: Singular/lists.h
===================================================================
--- Singular/lists.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/lists.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,4 +4,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: lists.h,v 1.3 1997-04-09 12:19:55 Singular Exp $ */
 /*
 * ABSTRACT: handling of the list type
Index: Singular/longalg.h
===================================================================
--- Singular/longalg.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/longalg.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: longalg.h,v 1.3 1997-04-09 12:19:56 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT:   algebraic numbers
 */
 #include "longrat.h"
Index: Singular/longrat.h
===================================================================
--- Singular/longrat.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/longrat.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: longrat.h,v 1.3 1997-04-09 12:19:57 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: computation with long rational numbers
 */
 #include "structs.h"
Index: Singular/maps.h
===================================================================
--- Singular/maps.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/maps.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: maps.h,v 1.5 1997-04-09 12:19:57 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT - the mapping of polynomials to other rings
 */
 #include "structs.h"
Index: Singular/matpol.h
===================================================================
--- Singular/matpol.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/matpol.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,4 +4,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: matpol.h,v 1.4 1997-04-09 12:19:58 Singular Exp $ */
 /*
 * ABSTRACT
Index: Singular/misc.cc
===================================================================
--- Singular/misc.cc	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/misc.cc	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -2,5 +2,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: misc.cc,v 1.4 1997-04-02 15:07:27 Singular Exp $ */
+/* $Id: misc.cc,v 1.5 1997-04-09 12:19:59 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -61,4 +61,5 @@
   I_FEbase();
   memset(&sLastPrinted,0,sizeof(sleftv));
+  sLastPrinted.rtyp=NONE;
 #ifdef HAVE_MPSR
   extern void mpsr_Init();
Index: Singular/mmemory.h
===================================================================
--- Singular/mmemory.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/mmemory.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,4 +4,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: mmemory.h,v 1.3 1997-04-09 12:19:59 Singular Exp $ */
 /*
 * ABSTRACT
Index: Singular/modulop.h
===================================================================
--- Singular/modulop.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/modulop.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: modulop.h,v 1.3 1997-04-09 12:20:01 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: numbers modulo p (<=32003)
 */
 #include "structs.h"
Index: Singular/mpsr.h
===================================================================
--- Singular/mpsr.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/mpsr.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -1,2 +1,6 @@
+/****************************************
+*  Computer Algebra System SINGULAR     *
+****************************************/
+/* $Id: mpsr.h,v 1.4 1997-04-09 12:20:01 Singular Exp $ */
 /***************************************************************
  *
Index: Singular/mpsr_Get.h
===================================================================
--- Singular/mpsr_Get.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/mpsr_Get.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -1,2 +1,6 @@
+/****************************************
+*  Computer Algebra System SINGULAR     *
+****************************************/
+/* $Id: mpsr_Get.h,v 1.2 1997-04-09 12:20:02 Singular Exp $ */
 /***************************************************************
  *
Index: Singular/mpsr_Put.h
===================================================================
--- Singular/mpsr_Put.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/mpsr_Put.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -1,2 +1,6 @@
+/****************************************
+*  Computer Algebra System SINGULAR     *
+****************************************/
+/* $Id: mpsr_Put.h,v 1.2 1997-04-09 12:20:03 Singular Exp $ */
 /***************************************************************
  *
Index: Singular/mpsr_Timer.h
===================================================================
--- Singular/mpsr_Timer.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/mpsr_Timer.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -1,2 +1,7 @@
+/****************************************
+*  Computer Algebra System SINGULAR     *
+****************************************/
+/* $Id: mpsr_Timer.h,v 1.2 1997-04-09 12:20:04 Singular Exp $ */
+
 /***************************************************************
  *
Index: Singular/mpsr_Tok.h
===================================================================
--- Singular/mpsr_Tok.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/mpsr_Tok.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -1,2 +1,7 @@
+/****************************************
+*  Computer Algebra System SINGULAR     *
+****************************************/
+/* $Id: mpsr_Tok.h,v 1.2 1997-04-09 12:20:05 Singular Exp $ */
+
 /***************************************************************
  *
Index: Singular/numbers.h
===================================================================
--- Singular/numbers.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/numbers.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: numbers.h,v 1.3 1997-04-09 12:20:05 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: interface to coefficient aritmetics
 */
 #include "structs.h"
Index: Singular/polys.h
===================================================================
--- Singular/polys.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/polys.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,6 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: polys.h,v 1.3 1997-04-09 12:20:06 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT - all basic methods to manipulate polynomials
 */
 #include "structs.h"
Index: Singular/ring.h
===================================================================
--- Singular/ring.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/ring.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -5,7 +5,7 @@
 ****************************************/
 /*
-* ABSTRACT
+* ABSTRACT - the interpreter related ring operations
 */
-/* $Id: ring.h,v 1.3 1997-03-27 12:42:49 Singular Exp $ */
+/* $Id: ring.h,v 1.4 1997-04-09 12:20:07 Singular Exp $ */
 
 /* includes */
Index: Singular/scanner.l
===================================================================
--- Singular/scanner.l	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/scanner.l	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -3,5 +3,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: scanner.l,v 1.3 1997-03-27 12:42:50 Singular Exp $ */
+/* $Id: scanner.l,v 1.4 1997-04-09 12:20:07 Singular Exp $ */
 #include <stdio.h>
 #include <string.h>
@@ -92,4 +92,5 @@
 %x string
 %x block
+%x blockstr
 %x brace
 %x bracestr
@@ -135,5 +136,5 @@
 
 <brace>"\""              {
-                           noeof = noeof_brace;
+                           noeof = noeof_string;
                            BEGIN(bracestr);
                            yymore();
@@ -186,5 +187,18 @@
                            BEGIN(block);
                          }
-<block>[^\{\}]*          { yymore(); }
+<block>"\""              {
+                           noeof = noeof_string;
+                           BEGIN(blockstr);
+                           yymore();
+                         }
+<blockstr>[^\"]          { yymore(); }
+<blockstr>"\\\\"         { yymore(); }
+<blockstr>"\\\""         { yymore(); }
+<blockstr>"\""           {
+                           noeof = noeof_block;
+                           BEGIN(block);
+                           yymore();
+                         }
+<block>[^\{\}\"]*        { yymore(); }
 <block>"{"               { blocknest++; yymore(); }
 <block>"}"               {
Index: Singular/silink.cc
===================================================================
--- Singular/silink.cc	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/silink.cc	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -2,38 +2,8 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: silink.cc,v 1.7 1997-04-08 08:43:27 obachman Exp $ */
+/* $Id: silink.cc,v 1.8 1997-04-09 12:20:08 Singular Exp $ */
 
 /*
-* ABSTRACT
-*/
-/* $Log: not supported by cvs2svn $
-// Revision 1.5  1997/03/29  15:02:38  obachman
-// Sat Mar 29 16:01:39 1997  Olaf Bachmann
-// <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
-//
-// 	* silink.cc (DumpQring): Takes care of dumping a Qring
-//
-// Revision 1.4  1997/03/28  21:44:36  obachman
-// Fri Mar 28 14:12:05 1997  Olaf Bachmann
-// <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
-//
-// 	* Added routines dump(link) and getdump(link) for ascii and MP
-// 	  links
-//
-// 	* ipconv.cc (dConvertTypes): added int->module conversion so that
-// 	  'module m = 0' works
-//
-// 	* iparith.cc (jjVAR1): added LINK_CMD to list of typeof(...)
-//
-// Revision 1.3  1997/03/26  14:58:02  obachman
-// Wed Mar 26 14:02:15 1997  Olaf Bachmann
-// <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
-//
-// 	* added reference counter to links, updated slKill, slCopy, slInit
-// 	* various small bug fixes for Batch mode
-//
-// Revision 1.1.1.1  1997/03/19  13:18:42  obachman
-// Imported Singular sources
-//
+* ABSTRACT: general interface to links
 */
 
Index: Singular/silink.h
===================================================================
--- Singular/silink.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/silink.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,31 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: silink.h,v 1.6 1997-04-08 08:43:29 obachman Exp $ */
+/* $Id: silink.h,v 1.7 1997-04-09 12:20:09 Singular Exp $ */
 /*
-* ABSTRACT
-*/
-/* $Log: not supported by cvs2svn $
- * Revision 1.4  1997/03/28  21:44:37  obachman
- * Fri Mar 28 14:12:05 1997  Olaf Bachmann
- * <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
- *
- * 	* Added routines dump(link) and getdump(link) for ascii and MP
- * 	  links
- *
- * 	* ipconv.cc (dConvertTypes): added int->module conversion so that
- * 	  'module m = 0' works
- *
- * 	* iparith.cc (jjVAR1): added LINK_CMD to list of typeof(...)
- *
- * Revision 1.3  1997/03/26  14:58:03  obachman
- * Wed Mar 26 14:02:15 1997  Olaf Bachmann
- * <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
- *
- * 	* added reference counter to links, updated slKill, slCopy, slInit
- * 	* various small bug fixes for Batch mode
- *
- * Revision 1.1.1.1  1997/03/19  13:18:41  obachman
- * Imported Singular sources
- *
+* ABSTRACT: general interface to links
 */
 
Index: Singular/sing_dbm.cc
===================================================================
--- Singular/sing_dbm.cc	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/sing_dbm.cc	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -5,5 +5,5 @@
 //**************************************************************************
 //
-// $Id: sing_dbm.cc,v 1.3 1997-04-08 16:45:32 Singular Exp $
+// $Id: sing_dbm.cc,v 1.4 1997-04-09 12:20:09 Singular Exp $
 //
 //**************************************************************************
@@ -175,6 +175,6 @@
   ||  (strcmp(request, "write") == 0))
   {
-    if (SI_LINK_R_OPEN_P(l)) return "ready";
-    else                     return "not ready";
+    if (SI_LINK_RW_OPEN_P(l)) return "ready";
+    else                      return "not ready";
   }
   else return "unknown status request";
Index: Singular/sing_mp.cc
===================================================================
--- Singular/sing_mp.cc	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/sing_mp.cc	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -2,48 +2,8 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: sing_mp.cc,v 1.7 1997-04-08 08:43:30 obachman Exp $ */
+/* $Id: sing_mp.cc,v 1.8 1997-04-09 12:20:10 Singular Exp $ */
 
 /*
-* ABSTRACT
-*/
-/* $Log: not supported by cvs2svn $
-// Revision 1.5  1997/03/28  21:44:38  obachman
-// Fri Mar 28 14:12:05 1997  Olaf Bachmann
-// <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
-//
-// 	* Added routines dump(link) and getdump(link) for ascii and MP
-// 	  links
-//
-// 	* ipconv.cc (dConvertTypes): added int->module conversion so that
-// 	  'module m = 0' works
-//
-// 	* iparith.cc (jjVAR1): added LINK_CMD to list of typeof(...)
-//
-// Revision 1.4  1997/03/26  14:58:05  obachman
-// Wed Mar 26 14:02:15 1997  Olaf Bachmann
-// <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
-//
-// 	* added reference counter to links, updated slKill, slCopy, slInit
-// 	* various small bug fixes for Batch mode
-//
-// Revision 1.2  1997/03/20  16:59:58  obachman
-// Various minor bug-fixes in mpsr interface
-//
-// Thu Mar 20 11:57:00 1997  Olaf Bachmann  <obachman@schlupp.mathematik.uni-kl.de (Olaf Bachmann)>
-//
-// 	* sing_mp.cc (slInitBatchLink): initialized silink such that
-// 	  l->argv[0] == "MP:connect" (otherwise, slInitMP failed)
-//
-// Wed Mar 19 15:38:08 1997  Olaf Bachmann  <obachman@schlupp.mathematik.uni-kl.de (Olaf Bachmann)>
-//
-// 	* hannes fixed maFindPerm to reflect new names <->parameter scheme
-//
-// 	* sing_mp.cc (mpsr_IsMPLink): fixed it
-//
-// 	* Makefile (tags): added target tags
-//
-// Revision 1.1.1.1  1997/03/19  13:18:41  obachman
-// Imported Singular sources
-//
+* ABSTRACT: interface to MP links
 */
 
Index: Singular/sing_mp.h
===================================================================
--- Singular/sing_mp.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/sing_mp.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,8 +4,8 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: sing_mp.h,v 1.5 1997-04-09 12:20:11 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: interface to MP links
 */
-/* $Id: sing_mp.h,v 1.4 1997-04-08 08:43:31 obachman Exp $ */
 
 
Index: Singular/spolys.h
===================================================================
--- Singular/spolys.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/spolys.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -5,7 +5,7 @@
 ****************************************/
 /*
-* ABSTRACT
+* ABSTRACT: s-polynomials
 */
-/* $Id: spolys.h,v 1.2 1997-03-24 14:25:53 Singular Exp $ */
+/* $Id: spolys.h,v 1.3 1997-04-09 12:20:11 Singular Exp $ */
 #include "structs.h"
 
Index: Singular/spolys0.h
===================================================================
--- Singular/spolys0.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/spolys0.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,8 +4,8 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: spolys0.h,v 1.3 1997-04-09 12:20:12 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: s-polynomials, internal header
 */
-/* $Id: spolys0.h,v 1.2 1997-03-24 14:25:55 Singular Exp $ */
 #include "polys.h"
 #include "binom.h"
Index: Singular/stairc.h
===================================================================
--- Singular/stairc.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/stairc.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,8 +4,8 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: stairc.h,v 1.3 1997-04-09 12:20:13 Singular Exp $ */
 /*
 * ABSTRACT
 */
-/* $Id: stairc.h,v 1.2 1997-03-24 14:25:56 Singular Exp $ */
 
 #include "structs.h"
Index: Singular/structs.h
===================================================================
--- Singular/structs.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/structs.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,8 +4,8 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: structs.h,v 1.3 1997-04-09 12:20:13 Singular Exp $ */
 /*
 * ABSTRACT
 */
-/* $Id: structs.h,v 1.2 1997-03-24 14:25:57 Singular Exp $ */
 
 /* standard types */
Index: Singular/stype.h
===================================================================
--- Singular/stype.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/stype.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,8 +4,8 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: stype.h,v 1.3 1997-04-09 12:20:14 Singular Exp $ */
 /*
 * ABSTRACT: flex/bison interface
 */
-/* $Id: stype.h,v 1.2 1997-03-24 14:25:58 Singular Exp $ */
 
 #include "structs.h"
Index: Singular/subexpr.cc
===================================================================
--- Singular/subexpr.cc	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/subexpr.cc	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -2,8 +2,8 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: subexpr.cc,v 1.11 1997-04-08 08:43:32 obachman Exp $ */
+/* $Id: subexpr.cc,v 1.12 1997-04-09 12:20:14 Singular Exp $ */
 
 /*
-* ABSTRACT:
+* ABSTRACT: handling of leftv
 */
 
@@ -212,4 +212,5 @@
     && (t/*Typ()*/!=PACKAGE_CMD)
     && (t/*Typ()*/!=PROC_CMD)
+    && (t/*Typ()*/!=DEF_CMD)
     )
     {
@@ -543,4 +544,5 @@
       return (void *)slCopy((si_link) d);
     case 0:
+    case DEF_CMD:
       break;
 #ifdef TEST
Index: Singular/subexpr.h
===================================================================
--- Singular/subexpr.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/subexpr.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,8 +4,8 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+/* $Id: subexpr.h,v 1.3 1997-04-09 12:20:15 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: handling of leftv
 */
-/* $Id: subexpr.h,v 1.2 1997-03-24 14:25:59 Singular Exp $ */
 
 #include <string.h>
Index: Singular/syz.h
===================================================================
--- Singular/syz.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/syz.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -4,7 +4,7 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: syz.h,v 1.3 1997-04-03 12:16:48 Singular Exp $ */
+/* $Id: syz.h,v 1.4 1997-04-09 12:20:16 Singular Exp $ */
 /*
-* ABSTRACT
+* ABSTRACT: resolutions
 */
 #include "structs.h"
Index: Singular/timer.h
===================================================================
--- Singular/timer.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/timer.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -5,7 +5,7 @@
 ****************************************/
 /*
-* ABSTRACT
+*  ABSTRACT - get the computing time
 */
-/* $Id: timer.h,v 1.3 1997-03-27 20:26:05 obachman Exp $ */
+/* $Id: timer.h,v 1.4 1997-04-09 12:20:17 Singular Exp $ */
 
 extern int timerv;
Index: Singular/tok.h
===================================================================
--- Singular/tok.h	(revision e2f1c7b90d7253794bed6c9fcd2adf63ddae5124)
+++ Singular/tok.h	(revision 6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb)
@@ -5,7 +5,7 @@
 ****************************************/
 /*
-* ABSTRACT
+* ABSTRACT: token for interpreter, as types; general macros
 */
-/* $Id: tok.h,v 1.6 1997-04-08 08:43:35 obachman Exp $ */
+/* $Id: tok.h,v 1.7 1997-04-09 12:20:17 Singular Exp $ */
 
 #ifndef MYYSTYPE
@@ -60,4 +60,5 @@
   DEFINED_CMD,
   DELETE_CMD,
+  DET_CMD,
   DUMP_CMD,
   EXTGCD_CMD,
