source: git/Singular/ipid.h @ 79ea48

spielwiese
Last change on this file since 79ea48 was 79ea48, checked in by Martin Lee <martinlee84@…>, 13 years ago
fixed includes in idrec.h and ipid.h
  • Property mode set to 100644
File size: 3.4 KB
Line 
1#ifndef IPID_H
2#define IPID_H
3/****************************************
4*  Computer Algebra System SINGULAR     *
5****************************************/
6/* $Id$ */
7/*
8* ABSTRACT: identfier handling
9*/
10#include <string.h>
11//#include <kernel/structs.h>
12#include <Singular/idrec.h>
13#include <Singular/subexpr.h>
14#include <Singular/lists.h>
15
16extern idhdl currPackHdl;
17extern idhdl basePackHdl;
18extern package currPack;
19extern package basePack;
20#define IDROOT (currPack->idroot)
21
22struct sip_command;
23typedef struct sip_command ip_command;
24typedef ip_command *       command;
25
26struct sip_command
27{
28  sleftv arg1; /*arg1 to build_in, proc to proc_call*/
29  sleftv arg2; /*NULL or arg2 to build_in, args to proc_call*/
30  sleftv arg3; /*NULL or arg3*/
31  short argc; /*0,1,2,3 to build_in, -1 otherwise*/
32  short op;   /* build_in or PROC_CMD*/
33};
34
35struct sip_package
36{
37  idhdl         idroot; /* local objects */
38  char          *libname;
39  short         ref;
40  language_defs language;
41  BOOLEAN       loaded;
42  void          *handle;
43};
44
45inline package paCopy(package pack)
46{
47  pack->ref++;
48  return pack;
49}
50
51inline void paKill(package pack)
52{
53  pack->ref--;
54}
55
56class proclevel
57{
58  public:
59  proclevel * next;
60  idhdl      cRingHdl;
61  ring       cRing;
62  idhdl      cPackHdl;
63  package    cPack;
64  char      * name;
65  proclevel()  { memset(this,0,sizeof(*this)); }
66  void    push(char *);
67  void    pop();
68};
69extern proclevel *procstack;
70
71typedef struct
72{
73  int (*iiAddCproc)(char *libname, char *procname, BOOLEAN pstatic,
74                    BOOLEAN(*func)(leftv res, leftv v));
75  int (*iiArithAddCmd)(const char *szName, short nAlias, short nTokval,
76                       short nToktype, short nPos);
77
78} SModulFunctions;
79
80
81/*extern idhdl      currRingHdl; in ring.h */
82/*extern ring     currRing;  in ring.h */
83/*extern ideal      currQuotient; in structs.h */
84
85idhdl enterid(const char * a, int lev, int t, idhdl* root, BOOLEAN init=TRUE, BOOLEAN serach=TRUE);
86idhdl ggetid(const char *n);
87idhdl ggetid(const char *n, BOOLEAN local, idhdl *packhdl);
88void  killid(const char * a, idhdl * i);
89void killhdl(idhdl h, package prooti=currPack);
90void  killhdl2(idhdl h, idhdl * ih, ring r);
91lists ipNameList(idhdl root);
92void  ipMoveId(idhdl h);
93BOOLEAN checkPackage(package pack);
94idhdl packFindHdl(package r);
95void jjNormalizeQRingId(leftv I);
96void jjNormalizeQRingP(leftv I);
97void *idrecDataInit(int t);
98
99#define FLAG_STD   0
100#define FLAG_TWOSTD  3
101#define FLAG_QRING   4
102#define hasFlag(A,F) Sy_inset((F),(A)->flag)
103#define setFlag(A,F) (A)->flag|=Sy_bit(F)
104#define resetFlag(A,F) (A)->flag&=~Sy_bit(F)
105void ipListFlag(idhdl h);
106
107
108#define IDNEXT(a)    ((a)->next)
109#define IDTYP(a)     ((a)->typ)
110#define IDFLAG(a)    ((a)->flag)
111#define IDLEV(a)     ((a)->lev)
112#define IDID(a)      ((a)->id)
113#define IDATTR(a)    ((a)->attribute)
114
115#define IDINT(a)    ((int)(long)((a)->data.ustring))
116#define IDDATA(a)   ((a)->data.ustring)
117#define IDRING(a)   ((a)->data.uring)
118#define IDINTVEC(a) ((a)->data.iv)
119#define IDPOLY(a)   ((a)->data.p)
120#define IDBIGINT(a) ((a)->data.n)
121#define IDNUMBER(a) ((a)->data.n)
122#define IDIDEAL(a)  ((a)->data.uideal)
123#define IDMATRIX(a) ((a)->data.umatrix)
124#define IDMAP(a)    ((a)->data.umap)
125#define IDSTRING(a) ((a)->data.ustring)
126#define IDLIST(a)   ((a)->data.l)
127#define IDLINK(a)   ((a)->data.li)
128#define IDPACKAGE(a) ((a)->data.pack)
129#define IDPROC(a)   ((a)->data.pinf)
130
131extern omBin sip_command_bin;
132extern omBin sip_package_bin;
133extern omBin idrec_bin;
134#endif
135
136
Note: See TracBrowser for help on using the repository browser.