Changeset 6ae4f5 in git


Ignore:
Timestamp:
Apr 9, 1997, 2:20:17 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
Children:
feaddd38f9cf78a784df825347f9f83cbb667a40
Parents:
e2f1c7b90d7253794bed6c9fcd2adf63ddae5124
Message:
* hannes: - corrected scanner.l: parsing of strings in blocks:
            if (1) { write("","}"); }
          - corrected ipassign.cc: assignment of "dummy" types: DEF, NONE
          - corrected sleftv::Print(_), initialisation of _
          - added conversion int->def
          - added CopyD(DEF)
          - in insert(..): object should not be of type NONE (lists.cc:lInsert0)
          - added int*intvec, int*intmat to iparith.cc


git-svn-id: file:///usr/local/Singular/svn/trunk@145 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
57 edited

Legend:

Unmodified
Added
Removed

  • Singular/algmap.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: algmap.h,v 1.3 1997-04-09 12:19:37 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT:
    89*/
    910#include "structs.h"

  • Singular/attrib.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: attrib.h,v 1.3 1997-04-09 12:19:37 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: attributes to leftv and idhdl
    89*/
    910#include <string.h>

  • Singular/binom.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: binom.h,v 1.3 1997-04-09 12:19:38 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT - set order (=number of monomial) for dp
    89*/
    910//#define TEST_MAC_ORDER

  • Singular/clapconv.cc

    re2f1c7 r6ae4f5  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 // $Id: clapconv.cc,v 1.3 1997-04-08 16:49:16 Singular Exp $
     5// $Id: clapconv.cc,v 1.4 1997-04-09 12:19:38 Singular Exp $
    66/*
    77* ABSTRACT: convert data between Singular and factory
    … …  
    517517}
    518518
     519int convClapISingI( const CanonicalForm & f)
     520{
     521  if (!f.isImm()) Werror("int overflow in det");
     522  return f.intval();
     523}
    519524#endif

  • Singular/clapconv.h

    re2f1c7 r6ae4f5  
    11// emacs edit mode for this file is -*- C++ -*-
    2 // $Id: clapconv.h,v 1.2 1997-03-21 13:18:55 Singular Exp $
     2/****************************************
     3*  Computer Algebra System SINGULAR     *
     4****************************************/
     5// $Id: clapconv.h,v 1.3 1997-04-09 12:19:39 Singular Exp $
     6/*
     7* ABSTRACT: convert data between Singular and factory
     8*/
     9
    310
    411#ifndef INCL_SINGCONV_H
    … …  
    2532poly convClapPSingTrP ( const CanonicalForm & f );
    2633
     34// CanonicalForm convSingIClapI( int i);a <- by constructor of CanonicalForm
     35int convClapISingI( const CanonicalForm & f);
    2736#endif /* INCL_SINGCONV_H */

  • Singular/clapsing.cc

    re2f1c7 r6ae4f5  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 // $Id: clapsing.cc,v 1.2 1997-04-08 16:49:18 Singular Exp $
     5// $Id: clapsing.cc,v 1.3 1997-04-09 12:19:40 Singular Exp $
    66/*
    77* ABSTRACT: interface between Singular and factory
    … …  
    625625  return res;
    626626}
     627
     628int singclap_det_i( intvec * m )
     629{
     630  setCharacteristic( 0 );
     631  CFMatrix M(m->rows(),m->cols());
     632  int i,j;
     633  for(i=1;i<=m->rows();i++)
     634  {
     635    for(j=1;j<=m->cols();j++)
     636    {
     637      M(i,j)=IMATELEM(*m,i,j);
     638    }
     639  }
     640  int res= convClapISingI( determinant(M,m->rows())) ;
     641  Off(SW_RATIONAL);
     642  return res;
     643}
    627644/*==============================================================*/
    628645/* interpreter interface : */

  • Singular/clapsing.h

    re2f1c7 r6ae4f5  
    11// emacs edit mode for this file is -*- C++ -*-
    2 // $Id: clapsing.h,v 1.1.1.1 1997-03-19 13:18:53 obachman Exp $
     2/****************************************
     3*  Computer Algebra System SINGULAR     *
     4****************************************/
     5// $Id: clapsing.h,v 1.2 1997-04-09 12:19:41 Singular Exp $
     6/*
     7* ABSTRACT: interface between Singular and factory
     8*/
     9
    310
    411#ifndef INCL_FACTORYSING_H
    … …  
    3239
    3340poly singclap_det( const matrix m );
     41int singclap_det_i( intvec * m );
    3442
    3543BOOLEAN jjGCD_P(leftv res, leftv u, leftv v);

  • Singular/cntrlc.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: cntrlc.h,v 1.3 1997-04-09 12:19:41 Singular Exp $ */
    67/*
    78* ABSTRACT - interupt and signal handling

  • Singular/febase.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: febase.h,v 1.3 1997-04-09 12:19:42 Singular Exp $ */
    67/*
    78* ABSTRACT

  • Singular/ffields.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: ffields.h,v 1.3 1997-04-09 12:19:43 Singular Exp $ */
    67/*
    7 * ABSTRACT - interupt and signal handling
     8* ABSTRACT: finite fields with a none-prime number of elements (via tables)
    89*/
    910#include "structs.h"

  • Singular/grammar.y

    re2f1c7 r6ae4f5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.5 1997-03-27 20:23:39 obachman Exp $ */
     4/* $Id: grammar.y,v 1.6 1997-04-09 12:19:43 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
    … …  
    149149%token <i> DEGREE_CMD
    150150%token <i> DEG_CMD
    151 %token <i> DET_CMD
    152151%token <i> DIFF_CMD
    153152%token <i> DIM_CMD
    … …  
    15321531            FreeL((ADDRESS)$3);
    15331532          }
    1534         | PROC_CMD extendedid '=' expr ';'
     1533        | PROC_CMD elemexpr '=' expr ';'
    15351534          {
    15361535            #ifdef SIC
    … …  
    15421541            }
    15431542            #endif
    1544             if ($4.Typ()!=STRING_CMD)
    1545               MYYERROR("string expression expected");
    1546             idhdl h = enterid($2,myynest,PROC_CMD,&idroot,FALSE);
    1547             if (h==NULL) YYERROR;
    1548             IDSTRING(h) = (char *)$4.CopyD();
    1549             $4.CleanUp();
     1543            sleftv v;
     1544            if ((iiDeclCommand(&v,&$2,myynest,PROC_CMD,&idroot,FALSE))
     1545            || (iiAssign(&v,&($4)))) YYERROR;
    15501546          }
    15511547        | PROC_DEF STRINGTOK BLOCKTOK

  • Singular/ideals.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: ideals.h,v 1.3 1997-04-09 12:19:44 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT - all basic methods to manipulate ideals
    89*/
    910#include "structs.h"

  • Singular/intvec.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: intvec.h,v 1.3 1997-04-09 12:19:45 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: class intvec: lists/vectors of integers
    89*/
    910#include <string.h>

  • Singular/iparith.cc

    re2f1c7 r6ae4f5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.16 1997-04-08 08:43:16 obachman Exp $ */
     4/* $Id: iparith.cc,v 1.17 1997-04-09 12:19:46 Singular Exp $ */
    55/*
    66* ABSTRACT: table driven kernel interface, used by interpreter
    … …  
    18671867,{jjTIMES_MA,  '*',            MATRIX_CMD,     MATRIX_CMD, MATRIX_CMD }
    18681868,{jjOP_IV_I,   '*',            INTVEC_CMD,     INTVEC_CMD, INT_CMD }
     1869,{jjOP_I_IV,   '*',            INTVEC_CMD,     INT_CMD,    INTVEC_CMD }
    18691870,{jjOP_IV_I,   '*',            INTMAT_CMD,     INTMAT_CMD, INT_CMD }
     1871,{jjOP_I_IV,   '*',            INTMAT_CMD,     INT_CMD,    INTMAT_CMD }
    18701872,{jjTIMES_IV,  '*',            INTVEC_CMD,     INTMAT_CMD, INTVEC_CMD }
    18711873,{jjTIMES_IV,  '*',            INTMAT_CMD,     INTMAT_CMD, INTMAT_CMD }
    … …  
    20682070  return FALSE;
    20692071}
     2072static BOOLEAN jjNULL(leftv res, leftv u)
     2073{
     2074  return FALSE;
     2075}
    20702076//static BOOLEAN jjPLUSPLUS(leftv res, leftv u)
    20712077//{
    … …  
    22512257    }
    22522258
    2253     res->data = (char *)singclap_det((matrix)(v->Data()));
     2259    res->data = (char *)singclap_det(m);
    22542260    return FALSE;
    22552261  }
    22562262nonconst:
    2257   res->data = (char *)mpDet((matrix)(v->Data()));
     2263  res->data = (char *)mpDet(m);
     2264  return FALSE;
     2265}
     2266static BOOLEAN jjDET_I(leftv res, leftv v)
     2267{
     2268  int i,j;
     2269  intvec * m=(intvec*)v->Data();
     2270  res->data = (char *)singclap_det_i(m);
    22582271  return FALSE;
    22592272}
    … …  
    28982911,{jjCOUNT_IV,   COUNT_CMD,       INT_CMD,        INTMAT_CMD }
    28992912,{jjCOUNT_L,    COUNT_CMD,       INT_CMD,        LIST_CMD }
     2913,{jjNULL,       DEF_CMD,         DEF_CMD,        INT_CMD }
    29002914,{jjWRONG,      DEF_CMD,         0,              ANY_TYPE }
    29012915,{jjDEG,        DEG_CMD,         INT_CMD,        POLY_CMD }
    … …  
    29052919,{jjDEFINED,    DEFINED_CMD,     INT_CMD,        DEF_CMD }
    29062920#ifdef HAVE_LIBFACTORY
     2921,{jjDET_I,      DET_CMD,         INT_CMD,        INTMAT_CMD }
    29072922,{jjDET,        DET_CMD,         POLY_CMD,       MATRIX_CMD }
    29082923#else
     2924//,{jjWRONG,      DET_CMD,         INT_CMD,        INTMAT_CMD }
    29092925,{jjmpDet,      DET_CMD,        -((s)POLY_CMD),  MATRIX_CMD }
    29102926#endif

  • Singular/ipassign.cc

    re2f1c7 r6ae4f5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipassign.cc,v 1.7 1997-04-08 08:43:19 obachman Exp $ */
     4/* $Id: ipassign.cc,v 1.8 1997-04-09 12:19:48 Singular Exp $ */
    55
    66/*
    … …  
    512512    return TRUE;
    513513  }
     514  if((rt==DEF_CMD)||(rt==NONE))
     515  {
     516    if (!errorreported) WerrorS("right side is not a datum");
     517    return TRUE;
     518  }
    514519 
    515520  int i=0;
    … …  
    729734    h->next=NULL;
    730735    rt=h->Typ();
    731     if (rt==0)
     736    if ((rt==0)||(rt==NONE))
    732737    {
    733738      L->Clean();

  • Singular/ipconv.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: ipconv.h,v 1.3 1997-04-09 12:19:49 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: interpreter: converting types
    89*/
    910#include "structs.h"

  • Singular/ipid.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: ipid.h,v 1.3 1997-04-09 12:19:50 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: identfier handling
    89*/
    910#include <string.h>

  • Singular/ipprint.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: ipprint.h,v 1.3 1997-04-09 12:19:50 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: interpreter: printing
    89*/
    910#include "structs.h"

  • Singular/ipshell.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: ipshell.h,v 1.3 1997-04-09 12:19:51 Singular Exp $ */
    67/*
    78* ABSTRACT

  • Singular/khstd.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: khstd.h,v 1.3 1997-04-09 12:19:52 Singular Exp $ */
    67/*
    78* ABSTRACT:hilbert driven std

  • Singular/kstd1.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: kstd1.h,v 1.3 1997-04-09 12:19:52 Singular Exp $ */
    67/*
    78* ABSTRACT

  • Singular/kstd2.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: kstd2.h,v 1.3 1997-04-09 12:19:53 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT -  Kernel: alg. of Buchberger
    89*/
    910#include "structs.h"

  • Singular/kstdfac.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: kstdfac.h,v 1.3 1997-04-09 12:19:53 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8*  ABSTRACT -  Kernel: factorizing alg. of Buchberger
    89*/
    910#include "structs.h"

  • Singular/kutil.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: kutil.h,v 1.3 1997-04-09 12:19:54 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: kernel: utils for std
    89*/
    910#include "structs.h"

  • Singular/lists.cc

    re2f1c7 r6ae4f5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: lists.cc,v 1.3 1997-04-02 15:07:20 Singular Exp $ */
     4/* $Id: lists.cc,v 1.4 1997-04-09 12:19:55 Singular Exp $ */
    55/*
    66* ABSTRACT: handling of the list type
    … …  
    7070lists lInsert0(lists ul, leftv v, int pos)
    7171{
     72  if ((pos<0)||(v->rtyp==NONE))
     73    return NULL;
    7274  lists l=(lists) Alloc(sizeof(slists));
    73   if (pos<0) return NULL;
    7475  l->Init(max(ul->nr+2,pos+1));
    7576  int i,j;
    … …  
    99100  lists ul=(lists)u->CopyD();
    100101  res->data=(char *)lInsert0(ul,v,0);
    101   return FALSE;
     102  return (res->data==NULL);
    102103}
    103104
    … …  
    109110  lists ul=(lists)u->CopyD();
    110111  res->data=(char *)lInsert0(ul,v,(int)w->Data());
    111   return FALSE;
     112  return (res->data==NULL);
    112113}
    113114
    … …  
    119120  lists ul=(lists)u->CopyD();
    120121  res->data=(char *)lInsert0(ul,v,ul->nr+1);
    121   return FALSE;
     122  return (res->data==NULL);
    122123}
    123124

  • Singular/lists.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: lists.h,v 1.3 1997-04-09 12:19:55 Singular Exp $ */
    67/*
    78* ABSTRACT: handling of the list type

  • Singular/longalg.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: longalg.h,v 1.3 1997-04-09 12:19:56 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT:   algebraic numbers
    89*/
    910#include "longrat.h"

  • Singular/longrat.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: longrat.h,v 1.3 1997-04-09 12:19:57 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: computation with long rational numbers
    89*/
    910#include "structs.h"

  • Singular/maps.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: maps.h,v 1.5 1997-04-09 12:19:57 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT - the mapping of polynomials to other rings
    89*/
    910#include "structs.h"

  • Singular/matpol.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: matpol.h,v 1.4 1997-04-09 12:19:58 Singular Exp $ */
    67/*
    78* ABSTRACT

  • Singular/misc.cc

    re2f1c7 r6ae4f5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: misc.cc,v 1.4 1997-04-02 15:07:27 Singular Exp $ */
     4/* $Id: misc.cc,v 1.5 1997-04-09 12:19:59 Singular Exp $ */
    55/*
    66* ABSTRACT:
    … …  
    6161  I_FEbase();
    6262  memset(&sLastPrinted,0,sizeof(sleftv));
     63  sLastPrinted.rtyp=NONE;
    6364#ifdef HAVE_MPSR
    6465  extern void mpsr_Init();

  • Singular/mmemory.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: mmemory.h,v 1.3 1997-04-09 12:19:59 Singular Exp $ */
    67/*
    78* ABSTRACT

  • Singular/modulop.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: modulop.h,v 1.3 1997-04-09 12:20:01 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: numbers modulo p (<=32003)
    89*/
    910#include "structs.h"

  • Singular/mpsr.h

    re2f1c7 r6ae4f5  
     1/****************************************
     2*  Computer Algebra System SINGULAR     *
     3****************************************/
     4/* $Id: mpsr.h,v 1.4 1997-04-09 12:20:01 Singular Exp $ */
    15/***************************************************************
    26 *

  • Singular/mpsr_Get.h

    re2f1c7 r6ae4f5  
     1/****************************************
     2*  Computer Algebra System SINGULAR     *
     3****************************************/
     4/* $Id: mpsr_Get.h,v 1.2 1997-04-09 12:20:02 Singular Exp $ */
    15/***************************************************************
    26 *

  • Singular/mpsr_Put.h

    re2f1c7 r6ae4f5  
     1/****************************************
     2*  Computer Algebra System SINGULAR     *
     3****************************************/
     4/* $Id: mpsr_Put.h,v 1.2 1997-04-09 12:20:03 Singular Exp $ */
    15/***************************************************************
    26 *

  • Singular/mpsr_Timer.h

    re2f1c7 r6ae4f5  
     1/****************************************
     2*  Computer Algebra System SINGULAR     *
     3****************************************/
     4/* $Id: mpsr_Timer.h,v 1.2 1997-04-09 12:20:04 Singular Exp $ */
     5
    16/***************************************************************
    27 *

  • Singular/mpsr_Tok.h

    re2f1c7 r6ae4f5  
     1/****************************************
     2*  Computer Algebra System SINGULAR     *
     3****************************************/
     4/* $Id: mpsr_Tok.h,v 1.2 1997-04-09 12:20:05 Singular Exp $ */
     5
    16/***************************************************************
    27 *

  • Singular/numbers.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: numbers.h,v 1.3 1997-04-09 12:20:05 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: interface to coefficient aritmetics
    89*/
    910#include "structs.h"

  • Singular/polys.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: polys.h,v 1.3 1997-04-09 12:20:06 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT - all basic methods to manipulate polynomials
    89*/
    910#include "structs.h"

  • Singular/ring.h

    re2f1c7 r6ae4f5  
    55****************************************/
    66/*
    7 * ABSTRACT
     7* ABSTRACT - the interpreter related ring operations
    88*/
    9 /* $Id: ring.h,v 1.3 1997-03-27 12:42:49 Singular Exp $ */
     9/* $Id: ring.h,v 1.4 1997-04-09 12:20:07 Singular Exp $ */
    1010
    1111/* includes */

  • Singular/scanner.l

    re2f1c7 r6ae4f5  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 /* $Id: scanner.l,v 1.3 1997-03-27 12:42:50 Singular Exp $ */
     5/* $Id: scanner.l,v 1.4 1997-04-09 12:20:07 Singular Exp $ */
    66#include <stdio.h>
    77#include <string.h>
    … …  
    9292%x string
    9393%x block
     94%x blockstr
    9495%x brace
    9596%x bracestr
    … …  
    135136
    136137<brace>"\""              {
    137                            noeof = noeof_brace;
     138                           noeof = noeof_string;
    138139                           BEGIN(bracestr);
    139140                           yymore();
    … …  
    186187                           BEGIN(block);
    187188                         }
    188 <block>[^\{\}]*          { yymore(); }
     189<block>"\""              {
     190                           noeof = noeof_string;
     191                           BEGIN(blockstr);
     192                           yymore();
     193                         }
     194<blockstr>[^\"]          { yymore(); }
     195<blockstr>"\\\\"         { yymore(); }
     196<blockstr>"\\\""         { yymore(); }
     197<blockstr>"\""           {
     198                           noeof = noeof_block;
     199                           BEGIN(block);
     200                           yymore();
     201                         }
     202<block>[^\{\}\"]*        { yymore(); }
    189203<block>"{"               { blocknest++; yymore(); }
    190204<block>"}"               {

  • Singular/silink.cc

    re2f1c7 r6ae4f5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: silink.cc,v 1.7 1997-04-08 08:43:27 obachman Exp $ */
     4/* $Id: silink.cc,v 1.8 1997-04-09 12:20:08 Singular Exp $ */
    55
    66/*
    7 * ABSTRACT
    8 */
    9 /* $Log: not supported by cvs2svn $
    10 // Revision 1.5  1997/03/29  15:02:38  obachman
    11 // Sat Mar 29 16:01:39 1997  Olaf Bachmann
    12 // <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
    13 //
    14 //      * silink.cc (DumpQring): Takes care of dumping a Qring
    15 //
    16 // Revision 1.4  1997/03/28  21:44:36  obachman
    17 // Fri Mar 28 14:12:05 1997  Olaf Bachmann
    18 // <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
    19 //
    20 //      * Added routines dump(link) and getdump(link) for ascii and MP
    21 //        links
    22 //
    23 //      * ipconv.cc (dConvertTypes): added int->module conversion so that
    24 //        'module m = 0' works
    25 //
    26 //      * iparith.cc (jjVAR1): added LINK_CMD to list of typeof(...)
    27 //
    28 // Revision 1.3  1997/03/26  14:58:02  obachman
    29 // Wed Mar 26 14:02:15 1997  Olaf Bachmann
    30 // <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
    31 //
    32 //      * added reference counter to links, updated slKill, slCopy, slInit
    33 //      * various small bug fixes for Batch mode
    34 //
    35 // Revision 1.1.1.1  1997/03/19  13:18:42  obachman
    36 // Imported Singular sources
    37 //
     7* ABSTRACT: general interface to links
    388*/
    399

  • Singular/silink.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: silink.h,v 1.6 1997-04-08 08:43:29 obachman Exp $ */
     6/* $Id: silink.h,v 1.7 1997-04-09 12:20:09 Singular Exp $ */
    77/*
    8 * ABSTRACT
    9 */
    10 /* $Log: not supported by cvs2svn $
    11  * Revision 1.4  1997/03/28  21:44:37  obachman
    12  * Fri Mar 28 14:12:05 1997  Olaf Bachmann
    13  * <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
    14  *
    15  *      * Added routines dump(link) and getdump(link) for ascii and MP
    16  *        links
    17  *
    18  *      * ipconv.cc (dConvertTypes): added int->module conversion so that
    19  *        'module m = 0' works
    20  *
    21  *      * iparith.cc (jjVAR1): added LINK_CMD to list of typeof(...)
    22  *
    23  * Revision 1.3  1997/03/26  14:58:03  obachman
    24  * Wed Mar 26 14:02:15 1997  Olaf Bachmann
    25  * <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
    26  *
    27  *      * added reference counter to links, updated slKill, slCopy, slInit
    28  *      * various small bug fixes for Batch mode
    29  *
    30  * Revision 1.1.1.1  1997/03/19  13:18:41  obachman
    31  * Imported Singular sources
    32  *
     8* ABSTRACT: general interface to links
    339*/
    3410

  • Singular/sing_dbm.cc

    re2f1c7 r6ae4f5  
    55//**************************************************************************
    66//
    7 // $Id: sing_dbm.cc,v 1.3 1997-04-08 16:45:32 Singular Exp $
     7// $Id: sing_dbm.cc,v 1.4 1997-04-09 12:20:09 Singular Exp $
    88//
    99//**************************************************************************
    … …  
    175175  ||  (strcmp(request, "write") == 0))
    176176  {
    177     if (SI_LINK_R_OPEN_P(l)) return "ready";
    178     else                     return "not ready";
     177    if (SI_LINK_RW_OPEN_P(l)) return "ready";
     178    else                      return "not ready";
    179179  }
    180180  else return "unknown status request";

  • Singular/sing_mp.cc

    re2f1c7 r6ae4f5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: sing_mp.cc,v 1.7 1997-04-08 08:43:30 obachman Exp $ */
     4/* $Id: sing_mp.cc,v 1.8 1997-04-09 12:20:10 Singular Exp $ */
    55
    66/*
    7 * ABSTRACT
    8 */
    9 /* $Log: not supported by cvs2svn $
    10 // Revision 1.5  1997/03/28  21:44:38  obachman
    11 // Fri Mar 28 14:12:05 1997  Olaf Bachmann
    12 // <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
    13 //
    14 //      * Added routines dump(link) and getdump(link) for ascii and MP
    15 //        links
    16 //
    17 //      * ipconv.cc (dConvertTypes): added int->module conversion so that
    18 //        'module m = 0' works
    19 //
    20 //      * iparith.cc (jjVAR1): added LINK_CMD to list of typeof(...)
    21 //
    22 // Revision 1.4  1997/03/26  14:58:05  obachman
    23 // Wed Mar 26 14:02:15 1997  Olaf Bachmann
    24 // <obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>
    25 //
    26 //      * added reference counter to links, updated slKill, slCopy, slInit
    27 //      * various small bug fixes for Batch mode
    28 //
    29 // Revision 1.2  1997/03/20  16:59:58  obachman
    30 // Various minor bug-fixes in mpsr interface
    31 //
    32 // Thu Mar 20 11:57:00 1997  Olaf Bachmann  <obachman@schlupp.mathematik.uni-kl.de (Olaf Bachmann)>
    33 //
    34 //      * sing_mp.cc (slInitBatchLink): initialized silink such that
    35 //        l->argv[0] == "MP:connect" (otherwise, slInitMP failed)
    36 //
    37 // Wed Mar 19 15:38:08 1997  Olaf Bachmann  <obachman@schlupp.mathematik.uni-kl.de (Olaf Bachmann)>
    38 //
    39 //      * hannes fixed maFindPerm to reflect new names <->parameter scheme
    40 //
    41 //      * sing_mp.cc (mpsr_IsMPLink): fixed it
    42 //
    43 //      * Makefile (tags): added target tags
    44 //
    45 // Revision 1.1.1.1  1997/03/19  13:18:41  obachman
    46 // Imported Singular sources
    47 //
     7* ABSTRACT: interface to MP links
    488*/
    499

  • Singular/sing_mp.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: sing_mp.h,v 1.5 1997-04-09 12:20:11 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: interface to MP links
    89*/
    9 /* $Id: sing_mp.h,v 1.4 1997-04-08 08:43:31 obachman Exp $ */
    1010
    1111

  • Singular/spolys.h

    re2f1c7 r6ae4f5  
    55****************************************/
    66/*
    7 * ABSTRACT
     7* ABSTRACT: s-polynomials
    88*/
    9 /* $Id: spolys.h,v 1.2 1997-03-24 14:25:53 Singular Exp $ */
     9/* $Id: spolys.h,v 1.3 1997-04-09 12:20:11 Singular Exp $ */
    1010#include "structs.h"
    1111

  • Singular/spolys0.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: spolys0.h,v 1.3 1997-04-09 12:20:12 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: s-polynomials, internal header
    89*/
    9 /* $Id: spolys0.h,v 1.2 1997-03-24 14:25:55 Singular Exp $ */
    1010#include "polys.h"
    1111#include "binom.h"

  • Singular/stairc.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: stairc.h,v 1.3 1997-04-09 12:20:13 Singular Exp $ */
    67/*
    78* ABSTRACT
    89*/
    9 /* $Id: stairc.h,v 1.2 1997-03-24 14:25:56 Singular Exp $ */
    1010
    1111#include "structs.h"

  • Singular/structs.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: structs.h,v 1.3 1997-04-09 12:20:13 Singular Exp $ */
    67/*
    78* ABSTRACT
    89*/
    9 /* $Id: structs.h,v 1.2 1997-03-24 14:25:57 Singular Exp $ */
    1010
    1111/* standard types */

  • Singular/stype.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: stype.h,v 1.3 1997-04-09 12:20:14 Singular Exp $ */
    67/*
    78* ABSTRACT: flex/bison interface
    89*/
    9 /* $Id: stype.h,v 1.2 1997-03-24 14:25:58 Singular Exp $ */
    1010
    1111#include "structs.h"

  • Singular/subexpr.cc

    re2f1c7 r6ae4f5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: subexpr.cc,v 1.11 1997-04-08 08:43:32 obachman Exp $ */
     4/* $Id: subexpr.cc,v 1.12 1997-04-09 12:20:14 Singular Exp $ */
    55
    66/*
    7 * ABSTRACT:
     7* ABSTRACT: handling of leftv
    88*/
    99
    … …  
    212212    && (t/*Typ()*/!=PACKAGE_CMD)
    213213    && (t/*Typ()*/!=PROC_CMD)
     214    && (t/*Typ()*/!=DEF_CMD)
    214215    )
    215216    {
    … …  
    543544      return (void *)slCopy((si_link) d);
    544545    case 0:
     546    case DEF_CMD:
    545547      break;
    546548#ifdef TEST

  • Singular/subexpr.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
     6/* $Id: subexpr.h,v 1.3 1997-04-09 12:20:15 Singular Exp $ */
    67/*
    7 * ABSTRACT
     8* ABSTRACT: handling of leftv
    89*/
    9 /* $Id: subexpr.h,v 1.2 1997-03-24 14:25:59 Singular Exp $ */
    1010
    1111#include <string.h>

  • Singular/syz.h

    re2f1c7 r6ae4f5  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: syz.h,v 1.3 1997-04-03 12:16:48 Singular Exp $ */
     6/* $Id: syz.h,v 1.4 1997-04-09 12:20:16 Singular Exp $ */
    77/*
    8 * ABSTRACT
     8* ABSTRACT: resolutions
    99*/
    1010#include "structs.h"

  • Singular/timer.h

    re2f1c7 r6ae4f5  
    55****************************************/
    66/*
    7 * ABSTRACT
     7*  ABSTRACT - get the computing time
    88*/
    9 /* $Id: timer.h,v 1.3 1997-03-27 20:26:05 obachman Exp $ */
     9/* $Id: timer.h,v 1.4 1997-04-09 12:20:17 Singular Exp $ */
    1010
    1111extern int timerv;

  • Singular/tok.h

    re2f1c7 r6ae4f5  
    55****************************************/
    66/*
    7 * ABSTRACT
     7* ABSTRACT: token for interpreter, as types; general macros
    88*/
    9 /* $Id: tok.h,v 1.6 1997-04-08 08:43:35 obachman Exp $ */
     9/* $Id: tok.h,v 1.7 1997-04-09 12:20:17 Singular Exp $ */
    1010
    1111#ifndef MYYSTYPE
    … …  
    6060  DEFINED_CMD,
    6161  DELETE_CMD,
     62  DET_CMD,
    6263  DUMP_CMD,
    6364  EXTGCD_CMD,
Note: See TracChangeset for help on using the changeset viewer.