Expanded description
| Topic |
Description |
| Name |
makemain |
| Synopsis |
/infobank/programs/html/makemain/makemain.for |
| Description |
Program to generate the main (stable) InfoBank pages.
|
| Output |
output .html name (replaces .html with .txt for input file name)
page title
|
| Author |
Clint Steele 4/8/98
|
| Opens |
open (unit = 88,
* name = '/tmp/makemain.control.temp',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 89,
* name = Dir(1:DirLength),
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 90,
* name = HomeDir(1:HomeDirLength)//
* Dir(Slash+5:DirLength-5)//'/'//
* PageName(1:Dot)//'txt',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 91,
* name = HomeDir(1:HomeDirLength)//
* Dir(Slash+5:DirLength-5)//'/'//
* PageName(1:NameLength),
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 84,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = ALine
* (index(ALine(1:ALineLength), '')+ 9:ALineLength))
|
| Reads |
read (88, '(q,a)', end = 9999)
* DirLength, Dir(1:DirLength)
read (89, '(q,a)', end = 999)
* NameLength, PageName
read (89, '(q,a)', end = 999)
* TitleLength, PageTitle
read (89, '(q,a)', end = 999)
* ScriptLength, Script
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (84, '(q,a)', end = 89)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (PageName, '(4096x)')
write (PageTitle, '(4096x)')
write (HomeDir, '(255x)')
write (91, '(a)') ALine(1:ALineLength)
write (91, '(a)') ALine(1:ALineLength)
|
| Calls |
call stringlen (PageName, NameLength)
call stringlen (PageTitle, TitleLength)
call stringlen (Script, ScriptLength)
call stringlen (HomeDir, HomeDirLength)
call htmlhead (91, PageTitle(1:TitleLength))
call htmlheadx (91, PageTitle(1:TitleLength),
* PageTitle(1:TitleLength),
* Script(1:ScriptLength))
call htmlfoot (91, 'http://walrus.wr.usgs.gov/'//
* 'infobank/index.html')
call htmlfoot (91, 'http://walrus.wr.usgs.gov/'//
* 'infobank/programs/html/'//
* Dir(Slash+5:DirLength-5)//'/'//
* PageName(1:NameLength))
|
|
