[med-svn] [Git][med-team/libarb][upstream] New upstream version 6.0.6
Andreas Tille
gitlab at salsa.debian.org
Fri Jun 7 14:27:27 BST 2019
Andreas Tille pushed to branch upstream at Debian Med / libarb
Commits:
7d1ccade by Andreas Tille at 2019-06-07T11:22:37Z
New upstream version 6.0.6
- - - - -
6 changed files:
- + AISC_COM/AISC/aisc.pa
- + AISC_COM/AISC/aisc_com.pa
- + AISC_COM/AISC/aisc_global.pa
- + AISC_COM/AISC/aisc_server.pa
- + AISC_COM/AISC/keys.README
- + AISC_COM/AISC/magic.lst
Changes:
=====================================
AISC_COM/AISC/aisc.pa
=====================================
@@ -0,0 +1,206 @@
+GOTO main
+
+FUNCTION struct_contents
+ CREATE $(pre)
+ CREATE $(suf)
+
+ FOR $({/TYPE)
+ IF $(TYPE) = dllh
+ # dllh is "added" as base class by caller
+ ELSEIF $(REF) ~ %
+ ELSE
+ SET $(pre)
+ SET $(suf)
+ IF $(REF) ~ *
+ SET $(pre) *
+ ELSEIF $(REF) ~ v
+ SET $(suf) [$(SIZE|NO SIZE DEFINED)]
+ ENDIF
+ IF $(REF) ~ d
+ P dll_public$| p$(IDENT);
+ ENDIF
+ IF $(REF) ~ d,r,l,o
+ SET $(pre) $(pre)*
+ ENDIF
+ P $(TYPE|NO TYPE FOUND)$\
+ # align ' name' ' *name' '**name'
+ SET $(pre) '$(pre)'
+ P $|$(pre:''= :'*'= *:'**'=**:'=)$(IDENT)$(suf);$\
+ P $| // $(DOCU| *** )
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION define_type
+ P struct $(STRUCT) $\
+ FOR $({/TYPE.dllh)
+ P : public dll<$(STRUCT)> $\
+ ENDFOR
+ P { // $(SDOCU|$(STRUCT))
+ INDENT +1
+ CALL struct_contents
+ INDENT -1
+ P };
+RETURN
+
+FUNCTION datatypes
+ P // forward decl dll types
+ P struct dllpublic_ext;
+ P struct dllheader_ext;
+ --
+
+ FOR $(STRUCT.dll_public)
+ NEXT
+ ERROR mandatory STRUCT 'dll_public' is missing
+ ENDFOR
+ FOR $(STRUCT.dll_header)
+ NEXT
+ ERROR mandatory STRUCT 'dll_header' is missing
+ ENDFOR
+
+ P // "public" version of dll
+ FOR $(STRUCT.dll_public)
+ CALL define_type
+ ENDFOR
+ FOR $(STRUCT.dll_header)
+ CALL define_type
+ ENDFOR
+ --
+
+ P template <typename USERTYPE>
+ P struct dll {
+ INDENT +1
+ P dll_header mh; // ***ANOTHEROLIHACK**
+ P USERTYPE *previous, *next;
+ P int get_count() const { return mh.parent ? mh.parent->cnt : 0; }
+ INDENT -1
+ P };
+ --
+
+ P // "private" (i.e. real) version of dll (DoubledLinkedList)
+ P struct dllpublic_ext : public dll_public {
+ INDENT +1
+ P dllheader_ext$| *first;
+ INDENT -1
+ P };
+ P // pseudo-base-class of dll<USERTYPE> (bit-equal)
+ P struct dllheader_ext : dll<dllheader_ext> {}; // pseudo-base-class of dll<USERTYPE> (bit-equal)
+ --
+
+ P // forward decl user datatypes
+ FOR $(STRUCT)
+ IF $(STRUCT) ~ dll_header,dll_public
+ ELSE
+ P struct $(STRUCT);
+ ENDIF
+ ENDFOR
+ --
+
+ P // user defined datatypes
+ FOR $(STRUCT)
+ IF $(STRUCT) ~ dll_header,dll_public
+ ELSE
+ CALL define_type
+ ENDIF
+ ENDFOR
+ --
+
+RETURN
+
+FUNCTION constants
+ IF $(CONST)
+ P // some constants
+ FOR $(CONST)
+ P #define $(CONST) $|$(VALUE) $|// $(DOCU)
+ ENDFOR
+ --
+ ENDIF
+RETURN
+
+FUNCTION enums
+ IF $(ENUM)
+ ERROR never used before - please check generated code
+ P // the enums
+ FOR $(ENUM)
+ P $n// $(SDOCU|$(ENUM))
+ P typedef enum enum_$(ENUM) {
+ INDENT +1
+ FOR $({/VAR)
+ IF $(VAL)
+ P $(VAR)$| = $|$(VAL),$\
+ ELSE
+ P $(VAR),$|$\
+ ENDIF
+ IF $(DOCU)
+ P $|// $(DOCU)
+ ELSE
+ P
+ ENDIF
+ ENDFOR
+ INDENT -1
+ P } $(ENUM);
+ ENDFOR
+ --
+ ENDIF
+RETURN
+
+FUNCTION keys
+ P // the keys
+ P typedef enum enum_t_key {
+ INDENT +1
+ FOR $(STRUCT)
+ IF $(JOINED)
+ ELSEIF $(SKEY)
+ P KEY_$(OBJECT_KEY)_$(SKEY)$| = $|0x10000*$(SKEYC),
+ ENDIF
+ ENDFOR
+ P KEY_MAX
+ INDENT -1
+ P } t_key;
+ --
+RETURN
+
+# --------------------------------------------------------------------------------
+
+LABEL main
+IF $(argc) != 4
+ ERROR Wrong number of parameters[$(argc)]. Usage: aisc aisc.pa xxx.aisc outfile
+ENDIF
+
+DATA AISC { $(#FILE $(argv[2])) };
+DUMPDATA DUMP/aisc.pa__$(argv[2]).dump
+MOVETO $(/AISC/DATA/.)
+
+OPEN save $(argv[3])
+OUT save
+
+P // -----------------------------------------------------------------
+P // Created automagically from ../$(argv[2])
+P // using aisc-script '../AISC/aisc.pa'
+P // DO NOT EDIT THIS FILE!!!
+P // -----------------------------------------------------------------
+--
+P #ifndef AISC_GEN_SERVER_INCLUDED
+P #define AISC_GEN_SERVER_INCLUDED
+--
+P typedef char *aisc_string;
+P typedef const char *aisc_cstring;
+--
+P #ifndef AISC_GLOBAL_H
+P #include <aisc_global.h>
+P #endif
+P $(INCLUDE_INCLUDES)
+--
+CALL constants
+CALL enums
+CALL keys
+CALL datatypes
+P extern const char *aisc_server_error;
+--
+
+P #else
+P #error header included twice
+P #endif // AISC_GEN_SERVER_INCLUDED
+CLOSE save
+EXIT
+
=====================================
AISC_COM/AISC/aisc_com.pa
=====================================
@@ -0,0 +1,196 @@
+IF $(argc) != 4
+ ERROR Wrong number of parameters[$(argc)]. Usage: aisc aisc_com.pa xxx.aisc outfile
+ENDIF
+
+DATA AISC { $(#FILE $(argv[2])) };
+DUMPDATA DUMP/aisc_com.pa__$(argv[2]).dump
+
+OPEN save $(argv[3])
+MOVETO $(AISC/PROJECT)
+
+OUT save
+MOVETO $(DATA/.)
+
+P /* -----------------------------------------------------------------
+P * Created automagically from ../$(argv[2])
+P * using aisc-script '../AISC/aisc_com.pa'
+P * DO NOT EDIT THIS FILE!!!
+P * ----------------------------------------------------------------- */$n
+
+P #ifndef _LIMITS_H
+P #include <limits.h>
+P #endif
+P #ifndef AISC_GLOBAL_H
+P #include <aisc_global.h>
+P #endif
+
+P #ifndef AISC_MAX_OBJECT
+P # define AISC_MAX_OBJECT $(MAX_OBJECT)
+P # define AISC_MAX_ATTR $(MAX_KEY)
+P # define MAX_AISC_SET_GET $(MAX_PAR_CNT)
+P # define AISC_MAX_STRING_LEN $(MAX_STRING_LEN)
+P # define AISC_MESSAGE_BUFFER_LEN ((AISC_MAX_STRING_LEN/4+3)*($(MAX_PAR_CNT)+2))
+P # define AISC_MAGIC_NUMBER $(MAGIC_NUMBER)00
+--
+P struct aisc_com;
+--
+P const int AISC_GET $|= AISC_MAGIC_NUMBER+0;
+P const int AISC_SET $|= AISC_MAGIC_NUMBER+1;
+P const int AISC_NSET $|= AISC_MAGIC_NUMBER+2;
+P const int AISC_CREATE $|= AISC_MAGIC_NUMBER+3;
+P const int AISC_FIND $|= AISC_MAGIC_NUMBER+4;
+P const int AISC_COPY $|= AISC_MAGIC_NUMBER+5;
+P const int AISC_DELETE $|= AISC_MAGIC_NUMBER+6;
+P const int AISC_INIT $|= AISC_MAGIC_NUMBER+7;
+P const int AISC_DEBUG_INFO $|= AISC_MAGIC_NUMBER+8;
+--
+P const int AISC_CCOM_OK $|= AISC_MAGIC_NUMBER+0;
+P const int AISC_CCOM_ERROR $|= AISC_MAGIC_NUMBER+1;
+P const int AISC_CCOM_MESSAGE $|= AISC_MAGIC_NUMBER+2;
+--
+P #endif
+--
+FOR $(ENUM)
+ IF $(SKEY)
+ CREATE $(my_attribute[$(ENUM)]) $(OBJECT_KEY)_ATTR_$(SKEY)
+ ENDIF
+ENDFOR
+--
+P #define $(OBJECT_KEY)_ATTR_INT(a,b) $|(((a)+(b))|0x1000000)
+FOR $(ENUM)
+ IF $(SKEY)
+ P #define $(OBJECT_KEY)_ATTR_$(SKEY)(a,b) $|(((a)+(b))|0x1000000)
+ ENDIF
+ENDFOR
+P #define $(OBJECT_KEY)_ATTR_DOUBLE(a,b) $|(((a)+(b))|0x2000000)
+P #define $(OBJECT_KEY)_ATTR_STRING(a,b) $|(((a)+(b))|0x3000000)
+CREATE $(my_attribute[char]) $(OBJECT_KEY)_ATTR_INT
+CREATE $(my_attribute[int]) $(OBJECT_KEY)_ATTR_INT
+CREATE $(my_attribute[func]) $(OBJECT_KEY)_ATTR_INT
+CREATE $(my_attribute[t_key]) $(OBJECT_KEY)_ATTR_INT
+CREATE $(my_attribute[dllheader_ext]) $(OBJECT_KEY)_ATTR_INT
+CREATE $(my_attribute[double]) $(OBJECT_KEY)_ATTR_DOUBLE
+CREATE $(my_attribute[aisc_string]) $(OBJECT_KEY)_ATTR_STRING
+CREATE $(my_attribute[bytestring]) $(OBJECT_KEY)_ATTR_BYTES
+FOR $(STRUCT)
+ IF $(JOINED)
+ ELSEIF $(SKEY)
+ P #define $(OBJECT_KEY)_ATTR_$(SKEY)(a,b) $|(((a)+(b))|0x4000000)
+ CREATE $(my_attribute[$(STRUCT)]) $(OBJECT_KEY)_ATTR_$(SKEY)
+ ENDIF
+ENDFOR
+P #define $(OBJECT_KEY)_ATTR_BYTES(a,b) $|(((a)+(b))|0x5000000)
+--
+P enum Aisc_Object_Type {
+INDENT +1
+ FOR $(STRUCT)
+ IF $(JOINED)
+ ELSEIF $(SKEY)
+ P $(OBJECT_KEY)_$(SKEY) $|= 0x10000*$(SKEYC),
+ ENDIF
+ ENDFOR
+ P $(OBJECT_KEY)_MAX $|= 0x10000*$(MAX_OBJECT),
+ P $(OBJECT_KEY)_INDEX $|= 0x10000*0x1ff
+INDENT -1
+P };
+--
+FOR $(STRUCT)
+ IF $(JOINED)
+ ELSEIF $(SKEY)
+ P struct T_$(OBJECT_KEY)_$(SKEY) : public AISC_Object {
+ INDENT +1
+ P T_$(OBJECT_KEY)_$(SKEY)() : AISC_Object($(OBJECT_KEY)_$(SKEY)) {}
+ P void assign(const T_$(OBJECT_KEY)_$(SKEY)& o) { set(o.type(), o.get()); }
+ INDENT -1
+ P };
+ ENDIF
+ENDFOR
+--
+
+CREATE $(A)
+CREATE $(add) 0
+CREATE $(str) 0
+CREATE $(skey) 0
+CREATE $(struct) 0
+CREATE $(com)
+
+FOR $(STRUCT)
+ IF $(SKEY)
+ PUSH
+ IF $(JOINED)
+ ELSE
+ P enum $(OBJECT_KEY)_$(SKEY)_Attribute { // $(SKEY)
+ INDENT +1
+ ENDIF
+ SET $(skey) $(SKEY)
+ SET $(struct) $(STRUCT)
+ CALL insert_struct_attributes,0,$(SKEY)_,//
+ IF $(JOIN_NEXT)
+ ELSE
+ P $(SKEY)_FORCELONG $|= LONG_MAX
+ INDENT -1
+ P };
+ --
+ ENDIF
+ POP
+ ENDIF
+ENDFOR
+CLOSE save
+
+EXIT
+
+FUNCTION insert_struct_attributes,a,s,c
+ FOR $({/TYPE)
+ IF $(KEY)
+ IF $(TYPE) = dllh
+ P $(s)PRED $|= $\
+ P $(my_attribute[$(struct)])$\
+ P $|($(OBJECT_KEY)_$(skey), $(+ $(a)+$(KEYC))), $|// DO
+
+ P $(s)NEXT $|= $\
+ P $(my_attribute[$(struct)])$\
+ P $|($(OBJECT_KEY)_$(skey), $(+ 1+$(+ $(a)+$(KEYC)))), $|$(c)
+
+ SET $(add) $(+ $(a)+$(KEYC))
+ SET $(add) $(+ 2+$(add))
+ SET $(str) $(s)$(KEY)
+ PUSH
+ MOVETO $(/AISC/DATA/STRUCT.dll_header)
+ CALL insert_struct_attributes,$(add),$(str),$(c) H
+ POP
+ ELSEIF $(REF) ~ s
+ SET $(add) $(+ $(a),$(KEYC))
+ SET $(str) $(s)$(KEY)
+ SET $(com) $(c) S
+ PUSH
+ MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
+ CALL insert_struct_attributes,$(add),$(str),$(com)
+ POP
+ ELSE
+ IF $(REF) ~ d
+ SET $(com) $(c) DL
+ ELSEIF $(REF) ~ v
+ SET $(com) $(c) [$(SIZE)]
+ ELSEIF $(REF) ~ *
+ SET $(com) $(c) []
+ ELSEIF $(TYPE) = func
+ SET $(com) $(c) FUNC
+ ELSE
+ SET $(com) $(c)
+ ENDIF
+ IF $(my_attribute[$(TYPE)])
+ P $(s)$(KEY) $|= $\
+ P $(my_attribute[$(TYPE)])$\
+ P $|($(OBJECT_KEY)_$(skey), $(+ $(a)+$(KEYC))), $|$(com)
+ ELSE
+ ERROR TYPE $(TYPE) unknown, no key build
+ ENDIF
+ IF $(REF) ~ d
+ P $(s)$(KEY)_CNT $|= $\
+ P $(my_attribute[int])$\
+ P $|($(OBJECT_KEY)_$(skey), $(+ 1,$(+ $(a)+$(KEYC)))), $|$(com)
+ ENDIF
+ ENDIF
+ ENDIF
+ ENDFOR
+RETURN
=====================================
AISC_COM/AISC/aisc_global.pa
=====================================
@@ -0,0 +1,203 @@
+IF $(argc) < 5
+ ERROR Wrong number of parameters[$(argc)]. Usage: aisc aisc_global.pa xxx.aisc outfile extern_file
+ENDIF
+
+DATA AISC { $(#FILE $(argv[2])) };
+DUMPDATA DUMP/aisc_global.pa__$(argv[2]).dump
+OPEN save $(argv[3])
+
+MOVETO $(AISC/PROJECT)
+CREATE $(pre) = $(OBJECT_KEY)_
+CREATE $(max_key) = $(MAX_KEY)
+CREATE $(max_obj) = $(MAX_OBJECT)
+CREATE $(i)
+CREATE $(termlist) = $10$n};$n
+
+OUT save
+
+MOVETO $(DATA/.)
+
+P /* -----------------------------------------------------------------
+P * Created automagically from ../$(argv[2])
+P * and ../$(argv[4])
+P * using aisc-script '../AISC/aisc_global.pa'
+P * DO NOT EDIT THIS FILE!!!
+P * ----------------------------------------------------------------- */
+--
+P #include <aisc_server.h>
+--
+
+# create and clear obj and key list
+FOR $(i) = 0 TO $(max_obj)
+ CREATE $(obj[$(i)]) = 0,
+ENDFOR
+FOR $(i) = 0 TO $(max_key)
+ CREATE $(key[$(i)]) = 0,
+ENDFOR
+
+# generate object names struct
+FOR $(STRUCT)
+ IF $(SKEY)
+ IF $(obj[$(SKEYC)])
+ SET $(obj[$(SKEYC)]) = "$(pre)$(SKEY)",
+ ELSE
+ ERROR Increase definition of MAX_OBJECT to $(SKEYC)
+ ENDIF
+ ENDIF
+ENDFOR
+
+P const char *aisc_object_names[] = {
+GOSUB printobjlist
+P $(termlist)
+
+# generate attribute names structs
+CREATE $(nummer)
+CREATE $(aisc_string)
+FOR $(STRUCT)
+ IF $(SKEY)
+ GOSUB clearkeylist
+ SET $(nummer) = 0
+ SET $(aisc_string) = $(pre)$(SKEY)_
+ P static const char *$(pre)$(STRUCT)_attribute_names[] = {
+ GOSUB make_attr_names
+ GOSUB printkeylist
+ P $(termlist)
+ ENDIF
+ENDFOR
+P $n
+
+# generate attribute names struct list
+GOSUB clearobjlist
+P const char *aisc_attribute_names_list[] = {
+FOR $(STRUCT)
+ IF $(SKEY)
+ SET $(obj[$(SKEYC)]) = (const char *)$(pre)$(STRUCT)_attribute_names,
+ ENDIF
+ENDFOR
+GOSUB printobjlist
+P $(termlist)
+
+# generate function structs
+P typedef int* (*talking_function)(int *x, ...);
+P typedef talking_function *talking_function_ptr;
+--
+FOR $(STRUCT)
+ P extern talking_function aisc_talking_functions_create_$(STRUCT)[];
+ P extern int *((*(aisc_talking_functions_get_$(STRUCT)[]))());
+ P extern int *((*(aisc_talking_functions_find_$(STRUCT)[]))());
+ P extern int *((*(aisc_talking_functions_copy_$(STRUCT)[]))());
+ P extern int ((*(aisc_talking_functions_set_$(STRUCT)[]))());
+ --
+ENDFOR
+
+# generate d flags
+P int aisc_d_flags[] = {
+GOSUB clearkeylist
+FOR $(STRUCT)
+ IF $(SKEY)
+ SET $(i) = 0
+ FOR $({/TYPE)
+ IF $(TYPE) = dllh
+ SET $(i) = 1
+ ENDIF
+ ENDFOR
+ SET $(key[$(SKEYC)]) = $(i),$6// $(SKEY)
+ ENDIF
+ENDFOR
+GOSUB printkeylist
+P $(termlist)
+
+# generate callback tables
+P int *((**(aisc_talking_functions_get[]))()) = {
+GOSUB print_talking_table,aisc_talking_functions_get_
+
+P int ((**(aisc_talking_functions_set[]))()) = {
+GOSUB print_talking_table,aisc_talking_functions_set_
+
+P int *((**(aisc_talking_functions_find[]))()) = {
+GOSUB print_talking_table,aisc_talking_functions_find_
+
+P int *((**(aisc_talking_functions_copy[]))()) = {
+GOSUB print_talking_table,aisc_talking_functions_copy_
+
+P talking_function* aisc_talking_functions_create[] = {
+GOSUB print_talking_table,aisc_talking_functions_create_
+
+P aisc_destroy_callback aisc_talking_functions_delete[] = {
+GOSUB print_talking_table_casted,destroy_,(aisc_destroy_callback)
+
+# FINISH
+P #undef __P
+CLOSE save
+EXIT
+
+# -----------------
+# FUNCTIONS
+
+FUNCTION print_talking_table,name
+ CALL print_talking_table_casted,$(name),
+RETURN
+
+FUNCTION print_talking_table_casted,name,cast
+ GOSUB clearkeylist
+ FOR $(STRUCT)
+ IF $(SKEY)
+ SET $(key[$(SKEYC)]) = $(cast)$(name)$(STRUCT),
+ ENDIF
+ ENDFOR
+ GOSUB printkeylist
+ P $(termlist)
+RETURN
+
+FUNCTION make_attr_names
+ CREATE $(nr) = $(nummer)
+ CREATE $(s) = $(aisc_string)
+ FOR $({/TYPE)
+ IF $(KEY)
+ IF $(REF) ~ s
+ PUSH
+ SET $(nummer) = $(+ $(nr)+$(KEYC) )
+ SET $(aisc_string) = $(s)$(KEY)_
+ MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
+ GOSUB make_attr_names
+ POP
+ ELSEIF $(REF) ~ d
+ SET $(key[$(+ $(+ $(nr)+1)+$(KEYC))])="$(s)$(KEY)CNT",
+ SET $(key[$(+ $(nr)+$(KEYC))]) = "$(s)$(KEY)",
+ ELSEIF $(TYPE) = dllh
+ PUSH
+ SET $(nummer) = $(+ 2+$(+ $(nr)+$(KEYC) ))
+ SET $(aisc_string) = $(s)$(KEY)
+ MOVETO $(/AISC/DATA/STRUCT.dll_header)
+ GOSUB make_attr_names
+ POP
+ SET $(key[$(+ $(nr)+0)]) = "$(s)PREVIOUS",
+ SET $(key[$(+ $(nr)+1)]) = "$(s)NEXT",
+ ELSE
+ SET $(key[$(+ $(nr)+$(KEYC))]) = "$(s)$(KEY)",
+ ENDIF
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION clearkeylist
+ FOR $(i) = 0 TO $(max_key)
+ SET $(key[$(i)]) = 0,
+ ENDFOR
+RETURN
+FUNCTION clearobjlist
+ FOR $(i) = 0 TO $(max_obj)
+ SET $(obj[$(i)]) = 0,
+ ENDFOR
+RETURN
+FUNCTION printkeylist
+ FOR $(i) = 0 TO $(max_key)
+ P $1$(key[$(i)])
+ ENDFOR
+RETURN
+FUNCTION printobjlist
+ FOR $(i) = 0 TO $(max_obj)
+ P $1$(obj[$(i)])
+ ENDFOR
+RETURN
+
=====================================
AISC_COM/AISC/aisc_server.pa
=====================================
@@ -0,0 +1,1157 @@
+# set to 1 to trace object creation/destruction
+CREATE $(TRACE) = 0
+
+GOTO main
+
+
+FUNCTION return_ifnot conds
+ IF $(conds) ~ &
+ P if (!($(conds:# && =))) return $(INIT|0);
+ ENDIF
+RETURN
+
+FUNCTION index_or_return index,return
+ IF $(index) !~ #
+ P int index = aisc_talking_get_index(0, $(index));
+ SET $(return) return $(return);
+ P if (aisc_server_error) $(return: ;=;);
+ ENDIF
+RETURN
+
+FUNCTION define_callback a,type,func
+ CONST $(a) # releative key
+ CONST $(type) # function type (get, set etc.)
+ CONST $(func) # function name
+
+ CREATE $(num) = $(+ $(a)+$(KEYC))
+ CREATE $(cb) $(type)_list[$(num)]
+ # $(cb) contains name of callback variable
+
+ IF $($(cb))
+ IF $($(cb)) ~ 0
+ ELSE
+ ERROR Number $(KEYC) for '$(func)' already in use by '$($(cb))'
+ ENDIF
+ ELSE
+ ERROR Invalid number $(KEYC) for '$(func)'. Increase MAX_KEY to $(num) in $(argv[2])
+ ENDIF
+ SET $($(cb)) = $(func)
+RETURN
+
+FUNCTION accessors struct,a,c
+ # struct = struct/member name
+ # a = relative key (int)
+ # c = conditions
+
+ CONST $(struct)
+ CONST $(a)
+ CONST $(c)
+
+ CREATE $(su) $(setup)
+ CREATE $(ac) $(access)
+ CREATE $(in) $(index)
+
+ CONST $(su)
+ CONST $(ac)
+ CONST $(in)
+
+ CREATE $(type)
+ CREATE $(member)
+ CREATE $(conds)
+ CREATE $(fun)
+
+ FOR $({/KEY)
+ SET $(member) $(struct)$(KEY)
+ SET $(conds) $(c)
+ SET $(setup) $(su)
+
+ IF $(TYPE) = dllh
+ SET $(fun) get_$(member)PRED
+ CALL define_callback $(a),get,$(fun)
+ IF $(extern_$(fun))
+ ELSE
+ P static $(maintype) *$(fun)(const $(maintype) *THIS) {
+ INDENT +1
+ CALL return_ifnot $(conds)
+ #P return ($(maintype) *)$(ac)previous;
+ P return $(ac)previous;
+ INDENT -1
+ P }
+ ENDIF
+
+ SET $(fun) get_$(member)NEXT
+ CALL define_callback $(+ $(a)+1),get,$(fun)
+ IF $(extern_$(fun))
+ ELSE
+ P static $(maintype) *$(fun)(const $(maintype) *THIS) {
+ INDENT +1
+ CALL return_ifnot $(conds)
+ #P return ($(maintype) *)$(ac)next;
+ P return $(ac)next;
+ INDENT -1
+ P }
+ ENDIF
+
+ PUSH
+ CREATE $(subadd) $(+ 2+$(+ $(a)+$(KEYC)))
+ SET $(access) $(ac)$(IDENT).
+ MOVETO $(/AISC/DATA/STRUCT.dll_header)
+ GOSUB accessors $(member),$(subadd),$(conds)
+ POP
+ CONTINUE
+ ENDIF
+
+ SET $(index) $(in)
+ SET $(access) $(ac)$(IDENT)
+
+ IF $(REF) ~ *
+ SET $(conds) $(conds) && $(access)
+ SET $(index) $(SIZE:THIS->=$(ac))
+ IF $(REF) ~ o,d,l,r
+ SET $(type) $(TYPE) *
+ ELSE
+ SET $(type) $(TYPE)
+ ENDIF
+ SET $(setup) $(setup)if (!$(access)) $(access) = ($(type)*)calloc(sizeof($(type)),$(index));$n
+ SET $(access) $(access)[index]
+ ELSEIF $(REF) ~ v
+ SET $(index) $(SIZE:THIS->=$(ac))
+ SET $(access) $(access)[index]
+ ENDIF
+
+ IF $(REF) ~ s
+ IF $(REF) ~ o,l,r
+ SET $(conds) $(conds) && $(access)
+ SET $(setup) $(setup)if (!$(access)) $(access) = create_$(TYPE)();$n
+ SET $(access) $(access)->
+ ELSEIF $(REF) ~ i
+ SET $(access) $(access).
+ ENDIF
+
+ PUSH
+ CREATE $(subadd) = $(+ $(a)+$(KEYC))
+ MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
+ CALL accessors $(member),$(subadd),$(conds)
+ POP
+ CONTINUE
+ ENDIF
+
+ IF $(REF) ~ o,d
+ IF $(ACC) !~ c
+ ELSE
+ # CREATE FUNCTIONS
+ SET $(fun) create_$(member)
+ CALL define_callback $(a),create,$(fun)
+ IF $(extern_$(fun))
+ ELSE
+ P static $(TYPE) *$(fun)($(maintype) *THIS) {
+ INDENT +1
+ CALL return_ifnot $(conds)
+ CALL index_or_return $(index),0
+ P $(TYPE) *obj = create_$(TYPE)();
+ P if (obj) {
+ INDENT +1
+ P aisc_make_sets((long *)obj);
+ P if (aisc_server_error) {
+ INDENT +1
+ P destroy_$(TYPE)(obj);
+ P obj = NULL;
+ INDENT -1
+ P }
+ P else {
+ INDENT +1
+ IF $(REF) ~ d
+ P aisc_server_error = aisc_link((dllpublic_ext*)&($(ac)p$(IDENT)), (dllheader_ext*)obj);
+ ELSE
+ P if ($(access)) destroy_$(TYPE)($(access));
+ P $(access) = obj;
+ ENDIF
+ INDENT -1
+ P }
+ INDENT -1
+ P }
+ P return obj;
+ INDENT -1
+ P }
+ ENDIF
+
+ # COPY FUNCTIONS
+ SET $(fun) copy_$(member)
+ CALL define_callback $(a),copy,$(fun)
+ IF $(extern_$(fun))
+ ELSE
+ P static $(TYPE) *$(fun)($(maintype) *THIS) {
+ INDENT +1
+ CALL return_ifnot $(conds)
+ CALL index_or_return $(index),0
+ P trf_begin();
+ P $(TYPE) *obj = copy_$(TYPE)($(access));
+ P trf_commit(0);
+ P if (obj) {
+ INDENT +1
+ P aisc_make_sets((long *)obj);
+ P if (aisc_server_error) {
+ INDENT +1
+ P destroy_$(TYPE)(obj);
+ P obj = NULL;
+ INDENT -1
+ P }
+ P else {
+ INDENT +1
+ IF $(REF) ~ d
+ P aisc_server_error = aisc_link((dllpublic_ext*)&($(ac)p$(IDENT)), (dllheader_ext*)obj);
+ ELSE
+ P if ($(access)) destroy_$(TYPE)($(access));
+ P $(access) = obj;
+ ENDIF
+ INDENT -1
+ P }
+ INDENT -1
+ P }
+ P return obj;
+ INDENT -1
+ P }
+ ENDIF
+ ENDIF
+ # FIND FUNCTIONS
+ IF $(ACC) !~ f
+ ELSEIF $(REF) ~ d
+ SET $(fun) find_$(member)
+ CALL define_callback $(a),find,$(fun)
+ IF $(extern_$(fun))
+ ELSE
+ P static $(TYPE) *$(fun)(const $(maintype) *THIS, const char *key) {
+ INDENT +1
+ CALL return_ifnot $(conds)
+ P $(TYPE) *obj = ($(TYPE)*)aisc_read_hash((aisc_hash_node**)$(ac)p$(IDENT).hash, key);
+ P return obj;
+ INDENT -1
+ P }
+ ENDIF
+ ENDIF
+ # CNT FUNCTION
+ IF $(REF) ~ d
+ SET $(fun) get_$(member)_CNT
+ CALL define_callback $(+ $(a)+1),get,$(fun)
+ IF $(extern_$(fun))
+ ELSE
+ P static int $(fun)(const $(maintype) *THIS) {
+ INDENT +1
+ CALL return_ifnot $(conds)
+ P return $(ac)p$(IDENT).cnt;
+ INDENT -1
+ P }
+ ENDIF
+ ENDIF
+ ELSE
+ # not $(REF) ~ o,d
+
+ # SET FUNCTIONS
+ IF $(ACC) !~ w
+ ELSEIF $(REF) ~ $(v)
+ CALL define_callback $(a),set,$(IDENT)
+ IF $(extern_$(IDENT))
+ ELSE
+ OUT import # Generate Prototypes for import
+ P extern int $1$(IDENT)($(maintype)*, $(TYPE:bytestring=bytestring *));
+ OUT save
+ ENDIF
+ ELSE
+ SET $(fun) set_$(member)
+ CALL define_callback $(a),set,$(fun)
+ IF $(extern_$(fun))
+ ELSE
+ IF $(REF) ~ o,l,r
+ P static void $(fun)($(maintype) *THIS, const $(TYPE) *x) {
+ ELSEIF $(REF) ~ t,e
+ P static void $(fun)($(maintype) *THIS, $(TYPE:bytestring=const bytestring *) x) {
+ ELSE
+ ERROR UNKNOWN REF '$(REF|)' in $(STRUCT).$(TYPE)
+ ENDIF
+ INDENT +1
+ CALL index_or_return $(index),
+ P $(setup)$\
+ IF $(TYPE) = aisc_string
+ P freeset($(access), x);
+ ELSEIF $(TYPE) = bytestring
+ P if (x) {
+ P $1freeset($(access).data, x->data);
+ P $1$(access).size = x->size;
+ P }
+ P else {
+ P $1freenull($(access).data);
+ P $1$(access).size = 0;
+ P }
+ ELSE
+ IF $(REF) ~ o
+ P if ($(access)) destroy_$(TYPE)($(access));
+ ENDIF
+ P $(access) = x;
+ ENDIF
+ INDENT -1
+ P }
+ ENDIF
+ ENDIF
+ ENDIF
+
+ # GET FUNCTIONS
+ IF $(ACC) !~ r
+ ELSEIF $(REF) ~ $(v)
+ IF $(extern_$(IDENT))
+ CALL define_callback $(a),get,$(IDENT)
+ ELSE
+ IF $(IDENT) = aisc_get_keystring
+ # special cast for aisc_get_keystring
+ CALL define_callback $(a),get,(const char*(*)(int*))$(IDENT)
+ ELSE
+ # explicit cast to overloaded function type before casting to void
+ CALL define_callback $(a),get,($(TYPE:bytestring=bytestring *)(*)(const $(maintype)*))$(IDENT)
+ ENDIF
+ OUT import # Generate Prototypes for import
+ P extern $(TYPE:bytestring=bytestring *) $(IDENT)(const $(maintype)*);
+ OUT save
+ ENDIF
+ ELSE
+ CALL define_callback $(a),get,get_$(member)
+ IF $(extern_get_$(member))
+ ELSE
+ P static $\
+ IF $(REF) ~ o,l,r,d
+ P const $(TYPE) *get_$(member)$\
+ ELSEIF $(REF) ~ e,t
+ P $(TYPE:bytestring=const bytestring *:aisc_string=aisc_cstring) get_$(member)$\
+ ELSE
+ ERROR UNKNOWN REF '$(REF|)' in $(STRUCT).$(TYPE)
+ ENDIF
+ P (const $(maintype) *THIS) {
+ INDENT +1
+ CALL return_ifnot $(conds)
+ CALL index_or_return $(index),0
+ IF $(TYPE) = bytestring
+ P return &($(access));
+ ELSE
+ P return $(access);
+ ENDIF
+ INDENT -1
+ P }
+ ENDIF
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION accessor_table fun
+ P void *aisc_talking_functions_$(fun)_$(STRUCT)[] = {
+ INDENT +1
+ CREATE $(i)
+ CREATE $(cb)
+ CREATE $(zeros)
+ FOR $(i) = 0 TO $(MAX_KEY)
+ SET $(cb) = $($(fun)_list[$(i)])
+ IF $(cb) = 0
+ # collect multiple '0' to print them in one line
+ SET $(zeros) = $(zeros) 0,
+ ELSE
+ IF $(zeros) !=
+ P $(zeros)
+ SET $(zeros)
+ ENDIF
+
+ IF $(cb) ~ /*
+ SET $(cb) = $(cb:/*=,/*: ,/*=,/*:,/*=, /*)
+ ELSEIF $(cb) ~ //
+ SET $(cb) = $(cb://=,//: ,//=,//:,//=, //)
+ ELSE
+ SET $(cb) = $(cb),
+ ENDIF
+
+ P (void *)$(cb)
+ ENDIF
+ ENDFOR
+ IF $(zeros) !=
+ P $(zeros) 0
+ ELSE
+ P 0
+ ENDIF
+ INDENT -1
+ P };
+RETURN
+
+FUNCTION accessor_tables
+ CALL accessor_table get
+ CALL accessor_table set
+ CALL accessor_table create
+ CALL accessor_table find
+ CALL accessor_table copy
+ --
+RETURN
+
+FUNCTION build_accessors
+ # init callback tables
+ CREATE $(i) = 0
+ FOR $(i) = 0 TO $(MAX_KEY)
+ CREATE $(set_list[$(i)]) 0
+ CREATE $(get_list[$(i)]) 0
+ CREATE $(create_list[$(i)]) 0
+ CREATE $(find_list[$(i)]) 0
+ CREATE $(copy_list[$(i)]) 0
+ ENDFOR
+
+ #CREATE $(conds)
+ CREATE $(access)
+ CREATE $(maintype)
+ CREATE $(setup)
+ CREATE $(index) #
+
+ CREATE $(joined)
+
+ FOR $(STRUCT)
+ IF $(SKEY)
+ P // $(STRUCT) accessors
+ --
+
+ IF $(JOINED)
+ ELSE
+ FOR $(i) = 0 TO $(MAX_KEY)
+ SET $(set_list[$(i)]) 0
+ SET $(get_list[$(i)]) 0
+ SET $(create_list[$(i)]) 0
+ SET $(find_list[$(i)]) 0
+ SET $(copy_list[$(i)]) 0
+ ENDFOR
+ ENDIF
+ #SET $(conds) = #
+ SET $(access) THIS->
+ SET $(maintype) $(STRUCT)
+ # 'setup' can not be transformed to parameter, cause it is
+ # assigned sth containing ,; etc. so we need to use a global here :-(
+ SET $(setup)
+ SET $(index) #
+ GOSUB accessors $(SKEY)_,0,#
+ --
+
+ IF $(JOIN_NEXT)
+ SET $(joined) = $(joined) $(STRUCT)
+ ELSE
+ P // $(joined) $(STRUCT) callback tables
+ SET $(joined) =
+ GOSUB accessor_tables
+ ENDIF
+ ENDIF
+ ENDFOR
+RETURN
+
+# --------------------------------------------------------------------------------
+
+FUNCTION init_structure,self,deref
+ CREATE $(member)
+ CREATE $(isloop)
+
+ FOR $({/TYPE)
+ SET $(member) $(self)$(deref)$(IDENT)
+ SET $(isloop) 0
+ IF $(REF) ~ $(v)
+ ELSE
+ IF $(REF) ~ v
+ SET $(isloop) 1
+ PMSTART
+ PM for (int index = 0; index < $(SIZE:THIS->=$(self)$(deref)); index++) {
+ INDENT +1
+ SET $(member) $(member)[index]
+ ENDIF
+ IF $(TYPE) = dllh
+ P $(member).key $|= KEY_$(OBJECT_KEY)_$(SKEY|COMMON);
+ PUSH
+ MOVETO $(/AISC/DATA/STRUCT.dll_header)
+ GOSUB init_structure,$(member),.
+ POP
+ ELSEIF $(REF) ~ o
+ # just a NULL pointer - no init necessary
+ ELSEIF $(REF) ~ d
+ PUSH
+ SET $(member) = $(self)$(deref)p$(IDENT)
+ MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
+ P $(member).parent $|= (dllheader_ext *)$(self);
+ P $(member).key $|= KEY_$(OBJECT_KEY)_$(SKEY|SKEY_missing);
+ POP
+ ELSEIF $(REF) ~ s
+ IF $(REF) ~ i
+ PUSH
+ MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
+ GOSUB init_structure,$(member),.
+ POP
+ ENDIF
+ ELSEIF $(REF) ~ t,e,l
+ IF $(IDENT) = key
+ IF $(SKEY) !~ COMMON
+ P $(member) $|= KEY_$(OBJECT_KEY)_$(SKEY|COMMON);
+ ENDIF
+ ELSEIF $(INIT)
+ IF $(TYPE) = aisc_string
+ P $(member) $|= strdup($(INIT:THIS=$(self)));
+ ELSE
+ P $(member) $|= $(INIT:THIS=$(self));
+ ENDIF
+ ENDIF
+ ELSE
+ ERROR UNKNOWN REF '$(REF|)' in $(STRUCT).$(TYPE)
+ ENDIF
+ IF $(isloop) = 1
+ INDENT -1
+ PM }
+ PMEND
+ ENDIF
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION build_init
+ P // ------------
+ P // constructors
+ --
+ P inline void alloc_err(const char *objectname) {
+ P $1aisc_server_errorf("Could not allocate '%s'", objectname);
+ P }
+ --
+
+ FOR $(STRUCT)
+ IF $(extern_create_$(STRUCT))
+ ELSE
+ P $(STRUCT) *create_$(STRUCT)()$\
+ P {
+ INDENT +1
+ P $(STRUCT) *o = ($(STRUCT)*)calloc(sizeof(*o), 1);
+ P if (!o) alloc_err("$(STRUCT)");
+ PMSTART
+ PM else {
+ INDENT +1
+ GOSUB init_structure o,->
+ INDENT -1
+ PM }
+ PMEND
+ GOSUB trace "created $(STRUCT)"
+ P return o;
+ INDENT -1
+ P }
+ ENDIF
+ --
+ ENDFOR
+RETURN
+
+FUNCTION delete_structure,self,deref
+ CREATE $(member)
+ CREATE $(isloop)
+ CREATE $(isinif)
+ CREATE $(start)
+
+ FOR $({/TYPE)
+ SET $(member) $(self)$(deref)$(IDENT)
+ SET $(isloop) 0
+ SET $(isinif) 0
+
+ IF $(DESTROY)
+ P $(DESTROY:THIS=obj);
+ ELSEIF $(REF) ~ $(v)
+ # virtual function
+ ELSE
+ IF $(REF) ~ *,v
+ PMSTART
+ IF $(REF) ~ *
+ SET $(isinif) 1
+ PM if ($(member)) {
+ INDENT +1
+ ENDIF
+ SET $(isloop) 1
+ PM for (int index = 0; index < $(SIZE:THIS->=$(self)$(deref)); index++) {
+ INDENT +1
+ SET $(member) $(member)[index]
+ ENDIF
+ IF $(TYPE) = dllh
+ PUSH
+ MOVETO $(/AISC/DATA/STRUCT.dll_header)
+ GOSUB delete_structure,$(member),.
+ POP
+ ELSEIF $(REF) ~ s
+ IF $(REF) ~ o,d,i
+ PUSH
+ IF $(REF) ~ i
+ CREATE $(subderef) .
+ ELSE
+ P if ($(member)) {
+ INDENT +1
+ CREATE $(subderef) ->
+ ENDIF
+ MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
+ GOSUB delete_structure,$(member),$(subderef)
+ POP
+ IF $(REF) !~ i
+ P free($(member));
+ INDENT -1
+ P }
+ ENDIF
+ ENDIF
+ ELSEIF $(REF) ~ d,o
+ IF $(REF) ~ d
+ P while $\
+ ELSE
+ P if $\
+ ENDIF
+ P ($(member)) {
+ INDENT +1
+ P destroy_$(TYPE)($(member));
+ P if (aisc_server_error) return;
+ INDENT -1
+ P }
+ ELSEIF $(REF) ~ t,e
+ IF $(TYPE) = aisc_string
+ P free($(member));
+ ELSEIF $(TYPE) = bytestring
+ P free($(member).data);
+ ENDIF
+ ELSEIF $(REF) ~ l
+ ELSE
+ ERROR UNKNOWN REF '$(REF|)' in $(STRUCT).$(TYPE)
+ ENDIF
+
+ IF $(isloop) = 1
+ INDENT -1
+ PM }
+ IF $(isinif) = 1
+ INDENT -1
+ PM }
+ ENDIF
+ PMEND
+ ENDIF
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION build_delete
+ P // -----------
+ P // destructors
+ --
+
+ FOR $(STRUCT)
+ IF $(extern_destroy_$(STRUCT))
+ ELSE
+ PUSH
+ CREATE $(islinked) = 0
+ CREATE $(ident)
+
+ PUSH
+ MOVETO $({/.)
+ IF $(TYPE) = dllh
+ SET $(islinked) = 1
+ SET $(ident) = $(IDENT)
+ ENDIF
+ POP
+
+ # pass pointers to not-linked objects by reference and set them to NULL below
+ # linked object-pointers are set to NULL by aisc_unlink
+ P void destroy_$(STRUCT)($(STRUCT)$\
+ IF $(islinked) = 1
+ P *obj$\
+ ELSE
+ P *& obj$\
+ ENDIF
+ P ) {
+ INDENT +1
+ IF $(islinked) = 1
+ P if (obj->$(ident).parent) {
+ INDENT +1
+ P aisc_unlink((dllheader_ext*)obj);
+ P if (aisc_server_error) return;
+ INDENT -1
+ P }
+ ENDIF
+ GOSUB delete_structure,obj,->
+ IF $(islinked) = 1
+ P free(obj);
+ ELSE
+ P freenull(obj);
+ ENDIF
+ GOSUB trace "destroyed $(STRUCT)"
+ INDENT -1
+ P }
+ --
+ POP
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION move_structure
+ CREATE $(isloop)
+ CREATE $(my_key)
+ CREATE $(index)
+ CREATE $(access)
+
+ FOR $({/TYPE)
+ SET $(index)
+ SET $(access) $(IDENT)
+ SET $(isloop) 0
+ IF $(REF) ~ $(v)
+ ELSEIF $(IDENT) = key
+ ELSE
+ IF $(REF) ~ *,v
+ IF $(SIZE)
+ SET $(index) $(SIZE:THIS->=sobj->)
+ ELSE
+ ERROR Missing SIZE in STRUCT $(STRUCT) ident $(IDENT)
+ ENDIF
+ IF $(REF) ~ *
+ P if (dobj->$(access))$\
+ ENDIF
+
+ SET $(isloop) 1
+ PMSTART
+ PM for (int index = 0; index < $(index); index++) {
+ INDENT +1
+ SET $(access) $(access)[index]
+ ENDIF
+ IF $(TYPE) = dllh
+ P move_dll_header(&(sobj->$(access)), &(dobj->$(access)));
+ ELSEIF $(REF) ~ l,r
+ P dobj->$(access) $|= sobj->$(access); $\
+ P $|trf_link((long)sobj->$(access), (long*)&dobj->$(access));
+ ELSEIF $(REF) ~ o
+ P dobj->$(access) $|= copy_$(TYPE)(sobj->$(access));
+ ELSEIF $(REF) ~ d
+ P for ($(TYPE) *cobj = sobj->$(access); cobj; cobj = cobj->next) {
+ INDENT +1
+ P $(TYPE) *d2obj = copy_$(TYPE)(cobj);
+ P if (!d2obj) return 1;
+ P aisc_server_error = aisc_link((dllpublic_ext*)&(dobj->p$(access)), (dllheader_ext*)d2obj);
+ P if (aisc_server_error) return 1;
+ INDENT -1
+ P }
+ ELSEIF $(REF) ~ s
+ IF $(REF) ~ i
+ P if (move_$(TYPE)(&(sobj->$(access)), &(dobj->$(access)))) return 1;
+ ENDIF
+ ELSEIF $(REF) ~ t,e
+ IF $(TYPE) = aisc_string
+ P dobj->$(access) $|= nulldup(sobj->$(access));
+ ELSEIF $(TYPE) = bytestring
+ P if (sobj->$(access).data) {
+ INDENT +1
+ P dobj->$(access).data = (char *)malloc(sobj->$(access).size);
+ P memcpy(dobj->$(access).data, sobj->$(access).data, sobj->$(access).size);
+ P dobj->$(access).size = sobj->$(access).size;
+ INDENT -1
+ P }
+ ELSE
+ P dobj->$(access) $|= sobj->$(access);
+ ENDIF
+ ELSE
+ PP UNKNOWN REF '$(REF|)' in $(STRUCT).$(TYPE)
+ ENDIF
+ IF $(isloop) = 1
+ INDENT -1
+ PM }
+ PMEND
+ ENDIF
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION build_move
+ P // ------------
+ P // move objects
+ --
+ FOR $(STRUCT)
+ IF $(extern_move_$(STRUCT))
+ ELSE
+ P static int move_$(STRUCT)(const $(STRUCT) *sobj, $(STRUCT) *dobj) {
+ INDENT +1
+ GOSUB move_structure
+ P return 0;
+ INDENT -1
+ P }
+ --
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION build_copy
+ P // ------------
+ P // copy objects
+ --
+ FOR $(STRUCT)
+ IF $(extern_copy_$(STRUCT))
+ ELSE
+ P $(STRUCT) *copy_$(STRUCT)(const $(STRUCT) *sobj) {
+ INDENT +1
+ P $(STRUCT) *dobj = NULL;
+ P if (sobj) {
+ INDENT +1
+ P dobj = create_$(STRUCT)();
+ P if (!dobj) alloc_err("$(STRUCT)");
+ P else {
+ INDENT +1
+ P trf_create((long)sobj, (long)dobj);
+ P if (move_$(STRUCT)(sobj, dobj)) {
+ INDENT +1
+ P destroy_$(STRUCT)(dobj);
+ P dobj = NULL;
+ INDENT -1
+ P }
+ INDENT -1
+ P }
+ INDENT -1
+ P }
+ GOSUB trace "copied $(STRUCT)"
+ P return dobj;
+ INDENT -1
+ P }
+ --
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION save_structure self,deref,prekey,fp
+ CREATE $(member)
+ CREATE $(isloop)
+ CREATE $(isinif)
+ CREATE $(saved_elems) = 0
+
+ FOR $({/TYPE)
+ SET $(member) $(self)$(deref)$(IDENT)
+ SET $(isloop) 0
+ SET $(isinif) 0
+
+ IF $(REF) ~ $(v)
+ # virtual function
+ ELSEIF $(SAVE)
+ SET $(saved_elems) = $(+ $(saved_elems)+1)
+ IF $(REF) ~ *,v
+ PMSTART
+ IF $(REF) ~ *
+ SET $(isinif) 1
+ PM if ($(access)) {
+ INDENT +1
+ ENDIF
+ SET $(isloop) 1
+ PM for (int index = 0; index < $(SIZE:THIS->=$(self)$(deref); index++) {
+ INDENT +1
+ SET $(member) $(member)[index]
+ ENDIF
+ IF $(TYPE) = dllh
+ PUSH
+ CREATE $(pk) $(prekey)$(KEY)
+ MOVETO $(/AISC/DATA/STRUCT.dll_header)
+ GOSUB save_structure,$(member),.,$(pk),$(fp)
+ POP
+ ELSEIF $(REF) ~ s
+ IF $(REF) ~ o,d,i
+ ERROR previously unused - check generated code!
+ PUSH
+ IF $(REF) ~ i
+ CREATE $(subderef) .
+ ELSE
+ PMSTART
+ PM if ($(member)) {
+ INDENT +1
+ CREATE $(subderef) ->
+ ENDIF
+ CREATE $(pk) $(prekey)$(KEY|NOKEYDEFINED)
+ MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
+ GOSUB save_structure,$(member),$(subderef),$(pk),$(fp)
+ POP
+ IF $(REF) !~ i
+ INDENT -1
+ PM }
+ PMEND
+ ENDIF
+ ENDIF
+ ELSEIF $(REF) ~ d
+ IF $(saveable_$(TYPE)) = 0
+ ERROR Can't save $(TYPE) (has no saveable members)
+ ENDIF
+ P for ($(TYPE) *s = $(member); s; s = s->next) {
+ INDENT +1
+ P fputs("$(prekey)$(KEY|NOKEYDEFINED){ ", $(fp));
+ P save_$(TYPE)(s, $(fp));
+ P fputs("}\n", $(fp));
+ INDENT -1
+ P }
+ ELSEIF $(REF) ~ o
+ ERROR previously unused - check generated code!
+ IF $(saveable_$(TYPE)) = 0
+ ERROR Can't save $(TYPE) (has no saveable members)
+ ENDIF
+ P fputs("$(prekey)$(KEY) {\n", $(fp));
+ P save_$TYPE($(member), $(fp));
+ P fputs("}\n", $(fp));
+ ELSEIF $(REF) ~ t,e
+ IF $(TYPE) = aisc_string
+ P if ($(member)) $|save_string("$(prekey)$(KEY|NOKEYDEFINED)", $(member), $(fp));
+ ELSEIF $(TYPE) = int,long,char
+ P fprintf($(fp), "$(prekey)$(KEY|NOKEYDEFINED) %i\n", $(member));
+ ELSEIF $(TYPE) = float,double
+ P fprintf($(fp), "$(prekey)$(KEY|NOKEYDEFINED) %f\n", $(member));
+ ELSE
+ ERROR CANNOT SAVE TYPE '$(TYPE)'
+ ENDIF
+ ELSEIF $(REF) ~ l
+ P fprintf($(fp), "$(prekey)$(KEY|NOKEYDEFINED) %i", $(member));
+ ELSE
+ ERROR UNKNOWN REF '$(REF|)' in $(STRUCT).$(TYPE)
+ ENDIF
+ IF $(isloop) = 1
+ INDENT -1
+ PM }
+ IF $(isinif) = 1
+ INDENT -1
+ PM }
+ ENDIF
+ PMEND
+ ENDIF
+ ENDIF
+ ENDFOR
+ IF $(saved_elems) = 0
+ ERROR It makes no sense to save $(STRUCT), since it has no saveable data elements
+ ENDIF
+RETURN
+
+FUNCTION load_structure self,deref,prekey,fp
+ CREATE $(member)
+ CREATE $(isloop)
+ CREATE $(isinif)
+
+ FOR $({/TYPE)
+ SET $(member) $(self)$(deref)$(IDENT)
+ SET $(isloop) 0
+ SET $(isinif) 0
+
+ IF $(REF) ~ $(v)
+ # virtual function
+ ELSEIF $(SAVE)
+ IF $(REF) ~ *,v
+ PMSTART
+ IF $(REF) ~ *
+ SET $(isinif) 1
+ PM if ($(member)) {
+ INDENT +1
+ ENDIF
+ SET $(isloop) 1
+ PM for (int index = 0; index < $(SIZE:THIS->=$(self)$(deref); index++) {
+ INDENT +1
+ SET $(member) $(member)[index]
+ ENDIF
+ IF $(TYPE) = dllh
+ PUSH
+ CREATE $(pk) $(prekey)$(KEY)
+ MOVETO $(/AISC/DATA/STRUCT.dll_header)
+ GOSUB load_structure,$(member),.,$(pk),$(fp)
+ POP
+ ELSEIF $(REF) ~ s
+ IF $(REF) ~ o,d,i
+ ERROR previously unused - check generated code!
+ PUSH
+ IF $(REF) ~ i
+ CREATE $(subderef) .
+ ELSE
+ PMSTART
+ PM if ($(member)) {
+ INDENT +1
+ CREATE $(subderef) ->
+ ENDIF
+ CREATE $(pk) $(prekey)$(KEY|NOKEYDEFINED)
+ MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
+ GOSUB load_structure,$(member),$(subderef),$(pk),$(fp)
+ POP
+ IF $(REF) !~ i
+ INDENT -1
+ PM }
+ PMEND
+ ENDIF
+ ENDIF
+ ELSEIF $(REF) ~ d
+ P if (strcmp("$(prekey)$(KEY|NOKEYDEFINED){", token)==0) {
+ INDENT +1
+ P $(TYPE) *cobj = create_$(TYPE)();
+ P if (cobj) {
+ INDENT +1
+ P if (load_$(TYPE)(cobj, $(fp))==0) {
+ INDENT +1
+ P aisc_link((dllpublic_ext*)&($(self)$(deref)p$(IDENT)), (dllheader_ext*)cobj);
+ P continue;
+ INDENT -1
+ P }
+ P destroy_$(TYPE)(cobj);
+ INDENT -1
+ P }
+ P return 1;
+ INDENT -1
+ P }
+ ELSEIF $(REF) ~ o
+ ERROR code generated here is broken (does save instead of load)
+ P fprintf($(fp),"$(prekey)$(KEY) {\n");
+ P { int error = save_$TYPE($(member),$(fp));
+ P if (error) return error; }
+ P fprintf($(fp),"}\n");
+ ELSEIF $(REF) ~ t,e
+ P if (strcmp("$(prekey)$(KEY|NOKEYDEFINED)", token)==0) {
+ INDENT +1
+ P if (aisc_server_load_token($(fp), token, $(TOKENSIZE))) return 1;
+ IF $(TYPE) = aisc_string
+ P $(member) = strdup(token);
+ ELSEIF $(TYPE) = int,long,char
+ P $(member) = atoi(token);
+ ELSEIF $(TYPE) = float,double
+ P $(member) = atof(token);
+ ELSE
+ ERROR Loading type '$(TYPE)' not implemented (yet)
+ ENDIF
+ P continue;
+ INDENT -1
+ P }
+ ELSEIF $(REF) ~ l
+ ERROR loading links not implemented (yet)
+ ELSE
+ ERROR UNKNOWN REF '$(REF|)' in $(STRUCT).$(TYPE)
+ ENDIF
+ IF $(isloop) = 1
+ INDENT -1
+ PM }
+ IF $(isinif) = 1
+ INDENT -1
+ PM }
+ ENDIF
+ PMEND
+ ENDIF
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION build_saveload
+ CREATE $(TOKENSIZE) 1024
+
+ P // -------------
+ P // save and load
+ --
+ P inline void warn_unknown_token(const char *token, const char *objectname) {
+ P $1fprintf(stderr, "Unknown token '%s' while loading '%s' (ignored)\n", token, objectname);
+ P }
+ --
+ P inline void save_string(const char *key, const char *value, FILE *out) {
+ INDENT +1
+ P fputs(key, out);
+ P fputc(' ', out);
+ P aisc_server_save_token(out, value, $(TOKENSIZE));
+ INDENT -1
+ P }
+ --
+
+ FOR $(STRUCT)
+ CREATE $(saveable_$(STRUCT)) = 0
+ FOR $({/TYPE)
+ IF $(SAVE)
+ SET $(saveable_$(STRUCT)) = 1
+ ENDIF
+ ENDFOR
+ #WARNING saveable_$(STRUCT) = $(saveable_$(STRUCT))
+ ENDFOR
+
+ FOR $(STRUCT)
+ IF $(saveable_$(STRUCT)) = 1
+ IF $(extern_save_$(STRUCT))
+ ELSE
+ P void save_$(STRUCT)(const $(STRUCT) *o, FILE *out) {
+ INDENT +1
+ GOSUB save_structure,o,->,,out
+ INDENT -1
+ P }
+ --
+ ENDIF
+ ENDIF
+ ENDFOR
+ FOR $(STRUCT)
+ IF $(saveable_$(STRUCT)) = 1
+ IF $(extern_load_$(STRUCT))
+ ELSE
+ P int load_$(STRUCT)($(STRUCT) *o, FILE *in) {
+ INDENT +1
+ P char token[$(TOKENSIZE)+1];
+ P while (aisc_server_load_token(in, token, $(TOKENSIZE))==0) {
+ INDENT +1
+ P if (*token == '}') break;
+ GOSUB load_structure,o,->,,in
+ P warn_unknown_token(token, "$(STRUCT)");
+ INDENT -1
+ P }
+ P return 0;
+ INDENT -1
+ P }
+ --
+ ENDIF
+ ENDIF
+ ENDFOR
+RETURN
+
+FUNCTION trace msg
+ IF $(TRACE) = 1
+ P fputs("AISC_SERVER_TRACE " $(msg) "\n", stderr); fflush(stderr);
+ ENDIF
+RETURN
+
+FUNCTION file_header
+ P // -----------------------------------------------------------------
+ P // Created automagically from ../$(argv[2])
+ P // and ../$(argv[4])
+ P // using aisc-script '../AISC/aisc_server.pa'
+ P // DO NOT EDIT THIS FILE!!!
+ P // -----------------------------------------------------------------
+ --
+RETURN
+
+# --------------------------------------------------------------------------------
+
+LABEL main
+IF $(argc) < 7
+ ERROR Wrong number of parameters[$(argc)]. Usage: aisc aisc_server.pa xxx.aisc outfile externfile.aisc import_proto globals.aisc
+ENDIF
+
+DATA AISC { $(#FILE $(argv[2])) }, EXTERN { $(#FILE $(argv[4])) }, GLOBALS { $(#FILE $(argv[6])) };
+DUMPDATA DUMP/aisc_server.pa__$(argv[2]).dump
+
+OPEN save $(argv[3])
+OPEN import $(argv[5])
+
+# set extern functions
+MOVETO $(EXTERN/.)
+FOR $(FUNCTION)
+ CREATE $(extern_$(FUNCTION))
+NEXT
+ ERROR no extern Functions found
+ENDFOR
+
+# set globals passed from Makefile
+MOVETO $(/GLOBALS/.)
+CREATE $(create_save_code) = $(AISC_SAVE)
+
+OUT import
+CALL file_header
+
+OUT save
+CALL file_header
+P $(#FILE C/aisc_server.h)
+
+MOVETO $(/AISC/DATA/.)
+
+CREATE $(v) = %
+
+CALL build_init
+CALL build_delete
+CALL build_move
+CALL build_copy
+CALL build_accessors
+
+IF $(create_save_code) = YES
+ CALL build_saveload
+ENDIF
+
+
+CLOSE save
+CLOSE import
+EXIT
+
=====================================
AISC_COM/AISC/keys.README
=====================================
@@ -0,0 +1,86 @@
+
+format of .aisc-files used for client/server interfaces
+-------------------------------------------------------
+
+PROJECT string // main name of program
+OBJECT_KEY string // prefix key for objects
+MAX_KEY num // maximum attribute number
+MAX_OBJECT num // maximum object number
+MAGIC_NUMBER num // server version (see magic.lst)
+
+DATA {
+
+ at CONST, @VALUE, @DOCU; // constants
+
+ at ENUM; // enum is unused and obsolete
+..., {;
+ @VAR, @VAL, @DOCU;
+};
+
+ at STRUCT, @SKEY, @SKEYC, @DOCU;
+
+my_struxt, MYKEY, 4711, (~ This is the docu ~), [SAVEDIRECTION VERTICAL,] {
+ @TYPE, @IDENT, @REF, @ACC, @SAVE, @KEY, @KEYC, @INIT, @DOCU;
+ ...;
+};
+
+};
+
+
+
+TYPE can be:
+
+ int,char,double,float
+
+ dllh header of DoubledLinkedList
+ aisc_string string
+ bytestring string
+
+ // [func function ]
+
+ or any user defined type
+
+REF can be:
+ % virtual (aka callback)
+
+ unspecified ( double char .... )
+eor i or owner by insertion
+eor o owner by pointer
+eor d special owner (double linked list with ident + hash)
+eor l link
+eor r reversed_link (only to those objects with dllh)
+
+ e enum type
+eor t terminal type
+eor s structure type /* unfold THIS structure else t */
+
+[ * resizeable vector of ... (key SIZE is size)
+eor v fixed vector of ... (key SIZE is size)]
+
+[ f forward reference ]
+ (THIS-> is father)
+
+z.B. os* Vector of unfold substructures
+
+
+ACC Accessiongrants
+ , read and write
+ r, readonly
+ w, writeonly
+ c, createonly
+ rw, read and write
+ privat,
+ public,
+
+SAVE version number for load/save (if AISC_SAVE=YES)
+
+KEY key name
+
+KEYC key number
+
+ Has to be unique inside each STRUCT.
+ Keys w/o keynumbers exist, but are not accessible via interface.
+ Several types use multiple KEYs (e.g. 'd' uses 2 keys (KEY and KEY+1)).
+
+INIT default value or call to init-funtion
+ 'THIS' is replaced by pointer to STRUCT
=====================================
AISC_COM/AISC/magic.lst
=====================================
@@ -0,0 +1,14 @@
+
+List of previously used magics
+------------------------------
+
+Note: Never reuse old magics! (MAGIC_NUMBER)
+
+PTSERVER: (see ../../PROBE_COM/PT.aisc at MAGIC_NUMBER)
+ 0x615054 (used since [7986])
+ 0x415054 (used since [7414])
+ 0x471100 (used since [2])
+
+NAMESERVER: (see ../../NAMES_COM/names.aisc at MAGIC_NUMBER)
+ 0x414e53 (used since [7414])
+ 0x927289 (used since [2])
View it on GitLab: https://salsa.debian.org/med-team/libarb/commit/7d1ccade959647017bd0e641355fb2300360b9cf
--
View it on GitLab: https://salsa.debian.org/med-team/libarb/commit/7d1ccade959647017bd0e641355fb2300360b9cf
You're receiving this email because of your account on salsa.debian.org.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://alioth-lists.debian.net/pipermail/debian-med-commit/attachments/20190607/aa3f9d3e/attachment-0001.html>
More information about the debian-med-commit
mailing list