view test/indent/modula2.mod @ 112453:06719a229a46 default tip

* calc/calc.el (calc-default-power-reference-level) (calc-default-field-reference-level): New variables. * calc/calc-units.el (math-standard-units): Add dB and Np. (math-logunits): New variable. (math-extract-logunits, math-logcombine, calcFunc-luplus) (calcFunc-luminus, calc-luplus, calc-luminus, math-logunit-level) (calcFunc-fieldlevel, calcFunc-powerlevel, calc-level): New functions. (math-find-base-units-rec): Add entry for ln(10). * calc/calc-help.el (calc-u-prefix-help): Add logarithmic help. (calc-ul-prefix-help): New function. * calc/calc-ext.el (calc-init-extensions): Autoload new units functions. Add keybindings for new units functions.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sun, 23 Jan 2011 23:08:04 -0600
parents d9d916379aff
children
line wrap: on
line source

(* -*- mode: modula-2; m2-indent:3 -*- *)

IMPLEMENTATION MODULE Indent ;

(* This is (* a nested comment *) *)
// This is a single-line comment.

FROM SYSTEM IMPORT ADR, TSIZE, SIZE, WORD ;

CONST
   c1 = 2;

TYPE
   t = POINTER TO ARRAY [0..10] OF LONGINT;

VAR x: t;
    y:LONGINT;


PROCEDURE f1 (f: File) : INTEGER ;
   VAR
      fd: FileDescriptor ;
   PROCEDURE foo (a:CARDINAL) : INTEGER;
   BEGIN
   END foo;
BEGIN
   IF f#Error
   THEN
      fd := GetIndice(FileInfo, f) ;
      IF fd#NIL THEN
         RETURN( fd^.unixfd )
      ELSE
         CASE z OF
            1: do1();
          | 2: do2();
               toto(x);
          | 3: ;
          | 4: do4();
         ELSE do5();
         END ; (* CASE selection *)

      END
   END ;
   FormatError1('file %d has not been opened or is out of range\n', f) ;
   RETURN( -1 )
END f1 ;


BEGIN
   init
FINALLY
   done
END Indent.