/ Superply Web Edition
/ Code author: Dennis Shasha, 2002

/ Here is the activity we want. Display a choice of boards.
/ Once a board is chosen, display it with blanks and with the 
/ row and column headers showing.
/ Then put up the header that says: Red (horizontal) moves first.
/ Show a hint card.
/ When a player clicks the first one, see whether the hint matches.
/ If so, then fill that space with color (showing the answer)
/ and see whether that player wins. If correct but player doesn't win
/ then the player goes into addmove mode where there is a contiguity
/ requirement.
/ When a player's move does not satisfy the requirement, then play
/ continues with the other player.
/ Must have the ability to match a hint to a choice.
/
/ New interface: go to attbroker at port 2000 and attman at port 2120 etc.
/ attbroker gives a session id and a port as before, but there can
/ be many sessions on a given port. The session id should be part
/ of the command:
/ each command should have the intended command then colon then a session id,
/ e.g. sendtables:31
/ Guangwei: set the m h to 2120, 2121 etc.
/ Set the m i 1000 higher.


\m h 2223

/ STRING PROCESSING


/ parses a field based on vertical bars
getfields:{[line]
  i: line = "|"
  j1: &i
  j2: &~i
  line @:j2
  size: #j1
  :(0,(j1 - !size)) _ line
}

