home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / GENFLE.INC < prev    next >
Encoding:
Text File  |  1989-07-22  |  948 b   |  44 lines
  1. <<* Genfle.inc *>>
  2. <<#
  3.  
  4. procedure pushmarg( indentlevel : integer)
  5. begin
  6.      <<*---Save old value on stack---*>>
  7.      push( lmargin )
  8.      <<*---ident tab at a time---*>>
  9.      set lmargin to lmargin + indentlevel
  10. end pushmarg
  11.  
  12. procedure popmarg
  13. Integer margin
  14. begin
  15.      <<*---Retrieve old value from stack---*>>
  16.      pop( margin )
  17.      set lmargin to margin
  18. end popmarg
  19.  
  20. procedure GenHeader( fspec,notes : string )
  21. begin
  22.      filespec( fspec,fpath,fname,fext )
  23.      genln( '* Program: ',fname,'.',fext )
  24.      genln( '* Date...: ',DATE )
  25.      gen(  '* Version.: ')
  26.      genln( 'Foxpro, revision 1.0')
  27.      genln('* Notes...: ',notes )
  28.      genln( '*' )
  29. end GenHeader
  30.  
  31. Function Openfile( fspec,notes : string ) : logical
  32. begin
  33.      if rewrite( fspec ) = 0
  34.           genHeader( fspec,notes )
  35.           RETURN true
  36.      else
  37.           RETURN false
  38.      endif
  39. end OpenFile
  40.  
  41. <<* EOD: Genfle.inc *>>
  42. #>>
  43.     
  44.