parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

А патч, на самом деле, и не нужен...

Sumo 31.05.2006 15:12 / 31.05.2006 15:14

Делаем простенький класс
@CLASS
exec

@BASE
file

@exec[aPath;aEnvHash;aParams]
  ^if($aParams is table){
    $result[^process{^^BASE::exec[^$aPath^;^$aEnvHash^;^aParams.menu{$aParams.0}[^;]]}]
  }{
     ^throw[exec.create;Параметры должны быть неименованной таблицей с одним столбцом]
   }
... и зовем его, где нужно:
  ^use[exec.p]
  $file[^exec::exec[last;;^table::create[nameless]{-10}]]