home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / database / informix / 2473 / vgrinddefs_4gl
Encoding:
Text File  |  1992-11-19  |  1.9 KB  |  61 lines
  1. # A vgrindef file for INFORMIX products
  2. # see vgrind(1) vgrindefs(5)
  3. #
  4. # id = @(#)vgrindef_4gl    1.1 8/24/88
  5. #
  6. # Copyright (c) 1988 Brian Colfer
  7. # San Francisco, California
  8. #
  9. # Copyright (c) 1988 Regents of the University of California.
  10. # All rights reserved. 
  11. #
  12.  
  13. informix|4gl|4GL|4:\
  14.         :pb=^\d?((function|report)\d\p\d?\(\a?\)):\
  15.         :bb=\d?(menu|function|report|main|foreach|globals|while|if|for)\d:\
  16.         :be=\d?(end)\d\*:\
  17.         :cb=#:ce=$:\
  18.         :ab={:ae=}:\
  19.         :lb=':le=':\
  20.         :sb=":se=":\
  21.         :oc:\
  22.         :kw=define at let call for foreach while continue\
  23.         help file exit else if then case sleep run menu message\
  24.         prompt open window current close display form\
  25.         construct array input scroll start output to finish\
  26.         function main command whenever defer \
  27.         interrupt quit acsii clipped column spaces today using\
  28.         screen money serial database row column\
  29.         smallint integer money char date decimal float\
  30.         where cursor declare from true int_flag quit_flag status\
  31.         notfound false set_count scr_line view \
  32.         before after on key next field print into error \
  33.         null update delete insert select\
  34.         group by order between matches exists not\
  35.         next first last previous prior relative absolute fetch execute\
  36.         arr_count arr_curr prepare thru flush lock recover\
  37.         attribute set or and values return record\
  38.         end
  39.  
  40. perform |per|p4gl:\
  41.         :pb=^\d?a?form:\d?\p\d?\a?:\
  42.         :bb=\d?(screen|attributes|instructions|tables|{)\d:\
  43.         :be=\d?(end|})\d\*:\
  44.         :cb=#:ce=$:\
  45.         :ab={*:ae=*}:\
  46.         :lb=':le=':\
  47.         :sb=":se=":\
  48.         :oc:\
  49.         :kw=screen database tables attributes instructions  \
  50.         autonext downshift comments format default include \
  51.         lookup joining noentry reverse noupdate right picture \
  52.         upshift verify queryclear verify required zerofill \
  53.         master of composites delimiters before after editadd \
  54.         editupdate record formonly displayonly allowing input type \
  55.         bell reverse let nextfield char date smallint integer money \
  56.         decimal ( ) \
  57.         end 
  58.  
  59.  
  60.  
  61.