mirror of
https://github.com/mawww/kakoune.git
synced 2024-12-28 06:08:05 +03:00
Merge remote-tracking branch 'Ordoviz/pascal'
This commit is contained in:
Maxime Coste
commit
c8378eb7f2
208
rc/filetype/pascal.kak
Normal file
208
rc/filetype/pascal.kak
Normal file
@ -0,0 +1,208 @@
|
||||
# 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
|
||||
@ -95,6 +95,12 @@ hook global BufSetOption filetype=(ocaml|coq) %{
|
||||
set-option buffer comment_block_end ' *)'
|
||||
}
|
||||
|
||||
hook global BufSetOption filetype=((free|object)?pascal|delphi) %{
|
||||
set-option buffer comment-line '//'
|
||||
set-option buffer comment_block_begin '{'
|
||||
set-option buffer comment_block_end '}'
|
||||
}
|
||||
|
||||
hook global BufSetOption filetype=perl %{
|
||||
set-option buffer comment_block_begin '#['
|
||||
set-option buffer comment_block_end ']'
|
||||
|
||||
Loading…
Reference in New Issue
Block a user