%
% get the list of all values
% post all of the Arching values
%
@@
root\
%
% clear the javascript and fire builder strings
%
empty !builder
empty !buildef
_\ @^*Values
execstr
%
% refer to the Arching.* values
%
1 2 rot
{
 pop
%
% refer to Arching values only
%
 dup 8 left "Arching." eq$
 {
%
% set the Arching variable, removing front underline
%
%%%  -1 left

%
% create the javascript variable assignment for this value
% format to javascript string specs
%
  2 copy
  -8 left
  ^"var A_" &" = "
  exch
  "\" "\\" replall
  """" "\""" replall
  ^"""" &""""
  js&;&
  ^:builder

%
% format to fire string specs
%
  2 copy
  ^" !"
  exch
  quoter ^
  &;
  ^:buildef

  !
 }
 {
%
% not an Arching value
%
  pop2
 } ifelse
} for
%
% write the javascript format of settings
%
_builder
"Brching" jsx!desk

%
% write the fire format of settings
%
_buildef
"Brching" text!bin