[35aab3] | 1 | #ifndef SILINK_H |
---|
| 2 | #define SILINK_H |
---|
| 3 | /**************************************** |
---|
| 4 | * Computer Algebra System SINGULAR * |
---|
| 5 | ****************************************/ |
---|
| 6 | /* $Id: silink.h,v 1.1.1.1 2003-10-06 12:16:03 Singular Exp $ */ |
---|
| 7 | /* |
---|
| 8 | * ABSTRACT: general interface to links |
---|
| 9 | */ |
---|
| 10 | |
---|
| 11 | #include "structs.h" |
---|
| 12 | |
---|
| 13 | // extension links: |
---|
| 14 | typedef BOOLEAN (*slOpenProc)(si_link l, short flag); |
---|
| 15 | typedef BOOLEAN (*slWriteProc)(si_link l, leftv lv); |
---|
| 16 | typedef BOOLEAN (*slCloseProc)(si_link l); |
---|
| 17 | typedef BOOLEAN (*slKillProc)(si_link l); |
---|
| 18 | typedef leftv (*slReadProc)(si_link l); |
---|
| 19 | typedef leftv (*slRead2Proc)(si_link l, leftv a); |
---|
| 20 | typedef BOOLEAN (*slDumpProc)(si_link l); |
---|
| 21 | typedef BOOLEAN (*slGetDumpProc)(si_link l); |
---|
| 22 | typedef char* (*slStatusProc)(si_link l, char *request); |
---|
| 23 | |
---|
| 24 | struct s_si_link_extension |
---|
| 25 | { |
---|
| 26 | si_link_extension next; |
---|
| 27 | slOpenProc Open; |
---|
| 28 | slCloseProc Close; |
---|
| 29 | slKillProc Kill; |
---|
| 30 | slReadProc Read; |
---|
| 31 | slRead2Proc Read2; |
---|
| 32 | slWriteProc Write; |
---|
| 33 | slDumpProc Dump; |
---|
| 34 | slGetDumpProc GetDump; |
---|
| 35 | slStatusProc Status; |
---|
| 36 | char *type; |
---|
| 37 | }; |
---|
| 38 | |
---|
| 39 | struct sip_link |
---|
| 40 | { |
---|
| 41 | si_link_extension m; // methods |
---|
| 42 | char *mode; |
---|
| 43 | char *name; // used for filename and/or further specs |
---|
| 44 | void *data; // the link itself |
---|
| 45 | BITSET flags; // 0=close open = 1: read = 2: write = 3 |
---|
| 46 | short ref; // reference counter |
---|
| 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) |
---|
| 63 | #define SI_LINK_SET_OPEN_P(l, flag) ((l)->flags = (l)->flags |SI_LINK_OPEN |flag) |
---|
| 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 | |
---|
| 68 | BOOLEAN slOpen(si_link l, short flag); |
---|
| 69 | BOOLEAN slClose(si_link l); |
---|
| 70 | leftv slRead(si_link l,leftv a=NULL); |
---|
| 71 | BOOLEAN slWrite(si_link l, leftv v); |
---|
| 72 | BOOLEAN slDump(si_link l); |
---|
| 73 | BOOLEAN slGetDump(si_link l); |
---|
| 74 | char* slStatus(si_link l, char *request); |
---|
| 75 | char* slStatusAscii(si_link l, char* request); |
---|
| 76 | BOOLEAN slInit(si_link l, char *str); |
---|
| 77 | void slKill(si_link l); |
---|
| 78 | void slCleanUp(si_link l); |
---|
| 79 | void slStandardInit(); |
---|
| 80 | inline si_link slCopy(si_link l) |
---|
| 81 | { |
---|
| 82 | l->ref++; |
---|
| 83 | return l; |
---|
| 84 | } |
---|
| 85 | |
---|
| 86 | #include "omalloc.h" |
---|
| 87 | inline char* slString(si_link l) |
---|
| 88 | { |
---|
| 89 | if (l->name != NULL) |
---|
| 90 | { |
---|
| 91 | return omStrDup(l->name); |
---|
| 92 | } |
---|
| 93 | else |
---|
| 94 | { |
---|
| 95 | return omStrDup(""); |
---|
| 96 | } |
---|
| 97 | } |
---|
| 98 | |
---|
| 99 | extern omBin s_si_link_extension_bin; |
---|
| 100 | extern omBin sip_link_bin; |
---|
| 101 | extern omBin ip_link_bin; |
---|
| 102 | |
---|
| 103 | #endif // SILINK_H |
---|