%
% stack: js-file-to-host
%
fromjs
exec

%
% read the css seed file for buttons
%
"Html\"
__HorizontalButton_ "true" eq$
{
 "h"
}
{
 "v"
} ifelse
&
&"button.css" ofbin read

true
{
*buttonet
__OriginalPath_ &__TargetDocName_
fromjs
".css" reextend write
}
{
dup *buttonet
__OriginalPath_ &"p" __TargetDocName_ -1 left &
fromjs
".css" reextend write
__PrimaryName_ dup 2 left &"j" exch -3 left & !_PrimaryName_
dup *buttonet
__OriginalPath_ &"1" __TargetDocName_ -1 left &
fromjs
".css" reextend write

__PrimaryName_ dup 2 left &"k" exch -3 left & !_PrimaryName_
dup *buttonet
__OriginalPath_ &"2" __TargetDocName_ -1 left &
fromjs
".css" reextend write

__PrimaryName_ dup 2 left &"n" exch -3 left & !_PrimaryName_
dup *buttonet
__OriginalPath_ &"3" __TargetDocName_ -1 left &
fromjs
".css" reextend write

__PrimaryName_ dup 2 left &"o" exch -3 left & !_PrimaryName_
dup *buttonet
__OriginalPath_ &"4" __TargetDocName_ -1 left &
fromjs
".css" reextend write

__PrimaryName_ dup 2 left &"p" exch -3 left & !_PrimaryName_
exch *buttonet
__OriginalPath_ &"5" __TargetDocName_ -1 left &
fromjs
".css" reextend write
} ifelse

%
% read the html seed file for buttons
%
"Html\"
__HorizontalButton_ "true" eq$
{
 "h"
}
{
 "v"
} ifelse
&
&"button.html" ofbin read

true
{
*buttonet
__OriginalPath_ &__TargetDocName_
fromjs
".html" reextend write
}
{
dup *buttonet
__OriginalPath_ &"p" __TargetDocName_ -1 left &
fromjs
".html" reextend write
__PrimaryName_ dup 2 left &"j" exch -3 left & !_PrimaryName_
dup *buttonet
__OriginalPath_ &"1" __TargetDocName_ -1 left &
fromjs
".html" reextend write

__PrimaryName_ dup 2 left &"k" exch -3 left & !_PrimaryName_
dup *buttonet
__OriginalPath_ &"2" __TargetDocName_ -1 left &
fromjs
".html" reextend write

__PrimaryName_ dup 2 left &"n" exch -3 left & !_PrimaryName_
dup *buttonet
__OriginalPath_ &"3" __TargetDocName_ -1 left &
fromjs
".html" reextend write

__PrimaryName_ dup 2 left &"o" exch -3 left & !_PrimaryName_
dup *buttonet
__OriginalPath_ &"4" __TargetDocName_ -1 left &
fromjs
".html" reextend write

__PrimaryName_ dup 2 left &"p" exch -3 left & !_PrimaryName_
exch *buttonet
__OriginalPath_ &"5" __TargetDocName_ -1 left &
fromjs
".html" reextend write

} ifelse