USGS InfoBank program -- dictionary2html

dictionary2html

  Program to convert FileMaker Pro tab delimited output

  to a set of .html's
  and to create the /keep/dictionary_styles.keep file.
       

  Clint Steele    4/6/2000


    

      read (90, '(q,a)', end = 99) Length, ALine
          read (90, '(q,a)', end = 99) Length, ALine(1:Length)
          read (ALine(1:Tab(2)-1), '(i)') IDValue
          read (ALine(Tab(20)+1:Tab(21)-1), '(i)') RulerLength 

      write (92, '(a,/,a,/,a,//,a,/,a,/,a,/,a,/,a,//,a,/,a,/)')
     *    '<center
     *     '<a href="/infobank/programs/html/
     *     'audience/metadatadictionary_audience.html">
     *     'Intended Audience</a
     *     '</center
     *     '<br /
     *     '<div class="quote"&
     *     '"We are getting into semantics again. '//
     *     'If we use words, there is a very grave danger '//
     *     'they will be misinterpreted." -- '//
     *     'H. R. Haldeman',
     *     '</div
     *     '<br /
     *     '</table
     *     '<table class="border" rules="all" width="600
          write (OutName, '(255x)')
              write (OutName, 7) ALine(Tab(2)+IndexPoint:Tab(3)-1)
              write (96, '(a)') ALine(Tab(2)+IndexPoint:Tab(3)-1)
              write (OutName, 77) ALine(Tab(2)+1:Tab(3)-1)
              write (96, '(a)') ALine(Tab(2)+1:Tab(3)-1)
                  write (92, '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a,/)')
     *           '  <tr
     *           '    <td class="light"
     *           '      <a href="http://walrus.wr.usgs.gov/
     *           'infobank/programs'//
     *           '/html/dictionary2html/format_'//
     *           ALine(Tab(2)+2:Tab(3)-1)//'.html">
     *           ALine(Tab(2)+2:Tab(3)-1)//'</a
     *           '    </td
     *           '    <td class="dark"
     *           '      '//ALine(Tab(10)+1:Tab(11)-1),
     *           '    </td
     *           '  </t
                  write (92, '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a,/)')
     *           '  <tr
     *           '    <td class="light"
     *           '      <a href="http://walrus.wr.usgs.gov/
     *           'infobank/programs'//
     *           '/html/dictionary2html/format_'//
     *           ALine(Tab(2)+1:Tab(3)-1)//'.html">
     *           ALine(Tab(2)+1:Tab(3)-1)//'</a
     *           '    </td
     *           '    <td class="dark"
     *           '      '//ALine(Tab(10)+1:Tab(11)-1),
     *           '    </td
     *           '  </t
          write (91, '(a)') '<br /><
     *      '<table class="border" rules="all" width="600
          write (91, 425) 'File Name', Aline(Tab(11)+1:Tab(12)-1)
          write (96, '(a)') Aline(Tab(11)+1:Tab(12)-1)
          write (93, '(a,a)') '! ', Aline(Tab(9)+1:Tab(10)-1)
          write (91, 48) 'Style', Aline(Tab(9)+1:Tab(10)-1)
          write (96, '(a)') Aline(Tab(9)+1:Tab(10)-1)
          write (96, '(1x)')
          write (93, '(a,a,a,a)') '! ', Aline(Tab(3)+1:Tab(4)-1),' ',
     *                                  ALine(Tab(4)+1:Tab(5)-1)
          write (91, 43) 'Mnemonic', Aline(Tab(3)+1:Tab(4)-1), 
     *                    ALine(Tab(4)+1:Tab(5)-1)
          write (93, '(a,a,a,a)') '! ', Aline(Tab(5)+1:Tab(6)-1),' ',
     *                                  ALine(Tab(6)+1:Tab(7)-1)
          write (91, 44) 'Fortran format', Aline(Tab(5)+1:Tab(6)-1),
     *                                     ALine(Tab(6)+1:Tab(7)-1)
              write (93, '(a,a)') '! ', Aline(Tab(15)+1:Tab(16)-1)
              write (91, 433) 'Purpose',Aline(Tab(15)+1:Tab(16)-1)
              write (93, '(a,a)') '! ', Aline(Tab(16)+1:Tab(17)-1)
              write (91, 434) 'Derivative',Aline(Tab(16)+1:Tab(17)-1)
              write (93, '(a,a)') '! ', Aline(Tab(17)+1:Tab(18)-1)
              write (91, 435) 'Comment',Aline(Tab(17)+1:Tab(18)-1)
          write (93, '(a)') '! '
          write (91, '(a,/,a)') '</table>','<P><strong>
         write (91, '(a,/,a,/,a)') '<table class="border" rules="all"
     *                              '  <tr
     *                              '    <td class="dark"&
     *                              '<pr
          write (93, '(a,a)') '! ',Tens(3:RulerLength)
          write (91, '(a)') Tens(1:RulerLength)
          write (93, '(a,a)') '! ',Ones(3:RulerLength)
          write (91, '(a)') Ones(1:RulerLength)
          write (91, '(a)') '    </pre>&
     *                      '</t
          write (91, '(a,/,a,/,a)') 
     *            '  <tr
     *            '    <td class="light"
     *            '      <pr
              write (91, '(a)') Aline(Line(Loop)+1:Line(Loop+1)-1)
          write (91, '(a,/a,/,a,/,a)')
     *            '      </pre
     *            '    </td
     *            '  </tr
     *            '</table
     *            '<
      write (92, '(a)') '</tabl

      open (unit = 90,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown',
     *      name = '/infobank/programs/keep/dictionary.keep')
      open (unit = 96,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown',
     *      name = '/infobank/programs/keep/dictionary_styles.keep')
      open (unit = 92,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown',
     *      name = '/infobank/programs/html/definition/'//
     *             'metadatadictionary.txt')
          open (unit = 91,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = OutName(1:OutNameLength))
          open (unit = 93,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = OutName(1:OutNameLength-4)//'txt')

      call includeit (92, 
     *  '/infobank/programs/html/tools/definitions.tabs')
      call includeit (92, 
     *  '/infobank/programs/html/tools/definitions.dictionaries.tabs')
      call includeit (92, 
     *  '/infobank/programs/html/tools/definitions.infobankterms.tabs')
      call includeit (92, 
     *  '/infobank/programs/html/tools/definitions.datatypes.tabs')
      call includeit (92, 
     *  '/infobank/programs/html/tools/definitions.dataformats.tabs')
      call includeit (92,
     *  '/infobank/programs/keep/contents.keep')
          call stringlen (OutName, OutNameLength)
          call htmlhead (91, 'CMG InfoBank format for '//
     *           ALine(Tab(10)+1:Tab(11)-1))
      call includeit (91,
     *  '/infobank/programs/html/tools/definitions.tabs')
      call includeit (91,
     *  '/infobank/programs/html/tools/definitions.dictionaries.tabs')
      call includeit (91,
     *  '/infobank/programs/html/tools/definitions.infobankterms.tabs')
      call includeit (91,
     *  '/infobank/programs/html/tools/definitions.datatypes.tabs')
      call includeit (91,
     *  '/infobank/programs/html/tools/definitions.dataformats.tabs')
      call includeit (91,
     *  '/infobank/programs/keep/contents.keep')
          call stringlen (ALine(Tab(15)+1:Tab(16)-1), InfoLength)
          call stringlen (ALine(Tab(16)+1:Tab(17)-1), InfoLength)
          call stringlen (ALine(Tab(17)+1:Tab(18)-1), InfoLength)
          call htmlfoot (91, OutName(1:OutNameLength))