mirror of
https://github.com/vim/vim
synced 2025-05-02 22:37:47 +02:00
68a8947069
Problem: Modula2 filetype support lacking
Solution: Improve the Modula-2 runtime support, add additional modula2
dialects, add compiler plugin, update syntax highlighting,
include syntax tests, update Makefiles (Doug Kearns)
closes: #6796
closes: #8115
Signed-off-by: Doug Kearns <dougkearns@gmail.com>
Signed-off-by: Benjamin Kowarsch <trijezdci@users.noreply.github.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
146 lines
2.9 KiB
Modula-2
146 lines
2.9 KiB
Modula-2
(* Modula-2 R10 Test File for Vim Syntax Colouring *)
|
|
|
|
(* --------------------------------------------------
|
|
* THIS FILE IS LICENSED UNDER THE VIM LICENSE
|
|
* see https://github.com/vim/vim/blob/master/LICENSE
|
|
* -------------------------------------------------- *)
|
|
|
|
DEFINITION MODULE Foobar; (*!m2r10*)
|
|
|
|
IMPORT UNSAFE ALIAS BYTE, WORD, ADDRESS;
|
|
|
|
CONST MaxFoo = 1.0;
|
|
|
|
TYPE Foo = ALIAS OF Bar;
|
|
|
|
(* predefined constants *)
|
|
NIL FALSE TRUE
|
|
|
|
(* predefined types *)
|
|
BOOLEAN CHAR UNICHAR OCTET CARDINAL LONGCARD INTEGER LONGINT REAL LONGREAL
|
|
|
|
(* predefined procedures *)
|
|
APPEND INSERT REMOVE SORT SORTNEW
|
|
|
|
(* predefined functions *)
|
|
CHR ORD ODD ABS SGN MIN MAX LOG2 POW2 ENTIER PRED SUCC PTR CAPACITY COUNT LENGTH
|
|
|
|
(* predefined macros *)
|
|
NOP TMIN TMAX TSIZE TLIMIT
|
|
|
|
(* unsafe builtins *)
|
|
UNSAFE
|
|
|
|
(* unsafe builtin types *)
|
|
BYTE WORD LONGWORD ADDRESS OCTETSEQ
|
|
|
|
(* unsafe builtin procedures *)
|
|
ADD SUB DEC INC SETBIT HALT
|
|
|
|
(* unsafe builtin functions *)
|
|
ADR CAST BIT SHL SHR BWNOT BWAND BWOR
|
|
|
|
(* non-portable language extensions *)
|
|
ASSEMBLER ASM REG
|
|
|
|
(* user defined identifiers *)
|
|
foobar Foobar FooBar foo_bar foo0
|
|
|
|
|
|
(* string literals *)
|
|
str := "foo 'bar' baz";
|
|
str := 'foo "bar" baz';
|
|
|
|
(* numeric literals *)
|
|
0b0110'0011'0110'0000, 0u0A, 0x0123, 0xCAFE'D00D
|
|
1'000'000.00, 1.23, 1.23e+10, 1.234'567'890e-1'000
|
|
|
|
|
|
(* language defined pragmas *)
|
|
<*MSG=INFO:"foobar"*> <*ENCODING="UTF8"*> <*INLINE*> <*NOINLINE*> <*FFI="C"*>
|
|
|
|
(* implementation defined pragmas *)
|
|
<*GM2.Foobar|W=Bazbam*>
|
|
|
|
|
|
(* single line comment *)
|
|
! foo bar baz bam boo
|
|
|
|
(* block comments with emphasis *)
|
|
(* copyright (c) 2016 Modula-2 Foundation.
|
|
authors B.Kowarsch and R.Sutcliffe
|
|
license see LICENSE *)
|
|
|
|
(* pre-conditions: foo bar baz bam boo doodle wah.
|
|
post-conditions: foodle babble bozo bim bam dang.
|
|
error-conditions: dada jingle jungle boggle dee boo. *)
|
|
|
|
(* (* *) *)
|
|
|
|
(* bindings *)
|
|
PROCEDURE [+] sum ( a, b : BCD ) : BCD;
|
|
|
|
PROCEDURE [MOD] modulus ( n, m : INT64 ) : INT64;
|
|
|
|
PROCEDURE [RETAIN] Retain ( foo : Foo );
|
|
|
|
PROCEDURE [LENGTH] length ( str : String ) : LONGCARD;
|
|
|
|
|
|
(* procedures *)
|
|
PROCEDURE NewFooWithBar ( VAR foo: Foo; bar : INTEGER );
|
|
BEGIN
|
|
NEW(foo);
|
|
foo^.bar := bar;
|
|
RETURN
|
|
END NewFooWithBar;
|
|
|
|
END END;
|
|
|
|
(* functions *)
|
|
PROCEDURE bar ( foo : Foo ) : INTEGER;
|
|
BEGIN
|
|
IF foo = NIL THEN
|
|
UNSAFE.HALT
|
|
ELSE
|
|
RETURN foo^.bar
|
|
END (* IF *)
|
|
END bar;
|
|
|
|
|
|
(* technical debt *)
|
|
TO DO ( 1234, Weight.Major ) (* foo *)
|
|
"redesign foo", 2d;
|
|
"replace foo", 2d;
|
|
"test new foo", 1d
|
|
END (* TO DO *);
|
|
|
|
PROCEDURE SetBaba <*DEPRECATED*> ( n : CARDINAL );
|
|
|
|
|
|
(* disabled code *)
|
|
?<
|
|
WHILE foo = bar DO
|
|
baz(bam, boo)
|
|
END (* WHILE *);
|
|
>?
|
|
|
|
|
|
(* illegal characters *)
|
|
` ~ $ % ? _
|
|
|
|
(* illegal identifiers *)
|
|
|
|
_bar _bar_baz _bar_baz__bam _bar_baz__bam_boo
|
|
|
|
bar_ bar_baz_ bar_baz__bam_ bar_baz__bam_boo_
|
|
|
|
__bar __bar_baz __bar_baz__bam __bar_baz__bam_boo
|
|
|
|
bar__ bar_baz__ bar_baz__bam__ bar_baz__bam_boo__
|
|
|
|
bar__baz __bar_baz__ __bar__baz__ __
|
|
|
|
|
|
(* module end *)
|
|
END Foobar.
|