Модуль FsmManager

Подключение:

program Demo;                    { How to use FsmManager            }
const
 {------------------------------}{ Declare uses program constants:  }
 {$I _con_StdLibrary}            { Include all Standard constants,  }
 {------------------------------}{ And add User defined constants:  }
 {$I _con_FsmManager}            { FsmManager constants             }
 
 // User code - constants...
 
var
 {------------------------------}{ Declare uses program variables:  }
 {$I _var_StdLibrary}            { Include all Standard variables,  }
 {------------------------------}{ And add User defined variables:  }
 {$I _var_FsmManager}            { FsmManager variables             }
 
 // User code - variables...

 {------------------------------}{ Declare procedures & functions:  }
 {$I _fun_StdLibrary}            { Include all Standard functions,  }
 {------------------------------}{ And add User defined functions:  }
 {$I _fun_FsmManager}            { FsmManager functions             }
 
 // User code - functions...
 
 {
 Clear user application strings...
 }
 procedure ClearApplication;
 begin
  ClearFsmManager;
  // User code - clear...
 end;
 {
 User application Initialization...
 }
 procedure InitApplication;
 begin
  InitFsmManager;
  // User code - init...
 end;
 {
 User application Finalization...
 }
 procedure FreeApplication;
 begin
  FreeFsmManager;
  // User code - free...
 end;
 {
 User application Polling...
 }
 procedure PollApplication;
 begin
  PollFsmManager;
  // User code - poll...
 end;
 {
 Process data coming from standard input...
 }
 procedure StdIn_Processor(var Data:String);
 var cmd,arg:String; n:Integer;
 begin
  ViewImp('CON: '+Data);
  {
  Handle "@cmd=arg" or "@cmd arg" commands:
  }
  cmd:='';
  arg:='';
  if GotCommand(Data,cmd,arg) then begin
   
   // User code - handle stdin...
   
   {
   Handle other commands by default handler...
   }
   StdIn_DefaultHandler(Data,cmd,arg);
  end;
  Data:='';
  cmd:='';
  arg:='';
 end;

{***************************************************}
{***************************************************}
{***                                             ***}
{***  MMM    MMM        AAA   IIII   NNN    NN   ***}
{***  MMMM  MMMM       AAAA    II    NNNN   NN   ***}
{***  MM MMMM MM      AA AA    II    NN NN  NN   ***}
{***  MM  MM  MM     AA  AA    II    NN  NN NN   ***}
{***  MM      MM    AAAAAAA    II    NN   NNNN   ***}
{***  MM      MM   AA    AA   IIII   NN    NNN   ***}
{***                                             ***}
{***************************************************}
{$I _std_main}{*** Please never change this code ***}
{***************************************************}
 

Константы:

Переменные:

Функции:

  -dns node     - задает имя (node) компьютера для сервера имен (DNS) в сети DIM
                  это имя может быть использовано для взаимодействия с DIM сервером
  -dom domain   - задает имя домена (domain), который надо создать в Менеджере FSM
                  имя домена должно удовлетворять обычным требованиям для имен (см. fsm_is_valid_name)
  -sml smlfile  - задает имя файла (smlfile) на языке SML, который надо загрузить в этом домене
                  имя файла задается относительно каталога основного файла конфигурации (обычно ..\Config)
  -verbose n    - задает режим (n) печати fsm_verbose_mode, n=(0/1)=(кратко/подробно)
                  значение по умолчанию (1) задается также в переменной конфигурации fsm_verbose_mode
  -listing n    - задает режим (n) вывода в отладочный файл fsm_listing_mode, n=(0/1)=(не/создавать файл *.lst)
                  значение по умолчанию (1) задается также в переменной конфигурации fsm_listing_mode
  -name id      - задает имя (id) для создаваемого менеджера FSM
  

  fsm:=fsm_init('-name FsmTest -dns localhost -dom DEMO -sml demo.sml -dom TEST -sml test.sml');
   -name FsmTest    - задает имя для Менеджера FSM
   -dns localhost   - задает DIM DNS равным localhost
   -dom DEMO        - создает в Менеджере домен DEMO
   -sml demo.sml    - загружает в домен DEMO файл demo.sml на языке SML
   -dom TEST        - создает в Менеджере домен TEST
   -sml test.sml    - загружает в домен TEST файл test.sml на языке SML
  

  name:=fsm_extract_name('EGP::UPS/OFF/SWITCH_ON#VOLTAGE',fsm_type_domain);    // домен     EGP
  name:=fsm_extract_name('EGP::UPS/OFF/SWITCH_ON#VOLTAGE',fsm_type_object);    // объект    UPS
  name:=fsm_extract_name('EGP::UPS/OFF/SWITCH_ON#VOLTAGE',fsm_type_state);     // состояние OFF
  name:=fsm_extract_name('EGP::UPS/OFF/SWITCH_ON#VOLTAGE',fsm_type_action);    // действие  SWITCH_ON
  name:=fsm_extract_name('EGP::UPS/OFF/SWITCH_ON#VOLTAGE',fsm_type_parameter); // параметр  VOLTAGE
  

  @smiuisrv_fsm_dump                    - вывод списка всех ключей
  @smiuisrv_fsm_dump 1 demo::run        - вывод (подробный) ключей, содержащих DEMO::RUN
  @smiuisrv_fsm_dump 1 demo::run ^class - вывод (подробный) ключей, содержащих DEMO::RUN и не содержащих CLASS
  

   obj:=fsm_find(fsm,'DEMO::LOGGER');      // Найти ссылку объекта DEMO::LOGGER
   fsm_add_iparam(obj,'RUN_NUMBER',123);   // Задать параметр int RUN_NUMBER = 123
   run:=fsm_ask_iparam(obj,'RUN_NUMBER');  // Прочитать параметр RUN_NUMBER