# https://www.freepascal.org/docs-html/ref/ref.html # ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾ # Detection, see https://wiki.freepascal.org/file_types hook global BufCreate .*\.(p|pp|pas|pascal)$ %{ set-option buffer filetype pascal } hook global BufCreate .*\.(dpr|dpk|dfm)$ %{ set-option buffer filetype delphi } hook global BufCreate .*\.(lpr|lfm)$ %{ set-option buffer filetype freepascal } hook global WinSetOption filetype=((free|object)?pascal|delphi) %[ require-module pascal hook window InsertChar \n -group pascal-indent pascal-indent-on-new-line hook -once -always window WinSetOption filetype=.* %{ remove-hooks window pascal-.+ } set-option window static_words %opt{static_words} ] hook -group pascal-highlight global WinSetOption filetype=((free|object)?pascal|delphi) %[ add-highlighter window/pascal ref pascal hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/pascal } ] provide-module pascal %§ add-highlighter shared/pascal regions add-highlighter shared/pascal/code default-region group evaluate-commands %sh¶ # This might seem like a lot of effort to highlight routines and # properties correctly but it is worth it id='([_a-zA-Z][\w]{,126})\s*' # identifier for variables etc. id2="(?:$id\.)?$id(?:<.*?>)?" # (module|type).id id4="(?:$id\.)?(?:$id\.)?(?:$id\.)?$id" # type.type.type.id type=":\s*(specialize\s+)?(?:(array\s+of\s+)?$id2)" # 1:attribute 2:keyword 3:module 4:type cat <<EOF # routine without parameters add-highlighter shared/pascal/code/simple_routine regex \ "\b(?i)(function|procedure|constructor|destructor|operator)\s+$id4(?:$type)?" \ 2:type 3:type 4:type 5:function 6:attribute 7:keyword 8:module 9:type add-highlighter shared/pascal/simple_property region \ "\b(?i)property\s+$id2:" ";" group # routine with parameters add-highlighter shared/pascal/routine region \ "\b(?i)(function|procedure|constructor|destructor|operator)(\s+$id4)?\s*(<.*?>)?\s*\(" "\).*?;" regions add-highlighter shared/pascal/property region \ "\b(?i)property\s+$id4\[" "\].*?;" regions add-highlighter shared/pascal/routine/parameters region -recurse \( \( \) regions add-highlighter shared/pascal/property/parameters region -recurse \[ \[ \] regions EOF # Used to highlight "var1, var2, var3, var4 : type" declarations x="(?:$id,\s*)?" for r in property routine; do cat <<EOF add-highlighter shared/pascal/$r/parameters/default default-region group add-highlighter shared/pascal/$r/parameters/default/ regex \ "(?i)(?:(constref|const|var|out|univ)\s+)?$x$x$x$x$x$id(?:$type)?" \ 1:attribute 2:variable 3:variable 4:variable 5:variable 6:variable 7:variable 8:attribute 9:keyword 10:module 11:type add-highlighter shared/pascal/$r/default default-region group EOF done cat <<EOF add-highlighter shared/pascal/routine/default/ regex \ "\b(?i)(function|procedure|constructor|destructor|operator)(?:\s+$id4)?" \ 1:keyword 2:type 3:type 4:type 5:function add-highlighter shared/pascal/routine/default/return_type regex \ "(?i)$type" 1:attribute 2:keyword 3:module 4:type add-highlighter shared/pascal/routine/default/ regex \ "(?i)(of\s+object|is\s+nested)" 1:keyword EOF for r in property/default simple_property; do cat <<EOF add-highlighter shared/pascal/$r/ regex "\b(?i)(property)" 1:keyword add-highlighter shared/pascal/$r/type regex ":\s*$id" 1:type # https://www.freepascal.org/docs-html/ref/refsu33.html add-highlighter shared/pascal/$r/specifier regex \ "\b(?i)(index|read|write|implements|(no)?default|stored)\b" 0:attribute EOF done for r in pascal pascal/routine pascal/routine/parameters pascal/property; do cat <<EOF # Example string: 'You''re welcome!' add-highlighter shared/$r/string region \ -recurse %{(?<!')('')+(?!')} %{'} %{'(?!')|\$} group add-highlighter shared/$r/string/ fill string add-highlighter shared/$r/string/escape regex "''" 0:+b add-highlighter shared/$r/directive region \{\\$[a-zA-Z] \} fill meta # comments (https://www.freepascal.org/docs-html/ref/refse2.html) add-highlighter shared/$r/comment_old region -recurse \(\* \(\* \*\) fill comment add-highlighter shared/$r/comment_new region -recurse \{ \{ \} fill comment add-highlighter shared/$r/comment_oneline region // $ fill comment EOF done # The types "string" and "file", the value "nil", and the modifiers # "bitpacked" and "packed" are not included. reserved='and array as asm begin case class const constructor cppclass destructor dispinterface div do downto else end except exports finalization finally for function goto if implementation in inherited initialization interface is label library mod not object of operator or otherwise procedure program property raise record repeat resourcestring set shl shr then threadvar to try type unit until uses var while with xor' # These are not reserved words in Free Pascal, but for consistency # with other programming languages are highlighted as reserved words: keywords='Break Continue Exit at on package' # "at" is used in Delphi, e.g. 'raise object at address' # https://www.freepascal.org/docs-html/ref/refsu3.html and # https://wiki.freepascal.org/Reserved_words # "name" and "alias" are not included beacuse they produce too many # false positives. Some modifiers like "index" are only highlighted in # certain places. modifiers='absolute abstract assembler automated bitpacked cdecl contains cppdecl cvar default deprecated dispid dynamic enumerator experimental export external far far16 final forward generic helper inline interrupt iocheck local near noreturn nostackframe oldfpccall overload override packed pascal platform private protected public published readonly register reintroduce requires safecall saveregisters softfloat specialize static stdcall strict syscall unaligned unimplemented varargs virtual winapi writeonly' # https://wiki.freepascal.org/Category:Data_types # not highlighted for consistency with not built-in types types='AnsiChar AnsiString Boolean Boolean16 Boolean32 Boolean64 Buffer Byte ByteBool Cardinal Char Comp Currency Double DWord Extended Int16 Int32 Int64 Int8 Integer IUnknown LongBool LongInt Longword NativeInt NativeUInt OleVariant PAnsiChar PAnsiString PBoolean PByte PByteArray PCardinal PChar PComp PCurrency PDate PDateTime PDouble PDWord PExtended PHandle PInt64 PInteger PLongInt PLongWord Pointer PPointer PQWord PShortInt PShortString PSingle PSmallInt PString PUnicodeChar PUnicodeString PVariant PWideChar PWideString PWord PWordArray PWordBool QWord QWordBool RawBytestring Real Real48 ShortInt ShortString Single SmallInt TClass TDate TDateTime Text TextFile THandle TObject TTime UInt16 UInt32 UInt8 UnicodeChar UnicodeString UTF16String UTF8String Variant WideChar WideString Word WordBool file string' constants='False True nil MaxInt Self' # Add the language's grammar to the static completion list echo declare-option str-list static_words $reserved $keywords $modifiers \ $types $constants name index result constref out read write implements \ nodefault stored message # Replace spaces with a pipe join() { eval set -- $1; IFS='|'; echo "$*"; } cat <<EOF add-highlighter shared/pascal/code/keywords regex \ (?i)(?<!&)\b($(join "$reserved $keywords")|file\s+of)\b 0:keyword add-highlighter shared/pascal/code/modifiers regex \ (?i)(?<!\.)\b($(join "$modifiers"))\b(?!\()|message\s+(?!:) 0:attribute add-highlighter shared/pascal/code/index regex \ '\b(?i)(index)\s+\w+\s*;' 1:attribute EOF for r in code routine/parameters/default routine/default property/default simple_property; do cat <<EOF add-highlighter shared/pascal/$r/ regex '[.:=<>@^*/+-]' 0:operator add-highlighter shared/pascal/$r/constants regex \ \b(?i)($(join "$constants"))\b 0:value # numbers (https://www.freepascal.org/docs-html/ref/refse6.html) add-highlighter shared/pascal/$r/decimal regex \b\d+([eE][+-]?\d+)?\b 0:value add-highlighter shared/pascal/$r/hex regex \\\$[\da-fA-F]+\b 0:value add-highlighter shared/pascal/$r/octal regex &[0-7]+\b 0:value add-highlighter shared/pascal/$r/binary regex \%[01]+\b 0:value add-highlighter shared/pascal/$r/char regex '#\d+\b' 0:value EOF done ¶ define-command -hidden pascal-indent-on-new-line %{ evaluate-commands -no-hooks -draft -itersel %{ # preserve previous line indent try %{ execute-keys -draft <semicolon> K <a-&> } # cleanup trailing whitespaces from previous line try %{ execute-keys -draft k <a-x> s \h+$ <ret> d } # indent after certain keywords try %{ execute-keys -draft k<a-x><a-k>(?i)(asm|begin|const|else|except|exports|finalization|finally|label|of|otherwise|private|property|public|protected|published|record|repeat|resourcestring|threadvar|try|type|uses|var|:)\h*$<ret>j<a-gt> } } } § # Other syntax highlighters for reference: # https://github.com/pygments/pygments/blob/master/pygments/lexers/pascal.py # https://github.com/codemirror/CodeMirror/blob/master/mode/pascal/pascal.js # https://github.com/vim/vim/blob/master/runtime/syntax/pascal.vim # https://github.com/highlightjs/highlight.js/blob/master/src/languages/delphi.js