ChineseWorksheetGenerator.fsp - Frink Server Pages Highlighter

  <TITLE>Chinese Number Worksheet</TITLE>
  <STYLE type="text/css">
   TD {font-size: ${fontsize}pt; font-family: $font; }
   P.center {text-align: center}
  </STYLE>
  <META NAME="viewport" CONTENT="width=device-width, initial-scale=1.0">
</HEAD>

<BODY>

  <%
     use ../ChineseNumbers.frink
     use ../HTMLUtils.frink

  //     digits = digits ? eval[digits] : 0

     digitlist = [1,2,3,4,5,6,7,8]
     numDigits = numDigits ? eval[numDigits] : 3

     formatStyle[num, style] :=
     {
        if style == "Formal"
           ChineseNumbers.formatFormal[num]
        else
           ChineseNumbers.formatCasual[num]
     }
  %>

  <FORM METHOD="GET" ACTION="ChineseWorksheetGenerator.fsp" NAME=f1>
   <P CLASS="center">
    Digits:
    <SELECT NAME="numDigits" onchange="document.f1.submit()">
     <% makeSelect[digitlist, numDigits] %>
    </SELECT>

    Font:
    <SELECT NAME="font" onchange="document.f1.submit()">
     <% makeSelect[fontlist, font] %>
    </SELECT>

    Font size:
    <SELECT NAME="fontsize" onchange="document.f1.submit()">
     <% makeSelect[fontsizelist, fontsize] %>
    </SELECT>

    Casual:
    <INPUT TYPE="CHECKBOX" NAME="casual" VALUE="y"
    <%= casual ? "CHECKED" : "" %> onchange="document.f1.submit()">

    Formal:
    <INPUT TYPE="CHECKBOX" NAME="formal" VALUE="y"
       <%= formal ? "CHECKED" : "" %> onchange="document.f1.submit()">

    Rows: <INPUT TYPE="text" NAME="rows" SIZE="4" VALUE="$rows"
                 onchange="document.f1.submit()">

    Cols:
    <SELECT NAME="cols" onchange="document.f1.submit()">
     <% makeSelect[collist, cols] %>
    </SELECT>

    <INPUT TYPE="SUBMIT" VALUE="Regenerate">
   </P>
  </FORM>

  <TABLE BORDER=0 CELLPADDING=10
         WIDTH="100%" RULES="groups" FRAME="vsides">

   <%
     subcolcount = 1
     if casual
        subcolcount = subcolcount + 1
     if formal
        subcolcount = subcolcount + 1

     if (cols > 1)
        for cc = 1 to cols-1
           println["<COLGROUP SPAN=\"$subcolcount\">"]

     for i = 1 to rows
     {
        println["    <TR>"]

        for c = 1 to cols
        {
           dig = random[1, numDigits]

           num = random[0,10^dig-1]

           if dig<numDigits
              if random[0,1] == 1
                 num = num * 10^random[1,numDigits-dig]

           if casual
              println["     <TD nowrap>" + ChineseNumbers.formatCasual[num]]

           if formal
              println["     <TD nowrap>" + ChineseNumbers.formatFormal[num]]

           println["     <TD ALIGN=\"right\">" + num]
        }
     }
   %>

ChineseWorksheetGenerator.fsp - Frink Server Pages highlighter