home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / gnu / emacs / help / 3708 < prev    next >
Encoding:
Internet Message Format  |  1992-08-12  |  1.9 KB
  1. From: omoduser@hpbbi4.BBN.HP.COM (#Ralf Klein)
  2. Date: Wed, 12 Aug 1992 10:12:16 GMT
  3. Subject: pascal mode ?
  4. Message-ID: <13190007@hpbbi4.BBN.HP.COM>
  5. Organization: Hewlett-Packard GmbH
  6. Path: sparky!uunet!cis.ohio-state.edu!pacific.mps.ohio-state.edu!zaphod.mps.ohio-state.edu!sdd.hp.com!hpscdc!hplextra!hpcc05!hpbbn!hpbbi4!omoduser
  7. Newsgroups: gnu.emacs.help
  8. Lines: 68
  9.  
  10. Hallo,
  11.  
  12. Has anyone got a psacal mode that will support the following style of pascal ?
  13.  
  14.  
  15.  
  16.  
  17. PROCEDURE Open_Dds_File ( VAR prog_status : INTEGER;
  18.                           VAR in_fnum     : t_fnum_open_rec );
  19.  
  20. CONST
  21.    c_open_dds_file = 'Open_Dds_File';
  22.  
  23. VAR
  24.    open_create_parms : t_open_create_parms_rec;
  25.    i                 : INTEGER;
  26.    fred              : INTEGER;
  27.    john              : INTEGER;
  28.  
  29. BEGIN
  30.  
  31.    dds_file_opened := FALSE;
  32.  
  33.    FOR i := 1 TO 10 DO
  34.     BEGIN
  35.       fred := fred + 1;
  36.       john := john - 1;
  37.     END;
  38.  
  39.    IF (fred = john) THEN
  40.       john := fred
  41.    ELSE IF (john <> fred) THEN
  42.       john := john - fred;
  43.  
  44.    WITH open_create_parms DO
  45.     BEGIN
  46.       IF (prog_status = 0) THEN
  47.          open_create_parms := c_open_create_parms_init;
  48.  
  49.       Coe_Fopen ( prog_status,
  50.                   c_open_dds_file );
  51.  
  52.       IF (prog_status = 0) THEN
  53.        BEGIN
  54.          dds_file_opened := TRUE;
  55.          in_fnum         := open_create_parms.fnum;
  56.        END
  57.       ELSE
  58.        BEGIN
  59.          foptions          := c_foptions_std_ascii_old;
  60.          aoptions          := c_aoptions_read_excl;
  61.        END;
  62.  
  63.     END; {with}
  64.  
  65. END;   { open_dds_file... }
  66.  
  67.  
  68. Cheers
  69. Corny
  70. ________________________________________________________________
  71. ADDRESS:                   | PHONE  +49-7031-143729
  72. Hewlett Packard GmbH       | FAX    +49-7031-141554
  73. attn: Corny de Souza (ISO) | TELNET 778-3232
  74. Herrenbergerstr. 120       | HPDESK SOUZA_CORNY_DE/HP6000_75
  75. D-7030 Boeblingen          | MAIL   cdesouza@hpbbi8.bbn.hp.com
  76. Federal Republic Germany   |
  77.  
  78.