added reference to VIM license

Vim/filetype-def.vim

@@ -1,5 +1,5 @@
 " Vim disambiguation function for .def files
-" Author: B.Kowarsch <trijezdci@ofni.2-aludom>
+" Author: B.Kowarsch <trijezdci@moc.liamg>
 " Last change: 2016 Aug 12
 
 " Installation:
@@ -10,6 +10,11 @@
 "| au BufNewFile,BufRead *.def    setf def
 " and replace these two lines with the code below:
 
+" ----------------------------------------------------
+" THE FOLLOWING CODE IS LICENSED UNDER THE VIM LICENSE
+" see https://github.com/vim/vim/blob/master/LICENSE
+" ----------------------------------------------------
+
 " Microsoft Module Definition or Modula-2
 au BufNewFile,BufRead *.def call s:FTdef()
 
@@ -53,4 +58,4 @@ func! s:FTdef()
   endwhile
   " no dialect tag and no module header found, default to MSFT
   setf def
-endfunc
+endfunc

Vim/filetype-mod.vim

@@ -1,5 +1,5 @@
 " Vim disambiguation function for .mod files
-" Author: B.Kowarsch <trijezdci@ofni.2-aludom>
+" Author: B.Kowarsch <trijezdci@com.liamg>
 " Last change: 2016 Aug 12
 
 " Installation:
@@ -15,6 +15,11 @@
 "|   \ endif
 " and replace it with the code below:
 
+" ----------------------------------------------------
+" THE FOLLOWING CODE IS LICENSED UNDER THE VIM LICENSE
+" see https://github.com/vim/vim/blob/master/LICENSE
+" ----------------------------------------------------
+
 " *.mod : LambdaProlog, Modsim III or Modula-2
 au BufNewFile,BufRead *.mod call s:FTmod()
 
@@ -64,8 +69,13 @@ endfunc
 "| Modula 2 ...
 " and replace the section with the code below:
 
+" ----------------------------------------------------
+" THE FOLLOWING CODE IS LICENSED UNDER THE VIM LICENSE
+" see https://github.com/vim/vim/blob/master/LICENSE
+" ----------------------------------------------------
+
 " Classic Modula-2 (.DEF, .MOD)
 au BufNewFile,BufRead *.DEF,*.MOD       	setf m2pim
 " Suffix .def is ambiguous and resolved by function FTdef().
 " Suffix .mod is ambiguous and resolved by function FTmod().
-" Suffixes .m2, .md and .mi are non-standard and have been removed.
+" Suffixes .m2, .md and .mi are non-standard and have been removed.

Vim/m2iso.vim

@@ -3,6 +3,11 @@
 " Maintainer:  B.Kowarsch <[email protected]>
 " Last Change: 2016 August 22
 
+" ----------------------------------------------------
+" THIS FILE IS LICENSED UNDER THE VIM LICENSE
+" see https://github.com/vim/vim/blob/master/LICENSE
+" ----------------------------------------------------
+
 " Remarks:
 " Vim Syntax files are available for the following Modula-2 dialects:
 " * for the PIM dialect : m2pim.vim

Vim/m2pim.vim

@@ -3,6 +3,11 @@
 " Maintainer:  B.Kowarsch <[email protected]>
 " Last Change: 2016 August 22
 
+" ----------------------------------------------------
+" THIS FILE IS LICENSED UNDER THE VIM LICENSE
+" see https://github.com/vim/vim/blob/master/LICENSE
+" ----------------------------------------------------
+
 " Remarks:
 " Vim Syntax files are available for the following Modula-2 dialects:
 " * for the PIM dialect : m2pim.vim (this file)

Vim/m2r10.vim

@@ -3,6 +3,11 @@
 " Maintainer:  B.Kowarsch <[email protected]>
 " Last Change: 2020 June 18 (moved repository from bb to github)
 
+" ----------------------------------------------------
+" THIS FILE IS LICENSED UNDER THE VIM LICENSE
+" see https://github.com/vim/vim/blob/master/LICENSE
+" ----------------------------------------------------
+
 " Remarks:
 " Vim Syntax files are available for the following Modula-2 dialects:
 " * for the PIM dialect : m2pim.vim
