58 lines
1.1 KiB
Perl
58 lines
1.1 KiB
Perl
|
% SCE_VISUALPROLOG_KEY_MAJOR (1)
|
||
|
|
goal
|
||
|
|
|
||
|
|
% SCE_VISUALPROLOG_KEY_MINOR (2)
|
||
|
|
procedure
|
||
|
|
|
||
|
|
% SCE_VISUALPROLOG_KEY_DIRECTIVE (3)
|
||
|
|
#include
|
||
|
|
|
||
|
|
% SCE_VISUALPROLOG_COMMENT_BLOCK (4)
|
||
|
|
/**
|
||
|
|
SCE_VISUALPROLOG_COMMENT_KEY (6)
|
||
|
|
@detail
|
||
|
|
SCE_VISUALPROLOG_COMMENT_KEY_ERROR (7)
|
||
|
|
@unknown
|
||
|
|
/* SCE_VISUALPROLOG_IDENTIFIER (8)
|
||
|
|
SCE_VISUALPROLOG_VARIABLE (9)
|
||
|
|
SCE_VISUALPROLOG_ANONYMOUS (10)
|
||
|
|
SCE_VISUALPROLOG_NUMBER (11)
|
||
|
|
SCE_VISUALPROLOG_OPERATOR (12) */ */
|
||
|
|
singleton -->
|
||
|
|
[S],
|
||
|
|
{
|
||
|
|
string_lower(S, L),
|
||
|
|
atom_codes(L, Bytes),
|
||
|
|
sort(0, @=<, Bytes, [95, _discard])
|
||
|
|
}.
|
||
|
|
|
||
|
|
% SCE_VISUALPROLOG_COMMENT_LINE (5)
|
||
|
|
% @detail
|
||
|
|
% @unknown
|
||
|
|
|
||
|
|
% SCE_VISUALPROLOG_STRING (16)
|
||
|
|
"string"
|
||
|
|
'string'
|
||
|
|
% ISO Prolog back-quoted string
|
||
|
|
`string`
|
||
|
|
|
||
|
|
% SCE_VISUALPROLOG_STRING_ESCAPE (17)
|
||
|
|
"\n"
|
||
|
|
'\uAB12'
|
||
|
|
|
||
|
|
% SCE_VISUALPROLOG_STRING_ESCAPE_ERROR (18)
|
||
|
|
"\ "
|
||
|
|
|
||
|
|
% SCE_VISUALPROLOG_STRING_EOL_OPEN (19)
|
||
|
|
"open string
|
||
|
|
|
||
|
|
% Not implemented for ISO/SWI-Prolog:
|
||
|
|
% SCE_VISUALPROLOG_STRING_VERBATIM
|
||
|
|
% SCE_VISUALPROLOG_STRING_VERBATIM_SPECIAL
|
||
|
|
% SCE_VISUALPROLOG_STRING_VERBATIM_EOL
|
||
|
|
@"verbatim string"
|
||
|
|
@"""special"" verbatim string"
|
||
|
|
@"multi-line
|
||
|
|
verbatim
|
||
|
|
string"
|