Changeset 5d32fd in git


Ignore:
Timestamp:
Nov 24, 1999, 7:13:23 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
4b72f66b46b8b566048c1a700efc18093f7225f0
Parents:
e514ee03b6532cbf576ae3600314e75f2b3c5a8f
Message:
* hannes: move spectrum-stuff to a library and extra.cc, step I


git-svn-id: file:///usr/local/Singular/svn/trunk@3917 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
1 added
5 edited

Legend:

Unmodified
Added
Removed
  • Singular/extra.cc

    re514ee r5d32fd  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.119 1999-11-24 17:09:34 Singular Exp $ */
     4/* $Id: extra.cc,v 1.120 1999-11-24 18:13:20 Singular Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
     
    5252#include "distrib.h"
    5353#include "prCopy.h"
     54#ifdef HAVE_SPECTRUM
     55#include "spectrum.h"
     56#endif
     57
    5458
    5559// Define to enable many more system commands
     
    441445   else
    442446   {
     447/*==================== spectrum =============================*/
     448   #ifdef HAVE_SPECTRUM
     449   if(strcmp(sys_cmd,"spectrum") == 0)
     450   {
     451     if (h->Typ()!=POLY_CMD)
     452     {
     453       WerrorS("poly expected");
     454       return TRUE;
     455     }
     456     if (h->next==NULL)
     457       return spectrumProc(res,h);
     458     if (h->next->Typ()!=INT_CMD)
     459     {
     460       WerrorS("poly,int expected");
     461       return TRUE;
     462     }
     463     if(((int)h->next->Data())==1)
     464       return spectrumfProc(res,h);
     465     return spectrumProc(res,h);
     466   }
     467   else
     468   {
     469   #endif
    443470/*================= Extended system call ========================*/
    444471#ifdef HAVE_EXTENDED_SYSTEM
  • Singular/iparith.cc

    re514ee r5d32fd  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.190 1999-11-24 17:09:35 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.191 1999-11-24 18:13:21 Singular Exp $ */
    55
    66/*
     
    285285  { "sortvec",     0, SORTVEC_CMD ,       CMD_1},
    286286  #ifdef HAVE_SPECTRUM
    287   { "spectrum",    0, SPECTRUM_CMD ,      CMD_123},
    288287  { "semic",       0, SEMIC_CMD ,         CMD_23},
    289288  #endif
     
    22972296,{jjSIMPL_ID,  SIMPLIFY_CMD,   MODUL_CMD,      MODUL_CMD,  INT_CMD PROFILER}
    22982297#ifdef HAVE_SPECTRUM
    2299 ,{spectrumProc2,SPECTRUM_CMD,  LIST_CMD,       POLY_CMD,   INT_CMD PROFILER}
    23002298,{semicProc,   SEMIC_CMD,      INT_CMD,        LIST_CMD,   LIST_CMD PROFILER}
    23012299#endif
     
    35983596,{jjSort_Id,    SORTVEC_CMD,     INTVEC_CMD,     IDEAL_CMD }
    35993597,{jjSort_Id,    SORTVEC_CMD,     INTVEC_CMD,     MODUL_CMD }
    3600 #ifdef HAVE_SPECTRUM
    3601 ,{spectrumProc, SPECTRUM_CMD,    LIST_CMD,       POLY_CMD }
    3602 #endif
    36033598,{jjSTD,        STD_CMD,         IDEAL_CMD,      IDEAL_CMD }
    36043599,{jjSTD,        STD_CMD,         MODUL_CMD,      MODUL_CMD }
  • Singular/spectrum.cc

    re514ee r5d32fd  
    12601260}
    12611261
    1262 BOOLEAN    spectrumProc2 ( leftv res,leftv u, leftv v)
    1263 {
    1264   if (((int)v->Data())==1)
    1265     return spectrumfProc(res,u);
    1266   return spectrumProc(res,u);
    1267 }
    1268 
    12691262BOOLEAN    spectrumOp3  ( leftv res, leftv u, leftv v, leftv w )
    12701263{
  • Singular/spectrum.h

    re514ee r5d32fd  
    99#define SPECTRUM_H
    1010
    11 BOOLEAN    spectrumProc2 ( leftv,leftv, leftv );
    1211BOOLEAN    spectrumOp3  ( leftv,leftv, leftv, leftv );
    1312BOOLEAN    spectrumProc ( leftv,leftv );
  • Singular/tok.h

    re514ee r5d32fd  
    77* ABSTRACT: tokens, types for interpreter; general macros
    88*/
    9 /* $Id: tok.h,v 1.31 1999-11-24 17:09:36 Singular Exp $ */
     9/* $Id: tok.h,v 1.32 1999-11-24 18:13:23 Singular Exp $ */
    1010
    1111#ifndef MYYSTYPE
     
    107107  ROWS_CMD,
    108108#ifdef HAVE_SPECTRUM
    109   SPECTRUM_CMD,
    110109  SEMIC_CMD,
    111110#endif
Note: See TracChangeset for help on using the changeset viewer.