empty

%%% "Methods" *rebustar

"
SELECT * FROM Methods
ORDER BY Verb;
"
*nethopen

_D.Methods Data.Records?

%
% stack: records-exist
%
{
 _D.Methods Data.MoveFirst
 {
  _D.Methods Data.EOF ?
  *methdsub

  __Verb 0x09 char & &
  __Name 0x09 char & &
  __Type 0x09 char & &
  __Action
  {
   "%" slice any?
   {
    cr slice pop2nd &
   }
   {
    true ?
   } ifelse 
  } loop
  cr " " replall 0x0A char " " replall 0x0D char " " replall 0x09 char " " replall
  0x09 char & &
  __Description
  cr " " replall 0x0A char " " replall 0x0D char " " replall 0x09 char " " replall
  &
  catcr
%%%  __Verb *alphtree
%%%  __Verb        "_Verb" \!

%%%  __Type        "_Type" \!

%%%  __Action      "_Action" \!


  _D.Methods Data.MoveNext
%
 } loop
} if
*nethshut

%%% "_meth.tlt" ofbin Tree.Save pop
"_meth.csv" ofbin write

%%% *rebuends