Expanded description
| Topic |
Description |
| Name |
makekeywordslist |
| Synopsis |
/infobank2/programs/html/school/makekeywordslist.for |
| Description |
Program to create keywords.keep - an alphabetically sorted list
of keywords for Geology School.
keywords.keep
|
| Note: |
Used by KEYWORDSLIST2INDEX and KEYWORDS2HTML
|
| Author |
Clint Steele 7/18/2003
|
| Opens |
open (unit = 90,
* form = 'formatted',
* access = 'sequential',
* status = 'old',
* name = '/infobank/programs/keep/learning.keep')
open (unit = 91,
* form = 'formatted',
* access = 'sequential',
* status = 'unknown',
* name = '/tmp/school_keyword_links.temp')
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (KeyLine, '(4096x)')
write (OutLine, '(4096x)')
write (91, '(a)')
* PlainWord(Loop)(1:PlainWordLength)//char(9)//
* ALine(1:Tabs(1)-1)//char(9)//
* 'http://walrus.wr.usgs.gov'//
* '/infobank/programs/html/school/moviepage/'//
* ALine(1:Tabs(1)-1)//'.html'//char(9)//
* ALine(Tabs(1)+1:Tabs(2)-1)//char(9)//
* ALine(Tabs(5)+1:Tabs(6)-1)//' / '//
* ALine(Tabs(6)+1:Tabs(7)-1)//char(9)//
* OutLine(1:OutLineLength)
write (91, '(a)')
* PlainWord(Loop)(1:PlainWordLength)//char(9)//
* ALine(1:Tabs(1)-1)//char(9)//
* ALine(Tabs(3)+1:Tabs(4)-1)//char(9)//
* ALine(Tabs(1)+1:Tabs(2)-1)//char(9)//
* ALine(Tabs(5)+1:Tabs(6)-1)//' / '//
* ALine(Tabs(6)+1:Tabs(7)-1)//char(9)//
* OutLine(1:OutLineLength)
|
| Calls |
call stringlen (KeyLine, KeyLineLength)
call stringlen (LinkWord(Loop), LinkWordLength)
call stringlen (LinkWord(Loop), LinkWordLength)
call stringlen (LinkWord(Loop), LinkWordLength)
call stringlen (PlainWord(Loop), PlainWordLength)
call stringlen (LinkWord(Loop), LinkWordLength)
call stringlen (KeyWord(Loop), KeyWordLength)
call stringlen (OutLine, OutLineLength)
call stringlen (PlainWord(Loop), PlainWordLength)
call system ('/bin/sort -f /tmp/school_keyword_links.temp > '//
* '/infobank/programs/keep/keywords.keep')
call system ('/bin/rm /tmp/school_keyword_links.temp')
|
|
