home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / GENVARS.INC < prev    next >
Encoding:
Text File  |  1988-02-11  |  1.0 KB  |  48 lines
  1. <<* GENVARS.INC *>>
  2. <<#
  3.  
  4. function fixfldnam : string
  5. begin
  6.   if AutoMem and (fldals <> 'M')
  7.     RETURN fldprefix + left( fldnam,10-len(fldprefix) )
  8.   else
  9.     RETURN fldnam
  10.   endif
  11. end <<*fixfldnam*>>
  12.  
  13.  
  14. procedure GenFldList( cmdword : string )
  15. integer linecount,linemax,fldtally,memtotal
  16. logical isnewln
  17. begin
  18.   linemax := 3
  19.   memtotal := fldtotal
  20.   genln( cmdword )   <<*Start newline and indent=3*>>
  21.   gen( space(3) )
  22.   fldtally := 0
  23.   linecount := 0
  24.   forall fields
  25.     fldtally := fldtally + 1
  26.     isnewln := (fldtally mod 5 = 0) and (fldtally <> memtotal)
  27.     gen( fixfldnam )
  28.     if not ( (fldtally = memtotal) or (isnewln and (linecount = linemax)) )
  29.       gen( ',' )
  30.     endif
  31.     if isnewln
  32.       linecount := linecount + 1
  33.       if linecount = linemax + 1
  34.         linecount := 0
  35.         genln
  36.         genln( cmdword )
  37.       else
  38.         genln( ';' )
  39.       endif
  40.       gen( space(3) )   <<*indent=3*>>
  41.     endif
  42.   endfor
  43.   genln  <<*CR/LF*>>
  44. end <<*GenFldList*>>
  45.  
  46. <<* EOF: GENVARS.INC *>>
  47. #>>
  48.