typedef char string20[20];
typedef struct {
- int node;
- int pix;
- int mark;
+ int node;
+ int pix;
+ int mark;
} paddr;
-typedef struct
-{
- paddr sender; /* address of the sender and */
- paddr receiver; /* receiver of the message */
- int type; /* message type */
- int par; /* prototype or error signal number */
+typedef struct {
+ paddr sender; /* address of the sender and */
+ paddr receiver; /* receiver of the message */
+ int type; /* message type */
+ int par; /* prototype or error signal number */
} ctrl_msg;
-
-
-typedef struct
-{
- ctrl_msg control;
- char params[ 256-sizeof(ctrl_msg) ];
+typedef struct {
+ ctrl_msg control;
+ char params[256 - sizeof(ctrl_msg)];
} messg;
-
-typedef struct
-{
- int pword[15];
- char pstr[255];
- char pchar;
+typedef struct {
+ int pword[15];
+ char pstr[255];
+ char pchar;
} param_struct;
-
-
-typedef struct
-{
- int node;
- int program_id;
+typedef struct {
+ int node;
+ int program_id;
} ctx_struct;
/* Commm struct for GRAPH element */
-
#define GRAPH_ALLOCATE 1
#define GRAPH_EXIT 2
#define GRAPH_FREE 3
/* INT element */
-
-
#define INT_CONNECTED 1
#define INT_EXITING 2
#define INT_CTX 3
#define NET_PROPAGATE 0
#define NET_PROPAGATE_OUT 1
-/* msg_type = MSG_NET, param.pword[0] = NET_PROPAGATE
+/*
+ msg_type = MSG_NET, param.pword[0] = NET_PROPAGATE
param.pword[1] = MSG_INT or MSG_VLP
param.pword[2,3] = sender context or node,0
param.pword[4,5] = receiver context or node,0
#define NET_NODES_NUM 26
#define NET_NODES_NUM_RESPONSE 27
-
/* VLP message */
#define VLP_WRITE 0
/* Message structure */
/*------------------------------------------------------------*/
-
#define MSG_VLP 0
#define MSG_NET 1
#define MSG_GRAPH 2
#define MSG_INT 3
-typedef struct
-{
- short msg_type;
- param_struct param;
- messg int_msg;
+typedef struct {
+ short msg_type;
+ param_struct param;
+ messg int_msg;
} MESSAGE;
-typedef struct
-{
- short msg_type;
- param_struct param;
-
+typedef struct {
+ short msg_type;
+ param_struct param;
} G_MESSAGE;
-
-
-
#define TCP_BUFFER_SIZE 30*sizeof(MESSAGE);
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
#if GEN
-typedef int protaddr ; /* mainblock..maxprot ; mainblock = 0; */
+typedef int protaddr; /* mainblock..maxprot ; mainblock = 0; */
/* INDIRECT ADDRESS OF PROTOTYPE */
-typedef int dprotaddr ; /* PROTADDR + DUMMY */
-typedef int protkind ;
+typedef int dprotaddr; /* PROTADDR + DUMMY */
+typedef int protkind;
#else
#define protaddr int
#define dprotaddr int
#define protkind int
#endif
-
typedef int word;
/* Prototype : */
typedef struct {
- dprotaddr slprototype ; /* PROTOTYPE OF SYNTACTIC FATHER */
- /* OR DUMMY FOR THE MAIN BLOCK */
- word codeaddr; /* address of code */
- word appetite; /* object's total length */
- word span; /* distance from beginning of object to */
- /* temporary reference variables */
- word reflist; /* beginning and length of table with */
+ dprotaddr slprototype; /* PROTOTYPE OF SYNTACTIC FATHER */
+ /* OR DUMMY FOR THE MAIN BLOCK */
+ word codeaddr; /* address of code */
+ word appetite; /* object's total length */
+ word span; /* distance from beginning of object to */
+ /* temporary reference variables */
+ word reflist; /* beginning and length of table with */
- int lthreflist; /* offsets of reference values in object; */
- /* without SL, DL, CL and temporary values */
- word parlist; /* beginning and length of table with */
- int lthparlist; /* offsets of parameters */
+ int lthreflist; /* offsets of reference values in object; */
+ /* without SL, DL, CL and temporary values */
+ word parlist; /* beginning and length of table with */
+ int lthparlist; /* offsets of parameters */
- word preflist; /* beginning and length of table with */
- int lthpreflist; /* prototype numbers of prefix sequence */
+ word preflist; /* beginning and length of table with */
+ int lthpreflist; /* prototype numbers of prefix sequence */
- word lastwill; /* lastwill code address */
- word handlerlist; /* list of handlers, 0 if empty */
- word virtlist; /* address of table for conversion: */
- /* virtual number --> prototype */
+ word lastwill; /* lastwill code address */
+ word handlerlist; /* list of handlers, 0 if empty */
+ word virtlist; /* address of table for conversion: */
+ /* virtual number --> prototype */
- /* only for processes : */
- protaddr maskbase ; /* lowest procedure prototype number */
- int masksize ; /* size of RPC mask for that process */
+ /* only for processes : */
+ protaddr maskbase; /* lowest procedure prototype number */
+ int masksize; /* size of RPC mask for that process */
- /* for procedures and functions */
- int virtnumber; /* virtual number or -1 if not virtual */
+ /* for procedures and functions */
+ int virtnumber; /* virtual number or -1 if not virtual */
- /* for all : */
- protkind kind ; /* kind of unit */
+ /* for all : */
+ protkind kind; /* kind of unit */
- /* only for procedures, functions and processes : */
- word pfdescr; /* address of table with parameters descr. addresses */
+ /* only for procedures, functions and processes : */
+ word pfdescr; /* address of table with parameters descr. addresses */
- /* only for functions : */
- int nrarray;
- word finaltype; /* type of result */
+ /* only for functions : */
+ int nrarray;
+ word finaltype; /* type of result */
} protdescr,*pointprdsc;
-
projects / vlp.git / commitdiff