home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / GENFILE.INC < prev    next >
Encoding:
Text File  |  1988-06-03  |  1.4 KB  |  70 lines
  1. <<* GENFILE.INC *>>
  2. <<#
  3.  
  4. procedure pushmargin( indentlevel : integer )
  5. begin
  6.   <<*---Save old value on stack---*>>
  7.   push( lmargin )
  8.   <<*---indent space(3) at a time---*>>
  9.   set lmargin to lmargin + (indentlevel * 3)
  10. end pushmargin
  11.  
  12.  
  13. procedure popmargin
  14. integer margin
  15. begin
  16.   <<*---Retrieve old value from stack---*>>
  17.   pop( margin )
  18.   set lmargin to margin
  19. end popmargin
  20.  
  21.  
  22. procedure GenHeader( fspec,notes : string )
  23. begin
  24.   filespec( fspec,fpath,fname,fext )
  25.   genln( '* Program.: ',fname,'.',fext )
  26.   genln( '* Author..: ',Author )
  27.   genln( '* Date....: ',DATE )
  28.   genln( '* Notice..: Copyright (c) ',substr(systemdate,7,4),', ',Copyright )
  29.   gen(   '* Version.: ' )
  30.   genln( 'FoxBASE+, revision 2.10' )
  31.   genln( '* Notes...: ',notes )
  32.   genln( '*' )
  33. end GenHeader
  34.  
  35.  
  36. procedure GenFooter( fspec : string )
  37. begin
  38.   filespec( fspec,fpath,fname,fext )
  39.   if fext = 'PRG'
  40.     genln( 'RETURN' )
  41.   else
  42.     genln( '*' )
  43.   endif
  44.   genln( '* EOF: ',fname,'.',fext  )
  45. end GenFooter
  46.  
  47.  
  48. function OpenFile( fspec,notes : string ) : logical
  49. begin
  50.   if rewrite( fspec ) = 0
  51.     GenHeader( fspec,notes )
  52.     RETURN true
  53.   else
  54.     RETURN false
  55.   endif
  56. end OpenFile
  57.  
  58. function OpenAsciiFile( fspec,notes : string ) : logical
  59. begin
  60.   if rewrite( fspec ) = 0
  61.     RETURN true
  62.   else
  63.     RETURN false
  64.   endif
  65. end OpenFile
  66.  
  67.  
  68. <<* EOF: GENFILE.INC *>>
  69. #>>
  70.