/pliant/language/schedule/sem2.pli
 
 1  module "/pliant/install/ring2.pli" 
 2   
 3   
 4  meta '. request' e 
 5    if e:size=and (e:cast Sem) and (e:cast Str) 
 6      suckup e:0 
 7      if pliant_debugging_level>=1 
 8        var Link:Argument cond :> argument local CBool 
 9        var Link:Instruction end :> instruction (the_function 'do nothing') 
 10        add (instruction (the_function '. nowait_request' Sem -> CBool) e:0:result cond) 
 11        add (instruction (the_function 'jump if' CBool) cond jump end) 
 12        suckup e:1 
 13        var Link:Argument ar :> argument local ActionRecord 
 14        add (instruction (the_function mt_action_push_record ActionRecord Str) ar e:1:result) 
 15      add (instruction (the_function '. request' Sem) e:0:result) 
 16      if pliant_debugging_level>=1 
 17        add (instruction (the_function mt_action_pull_record ActionRecord) ar) 
 18        add end 
 19      set_void_result 
 20   
 21  meta '. rd_request' e 
 22    if e:size=and (e:cast Sem) and (e:cast Str) 
 23      suckup e:0 
 24      if pliant_debugging_level>=1 
 25        var Link:Argument cond :> argument local CBool 
 26        var Link:Instruction end :> instruction (the_function 'do nothing') 
 27        add (instruction (the_function '. nowait_rd_request' Sem -> CBool) e:0:result cond) 
 28        add (instruction (the_function 'jump if' CBool) cond jump end) 
 29        suckup e:1 
 30        var Link:Argument ar :> argument local ActionRecord 
 31        add (instruction (the_function mt_action_push_record ActionRecord Str) ar e:1:result) 
 32      add (instruction (the_function '. rd_request' Sem) e:0:result) 
 33      if pliant_debugging_level>=1 
 34        add (instruction (the_function mt_action_pull_record ActionRecord) ar) 
 35        add end 
 36      set_void_result 
 37   
 38   
 39  export '. request' '. rd_request'