home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / prog_demos / turbotext / support / ttx_ada.dfn next >
Text File  |  1991-01-24  |  2KB  |  130 lines
  1.  
  2. /** $VER: TTX_Ada.dfn Demo 1.0 (29.11.90)
  3.  **
  4.  ** This definition file contains definitions necessary to use TurboText as an
  5.  ** Ada programmer's editor.
  6.  **
  7.  ** Written by Marc Criley
  8.  **/
  9.  
  10.  
  11. DICTIONARY:
  12.  
  13.   abort
  14.   abs
  15.   accept
  16.   access
  17.   all
  18.   and
  19.   array
  20.   at
  21.   begin
  22.   body
  23.   case
  24.   constant
  25.   declare
  26.   delay
  27.   delta
  28.   digits
  29.   do
  30.   else
  31.   elsif
  32.   end
  33.   entry
  34.   exception
  35.   exit
  36.   for
  37.   function
  38.   generic
  39.   goto
  40.   if
  41.   in
  42.   is
  43.   limited
  44.   loop
  45.   mod
  46.   new
  47.   not
  48.   null
  49.   of
  50.   or
  51.   others
  52.   out
  53.   package
  54.   pragma
  55.   private
  56.   procedure
  57.   raise
  58.   range
  59.   record
  60.   rem
  61.   renames
  62.   return
  63.   reverse
  64.   select
  65.   separate
  66.   subtype
  67.   task
  68.   terminate
  69.   then
  70.   type
  71.   use
  72.   when
  73.   while
  74.   with
  75.   xor
  76. #
  77.  
  78.  
  79. TEMPLATES:
  80.  
  81.   "abort @;*n"
  82.   "abs (@)"
  83.   "accept @ () do*nend ;*n"
  84.   "access"
  85.   "array (@) of"
  86.   "begin*n"
  87.   "body is"
  88.   "case @ is*nend case;*n"
  89.   "constant"
  90.   "declare*n"
  91.   "delay @;*n"
  92.   "delta @"
  93.   "digits @"
  94.   "else*n"
  95.   "elsif @ then*n"
  96.   "end ;*n"
  97.   "entry @ ();*n"
  98.   "exception"
  99.   "exit"
  100.   "for @ in  loop*nend loop;*n"
  101.   "function @ () return "
  102.   "generic*n"
  103.   "goto @*n"
  104.   "if @ then*nend if;*n"
  105.   "limited private;*n"
  106.   "loop*n  @*nend loop;*n"
  107.   "others => @"
  108.   "package @ is*n"
  109.   "pragma @;*n"
  110.   "private"
  111.   "procedure @ () "
  112.   "raise @;*n"
  113.   "range @ .. "
  114.   "record*n  @*nend record;*n"
  115.   "renames @;"
  116.   "return"
  117.   "reverse"
  118.   "select*n  @*nend select;*n"
  119.   "separate"
  120.   "subtype @ is ;*n"
  121.   "task @"
  122.   "terminate;*n"
  123.   "then*n"
  124.   "type @ is ;*n"
  125.   "use"
  126.   "when @ =>"
  127.   "while @ loop*nend loop;*n"
  128.   "with @"
  129. #
  130.