Changeset 4f3177 in git


Ignore:
Timestamp:
May 5, 2005, 12:42:00 PM (18 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
Children:
54e28fc2679933ca28cd8feded2139df758fa3d8
Parents:
0b8c8d54328b4dab061ef0b1fd53fda79ac62739
Message:
*hannes: frwalk


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

Legend:

Unmodified
Added
Removed

  • Singular/Makefile.in

    r0b8c8d r4f3177  
    110110    libparse.cc sing_win.cc\
    111111    gms.cc pcv.cc maps_ip.cc\
    112     tgb.cc walk.cc\
     112    tgb.cc walk.cc walk_ip.cc \
    113113    pShallowCopyDelete.cc cntrlc.cc misc.cc
    114114

  • Singular/iparith.cc

    r0b8c8d r4f3177  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.352 2005-05-03 15:41:48 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.353 2005-05-05 10:41:58 Singular Exp $ */
    55
    66/*
    … …  
    4848#include "GMPrat.h"
    4949#include "tgb.h"
     50#include "walkProc.h"
    5051#ifdef HAVE_FACTORY
    5152#include "clapsing.h"
    … …  
    211212  { "freemodule",  0, FREEMODULE_CMD ,    CMD_1},
    212213  { "facstd",      0, FACSTD_CMD ,        CMD_12},
     214  { "frwalk",      0, FWALK_CMD ,         CMD_23},
    213215  { "gen",         0, E_CMD ,             CMD_1},
    214216  { "getdump",     0, GETDUMP_CMD,        CMD_1},
    … …  
    18501852  }
    18511853  /*else res->data=NULL;*/
     1854  return FALSE;
     1855}
     1856static BOOLEAN jjFWALK(leftv res, leftv u, leftv v)
     1857{
     1858  res->data=(char *)fractalWalkProc(u,v);
     1859  setFlag( res, FLAG_STD );
    18521860  return FALSE;
    18531861}
    … …  
    27212729#endif
    27222730,{jjFIND2,     FIND_CMD,       INT_CMD,        STRING_CMD, STRING_CMD ALLOW_PLURAL}
     2731,{jjFWALK,     FWALK_CMD,      IDEAL_CMD,      RING_CMD,   DEF_CMD NO_PLURAL}
     2732
    27232733,{jjGCD_I,     GCD_CMD,        INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
    27242734,{jjGCD_N,     GCD_CMD,        NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
    … …  
    46274637  return FALSE;
    46284638}
     4639static BOOLEAN jjFWALK3(leftv res, leftv u, leftv v, leftv w)
     4640{
     4641  if ((int)w->Data()==0)
     4642    res->data=(char *)walkProc(u,v);
     4643  else
     4644    res->data=(char *)fractalWalkProc(u,v);
     4645  setFlag( res, FLAG_STD );
     4646  return FALSE;
     4647}
    46294648static BOOLEAN jjHILBERT3(leftv res, leftv u, leftv v, leftv w)
    46304649{
    … …  
    50765095,{jjELIMIN_HILB,    ELIMINATION_CMD,IDEAL_CMD, IDEAL_CMD, POLY_CMD, INTVEC_CMD NO_PLURAL}
    50775096,{jjFIND3,          FIND_CMD,   INT_CMD,    STRING_CMD, STRING_CMD, INT_CMD ALLOW_PLURAL}
     5097,{jjFWALK3,         FWALK_CMD,  IDEAL_CMD,  RING_CMD,   DEF_CMD,    INT_CMD NO_PLURAL}
    50785098,{jjHILBERT3,       HILBERT_CMD,INTVEC_CMD, IDEAL_CMD,  INT_CMD,    INTVEC_CMD NO_PLURAL}
    50795099,{jjHILBERT3,       HILBERT_CMD,INTVEC_CMD, MODUL_CMD,  INT_CMD,    INTVEC_CMD NO_PLURAL}

  • Singular/ipshell.cc

    r0b8c8d r4f3177  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipshell.cc,v 1.107 2005-04-30 15:31:34 Singular Exp $ */
     4/* $Id: ipshell.cc,v 1.108 2005-05-05 10:41:59 Singular Exp $ */
    55/*
    66* ABSTRACT:
    … …  
    40454045      n--;
    40464046    }
    4047     else if ((*iv)[1]!=ringorder_a) o++;
     4047    else if (((*iv)[1]!=ringorder_a)
     4048    && ((*iv)[1]!=ringorder_a64)) o++;
    40484049    n++;
    40494050    sl=sl->next;
    … …  
    41374138            }
    41384139            break;
     4140          case ringorder_a64:
     4141          {
     4142            R->block0[n] = last+1;
     4143            R->block1[n] = min(last+iv->length()-2 , R->N);
     4144            R->wvhdl[n] = (int*)omAlloc((iv->length()-1)*sizeof(int64));
     4145            int64 *w=(int64 *)R->wvhdl[n];
     4146            for (i=2; i<iv->length(); i++)
     4147            {
     4148              w[i-2]=(*iv)[i];
     4149              if ((*iv)[i]<0) typ=-1;
     4150            }
     4151            break;
     4152          }
    41394153          case ringorder_M:
    41404154          {
    … …  
    45514565  return NULL;
    45524566}
    4553 

  • Singular/tok.h

    r0b8c8d r4f3177  
    77* ABSTRACT: tokens, types for interpreter; general macros
    88*/
    9 /* $Id: tok.h,v 1.61 2005-04-29 13:23:02 Singular Exp $ */
     9/* $Id: tok.h,v 1.62 2005-05-05 10:42:00 Singular Exp $ */
    1010
    1111#ifndef MYYSTYPE
    … …  
    8383  FIND_CMD,
    8484  FACSTD_CMD,
     85  FWALK_CMD,
    8586  FGLM_CMD,
    8687  FGLMQUOT_CMD,
Note: See TracChangeset for help on using the changeset viewer.