source: git/Singular/ipid.h @ 06c0b3

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