Mercurial > emacs
view test/indent/modula2.mod @ 112318:deae5bb3f0f6
Give a name FLOAT_TO_STRING_BUFSIZE to the constant 350.
* lisp.h (FLOAT_TO_STRING_BUFSIZE): New macro.
* data.c (Fnumber_to_string): Use it.
* print.c (float_to_string, print_object): Likewise.
author | Paul Eggert <eggert@cs.ucla.edu> |
---|---|
date | Sun, 09 Jan 2011 00:21:21 -0800 |
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.