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