Mercurial > emacs
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.