/pliant/appli/cluster/database.pli
 
 1  submodule "/pliant/storage/database.pli" 
 2   
 3  public 
 4   
 5    type ClusterPath 
 6      field Str src dest 
 7   
 8    type ClusterArea 
 9      field Str label 
 10      field Str comment 
 11   
 12      field Set:Void src_computer 
 13      field Set:Void dest_computer 
 14      field Set:Str module 
 15   
 16      field Set:ClusterPath file_path 
 17      field Int file_sign_limit <- 2^12 
 18      field Str src_file_filter dest_file_filter 
 19   
 20      field Set:ClusterPath data_path 
 21      field Int data_sign_limit <- 2^16 
 22      field Str src_data_filter dest_data_filter 
 23   
 24      field Str mode # 'count' 'append' 'modify' 'delete' 
 25      field Float frequency <- undefined 
 26      field Str time_filter 
 27      field Str post_process 
 28   
 29      field Float timeout <- undefined 
 30      field Bool clear <- false 
 31   
 32      field Char status <- " " # ' ' sleeping, 'R' running 
 33      field DateTime start stop 
 34      field Str error 
 35   
 36      field Int file_total_count <- undefined ; field Intn file_total_size <- undefined 
 37      field Int file_append_count <- undefined ; field Intn file_append_size <- undefined 
 38      field Int file_modified_count  <- undefined; field Intn file_modified_size <- undefined 
 39      field Int file_deleted_count <- undefined ; field Intn file_deleted_size <- undefined 
 40   
 41      field Int data_total <- undefined 
 42      field Int data_append <- undefined 
 43      field Int data_modified <- undefined 
 44      field Int data_deleted <- undefined 
 45   
 46    type ClusterDatabase 
 47      field Set:ClusterArea area 
 48     
 49    (gvar Database:ClusterDatabase cluster_database) load "security:/cluster.pdb" mount "/pliant/cluster" 
 50   
 51  function cluster_init 
 52    each area cluster_database:data:area 
 53      if area:status<>" " 
 54        area status := " " 
 55  cluster_init