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