1 | #ifndef SILINK_H |
---|
2 | #define SILINK_H |
---|
3 | /**************************************** |
---|
4 | * Computer Algebra System SINGULAR * |
---|
5 | ****************************************/ |
---|
6 | /* $Id$ */ |
---|
7 | /* |
---|
8 | * ABSTRACT: general interface to links |
---|
9 | */ |
---|
10 | |
---|
11 | #include <kernel/structs.h> |
---|
12 | #include <Singular/sing_dbm.h> |
---|
13 | #include <Singular/lists.h> |
---|
14 | #include <Singular/attrib.h> |
---|
15 | |
---|
16 | typedef struct sip_link ip_link; |
---|
17 | typedef ip_link * si_link; |
---|
18 | |
---|
19 | |
---|
20 | // extension links: |
---|
21 | typedef BOOLEAN (*slOpenProc)(si_link l, short flag, leftv h); |
---|
22 | typedef BOOLEAN (*slWriteProc)(si_link l, leftv lv); |
---|
23 | typedef BOOLEAN (*slCloseProc)(si_link l); |
---|
24 | typedef BOOLEAN (*slKillProc)(si_link l); |
---|
25 | typedef leftv (*slReadProc)(si_link l); |
---|
26 | typedef leftv (*slRead2Proc)(si_link l, leftv a); |
---|
27 | typedef BOOLEAN (*slDumpProc)(si_link l); |
---|
28 | typedef BOOLEAN (*slGetDumpProc)(si_link l); |
---|
29 | typedef const char* (*slStatusProc)(si_link l, const char *request); |
---|
30 | |
---|
31 | struct s_si_link_extension |
---|
32 | { |
---|
33 | si_link_extension next; |
---|
34 | slOpenProc Open; |
---|
35 | slCloseProc Close; |
---|
36 | slKillProc Kill; |
---|
37 | slReadProc Read; |
---|
38 | slRead2Proc Read2; |
---|
39 | slWriteProc Write; |
---|
40 | slDumpProc Dump; |
---|
41 | slGetDumpProc GetDump; |
---|
42 | slStatusProc Status; |
---|
43 | const char *type; |
---|
44 | }; |
---|
45 | |
---|
46 | struct sip_link |
---|
47 | { |
---|
48 | si_link_extension m; // methods |
---|
49 | char *mode; |
---|
50 | char *name; // used for filename and/or further specs |
---|
51 | void *data; // the link itself |
---|
52 | BITSET flags; // 0=close open = 1: read = 2: write = 3 |
---|
53 | short ref; // reference counter |
---|
54 | }; |
---|
55 | |
---|
56 | // flags: |
---|
57 | #define SI_LINK_CLOSE 0 |
---|
58 | #define SI_LINK_OPEN 1 |
---|
59 | #define SI_LINK_READ 2 |
---|
60 | #define SI_LINK_WRITE 4 |
---|
61 | |
---|
62 | // tests: |
---|
63 | #define SI_LINK_CLOSE_P(l) (!(l)->flags) |
---|
64 | #define SI_LINK_OPEN_P(l) ((l)->flags & SI_LINK_OPEN) |
---|
65 | #define SI_LINK_W_OPEN_P(l) ((l)->flags & SI_LINK_WRITE) |
---|
66 | #define SI_LINK_R_OPEN_P(l) ((l)->flags & SI_LINK_READ) |
---|
67 | #define SI_LINK_RW_OPEN_P(l) (SI_LINK_W_OPEN_P(l) && SI_LINK_R_OPEN_P(l)) |
---|
68 | |
---|
69 | #define SI_LINK_SET_CLOSE_P(l) ((l)->flags = SI_LINK_CLOSE) |
---|
70 | #define SI_LINK_SET_OPEN_P(l, flag) ((l)->flags |= SI_LINK_OPEN |flag) |
---|
71 | #define SI_LINK_SET_W_OPEN_P(l) ((l)->flags |= (SI_LINK_OPEN | SI_LINK_WRITE)) |
---|
72 | #define SI_LINK_SET_R_OPEN_P(l) ((l)->flags |= (SI_LINK_OPEN | SI_LINK_READ)) |
---|
73 | #define SI_LINK_SET_RW_OPEN_P(l) ((l)->flags |= (SI_LINK_OPEN | SI_LINK_READ | SI_LINK_WRITE)) |
---|
74 | |
---|
75 | BOOLEAN slOpen(si_link l, short flag, leftv h); |
---|
76 | BOOLEAN slClose(si_link l); |
---|
77 | leftv slRead(si_link l,leftv a=NULL); |
---|
78 | BOOLEAN slWrite(si_link l, leftv v); |
---|
79 | BOOLEAN slDump(si_link l); |
---|
80 | BOOLEAN slGetDump(si_link l); |
---|
81 | const char* slStatus(si_link l, const char *request); |
---|
82 | const char* slStatusAscii(si_link l,const char* request); |
---|
83 | BOOLEAN slInit(si_link l, char *str); |
---|
84 | void slKill(si_link l); |
---|
85 | void slCleanUp(si_link l); |
---|
86 | void slStandardInit(); |
---|
87 | inline si_link slCopy(si_link l) |
---|
88 | { |
---|
89 | l->ref++; |
---|
90 | return l; |
---|
91 | } |
---|
92 | |
---|
93 | #include <omalloc/omalloc.h> |
---|
94 | inline char* slString(si_link l) |
---|
95 | { |
---|
96 | if (l->name != NULL) |
---|
97 | { |
---|
98 | return omStrDup(l->name); |
---|
99 | } |
---|
100 | else |
---|
101 | { |
---|
102 | return omStrDup(""); |
---|
103 | } |
---|
104 | } |
---|
105 | |
---|
106 | extern omBin s_si_link_extension_bin; |
---|
107 | extern omBin sip_link_bin; |
---|
108 | extern omBin ip_link_bin; |
---|
109 | |
---|
110 | int slStatusSsiL(lists L, int timeout); |
---|
111 | |
---|
112 | typedef struct |
---|
113 | { |
---|
114 | leftv u; |
---|
115 | si_link l; |
---|
116 | void * next; |
---|
117 | } link_struct; |
---|
118 | |
---|
119 | typedef link_struct* link_list; |
---|
120 | |
---|
121 | extern link_list ssiToBeClosed; |
---|
122 | #endif // SILINK_H |
---|