%
% stack: filespec
%
% analyze the filename for proper vector usage
%
 dup fileroot
%
% stack: empty [ . . . ] next-file file-root
%
 "_" within?
 {
%
% this is a vector file or lookup
% check the first character for capital, indicates lookup
%
% stack: empty [ . . . ] next-file file-root
%
  dup 1 left asc &H20 and
  {
%
% lower case left character, is vector
%
   dup "_" Str.Right !Description
   dup "_" Str.Left
%
% stack: next-file file-root vec-root
%
   dup
   <
   |accept
    pop3
   |timing
    pop3
   > not
   {
%
% normal vector, add to tree
%
% stack: next-file file-root vec-root
%
    &"*" !Verb
    _\ tuck
%
% stack: parent next-file file-root
%
    _Verb

    _\ make !\
%
% stack: parent next-file file-root 
%

    "_" Str.Right !Name
    _Name        "Name" \!

    _Verb        "Verb" \!

    "Call"       "Type" \!


%
% stack: parent next-file
%
    read !Action
%
% stack: parent
%
    _Action      "Action" \!


    _Description "Description" \!

    "Vector" !naming
    _naming      "Naming" \!

    "File" !object
    _object      "Object" \!

    !\
%
% stack:
%

   } if
  }
  {
%
% upper case left character, is lookup
%
% stack: empty [ . . . ] next-file file-root
%
   pop2
  } ifelse
 }
 {
%
% not a vector or lookup file
%
% stack: empty [ . . . ] next-file file-root
%
  pop2
 } ifelse