source: git/Singular/ipid.h @ 99bdcf

spielwiese
Last change on this file since 99bdcf was 020ef9, checked in by Hans Schoenemann <hannes@…>, 14 years ago
omBin_s* ->omBin git-svn-id: file:///usr/local/Singular/svn/trunk@13071 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • 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 <kernel/idrec.h>
13#include <Singular/subexpr.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)(char *libname, 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
80/*extern idhdl      currRingHdl; in ring.h */
81/*extern ring     currRing;  in ring.h */
82/*extern ideal      currQuotient; in structs.h */
83
84char *idhdl2id(idhdl pck, idhdl h);
85void  iiname2hdl(const char *name, idhdl *pck, idhdl *id);
86idhdl enterid(const char * a, int lev, int t, idhdl* root, BOOLEAN init=TRUE);
87idhdl ggetid(const char *n);
88idhdl ggetid(const char *n, BOOLEAN local, idhdl *packhdl);
89void  killid(const char * a, idhdl * i);
90void killhdl(idhdl h, package prooti=currPack);
91void  killhdl2(idhdl h, idhdl * ih, ring r);
92lists ipNameList(idhdl root);
93void  ipMoveId(idhdl h);
94BOOLEAN checkPackage(package pack);
95idhdl packFindHdl(package r);
96void jjNormalizeQRingId(leftv I);
97void jjNormalizeQRingP(leftv I);
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.