%
% check for Pactions.html in:
%    results\5557654321\Atns\Pactions.html
% if not present, create the file from Pactions.txt
%

"results\5557654321\Atns" oflocal folder
dup !Pact.Atns
&"Pactions.html" dup !Pact.Html
dup ".txt" reextend !Pact.Txt
".js" reextend !Pact.Js
empty !builder

_Pact.Html exists
"pacthtml" log)(
{
%
% already an existent html
%
}
{
%
% no html exists, build it from the txt
%
/*
	<!--Row-->
    <tr id="row___Ordinal___"
	class="Under___Alter___row UnderDrag">
      <td class="UnderList">
	<input type="image" src="/images/ShareSel.png" 
		 class="UnderDrag"
		id="btn___Ordinal___" style="border:2px solid black"
	onClick="Selector('___Ordinal___')" value="Select" >
		   			&nbsp;
		</td>
		<td>
	<input type="text" class="CaptionIn" id="txt___Ordinal___P"
		size="60" value="___Action___" readonly>
	<input type="hidden"
		id="full___Ordinal__" value="___Action___">
		</td>
    </tr>
<script type="text/javascript" >Updater("___Ordinal___")</script>
	<!--Row-->
*/
%
% Standard row precursor
%
 count !Pact.Floor
 _Pact.Txt exec$
 count _Pact.Floor eq
"anypact" log)(
 {
%
% no entries for new html
%
 }
 {
%
% stack: empty [ action1 action2 . . . ]
%
  19 *tacksorc
  "<!--Row-->" 1 1 1 parse
"rowtext" log)(
%
% stack: empty [ action1 action2 . . . ]
%   row-text
%
  0 !ordinal
  {
   dup rot
"nextpact" log)(
   any?
   {
    -1 left
    dup !Pact.Action
    "-" left$
    <
    |pre ~
    |post
     "___Entry___" _Pact.Action replall
     "___Action___" _Pact.Action replall
     "___Alter___" "A" replall
     "___Ordinal___" +ordinal 3 prezero replall
     &:builder
    > not
    {
     pop
    } if


/*
    "-" right$ "-" right$
    any?
    {
     "___Entry___" exch replall
     "___Action___" _Pact.Action replall
     "___Alter___" "A" replall
     "___Ordinal___" +ordinal 3 prezero replall
     &:builder
    }
    {
     pop
    } ifelse
*/

    false
   }
   {
    pop
    true
   } ifelse
"continue" log)(
   ?
  } loop
%
% stack: row-text
%
  pop
 } ifelse
"before" log)(
 19 *tacksorc
 "<!--Row-->" 0 3 1 parse
 pop2nd ^_builder &
 _Pact.Html write

} ifelse
"after" log)(