/ get rid of blanks at either end of the string
delendblanks:{[string]
  if[0 = #string; :""]
  if[string ~ ,"" ; :""]
  i: & ~ string = " "
  if[(#string) = (#i); :string]
  if[0 = (#i); :""]
  string: (- ((#string)  - (1 + *|i))) _ string
  :(*i) _ string
}


/ HTMLIZE


printheader:{[atts]
 out: "<TABLE WIDTH=100% CELLPADDING=1 CELLSPACING=0 BORDER=1> <TR>" 
 j: 0
  while[j < #atts
        out,: "<TD VALIGN=top align=left NOWRAP> <b>"
        out,: ($atts[j]), ("</b> </TD>")
        j+: 1
  ]
  out,: "</TR>"
  :out
}



/ spit out a table of tables and attributes
tabatttable:{[timestamp; val]
  j: 0
  out: "<TR>"
  while[j < #val
        out,: "<TD VALIGN=top align=left NOWRAP>"
        v: val[j]
        w: $v
        type: :[j = 0; "table:"; "attribute:"]
        if[(j=0) & (v = disptable); w: ("*_"), w]
          out,: ,/(" "
          "<a href=\"http://"
          localhostval
          type
          $v
          "@"
          timestamp
          "]\">"
          $w
          "</a>"
          "</TD>")
        j+: 1
  ]
  out,: "</TR>"
  :out
}



/ print out tables and attributes as a table
tabatt:{[timestamp]
  tabs: disptable..o
  atts: listofatts
  max: (#tabs) | (#atts)
  if[max > (#tabs)
        tabs,: (max - (#tabs)) # `
  ]
  if[max > (#atts)
        atts,: (max - (#atts)) # `
  ]
  pairs: tabs ,' atts
  x :(printheader[`Tables `Attributes]) 
  : x, (,/ (tabatttable[timestamp]' pairs)),  ("</TABLE>")
}



/ spit out a table of values
tablehtmlize:{[type; timestamp; textcols; vals;i]
  val: vals[i], ()
  j: 0
  out: "<TR>"
  while[j < #val
        out,: "<TD VALIGN=top align=left NOWRAP>"
        v: val[j]
          out,: ,/(" "
          "<a href=\"http://"
          localhostval
          type
          $i
          ":"
          $j
          "@"
          timestamp
          "]\">"
          $v
          "</a>"
          "</TD>")
        j+: 1
  ]
  out,: "</TR>"
  if[i = ((#vals) - 1)
        / last one
        out,: "</TABLE>"
  ]
  :out
}



/ val may be a singleton or a pair, triplet, ...
valhtmlize:{[timestamp; textcols; vals;i]
  val: vals[i], ()
  j: 0
  out: ()
  while[j < #val
        v: val[j]
        if[j _in textcols / send back row
          out,: ,/(" "
          "<input type=text name=Text"
          $j
          " value= "
          $v
          " size= "
          $ 10 + #$v
          ">  ")
        ]
        if[~ j _in textcols
          out,: ,/(" "
          "<a href=\"http://"
          localhostval
          "value:"
          $i
          ":"
          $j
          "@"
          timestamp
          "]\">"
          $v
          "</a>"
          "  ")
        ]
        j+: 1
  ]
  out,: "<br>"
  :out
} 
  



/ given table, attribute or value as a symbol, spit out the appropriate href
htmlize:{[timestamp; type; name]
 : ,/(" "
"<a href=\"http://"
localhost
$type
$name
"@"
timestamp
"]\">"
$name
"</a>"
"  ")
}

/ END HTMLIZE

\l webkid

/ BROWSER INTERFACE

forlog: ()

/ .m.h receives inputs from the web
/ input part is in common. Processing of xweb string is different
/ depending on whether it is native or not.
.m.h:{[xweb]
  webstring,: ,xweb
  getflag: xweb[!3] ~ "GET"
  if[getflag / get operation e.g. .m.h[attribute:foo]
      if[0 = # xweb _ss ".m.h"; !-13]
      iii: * xweb _ss ".m.h"
      xweb: iii _ xweb
      j: xweb ? "]"
      xweb@: !j
      xweb: 5 _ xweb;
  ]
  if[~getflag / post operation, e.g. filling in blanks for ordering stuff
	!-14 / should never have a post
        / This can only have to do with values.
        i: xweb _ss "Text"
        j: (*i) + 4
        / find out which column was modified
        rowmodified: ()
        while[xweb[j] _in "0123456789"
                rowmodified,: xweb[j]
                j+: 1
        ]
        rowmodified: 0 $ rowmodified
        xweb: (*i) _ xweb
        i: 1 + *| & xweb = "="
        flag: 1
        while[ flag
                if[(i = #xweb) 
                        flag: 0
                ]
                if[flag = 1  
                        if[(~xweb[i] _in "0123456789")
                                flag:0
                        ]
                ]
                i+: 1
        ]
        xweb@: !(i-1)
        xweb: convertweb[xweb]
        j: & ~ xweb = " "
        xweb@: j
        starts: 1 + & xweb = "="
        ends: & xweb = "&"
        ends,: #xweb / final &
        yy: xweb[starts + !:'(ends - starts)] / assemble answers
        myval[rowmodified]:: yy
        / causing the myval trigger to fire
  ]
  xweb: convertweb[xweb]  / this results in exactly what's in .m.h brackets
  if[lastinput ~ xweb; :lastoutput]
  forlog,: ,xweb
  if[xweb _sm "*tart*"
    y:processxwebministart[xweb]
  ]
  if[xweb _sm "*click*"
    y:processxwebminiclick[xweb]
  ]
  / savesession[currentsessionid]
  lastinput:: xweb
  lastoutput:: y
  "log3" 0: forlog
  :y
}

/ gets rid of strange web stuff (written by Mike Rosenberg)
convertweb:{[x]
  ,/@[(0,,/+(a;a+3))_ x;&(!2*#a)!2;:
      _ci+/'16 1*/:"0123456789ABCDEF"?/:/:x@(a:&x="%")+\:1 2]}  

/ process a start game request
processxwebministart: {[xweb]
  cardindex:: 0
  out: "</body></html>"
  x2: 6 _ xweb
  y: gentable[xweb]
  / postaction: "action=\"http://localhost:80\">"
  preamble: "  "
  / preamble: "<?xml version=\"1.0\"?>"
  preamble,: "<basefont size=+10> <font size=+10>"
  / preamble,: "<form method=post "
  / preamble,: postaction
  preamble,: "<body> "
  preamble,: "<HR> <H1> <font color=red> Superply Game ("
  preamble,: x2
  preamble,: ")</font></H1>"
  preamble,: "<H2> <font color=blue> Blue's turn (going across) "
  preamble,: ("<br> No winner yet. Hint: "), currentcards[cardindex]
  preamble,: "</font></H2>"
  out: preamble,(,/y), out
  :out
}

/ process a click request
/ xweb has the keyword click
processxwebminiclick: {[xweb]
  out: "</body></html>"
  postaction: "action=\"http://localhost:80\">"
  y: gentable[xweb]
  preamble: "  "
  / preamble: "<?xml version=\"1.0\"?>"
  preamble,: "<basefont size=+10> <font size=+10>"
  preamble,: "<body> "
  preamble,: "<HR> <H1> <font color=red> Superply Game</font></H1>"
  if[(bluewin = 0) & (redwin = 0)
  	/ preamble,: "<H2><font color=black> No winner yet</font></H2>"
  ]
  if[(bluewin = 1) 
  	preamble,: "<H2><font color=blue> Blue has won!</font></H2>"
	/ a: * 0.0 $ 0: "tyler"
	/ a+: 0.5
	/ "tyler" 0: $a
  	/ preamble,: ("<H2><font color=blue> Tyler now has "), ($a), ("stars </font></H2>")
  ]
  if[(redwin = 1) 
  	preamble,: "<H2><font color=red> Red has won!</font></H2>"
	/ a: * 0.0 $ 0: "tyler"
	/ a+: 0.25
	/ "tyler" 0: $a
  	/ preamble,: ("<H2><font color=blue> Tyler now has "), ($a), ("stars </font></H2>")
  ]
  if[(turn = `red) & (bluewin = 0) & (redwin = 0)
	if[startturn
  	 preamble,:"<H2><font color=red> Red's turn now (going vertical) "
  	 preamble,: ("<br> Hint: "), currentcards[cardindex]
	]
	if[~startturn
  	 preamble,:"<H2><font color=red> Red keeps moving (going vertical) "
  	 preamble,: ("<br> Hint: "), currentcards[cardindex]
 	]
	preamble,: "</font></H2>"
  ]
  if[(turn = `blue) & (redwin = 0) & (bluewin = 0)
	if[startturn
  	 preamble,:"<H2><font color=blue>Blue's turn now  (going across) "
  	 preamble,: ("<br> Hint: "), currentcards[cardindex]
	]
	if[~startturn
  	 preamble,:"<H2><font color=blue> Blue keeps going (across) "
  	 preamble,: ("<br> Hint: "), currentcards[cardindex]
 	]
	preamble,: "</font></H2>"
  ]
  / y: "Hello there"
  out: preamble,("<br>"), (,/y), out
  :out
}