/*######################################################
                Dpdl(tm)
     Dynamic Packet Definition Language
             www.seesolutions.it

  this is a prototype-script written in Dpdl
  (Dynamic Packet Definition Language ) showing
  how services could be implemented on the Dpdl platform

  Author:   Armin Costa
  contact: info@seesolutions.it
  -----------------------------------------------------
  EXAMPLE:        Phone-Book Cities BZ TN
  File: dpdl_PHONEBOOK_BZ_TN.c
  Date: 23.01.2002
  #######################################################
**/
call(dpdlInterpreter)
::module dpdl_PHONEBOOK
::module_SPEC 23452
::model 836
::dpdlVersion 1.0

import extern SystemData;

OPTIONS {
    TARGET = CDC
    KVM = 1.0
    ZIP = true
    CHECKSUM = true
    SIGNATURE = true
    ENCRYPTION(RSA) = true
}

#define DpdlEncoding UTF-8

#define bolzano_db user@192.168.2.44:5432
#define trento_db user@192.168.2.44:5432

#defineSQL query SELECT name, phoneNR, e-mail FROM $Chunk end

#defineProtocol-cHtml phonebook_visual phone_book.html

catch DPDL_Script OnInit() {
    include("dpdllib.h")  nl
    println("OnInit()")  nl
}


import virtual DATA none  {
        class Bolzano volatile phonebook_visual {
              DATA::string const name;
              DATA::string using phoneNR;
              DATA::string using  e-mail;
              #defineGUI Default <Bolzano_PhoneBook>  <please_enter_name_and_surname_here:>
              catch DPDL_Script OnDecode() {
                 include("dpdllib.h")    nl
                 println("OnDecode() Bolzano")  nl
              }
        }
        class Trento volatile phonebook_visual {
              DATA::string const name;
              DATA::string using phoneNR;
              DATA::string using  e-mail;
              #defineGUI Default <Trento_PhoneBook>  <please_enter_name_and_surname_here:>
              catch DPDL_Script OnDecode() {
                 include("dpdllib.h")    nl
                 println("OnDecode() Trento")  nl
              }
        }
}

#defineD Bolzano src bolzano_db SQL query {
                CHUNK entrybz [6];
                struct BTree DENSE_INDEX hashing *name
                entrybz.content { name , phoneNR , e-mail }
                entrybz.name TAG(0xef) const (string) = 20;
                entrybz.phoneNR TAG(0xefe) (string) = 15;
                entrybz.e-mail TAG(0xefee) (string) = 30;
}

#defineD Trento src trento_db SQL query {
                CHUNK entrytn [6];
                struct BTree DENSE_INDEX hashing *name
                entrytn.content { name , phoneNR , e-mail }
                entrytn.name TAG(0xef) const (string) = 20;
                entrytn.phoneNR TAG(0xefe) (string) = 15;
                entrytn.e-mail TAG(0xefee) (string) = 30;
}