home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSAD.GEN < prev    next >
Encoding:
Text File  |  1988-06-03  |  2.3 KB  |  96 lines
  1. <<#pragma
  2.  
  3. <<*---Declare global variables---*>>
  4. string  fpath,fname,fext
  5. string  prgpath,prgname,fileprefix,datafile,pathfileprefix
  6. logical Fox
  7. logical ismultipage,ismultials,ismultindx
  8. integer menutype
  9.  
  10. #>>
  11. <<*---General modules---*>>
  12. <<#include 'GENFILE.INC'#>>
  13. <<#include 'GENCOLOR.INC'#>>
  14. <<#include 'SHADE.INC'#>>
  15. <<*---Application---*>>
  16. <<#include 'msaHELP.INC'#>>
  17. <<#include 'msaLABE.INC'#>>
  18. <<#include 'msaPACK.INC'#>>
  19. <<#include 'msaREPO.INC'#>>
  20. <<#include 'msaREAD.INC'#>>
  21. <<#pragma
  22.  
  23.  
  24. procedure GenPrograms
  25. string fspec,filename
  26. begin
  27.   filename := datafile + '.DBF'
  28.   fspec := 'README.TXT'
  29.   if OpenAsciiFile( fspec,'README file for ' + filename )
  30.     GenReadBody
  31.   end
  32.   fspec := pathfileprefix + '_HELP.PRG'
  33.   if OpenFile( fspec,'HELP program for ' + filename )
  34.     GenHelpBody
  35.     GenFooter( fspec )
  36.   end
  37.   fspec := pathfileprefix + '_LABE.PRG'
  38.   if OpenFile( fspec,'LABEL program for ' + filename )
  39.     GenLabelBody
  40.     GenFooter( fspec )
  41.   end
  42.   fspec := pathfileprefix + '_PACK.PRG'
  43.   if OpenFile( fspec,'PACK driver program for ' + filename )
  44.     GenPackItBody
  45.     GenFooter( fspec )
  46.   end
  47.   fspec := pathfileprefix + '_APAC.PRG'
  48.   if OpenFile( fspec,'PACK program for ' + filename )
  49.     GenPackBody
  50.     GenFooter( fspec )
  51.   end
  52.   fspec := pathfileprefix + '_REPO.PRG'
  53.   if OpenFile( fspec,'REPORT program for ' + filename )
  54.     GenReportBody
  55.     GenFooter( fspec )
  56.   end
  57. end <<*GenPrograms*>>
  58.  
  59.  
  60. procedure InitVariables
  61. begin
  62.   <<*---Init Product logical vars---*>>
  63.   Fox     := (ProductCode = 1)
  64.   select all
  65.   ismultipage := (pagtotal > 1)
  66.   ismultials := (dbftotal > 1)
  67.   ismultindx := false
  68.   forall databases
  69.     if ndxtotal > 1
  70.       ismultindx := true
  71.     endif
  72.   endfor
  73.   pathfileprefix := prgpath + fileprefix
  74. end <<*InitVariables*>>
  75.  
  76.  
  77. procedure InitFromStack
  78. begin
  79.   <<*---Restore stack variables in REVERSE order---*>>
  80.   pop( prgpath )       <<*Pathname of main program to generate*>>
  81.   pop( prgname )       <<*Filename of main program to generate*>>
  82.   pop( fileprefix )    <<*Three letter file prefix*>>
  83.   pop( datafile )      <<*filename of PRIMARY database file*>>
  84.   pop( menutype )      <<*Menu/Submenu prompt type*>>
  85. end <<*InitFromStack*>>
  86.  
  87.  
  88. begin <<*MAIN*>>
  89.   InitFromStack
  90.   InitVariables
  91.   GenPrograms
  92. end <<*MAIN*>>
  93.  
  94. <<*EOF: MSAD.GEN*>>
  95. #>>
  96.