Mercurial > emacs
view test/indent/modula2.mod @ 112388:e5e8faa33346
(allout-institute-keymap): Use fset instead of reapplying defalias.
(allout-hotspot-key-handler): Check for non-control-modified bindings for
hotspot characters if there is no control-modified versions.
author | Ken Manheimer <ken.manheimer@gmail.com> |
---|---|
date | Thu, 20 Jan 2011 16:57:15 -0500 |
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.