%
% set values in fire proc tree node
%
% split the filename of the proc into verb and description
%
_\\ "_" slice
"Proc" "Type" \!
"Description" \!
%
% analyze location of proc file
%
"_Fname" \_ pathonly -1 right "\" Str.RevRight
<
|Bin
 "Bin"
|Robot
 "Robot"
> not
{
%
% this is from application root
%
 "application entry point" "Description" \!
 "Root"
} if
"Naming" \!

%
% stack: proc-prefix
%
dup
<
|Default
 "all default vectors" "Description" \!
 "AllDefault"
|timetrak
 "AllTiming"
|acceptox
 "all acceptance vectors" "Description" \!
 "AllAccept"
|accept
 "Description" \_ &" acceptance vectors" "Description" \!
 "Accept"
|timing
 "Timing"
|Defbase
 "Default"
> not
{
%
% capital letter in front indicates a vector file
%
% stack: proc-prefix
%
 dup 1 left *isupcase
 {
  "Vector"
 }
 {
  "Call"
 } ifelse
} if
%
% stack: proc-prefix proc-type
%
"Object" \!
"Verb" \!
"_Name" \_ "Name" \!