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