home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / CODE_DOC.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  6.3 KB  |  225 lines
  1. //
  2. // Module Name: CODE_DOC.COD
  3. //
  4. Program Formatter and Procedure Table of Contents Builder
  5. ---------------------------------------------------------
  6. $Version: $
  7.  
  8. Notes:
  9.  
  10. - This template MUST only be used with the standalone DGEN.EXE (template
  11.   interpreter).  Syntax  C>dgen -t code_doc.gen
  12.  
  13. - This program makes a call to the DOS SORT.EXE program.  You should make
  14.   sure that your DOS PATH statement contains the directory where SORT.EXE
  15.   resides.
  16.  
  17. - For printer formatting codes, only Epson & HP Laserjet II are supported!
  18.   You could add your own printer codes to the "printer_setup()" udf at the
  19.   bottom of this template.
  20.  
  21. - The output of this template is a ".otl" file (for outline) with the same
  22.   root file name.  For example Form.cod -> Form.otl after run through this
  23.   template.
  24. {
  25.  include "builtin.def";  // Builtin Functions
  26.  
  27.  var cod_filename, temp, line_counter, crlf, laser, page, page_length,
  28.      sort_column, sort_string, start_print, end_print, set_printer, reset,
  29.      first_time, total_lines;
  30.  
  31.  crlf = chr(10)
  32.  line_counter = 0
  33.  page = 1
  34.  first_time = 1
  35.  cod_filename = askuser(" Enter program name to make Outline for (required) ",cod_filename,12)
  36.  laser = " "
  37.  do while at( upper(laser), "YN") == 0
  38.     laser = upper(askuser(" Is report to be sent to a HP Laser ? (Y/N)","Y",1))
  39.  enddo
  40.  
  41.  Printer_setup()
  42.  
  43.  // Determine column number for the DOS SORT program
  44.  sort_column = fileroot(upper(cod_filename)) == "PRG" ? "10" : "1";
  45.  page_length = 78
  46.  
  47.  if (!cod_filename or !Textopen(cod_filename)) then goto nogen;
  48.  
  49.  if !create(fileroot(cod_filename)+".tm1") then goto nogen; endif
  50.  
  51.  Process_table_of_contents()
  52.  
  53.  cls()
  54.  
  55.  Sort_table_of_contents()
  56.  Page_Header();
  57. }
  58.  
  59.  
  60. Table of Contents for Procedures of {cod_filename}
  61. -------------------------------------------------------------------------------
  62.  
  63. {
  64.  Print_table_of_contents();
  65. }
  66.  
  67. Source Follows:
  68. ---------------
  69.  
  70.  
  71. {
  72.  Print_cod_file()
  73.  nogen:
  74.  return 0;
  75. //---------------------------------------------------------------------------
  76. // UDF's follow
  77. //---------------------------------------------------------------------------
  78.  
  79. define process_table_of_contents()
  80.  cls()
  81.  say_center(13, "Procedure found:")
  82.  do
  83.     temp = textgetl();
  84.     while temp != eof
  85.         line_counter = line_counter + 1
  86.  
  87.         nmsg("Processing line: " + alltrim(str(line_counter)))
  88.  
  89.         if db_proc() or cod_proc() then
  90.  
  91.            say(15, 0, space(80))
  92.            say(16, 0, space(80))
  93.            say_center(15, temp)
  94.  
  95.            pmsg("Found procedure at line: " + alltrim(str(line_counter)))
  96.            if cod_proc() then
  97.                    temp = substr(temp,at("DEFINE ",temp)+8)
  98.                    print(alltrim(substr(temp,1,73)))
  99.            else
  100.                    print(alltrim(substr(temp,1,73)))
  101.            endif
  102.            tabto(75)
  103.            print(line_counter + crlf)
  104.         endif
  105.  enddo
  106.  total_lines = line_counter
  107. enddef
  108.  
  109. define sort_table_of_contents()
  110.  // Prepare to sort the Table of contents
  111.  create(fileroot(cod_filename)+".tm3")
  112.  sort_string = "SORT /+" + sort_column + " <" +
  113.                fileroot(cod_filename) + ".tm1 >" +
  114.                fileroot(cod_filename)+".tm2"
  115.  // Execute the DOS SORT program
  116.  exec(sort_string)
  117.  create(fileroot(cod_filename)+".otl")
  118.  print(reset + set_printer + crlf)
  119. enddef
  120.  
  121. define page_Header()
  122.    pageject()
  123.    first_time = 0
  124.    print(alltrim(date()))
  125.    tabto(35)
  126.    print(upper(cod_filename))
  127.    tabto(70)
  128.    print("Page: " + alltrim(str(page)) + crlf + crlf)
  129.    return
  130. enddef
  131.  
  132. define print_table_of_contents()
  133.   // Process sorted file so that it has page header information
  134.   textopen(fileroot(cod_filename)+".tm2")
  135.   line_counter = 0
  136.   pmsg("Processing Sorted Table of contents")
  137.   do
  138.       temp = textgetl();
  139.       while temp != eof
  140.           if curline() > page_length then
  141.              page += 1
  142.              Page_Header()
  143.           endif
  144.           line_counter = line_counter + 1
  145.           nmsg("Processing line: "+alltrim(str(line_counter)))
  146.           print(alltrim(temp) + crlf)
  147.   enddo
  148.   textclose()
  149.   exec("DEL " + fileroot(cod_filename) + ".tm? > nul")
  150.   // Start source listing on next page
  151.   page += 1
  152.   Page_Header()
  153. enddef
  154.  
  155. define print_cod_file()
  156.   Textopen(cod_filename)
  157.   nmsg(" ")
  158.   pmsg("Adding "+ cod_filename + " w/line numbers to the bottom of the outline")
  159.   line_counter = 0
  160.   do
  161.      temp = textgetl();
  162.      while temp != eof
  163.          if curline() > page_length then
  164.             page += 1
  165.             Page_Header()
  166.          endif
  167.          line_counter = line_counter +1
  168.          print(line_counter)
  169.          tabto(5)
  170.  
  171.          if db_proc() or cod_proc() then
  172.              print(" "+substr(temp,1,at(" ",temp)))
  173.              print(start_print +
  174.                    rtrim(substr(temp,at(" ",temp)+1)) + end_print + crlf)
  175.          else
  176.              print(" "+rtrim(temp)+crlf)
  177.          endif
  178.   enddo
  179.   textclose()
  180.   print(reset + pageject())
  181. enddef
  182.  
  183. define cod_proc()
  184.    if ( ( at("DEFINE ",upper(temp)) >= 1 and at("DEFINE ",upper(temp)) <= 6)
  185.               and (at("*", upper(temp)) != 1 or at("NOTE ", upper(temp)) != 1)
  186.               and at("BOX ", upper(temp)) == 0
  187.               and at("WINDOW ", upper(temp)) == 0
  188.               and at("POPUP ", upper(temp)) == 0
  189.               and at("BAR ", upper(temp)) == 0
  190.               and at("PAD ", upper(temp)) == 0
  191.               and at("MENU ", upper(temp)) == 0
  192.               and fileroot(upper(cod_filename)) != "PRG"
  193.       ) then
  194.              return 1
  195.      else
  196.              return 0
  197.      endif
  198. enddef
  199.  
  200. define db_proc()
  201.    if at("PROCEDURE ", upper(temp)) == 1 or at("FUNCTION ", upper(temp)) == 1 then
  202.          return 1
  203.      else
  204.          return 0
  205.      endif
  206. enddef
  207.  
  208. define printer_setup()
  209.   if laser == "Y" then
  210.      // HP Laser Jet II
  211.      reset = "E" // Reset
  212.      set_printer = "&k2G&a5L&k4S&l8D" //  Line Term, 5 char left margin, 8 lpi, and 12 CPI
  213.      start_print = "&k0S"+"(s3B" // Bold 10cpi
  214.      end_print   = "&k4S"+"(s0B" // Line print  12cpi
  215.  else
  216.      // Epson
  217.      reset = "@" // Reset
  218.      set_printer = "lM" // 5 char left margin, 8lpi, Elite
  219.      start_print = "W1E"   // Expanded, Bold
  220.      end_print   = "W0FM" // Off Expanded, Off Bold, 12cpi
  221.  endif
  222. enddef
  223. }
  224.  
  225.