Changeset d27c18 in git


Ignore:
Timestamp:
Jul 21, 1998, 5:56:44 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
14236163c0be8d199836dd2bdc6edc8b993636d0
Parents:
7cdfc2b06e1a55dc6daa4f1ce3c2ec89fd8ff7ba
Message:
* hannes: fixes for TCL


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

Legend:

Unmodified
Added
Removed

  • Singular/misc.cc

    r7cdfc2b rd27c18  
    465465    else
    466466    {
    467 #ifdef buildin_help
    468       singular_manual(str);
    469 #else
    470       system(feGetInfoCall(str));
    471 #ifndef MSDOS
     467#ifdef HAVE_TCL
     468      if(!tclmode)
     469#endif
     470     #ifdef buildin_help
     471        singular_manual(str);
     472     #else
     473        system(feGetInfoCall(str));
     474     #ifndef MSDOS
    472475      //sprintf(tmp,"clear");
    473476      //system(tmp);
    474 #endif
     477     #endif
    475478#endif
    476479    }
    … …  
    576579    if(strcmp(n,"none")==0)
    577580    {
     581      #ifdef HAVE_TCL
     582      if (tclmode)
     583        PrintTCLS('O',"none");
     584      #endif
    578585      test=0;
    579586      verbose=0;
    … …  
    585592      {
    586593        if (optionStruct[i].setval & validOpts)
     594        {
    587595          test |= optionStruct[i].setval;
     596          #ifdef HAVE_TCL
     597          if (tclmode)
     598            PrintTCLS('O',n);
     599          #endif
     600        }
    588601        else
    589602          Warn("cannot set option");
    … …  
    600613        {
    601614          test &= optionStruct[i].resetval;
     615          #ifdef HAVE_TCL
     616          if (tclmode)
     617            PrintTCLS('O',n);
     618          #endif
    602619        }
    603620        else
    … …  
    617634        #endif
    618635        #endif
     636        #ifdef HAVE_TCL
     637        if (tclmode)
     638          PrintTCLS('O',n);
     639        #endif
    619640        goto okay;
    620641      }
    … …  
    629650        #endif
    630651        #endif
     652        #ifdef HAVE_TCL
     653        if (tclmode)
     654          PrintTCLS('O',n);
     655        #endif
    631656        goto okay;
    632657      }

  • Singular/ring.cc

    r7cdfc2b rd27c18  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.27 1998-06-15 08:07:56 krueger Exp $ */
     4/* $Id: ring.cc,v 1.28 1998-07-21 15:56:42 Singular Exp $ */
    55
    66/*
    … …  
    5757  {
    5858
    59     if (complete) 
     59    if (complete)
    6060    {
    6161      /*------------ set global ring vars --------------------------------*/
    … …  
    7272
    7373
    74     if (complete) 
     74    if (complete)
    7575    {
    7676    /*------------ set naMinimalPoly -----------------------------------*/
    … …  
    182182    }
    183183  }
    184 
     184  #ifdef HAVE_TCL
     185  else
     186  {
     187    if (tclmode)
     188    {
     189      PrintTCLS('R',"");
     190    }
     191  }
     192  #endif
    185193}
    186194
Note: See TracChangeset for help on using the changeset viewer.