/*
 * Created by PyramIDE.
 * User: フランスのトトロ aka (David RENÉ) 
 * Date: 02/04/2020
 * Time: 16:39
 * © David RENÉ
 */

transmit tools/basis.anubis
transmit xlib/database/db_types.anubis

public type Session_Field:...
public type Session_Field_No_Var:...
public type Session:...
public type Session_No_Var:...

public type Session_Field_Datum:
  string(String),             //fully implented
  bool(Bool),                 //fully implented
  int(Int),                   //fully implemented
  db_id(DB_id),
  message(Message),           //fully implemented
  byte_array(ByteArray),
  float(Float),
  word128(Word128),
  word64(Word64),
  word32(Word32),
  word16(Word16),
  word8(Word8),
  word4(Word4),
  fields_set(Var(List(Session_Field))),
  session(Session)
  //WEB_Request
.

public type Session_Field_Datum_No_Var:
  string(String),             //fully implented
  bool(Bool),                 //fully implented
  int(Int),                   //fully implemented
  db_id(DB_id),
  message(ByteArray),         //fully implemented
  byte_array(ByteArray),
  float(Float),
  word128(Word128),
  word64(Word64),
  word32(Word32),
  word16(Word16),
  word8(Word8),
  word4(Word4),
  fields_set(List(Session_Field_No_Var)),
  session(Session_No_Var)
  //WEB_Request
.

public type Session_Field_Type:
  string_t,
  bool_t,
  int_t,
  db_id_t,
  message_t,
  byte_array_t,
  float_t,
  word128_t,
  word64_t,
  word32_t,
  word16_t,
  word8_t,
  word4_t,
  fields_set_t,
  session_t
.

public define String
  to_String
  (
    Session_Field_Type field_type
  )=
  if field_type is
  {
    string_t      then "string_t",
    bool_t        then "bool_t",
    int_t         then "int_t",
    db_id_t       then "db_id_t",
    message_t     then "message_t",
    byte_array_t  then "byte_array_t",
    float_t       then "float_t",  
    word128_t     then "word128_t",
    word64_t      then "word64_t",
    word32_t      then "word32_t",
    word16_t      then "word16_t",
    word8_t       then "word8_t",
    word4_t       then "word4_t",
    fields_set_t  then "fields_set_t",
    session_t     then "session_t"
  }
.

public type Session_Field:
  session_field(
    String                    field_name,
    Session_Field_Type        field_type,
    Var(Session_Field_Datum)  field_datum   //Var because it can be replaced
  )
.

public type Session_Field_No_Var:
  session_field(
    String                      field_name,
    Session_Field_Type          field_type,
    Session_Field_Datum_No_Var  field_datum   //Var because it can be replaced
  )
.

public type Session:
  session(
    String                    id,
    Var(List(Session_Field))  fields
  )
.

public type Session_No_Var:
  session(
    String                      id,
    List(Session_Field_No_Var)  fields
  )
.