Navigation  without Java Scripts

Source Code for Argument Test

include "argtest.inc"

PREDICATES
  member(parm,parmlist)
CLAUSES
  member(M,[M|_]):-!.
  member(M,[_|T]):-member(M,T).
PREDICATES
  arg_value(string Name,parmlist,string Value)
CLAUSES  
   arg_value(Name,Parmlist,Value):-
    member(parm(Name,Value),Parmlist),!.
   arg_value(_,_,"").
     
PREDICATES
  showargs(ParmList,STRING AlignText)
  show_args(ParmList)
CLAUSES
  showargs([parm(Name,Val)|Tail],AlignText):-!,
    write("<TR><TD>",Name,"</TD><TD",AlignText,">",Val,"</TD></TR>\n"),
    showargs(Tail,AlignText).
  showargs(_,_).  
  
  show_args(_ParmList):-
    arg_value("justify",_ParmList,JTXT),
    format(AlignText," ALIGN=\"%\"",JTXT),
    write("<TABLE BORDER=1>",
          "<CAPTION>Test Arguments</CAPTION>",
          "<TR><TH>Name</TH><TH>Value</TH></TR>\n"),
    showargs(_ParmList,AlignText),
    write("</TABLE>\n").

PREDICATES

  argtest()

CLAUSES

  argtest():-
          ParmList = cgi_GetParmList(),
          write("Content-type: text/html\n\n",
                "<HTML>\n",
                "<HEAD>\n",
                "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=iso-8859-1\">\n",
                "<META NAME=\"GENERATOR\" CONTENT=\"Visual Prolog\">\n",
                "<TITLE>CGI Argument Test</TITLE>\n</HEAD>\n",
                "<BODY>\n",
                "<IMG SRC=\"logo.gif\">",
                "<H1>CGI Argument Test</H1>\n",
                "<H2>Received Data</h2>\n<BLOCKQUOTE>\n",ParmList,"</BLOCKQUOTE>\n",
                "<HR>\n",
                "<BLOCKQUOTE>\n"),
          show_args(ParmList),
          write("</BLOCKQUOTE>\n",
                "<HR>\n",
                "</BODY>\n",
                "<HTML>\n"),
          !.

GOAL

  argtest().