testhtm.gms

	[ Home \| Support \| Sales \| Solvers \| Documentation \| Model Libraries \| Search \| Contact Us ]

testhtm.gms : Generates HTM testlib library files

Generates HTM testlib library files

GAMS Development Coorporation, Testlib Tool Box.

  Generates all .htm related files for the set of models
  found in testmod.inc. Uses unpublished and
  unsupported PUT_Utilities features.

  The file testmod.inc is the master file for all other
  derived files.

  Files generated:

     seqindx.htm
     alfindx.htm
     *.htm  for all model and include files

  All files $included, read and written have to be in the same
  directory.  This program can be executed from another location
  by using the GAMS parameter U1, for example:

     >gams testhtm.316 U1=c:\oldd\alex\gams\gamslib\ver008\testlib\

Small Model of Type: GAMS Includes: testmod.inc

$title 'Generates HTM testlib library files' (TESTHTM,SEQ=316); $ontext Generates HTM testlib library files GAMS Development Coorporation, Testlib Tool Box. Generates all .htm related files for the set of models found in testmod.inc. Uses unpublished and unsupported PUT_Utilities features. The file testmod.inc is the master file for all other derived files. Files generated: seqindx.htm alfindx.htm *.htm for all model and include files All files $included, read and written have to be in the same directory. This program can be executed from another location by using the GAMS parameter U1, for example: >gams testhtm.316 U1=c:\oldd\alex\gams\gamslib\ver008\testlib\ $offtext $setglobal testlib '%gams.u1%' files htm HTML file handle / htm.htm / seqindx HTML sequence index / '%testlib%seqindx.htm' / alfindx HTML alpha index / '%testlib%alfindx.htm' / scalar first; $offlisting $include %testlib%testmod.inc $onlisting * * model htm files * put htm; htm.pw=1024; htm.lcase=1; loop(sm(s,m), put_utilities 'ren'/ '%testlib%' m.tl:0 '.htm'; put '<html> <head> <title>' m.tl:0 '.gms</title>' / '' / '<h2>'m.tl:0 '.gms : ' m.te(m) '</h2>'; put / '<hr>'; put_utilities 'htm'/ '%testlib%' m.tl:0 '.' s.tl:0; put / '<hr>'; if(big(s), put 'Large ' else put 'Small ' ); put 'Model of Type'; put$(sum(ts(t,s),1)>1) 's'; put ':'; htm.lcase=2; loop(tss(t,s), put ' ' t.tl ); htm.lcase=1; loop(ts(t,s)$(not tss(t,s)), put ' ' t.tl ); first = 1; loop(incmap(inc,s), if(first, put '   Includes:'; first = 0;); put '  <a href="' inc.tl:0 '.htm">' inc.tl:0 '.inc</a>'); put '<hr>' / '<plaintext>' / '' * Either we do the < > replacement or we use plaintext * / '</pre>' * / '' * / '</html>' ); * * include htm files * loop(inc, put_utilities 'ren'/ '%testlib%' inc.tl:0 '.htm'; put '<html> <head> <title>' inc.tl:0 '.inc</title>' / '' / '<h2>'inc.tl:0 '.inc : ' inc.te(inc) '</h2>' / '<hr> <p> Used by:'; loop{(incmap(inc,s),sm(s,m)), put '  <a href="' m.tl:0 '.htm">' m.tl:0 '.gms</a>'; if {(htm.cc > 70), put /; }; }; put / '</p> <hr>' / '<pre>' / '' / '</pre>' / '' / '</html>' ); * * seqindx * seqindx.lcase=1; put seqindx '<HTML> <HEAD> <TITLE> GAMS Testlib Library Chronological Index</TITLE></HEAD>' / '' /'<H1>Testlib Library Chronological Index</H1>' /'This is a listing of the Testlib library in order of' /'submission date. The newest ones are at the top.' /'<P>' /'There is also an ' /'an <A HREF="alfindx.htm">alphabetical index</A>.' /'<P>' / '<TABLE>' / '<TR>' / ' <TH ALIGN="LEFT">No</TH>' / ' <TH ALIGN="LEFT">Model</TH>' / ' <TH ALIGN="LEFT">Description</TH>' / ' <TH ALIGN="LEFT">Type</TH>' / '</TR>' loop((srev(ss,s),sm(s,m)), put / '<TR>' / ' <TD>',s.tl:0,'</TD>' / ' <TD><A HREF="',m.tl:0,'.htm">',m.tl:0,'</A></TD>' / ' <TD>',m.te(m):0,'</TD>' / ' <TD>'; seqindx.lcase=2; loop(tss(t,s), put t.tl:0 ); seqindx.lcase=0; put '</TD>' / '</TR>'; seqindx.lcase=1; ); put / '</TABLE>' / '' / '</html>'; * * alfindx * alfindx.lcase=1; put alfindx '<HTML> <HEAD><TITLE> GAMS Testlib Library Alphabetical Index</TITLE></HEAD>' / '' /'<H1>Testlib Library Alphabetical Index</H1>' /'This is an alphabetical listing of the models available' /'in the on-line Testlib library.' /'There is also a ' /'a <A HREF="seqindx.htm">chronological index</A>.' /'<P><b>Shortcuts:</b> '; alfindx.lcase=2; loop (letters, put alfindx '<A HREF="#' letters.tl:0 '"> ' letters.tl:0 '</A>' / ); alfindx.lcase=1; put alfindx /'<P><TABLE>' /'<TR>' /' <TD></TD>' /' <TH ALIGN="LEFT">Model</TH>' /' <TH ALIGN="LEFT">Description</TH>' /' <TH ALIGN="LEFT">Type</TH>' / '</TR>' loop(m, if(letters(m), alfindx.lcase=2; put /'<TR>' /' <TD></TD>' /'<TH COLSPAN=4 ALIGN="LEFT"><A NAME="'m.tl:0'">',m.tl:0,'</TH>' /'</TR>'; alfindx.lcase=1; else put / '<TR>' * <TD><IMG SRC="/pics/new.gif"></TD> / ' <TD></TD>' / ' <TD><A HREF="',m.tl:0,'.htm">',m.tl:0,'</A></TD>' / ' <TD>',m.te(m):0,'</TD>' / ' <TD>'; alfindx.lcase=2; loop(sm(s,m), loop(tss(t,s), put t.tl:0 ); alfindx.lcase=0; put '</TD>' / '</TR>'; alfindx.lcase=1) )); put / '</TABLE>' / '' / '</html>';