@@ -57,15 +62,15 @@ syn case match
 " Note: MODULE, PROCEDURE and END are defined separately further below
 syn keyword m2Resword ALIAS AND ARGLIST ARRAY BEGIN CASE CONST COPY DEFINITION
 syn keyword m2Resword DIV DO ELSE ELSIF EXIT FOR FROM GENLIB IF IMPLEMENTATION
-syn keyword m2Resword IMPORT IN LOOP MOD NEW NOP NOT OCTETSEQ OF OPAQUE OR
-syn keyword POINTER READ RECORD RELEASE REPEAT RETAIN RETURN SET THEN TO TYPE
+syn keyword m2Resword IMPORT IN LOOP MOD NEW NOT OF OPAQUE OR POINTER READ
+syn keyword m2Resword RECORD RELEASE REPEAT RETAIN RETURN SET THEN TO TYPE
 syn keyword m2Resword UNTIL VAR WHILE WRITE YIELD
 
 
 " -----------------------------------------------------------------------------
 " Schroedinger's Tokens
 " -----------------------------------------------------------------------------
-syn keyword m2SchroedToken COROUTINE LITERAL
+syn keyword m2SchroedToken CAPACITY COROUTINE LITERAL
 
 
 " -----------------------------------------------------------------------------
@@ -85,29 +90,26 @@ syn keyword m2TypeIdent CARDINAL LONGCARD INTEGER LONGINT REAL LONGREAL
 " Builtin Procedure and Function Identifiers
 " -----------------------------------------------------------------------------
 syn keyword m2ProcIdent APPEND INSERT REMOVE SORT SORTNEW
-syn keyword m2FuncIdent CHR UCHR ORD COLLATION ODD ABS SGN MIN MAX LOG2 POW2
-syn keyword m2FuncIdent ENTIER PRED SUCC PTR CAPACITY COUNT LENGTH FIRST LAST
-syn keyword m2FuncIdent PREV NEXT
+syn keyword m2FuncIdent CHR ORD ODD ABS SGN MIN MAX LOG2 POW2 ENTIER
+syn keyword m2FuncIdent PRED SUCC PTR COUNT LENGTH
 
 
 " -----------------------------------------------------------------------------
 " Builtin Macro Identifiers
 " -----------------------------------------------------------------------------
-syn keyword m2MacroIdent TMIN TMAX TSIZE TLIMIT
+syn keyword m2MacroIdent NOP TMIN TMAX TSIZE TLIMIT
 
 
 " -----------------------------------------------------------------------------
 " Builtin Primitives
 " -----------------------------------------------------------------------------
-syn keyword m2PrimitiveIdent _ATVALUE _KVALUE _ATSTORE _KVSTORE _ATINSERT
-syn keyword m2PrimitiveIdent _ATREMOVE _ALLOC _DEALLOC _STDIN _STDOUT
-syn keyword m2PrimitiveIdent _NEG _SUBSET _SXF _VAL
+syn keyword m2PrimitiveIdent SXF VAL STORE VALUE SEEK SUBSET
 
 
 " -----------------------------------------------------------------------------
 " Unsafe Facilities via Pseudo-Module UNSAFE
 " -----------------------------------------------------------------------------
-syn keyword m2UnsafeIdent UNSAFE ADDRESS BYTE WORD LONGWORD
+syn keyword m2UnsafeIdent UNSAFE BYTE WORD LONGWORD OCTETSEQ
 syn keyword m2UnsafeIdent ADD SUB INC DEC SETBIT HALT
 syn keyword m2UnsafeIdent ADR CAST BIT SHL SHR BWNOT BWAND BWOR
 
@@ -299,8 +301,8 @@ syn keyword m2ReswordEnd contained END
 " -----------------------------------------------------------------------------
 " !!! this section must be last !!!
 
-" any '`' '~' '$' '%'
-syn match m2IllegalChar "[`~$%]"
+" any '`' '~' '@' '$' '%'
+syn match m2IllegalChar "[`~@$%]"
 
 " any solitary sequence of '_'
 syn match m2IllegalChar "\<_\+\>"

