Changeset f82470 in git


Ignore:
Timestamp:
Apr 15, 1999, 11:57:06 AM (24 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
Children:
1518b9cf23aa2598228863099857cedec82668c2
Parents:
a1417ca18268fbc29752b22baabf8c7d5409ef6f
Message:
* string(LINK_CMD);


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

Legend:

Unmodified
Added
Removed

  • Singular/iparith.cc

    ra1417c rf82470  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.140 1999-03-19 14:18:00 obachman Exp $ */
     4/* $Id: iparith.cc,v 1.141 1999-04-15 09:57:03 obachman Exp $ */
    55
    66/*
    … …  
    35693569,{jjSTRING,     STRING_CMD,      STRING_CMD,     INTVEC_CMD }
    35703570,{jjSTRING,     STRING_CMD,      STRING_CMD,     INTMAT_CMD }
     3571,{jjSTRING,     STRING_CMD,      STRING_CMD,     LINK_CMD }
    35713572,{jjSTRING_PROC,STRING_CMD,      STRING_CMD,     PROC_CMD }
    35723573,{jjSTRING,     STRING_CMD,      STRING_CMD,     RING_CMD }

  • Singular/mmprivate.h

    ra1417c rf82470  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: mmprivate.h,v 1.8 1999-03-19 17:42:31 obachman Exp $ */
     6/* $Id: mmprivate.h,v 1.9 1999-04-15 09:57:04 obachman Exp $ */
    77/*
    88* ABSTRACT
    … …  
    3535  struct DBMCB * prev;
    3636  char * fname;
     37#ifdef MTRACK
    3738  unsigned long bt_stack[BT_MAXSTACK];
     39#endif
    3840  int init;
    3941  size_t size;

  • Singular/silink.h

    ra1417c rf82470  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: silink.h,v 1.10 1998-10-14 10:18:55 obachman Exp $ */
     6/* $Id: silink.h,v 1.11 1999-04-15 09:57:05 obachman Exp $ */
    77/*
    88* ABSTRACT: general interface to links
    … …  
    8585  return l;
    8686}
     87inline char* slString(si_link l)
     88{
     89  if (l->name != NULL)
     90  {
     91    return mstrdup(l->name);
     92  }
     93  else
     94  {
     95    return mstrdup("");
     96  }
     97}
    8798
    8899#endif // SILINK_H

  • Singular/subexpr.cc

    ra1417c rf82470  
    719719        return rString((ring)d);
    720720      }
     721        case LINK_CMD:
     722        {
     723          return slString((si_link) d);
     724        }
     725       
    721726      default:
    722727        #ifdef TEST
Note: See TracChangeset for help on using the changeset viewer.