home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / GENFILE.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  1.3 KB  |  69 lines
  1. <<* GENFILE.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3. <<#
  4.  
  5. procedure pushmargin( indentlevel : integer )
  6. begin
  7.   <<*---Save old value on stack---*>>
  8.   push( lmargin )
  9.   <<*---indent space(3) at a time---*>>
  10.   set lmargin to lmargin + (indentlevel * 3)
  11. end pushmargin
  12.  
  13.  
  14. procedure popmargin
  15. integer margin
  16. begin
  17.   <<*---Retrieve old value from stack---*>>
  18.   pop( margin )
  19.   set lmargin to margin
  20. end popmargin
  21.  
  22.  
  23. procedure GenHeader( fspec,notes : string )
  24. begin
  25.   filespec( fspec,fpath,fname,fext )
  26.   genln( '* │╠╨≥├√..: ',fname,'.',fext )
  27.   genln( '* ╚╒  ╞┌..: ',DATE )
  28.   genln( '* ╫ó  ╩═..: ╙╔ SSBMIS ╧╡═│╔·│╔─┐▒Ω╧╡═│' )
  29.   gen(   '* ╗╖  ╛│..: ' )
  30.   genln( '╘┌║║╗» FoxBASE+, revision 2.10 ╘╦╨╨' )
  31.   genln( '*' )
  32. end GenHeader
  33.  
  34.  
  35. procedure GenFooter( fspec : string )
  36. begin
  37.   filespec( fspec,fpath,fname,fext )
  38.   if fext = 'PRG'
  39.     genln( 'RETURN' )
  40.   else
  41.     genln( '*' )
  42.   endif
  43.   genln( '* EOF: ',fname,'.',fext  )
  44. end GenFooter
  45.  
  46.  
  47. function OpenFile( fspec,notes : string ) : logical
  48. begin
  49.   if rewrite( fspec ) = 0
  50.     GenHeader( fspec,notes )
  51.     RETURN true
  52.   else
  53.     RETURN false
  54.   endif
  55. end OpenFile
  56.  
  57. function OpenAsciiFile( fspec,notes : string ) : logical
  58. begin
  59.   if rewrite( fspec ) = 0
  60.     RETURN true
  61.   else
  62.     RETURN false
  63.   endif
  64. end OpenFile
  65.  
  66.  
  67. <<* EOF: GENFILE.INC *>>
  68. #>>
  69.