%
% stack: section type
%
empty !mep
%
<
|Hub
%
% MEP form hub has get, set, and do sections
%
 "Form" !object
%
% iterate through the sub-sections
%
% stack: section
%

 1 exch
 {

%
% stack: mep-index section
%
  dup "'[[[" fourth 1 1 parse

  isnull ?
%
% stack: mep-index section mep-sect
%
  "']]]" Str.Left

%
% get the type of access the mep element is
%
  dup *firstlne

%
% stack: mep-index section mep-sect mep-name
%
  trim
  dup
  <
  |get
   "_"
  |set
   "!"
  > not
  {
   empty
  } if
  !mep

  ^"%%% " &;
  "monads.lst" ofbin append
%
% stack: mep-index section mep-sect
%
  *monasect

%
% stack: mep-index section
%
  incr2nd
 } loop
%
% stack: mep-index section case-sect
%
 pop3

|Sup
%
% Method support, . after name means method has prefix
%
 "Code" !object
%
 empty !mep
%
% single iteration through methods
%
 *monasect

> not
{
%
% stack: section
%
 pop
 "Code" !object
%
} if
%
% stack:
%