Changeset 5dc702 in git for Singular/subexpr.h


Ignore:
Timestamp:
Dec 9, 2003, 7:18:02 PM (20 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
e5a253c36a55093898d26a21f0ebdff4b3b6d024
Parents:
d18a3c7d80e32626b32a7b2f296b6340d1aba298
Message:
*hannes: moved defs


git-svn-id: file:///usr/local/Singular/svn/trunk@6956 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/subexpr.h

    rd18a3c r5dc702  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: subexpr.h,v 1.33 2002-05-16 17:53:31 Singular Exp $ */
     6/* $Id: subexpr.h,v 1.34 2003-12-09 18:15:26 Singular Exp $ */
    77/*
    88* ABSTRACT: handling of leftv
    … …  
    103103BOOLEAN assumeStdFlag(leftv h);
    104104
    105 class proc_singular
    106 {
    107 public:
    108   long   proc_start;       // position where proc is starting
    109   long   def_end;          // position where proc header is ending
    110   long   help_start;       // position where help is starting
    111   long   help_end;         // position where help is starting
    112   long   body_start;       // position where proc-body is starting
    113   long   body_end;         // position where proc-body is ending
    114   long   example_start;    // position where example is starting
    115   long   proc_end;         // position where proc is ending
    116   int    proc_lineno;
    117   int    body_lineno;
    118   int    example_lineno;
    119   char   *body;
    120   long help_chksum;
    121 };
    122 
    123 struct proc_object
    124 {
    125 //public:
    126   BOOLEAN (*function)(leftv res, leftv v);
    127 };
    128 
    129 union uprocinfodata;
    130 
    131 union uprocinfodata
    132 {
    133 public:
    134   proc_singular  s;        // data of Singular-procedure
    135   struct proc_object    o; // pointer to binary-function
    136 };
    137 
    138 typedef union uprocinfodata procinfodata;
    139 
    140 typedef enum { LANG_NONE, LANG_TOP, LANG_SINGULAR, LANG_C, LANG_MAX} language_defs;
    141 // LANG_TOP     : Toplevel package only
    142 // LANG_SINGULAR:
    143 // LANG_C       :
    144 class procinfo
    145 {
    146 public:
    147   char          *libname;
    148   char          *procname;
    149 #ifdef HAVE_NS
    150   package       pack;
    151 #endif
    152   language_defs language;
    153   short         ref;
    154   char          is_static;        // if set, proc not accessible for user
    155   char          trace_flag;
    156   procinfodata  data;
    157 };
    158 
    159105inline procinfov piCopy(procinfov pi)
    160106{
Note: See TracChangeset for help on using the changeset viewer.