Vim/sample-vimrc.vim

@@ -1,6 +1,11 @@
 " Example startup script for Vim
 " ~/.vimrc on Posix systems, or ~/_vimrc on Windows
 
+" ----------------------------------------------------
+" THIS FILE IS LICENSED UNDER THE VIM LICENSE
+" see https://github.com/vim/vim/blob/master/LICENSE
+" ----------------------------------------------------
+
 " *** set appearance parameters ***
 
 " show line numbers
@@ -32,4 +37,4 @@ let g:m2iso_disallow_octals = 1
 let g:m2pim_disallow_synonyms = 1
 let g:m2iso_disallow_synonyms = 1
 
-" END OF FILE
+" END OF FILE

Vim/syntax-menu.vim

@@ -5,6 +5,11 @@
 "| SynMenu M.Modula\ 2:modula2
 " and replace it with the following code:
 
+" ----------------------------------------------------
+" CODE IN THIS FILE IS LICENSED UNDER THE VIM LICENSE
+" see https://github.com/vim/vim/blob/master/LICENSE
+" ----------------------------------------------------
+
 SynMenu M.Modula-2.R10\ (2010):m2r10
 SynMenu M.Modula-2.ISO\ (1994):m2iso
 SynMenu M.Modula-2.PIM\ (1985):m2pim

Vim/vimtest-iso.def

@@ -1,5 +1,11 @@
 (* Modula-2 ISO 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; (*!m2iso*)
 
 FROM SYSTEM IMPORT LOC, WORD, ADDRESS;
@@ -105,4 +111,4 @@ bar__  bar_baz__  bar_baz__bam__  bar_baz__bam_boo__
 bar__baz  __bar_baz__  __bar__baz__  __
 
 
-END Foobar.
+END Foobar.

Vim/vimtest-pim.def

@@ -1,5 +1,10 @@
 (* Modula-2 PIM 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; (*!m2pim*)
 
 FROM SYSTEM IMPORT WORD, ADDRESS;
@@ -103,4 +108,4 @@ bar__  bar_baz__  bar_baz__bam__  bar_baz__bam_boo__
 bar__baz  __bar_baz__  __bar__baz__  __
 
 
-END Foobar.
+END Foobar.

Vim/vimtest-r10.def

@@ -1,5 +1,10 @@
 (* 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;
@@ -77,9 +82,9 @@ PROCEDURE [+] sum ( a, b : BCD ) : BCD;
 
 PROCEDURE [MOD] modulus ( n, m : INT64 ) : INT64;
 
-PROCEDURE [VALUE] valueForKey ( dict : Dict; key : Key ) : Value;
+PROCEDURE [RETAIN] Retain ( foo : Foo );
 
-PROCEDURE [STORE] StoreValueForKey ( dict : Dict; key : Key; value : Value );
+PROCEDURE [LENGTH] length ( str : String ) : LONGCARD;
 
 
 (* procedures *)
@@ -96,7 +101,7 @@ END END;
 PROCEDURE bar ( foo : Foo ) : INTEGER;
 BEGIN
   IF foo = NIL THEN
-    HALT
+    UNSAFE.HALT
   ELSE
     RETURN foo^.bar
   END (* IF *)
@@ -105,12 +110,12 @@ END bar;
 
 (* technical debt *)
 TO DO ( 1234, Weight.Major ) (* foo *)
-  "redesign foo", 2 * days;
-  "replace foo", 2 * days;
-  "test new foo", 1 * days
+  "redesign foo", 2d;
+  "replace foo", 2d;
+  "test new foo", 1d
 END (* TO DO *);
 
-<*DEPRECATED*> PROCEDURE SetBaba ( n : CARDINAL );
+PROCEDURE SetBaba <*DEPRECATED*> ( n : CARDINAL );
 
 
 (* disabled code *)
@@ -138,4 +143,4 @@ bar__baz  __bar_baz__  __bar__baz__  __
 
 
 (* module end *)
-END Foobar.
+END Foobar.