source: tags/initial/NAMES_COM/names.aisc

PROJECT arboo_server
OBJECT_KEY AN,                  # MAIN PREFIX
MAX_KEY 40,                     # MAX NUMBER OF AN ATTRIBUTE
MAX_OBJECT 6,                   # MAX DIFFERENT STRUCTURES
MAX_STRING_LEN 1024,
MAX_PAR_CNT 16,
MAGIC_NUMBER 0x927289,          #       MAGIC_NUMBER 6 HEX DIGITS

SERVER_INCLUDES (~
#include <stdio.h>
#include <aisc.h>
#include <aisc_com.h>~)
INCLUDE_INCLUDES (~$$(#FILE aisc_include.header)~)

DATA {

# ********************************* USER DATA *******************************************

# ******************************* PRIVAT STRUCTURES: DO NOT CHANGE *********************************

@STRUCT, @SKEY, @SKEYC, @SDOCU;

dll_public,     ,       ,       (~Vater einer DoubledLinkedList dll~), {
        @TYPE,          @IDENT, @REF,   @ACC,   @SAVE,  @KEY,   @KEYC,  @INIT,  @DOCU;
        t_key,          key,    t,      r,      ,       ,       ,       ,       (~ The key~);
        int,            cnt,    t,      r,      ,       CNT,    0,      ,       (~ Number of elements~);
        long,           hash,   t,      ,       ,       ,       ,       ,       (~ Hash Table~);
        dllheader_ext,  parent, flt,    r,      ,       PARENT, 1,      ,       (~ My Owner~);
        dllheader_ext,  last,   flt,    r,      ,       LAST,   2,      ,       (~ Pointer to the last element~);
        };


dll_header,     COMMON, 0,      (~Der Link Header (sollte Kopf jeder Funktion sein)~), {
        @TYPE,          @IDENT, @REF,   @ACC,   @SAVE,  @KEY,   @KEYC,  @INIT,  @DOCU;
        t_key,          key,    t,      r,      ,       KEY,    0,      ,       (~ The Key~);
        aisc_string,            aisc_get_keystring,%,r, ,       KEYSTRING,1,    ,       (~ THE STRING of the KEY ~);
        dll_public,     parent, ls,     r,      ,       (~~),   2,      ,       (~ Pointer to dll_public~);
        aisc_string,            ident,  t,      ,       1,      IDENT,  5,      ,       (~ The ident [not necessary]~);
        };


# ********************************* USER STRUCTURES *******************************************

AN_revers,  REVERS,     4,      (~ Revers mapping for shorts ~), {
        @TYPE,  @IDENT, @REF,   @ACC,   @SAVE,  @KEY,           @KEYC,  @INIT,          @DOCU;
        dllh,   mh,     t,      ,       1,      (~~),           0,      ,               (~Header~);
        aisc_string, full_name,t,       rw,     ,       ,               ,       ,               (~ the full name of a species ~);
        aisc_string, acc,       t,      rw,     ,       ,               ,       ,               (~ accession number ~);
};

AN_shorts, SHORTS,      3,      (~ a dictionary ~), SAVEDIRECTION HORIZONTAL, {
        @TYPE,  @IDENT, @REF,   @ACC,   @SAVE,  @KEY,           @KEYC,  @INIT,          @DOCU;
        dllh,   mh,     t,      ,       1,      (~~),           0,      ,               (~Header~);
        aisc_string, full_name,t,       r,      1,      FULL_NAME,      10,     ,               (~ the full name of a species ~);
        aisc_string, acc,       t,      r,      1,      ACC,            11,     ,               (~ accession number ~);
        aisc_string,    shrt,   t,      r,      1,      SHORT,          12,     ,               (~ The Short ~);
};

AN_local, LOCAL,        2,      (~local communication buffer~), {
        @TYPE,  @IDENT, @REF,   @ACC,   @SAVE,  @KEY,           @KEYC,  @INIT,          @DOCU;
        dllh,   mh,     t,      ,       ,       (~~),           0,      ,               (~Header~);
        int,    socket, t,      ,       ,       ,               ,       names_init_socket(THIS), (~the callback~), DESTROY names_destroy_socket(THIS);

        aisc_string, whoami,    t,      ,       ,       WHOAMI,         10,     ,               (~ who am i ~);
        aisc_string, full_name,t,       rw,     ,       FULL_NAME,      11,     "",             (~ the full name of a species ~);
        aisc_string, acc,       t,      rw,     ,       ACCESSION,      12,     "",             (~ accession number ~);
        int,    use_advice,t,   rw,     ,       USEADVICE,      13,     ,               (~ use the advice ~);
        aisc_string, advice,    t,      rw,     ,       ADVICE,         14,     "",             (~ advice for the short name ~);
        aisc_string, get_short,%,       r,      ,       GET_SHORT,      15,     ,               (~ the short name ~);
        };


AN_main, MAIN, 1, (~Die globalen Daten~), SAVEDIRECTION VERTICAL, {
        @TYPE,  @IDENT,         @REF,   @ACC,   @SAVE,  @KEY,           @KEYC,  @INIT,          @DOCU;
        t_key,  key,            t,      n,      ,       ,               ,       ,               (~Der KEY~);
        AN_local,loc_st,        d,      ,       ,       LOCAL,          10,     ,               (~Die Parameter~);
        AN_shorts, shorts1,     d,      r,      1,      SHORTS1,        12,     ,               (~ the unique letters for a word ~);
        AN_shorts, names,       d,      r,      1,      NAMES,          16,     ,               (~ the unique names first*second*S*accession ~);
        AN_revers, revers,      d,      r,      ,       ,               ,       ,               (~ the revers unique names first*second*S*accession ~);
        int,    touched,        t,      r,      ,       TOUCHED,        19,     0,              (~ Do the database need to be saved ~);
        aisc_string,server_shutdown, %,      w,      ,       SHUTDOWN,       20,     ,               (~SHUTDOWN Command~);
        int,    server_save,    %,      w,      ,       SAVEALL,        21,     ,               (~SAVE everything~);
        aisc_string,server_file,        t,      r,      ,       FILENAME,       22,     ,               (~The filename of the keys~);
        };
};