* Don't require script headers in Rebol and Red codes. Resolves: https://github.com/pygments/pygments/issues/2348 * Not modifying the copyright * Updated tests for Rebol and Red * Rebol: removed the unneeded code instead of commenting.
1412 lines
35 KiB
Text
Generated
1412 lines
35 KiB
Text
Generated
'Red' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'Title:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'Red console' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text
|
|
'Author:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'"' Literal.String
|
|
'Nenad Rakocevic' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'"' Literal.String
|
|
'Kaj de Vos' Literal.String
|
|
'"' Literal.String
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'File:' Generic.Subheading
|
|
' ' Text
|
|
'%console.red' Name.Decorator
|
|
'\n ' Text
|
|
'Tabs:' Generic.Subheading
|
|
' ' Text
|
|
'4' Literal.Number
|
|
'\n ' Text
|
|
'Rights:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'Copyright ' Literal.String
|
|
'(' Literal.String
|
|
'C' Literal.String
|
|
')' Literal.String
|
|
' 2012-2013 Nenad Rakocevic. All rights reserved.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text
|
|
'License:' Generic.Subheading
|
|
' ' Text
|
|
'{' Literal.String
|
|
'\n Distributed under the Boost Software License, Version 1.0.\n See https://github.com/dockimbel/Red/blob/master/BSL-License.txt\n ' Literal.String
|
|
'}' Literal.String
|
|
'\n ' Text
|
|
'Purpose:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'Just some code for testing Pygments colorizer' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text
|
|
'Language:' Generic.Subheading
|
|
' ' Text
|
|
'http://www.red-lang.org/' Name.Decorator
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'\n\n' Text
|
|
|
|
'#system-global' Keyword.Namespace
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'#either' Keyword.Namespace
|
|
' ' Text
|
|
'OS' Name.Variable
|
|
' ' Text
|
|
'=' Operator
|
|
' ' Text
|
|
"'Windows" Name.Variable.Instance
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'#import' Keyword.Namespace
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'"' Literal.String
|
|
'kernel32.dll' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'stdcall' Keyword.Namespace
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'AttachConsole:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'AttachConsole' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'processID' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'return:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'SetConsoleTitle:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'SetConsoleTitleA' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'title' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'c-string!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'return:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'ReadConsole:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'ReadConsoleA' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'consoleInput' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'buffer' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'byte-ptr!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'charsToRead' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'numberOfChars' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'int-ptr!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'inputControl' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'int-ptr!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'return:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'line-buffer-size:' Generic.Subheading
|
|
' ' Text
|
|
'16' Literal.Number
|
|
' ' Text
|
|
'*' Operator
|
|
' ' Text
|
|
'1024' Literal.Number
|
|
'\n ' Text
|
|
'line-buffer:' Generic.Subheading
|
|
' ' Text
|
|
'allocate' Name.Variable
|
|
' ' Text
|
|
'line-buffer-size' Name.Variable
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'#switch' Keyword.Namespace
|
|
' ' Text
|
|
'OS' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'MacOSX' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'#define' Keyword.Namespace
|
|
' ' Text
|
|
'ReadLine-library' Name.Variable
|
|
' ' Text
|
|
'"' Literal.String
|
|
'libreadline.dylib' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'#default' Keyword.Namespace
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'#define' Keyword.Namespace
|
|
' ' Text
|
|
'ReadLine-library' Name.Variable
|
|
' ' Text
|
|
'"' Literal.String
|
|
'libreadline.so.6' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text
|
|
'#define' Keyword.Namespace
|
|
' ' Text
|
|
'History-library' Name.Variable
|
|
' ' Text
|
|
'"' Literal.String
|
|
'libhistory.so.6' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'#import' Keyword.Namespace
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'ReadLine-library' Name.Variable
|
|
' ' Text
|
|
'cdecl' Keyword.Namespace
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'read-line:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'readline' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
' ' Text
|
|
'; Read a line from the console.\n' Comment
|
|
|
|
' ' Text
|
|
'prompt' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'c-string!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'return:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'c-string!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'rl-bind-key:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'rl_bind_key' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'key' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'command' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'return:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'rl-insert:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'rl_insert' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'count' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'key' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'return:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'#if' Keyword.Namespace
|
|
' ' Text
|
|
'OS' Name.Variable
|
|
' ' Text
|
|
'<>' Operator
|
|
' ' Text
|
|
"'MacOSX" Name.Variable.Instance
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'History-library' Name.Variable
|
|
' ' Text
|
|
'cdecl' Keyword.Namespace
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'add-history:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'add_history' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
' ' Text
|
|
'; Add line to the history.\n' Comment
|
|
|
|
' ' Text
|
|
'line' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'c-string!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n\n ' Text
|
|
'rl-insert-wrapper:' Generic.Subheading
|
|
' ' Text
|
|
'func' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'[' Generic.Strong
|
|
'cdecl' Keyword.Namespace
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'count' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'key' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'return:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'integer!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'rl-insert' Name.Variable
|
|
' ' Text
|
|
'count' Name.Variable
|
|
' ' Text
|
|
'key' Name.Variable
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n \n ' Text
|
|
']' Generic.Strong
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'\n\n' Text
|
|
|
|
'Windows?:' Generic.Subheading
|
|
' ' Text
|
|
'system' Name.Exception
|
|
'/platform' Name.Attribute
|
|
' ' Text
|
|
'=' Operator
|
|
' ' Text
|
|
"'Windows" Name.Variable.Instance
|
|
'\n\n' Text
|
|
|
|
'read-argument:' Generic.Subheading
|
|
' ' Text
|
|
'routine' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'/local' Name.Attribute
|
|
'\n ' Text
|
|
'args' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'str-array!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'str' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'red-string!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'if' Name.Builtin
|
|
' ' Text
|
|
'system' Name.Exception
|
|
'/args-count' Name.Attribute
|
|
' ' Text
|
|
'<>' Operator
|
|
' ' Text
|
|
'2' Literal.Number
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'SET_RETURN' Name.Variable
|
|
'(' Generic.Strong
|
|
'none-value' Text
|
|
')' Generic.Strong
|
|
'\n ' Text
|
|
'exit' Name.Exception
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'args:' Generic.Subheading
|
|
' ' Text
|
|
'system' Name.Exception
|
|
'/args-list' Name.Attribute
|
|
' ' Text
|
|
'+' Operator
|
|
' ' Text
|
|
'1' Literal.Number
|
|
' ' Text
|
|
';-- skip binary filename\n' Comment
|
|
|
|
' ' Text
|
|
'str:' Generic.Subheading
|
|
' ' Text
|
|
'simple-io' Name.Variable
|
|
'/read-txt' Name.Attribute
|
|
' ' Text
|
|
'args' Name.Variable
|
|
'/item' Name.Attribute
|
|
'\n ' Text
|
|
'SET_RETURN' Name.Variable
|
|
'(' Generic.Strong
|
|
'str' Text
|
|
')' Generic.Strong
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'\n\n' Text
|
|
|
|
'init-console:' Generic.Subheading
|
|
' ' Text
|
|
'routine' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'str' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'string!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'/local' Name.Attribute
|
|
'\n ' Text
|
|
'ret' Name.Variable
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'#either' Keyword.Namespace
|
|
' ' Text
|
|
'OS' Name.Variable
|
|
' ' Text
|
|
'=' Operator
|
|
' ' Text
|
|
"'Windows" Name.Variable.Instance
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
';ret: AttachConsole -1\n' Comment
|
|
|
|
' ' Text
|
|
';if zero? ret [print-line "ReadConsole failed!" halt]\n' Comment
|
|
|
|
' \n ' Text
|
|
'ret:' Generic.Subheading
|
|
' ' Text
|
|
'SetConsoleTitle' Name.Variable
|
|
' ' Text
|
|
'as' Name.Variable
|
|
' ' Text
|
|
'c-string!' Keyword.Type
|
|
' ' Text
|
|
'string' Name.Variable
|
|
'/rs-head' Name.Attribute
|
|
' ' Text
|
|
'str' Name.Variable
|
|
'\n ' Text
|
|
'if' Name.Builtin
|
|
' ' Text
|
|
'zero?' Keyword
|
|
' ' Text
|
|
'ret' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'print-line' Name.Variable
|
|
' ' Text
|
|
'"' Literal.String
|
|
'SetConsoleTitle failed!' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'halt' Name.Exception
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'rl-bind-key' Name.Variable
|
|
' ' Text
|
|
'as-integer' Name.Variable
|
|
' ' Text
|
|
'tab' Name.Builtin.Pseudo
|
|
' ' Text
|
|
'as-integer' Name.Variable
|
|
' ' Text
|
|
':rl-insert-wrapper' Generic.Subheading
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'\n\n' Text
|
|
|
|
'input:' Generic.Subheading
|
|
' ' Text
|
|
'routine' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'prompt' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'string!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'/local' Name.Attribute
|
|
'\n ' Text
|
|
'len' Name.Variable
|
|
' ' Text
|
|
'ret' Name.Variable
|
|
' ' Text
|
|
'str' Name.Variable
|
|
' ' Text
|
|
'buffer' Name.Variable
|
|
' ' Text
|
|
'line' Name.Variable
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'#either' Keyword.Namespace
|
|
' ' Text
|
|
'OS' Name.Variable
|
|
' ' Text
|
|
'=' Operator
|
|
' ' Text
|
|
"'Windows" Name.Variable.Instance
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'len:' Generic.Subheading
|
|
' ' Text
|
|
'0' Literal.Number
|
|
'\n ' Text
|
|
'print' Name.Builtin
|
|
' ' Text
|
|
'as' Name.Variable
|
|
' ' Text
|
|
'c-string!' Keyword.Type
|
|
' ' Text
|
|
'string' Name.Variable
|
|
'/rs-head' Name.Attribute
|
|
' ' Text
|
|
'prompt' Name.Variable
|
|
'\n ' Text
|
|
'ret:' Generic.Subheading
|
|
' ' Text
|
|
'ReadConsole' Name.Variable
|
|
' ' Text
|
|
'stdin' Name.Variable
|
|
' ' Text
|
|
'line-buffer' Name.Variable
|
|
' ' Text
|
|
'line-buffer-size' Name.Variable
|
|
' ' Text
|
|
':len' Generic.Subheading
|
|
' ' Text
|
|
'null' Name.Builtin.Pseudo
|
|
'\n ' Text
|
|
'if' Name.Builtin
|
|
' ' Text
|
|
'zero?' Keyword
|
|
' ' Text
|
|
'ret' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'print-line' Name.Variable
|
|
' ' Text
|
|
'"' Literal.String
|
|
'ReadConsole failed!' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'halt' Name.Exception
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'len:' Generic.Subheading
|
|
' ' Text
|
|
'len' Name.Variable
|
|
' ' Text
|
|
'+' Operator
|
|
' ' Text
|
|
'1' Literal.Number
|
|
'\n ' Text
|
|
'line-buffer' Name.Variable
|
|
'/len:' Name.Attribute
|
|
' ' Text
|
|
'null-byte' Name.Builtin.Pseudo
|
|
'\n ' Text
|
|
'str:' Generic.Subheading
|
|
' ' Text
|
|
'string' Name.Variable
|
|
'/load' Name.Attribute
|
|
' ' Text
|
|
'as' Name.Variable
|
|
' ' Text
|
|
'c-string!' Keyword.Type
|
|
' ' Text
|
|
'line-buffer' Name.Variable
|
|
' ' Text
|
|
'len' Name.Variable
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'line:' Generic.Subheading
|
|
' ' Text
|
|
'read-line' Name.Variable
|
|
' ' Text
|
|
'as' Name.Variable
|
|
' ' Text
|
|
'c-string!' Keyword.Type
|
|
' ' Text
|
|
'string' Name.Variable
|
|
'/rs-head' Name.Attribute
|
|
' ' Text
|
|
'prompt' Name.Variable
|
|
'\n ' Text
|
|
'if' Name.Builtin
|
|
' ' Text
|
|
'line' Name.Variable
|
|
' ' Text
|
|
'=' Operator
|
|
' ' Text
|
|
'null' Name.Builtin.Pseudo
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'halt' Name.Exception
|
|
']' Generic.Strong
|
|
' ' Text
|
|
'; EOF\n' Comment
|
|
|
|
'\n ' Text
|
|
'#if' Keyword.Namespace
|
|
' ' Text
|
|
'OS' Name.Variable
|
|
' ' Text
|
|
'<>' Operator
|
|
' ' Text
|
|
"'MacOSX" Name.Variable.Instance
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'add-history' Name.Variable
|
|
' ' Text
|
|
'line' Name.Variable
|
|
']' Generic.Strong
|
|
'\n\n ' Text
|
|
'str:' Generic.Subheading
|
|
' ' Text
|
|
'string' Name.Variable
|
|
'/load' Name.Attribute
|
|
' ' Text
|
|
'line' Name.Variable
|
|
' ' Text
|
|
'1' Literal.Number
|
|
' ' Text
|
|
'+' Operator
|
|
' ' Text
|
|
'length?' Name.Function
|
|
' ' Text
|
|
'line' Name.Variable
|
|
'\n' Text
|
|
|
|
'; free as byte-ptr! line\n' Comment
|
|
|
|
' ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'SET_RETURN' Name.Variable
|
|
'(' Generic.Strong
|
|
'str' Text
|
|
')' Generic.Strong
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'\n\n' Text
|
|
|
|
'count-delimiters:' Generic.Subheading
|
|
' ' Text
|
|
'function' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'buffer' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'string!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'return:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'block!' Keyword.Type
|
|
']' Generic.Strong
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'list:' Generic.Subheading
|
|
' ' Text
|
|
'copy' Name.Function
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'0' Literal.Number
|
|
' ' Text
|
|
'0' Literal.Number
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'c:' Generic.Subheading
|
|
' ' Text
|
|
'none' Name.Builtin.Pseudo
|
|
'\n \n ' Text
|
|
'foreach' Name.Builtin
|
|
' ' Text
|
|
'c' Name.Variable
|
|
' ' Text
|
|
'buffer' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'case' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'escaped?' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'escaped?:' Generic.Subheading
|
|
' ' Text
|
|
'no' Name.Builtin.Pseudo
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'in-comment?' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'switch' Name.Builtin
|
|
' ' Text
|
|
'c' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'#"' Literal.String.Char
|
|
'^/"' Literal.String.Char
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'in-comment?:' Generic.Subheading
|
|
' ' Text
|
|
'no' Name.Builtin.Pseudo
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
"'else" Name.Variable.Instance
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'switch' Name.Builtin
|
|
' ' Text
|
|
'c' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'#"' Literal.String.Char
|
|
'^^"' Literal.String.Char
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'escaped?:' Generic.Subheading
|
|
' ' Text
|
|
'yes' Name.Builtin.Pseudo
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'#"' Literal.String.Char
|
|
';"' Literal.String.Char
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'if' Name.Builtin
|
|
' ' Text
|
|
'zero?' Keyword
|
|
' ' Text
|
|
'list' Name.Variable
|
|
'/2' Name.Attribute
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'in-comment?:' Generic.Subheading
|
|
' ' Text
|
|
'yes' Name.Builtin.Pseudo
|
|
']' Generic.Strong
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'#"' Literal.String.Char
|
|
'["' Literal.String.Char
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'list' Name.Variable
|
|
'/1:' Name.Attribute
|
|
' ' Text
|
|
'list' Name.Variable
|
|
'/1' Name.Attribute
|
|
' ' Text
|
|
'+' Operator
|
|
' ' Text
|
|
'1' Literal.Number
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'#"' Literal.String.Char
|
|
']"' Literal.String.Char
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'list' Name.Variable
|
|
'/1:' Name.Attribute
|
|
' ' Text
|
|
'list' Name.Variable
|
|
'/1' Name.Attribute
|
|
' ' Text
|
|
'-' Operator
|
|
' ' Text
|
|
'1' Literal.Number
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'#"' Literal.String.Char
|
|
'{"' Literal.String.Char
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'list' Name.Variable
|
|
'/2:' Name.Attribute
|
|
' ' Text
|
|
'list' Name.Variable
|
|
'/2' Name.Attribute
|
|
' ' Text
|
|
'+' Operator
|
|
' ' Text
|
|
'1' Literal.Number
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'#"' Literal.String.Char
|
|
'}"' Literal.String.Char
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'list' Name.Variable
|
|
'/2:' Name.Attribute
|
|
' ' Text
|
|
'list' Name.Variable
|
|
'/2' Name.Attribute
|
|
' ' Text
|
|
'-' Operator
|
|
' ' Text
|
|
'1' Literal.Number
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'list' Name.Variable
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'\n\n' Text
|
|
|
|
'do-console:' Generic.Subheading
|
|
' ' Text
|
|
'function' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'buffer:' Generic.Subheading
|
|
' ' Text
|
|
'make' Name.Function
|
|
' ' Text
|
|
'string!' Keyword.Type
|
|
' ' Text
|
|
'10000' Literal.Number
|
|
'\n ' Text
|
|
'prompt:' Generic.Subheading
|
|
' ' Text
|
|
'red-prompt:' Generic.Subheading
|
|
' ' Text
|
|
'"' Literal.String
|
|
'red>> ' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text
|
|
'mode:' Generic.Subheading
|
|
' ' Text
|
|
"'mono" Name.Variable.Instance
|
|
'\n \n ' Text
|
|
'switch-mode:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'mode:' Generic.Subheading
|
|
' ' Text
|
|
'case' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'cnt' Name.Variable
|
|
'/1' Name.Attribute
|
|
' ' Text
|
|
'>' Name.Variable
|
|
' ' Text
|
|
'0' Literal.Number
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
"'block" Name.Variable.Instance
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'cnt' Name.Variable
|
|
'/2' Name.Attribute
|
|
' ' Text
|
|
'>' Name.Variable
|
|
' ' Text
|
|
'0' Literal.Number
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
"'string" Name.Variable.Instance
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
"'else" Name.Variable.Instance
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'prompt:' Generic.Subheading
|
|
' ' Text
|
|
'red-prompt' Name.Variable
|
|
'\n ' Text
|
|
'do' Name.Exception
|
|
' ' Text
|
|
'eval' Name.Variable
|
|
'\n ' Text
|
|
"'mono" Name.Variable.Instance
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'prompt:' Generic.Subheading
|
|
' ' Text
|
|
'switch' Name.Builtin
|
|
' ' Text
|
|
'mode' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'block' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'"' Literal.String
|
|
'[' Literal.String
|
|
'^-' Literal.String.Escape
|
|
'"' Literal.String
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'string' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'"' Literal.String
|
|
'{' Literal.String
|
|
'^-' Literal.String.Escape
|
|
'"' Literal.String
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'mono' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'red-prompt' Name.Variable
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n \n ' Text
|
|
'eval:' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'code:' Generic.Subheading
|
|
' ' Text
|
|
'load' Name.Exception
|
|
'/all' Name.Attribute
|
|
' ' Text
|
|
'buffer' Name.Variable
|
|
'\n \n ' Text
|
|
'unless' Name.Builtin
|
|
' ' Text
|
|
'tail?' Name.Function
|
|
' ' Text
|
|
'code' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'set' Name.Builtin
|
|
'/any' Name.Attribute
|
|
' ' Text
|
|
"'result" Name.Variable.Instance
|
|
' ' Text
|
|
'do' Name.Exception
|
|
' ' Text
|
|
'code' Name.Variable
|
|
'\n \n ' Text
|
|
'unless' Name.Builtin
|
|
' ' Text
|
|
'unset?' Keyword
|
|
' ' Text
|
|
':result' Generic.Subheading
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'if' Name.Builtin
|
|
' ' Text
|
|
'67' Literal.Number
|
|
' ' Text
|
|
'=' Operator
|
|
' ' Text
|
|
'length?' Name.Function
|
|
' ' Text
|
|
'result:' Generic.Subheading
|
|
' ' Text
|
|
'mold' Name.Function
|
|
'/part' Name.Attribute
|
|
' ' Text
|
|
':result' Generic.Subheading
|
|
' ' Text
|
|
'67' Literal.Number
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
' ' Text
|
|
';-- optimized for width = 72\n' Comment
|
|
|
|
' ' Text
|
|
'clear' Name.Function
|
|
' ' Text
|
|
'back' Name.Function
|
|
' ' Text
|
|
'tail' Name.Function
|
|
' ' Text
|
|
'result' Name.Variable
|
|
'\n ' Text
|
|
'append' Name.Function
|
|
' ' Text
|
|
'result' Name.Variable
|
|
' ' Text
|
|
'"' Literal.String
|
|
'...' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'print' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'"' Literal.String
|
|
'==' Literal.String
|
|
'"' Literal.String
|
|
' ' Text
|
|
'result' Name.Variable
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'clear' Name.Function
|
|
' ' Text
|
|
'buffer' Name.Variable
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n\n ' Text
|
|
'while' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'true' Name.Builtin.Pseudo
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'unless' Name.Builtin
|
|
' ' Text
|
|
'tail?' Name.Function
|
|
' ' Text
|
|
'line:' Generic.Subheading
|
|
' ' Text
|
|
'input' Name.Variable
|
|
' ' Text
|
|
'prompt' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'append' Name.Function
|
|
' ' Text
|
|
'buffer' Name.Variable
|
|
' ' Text
|
|
'line' Name.Variable
|
|
'\n ' Text
|
|
'cnt:' Generic.Subheading
|
|
' ' Text
|
|
'count-delimiters' Name.Variable
|
|
' ' Text
|
|
'buffer' Name.Variable
|
|
'\n\n ' Text
|
|
'either' Name.Builtin
|
|
' ' Text
|
|
'Windows?' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'remove' Name.Function
|
|
' ' Text
|
|
'skip' Name.Function
|
|
' ' Text
|
|
'tail' Name.Function
|
|
' ' Text
|
|
'buffer' Name.Variable
|
|
' ' Text
|
|
'-2' Literal.Number
|
|
' ' Text
|
|
';-- clear extra CR (Windows)\n' Comment
|
|
|
|
' ' Text
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'append' Name.Function
|
|
' ' Text
|
|
'buffer' Name.Variable
|
|
' ' Text
|
|
'lf' Name.Builtin.Pseudo
|
|
' ' Text
|
|
';-- Unix\n' Comment
|
|
|
|
' ' Text
|
|
']' Generic.Strong
|
|
'\n \n ' Text
|
|
'switch' Name.Builtin
|
|
' ' Text
|
|
'mode' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'block' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'if' Name.Builtin
|
|
' ' Text
|
|
'cnt' Name.Variable
|
|
'/1' Name.Attribute
|
|
' ' Text
|
|
'<=' Operator
|
|
' ' Text
|
|
'0' Literal.Number
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'do' Name.Exception
|
|
' ' Text
|
|
'switch-mode' Name.Variable
|
|
']' Generic.Strong
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'string' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'if' Name.Builtin
|
|
' ' Text
|
|
'cnt' Name.Variable
|
|
'/2' Name.Attribute
|
|
' ' Text
|
|
'<=' Operator
|
|
' ' Text
|
|
'0' Literal.Number
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'do' Name.Exception
|
|
' ' Text
|
|
'switch-mode' Name.Variable
|
|
']' Generic.Strong
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'mono' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'do' Name.Exception
|
|
' ' Text
|
|
'either' Name.Builtin
|
|
' ' Text
|
|
'any' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'cnt' Name.Variable
|
|
'/1' Name.Attribute
|
|
' ' Text
|
|
'>' Name.Variable
|
|
' ' Text
|
|
'0' Literal.Number
|
|
' ' Text
|
|
'cnt' Name.Variable
|
|
'/2' Name.Attribute
|
|
' ' Text
|
|
'>' Name.Variable
|
|
' ' Text
|
|
'0' Literal.Number
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'switch-mode' Name.Variable
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'eval' Name.Variable
|
|
']' Generic.Strong
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'\n\n' Text
|
|
|
|
'q:' Generic.Subheading
|
|
' ' Text
|
|
':quit' Generic.Subheading
|
|
'\n\n' Text
|
|
|
|
'if' Name.Builtin
|
|
' ' Text
|
|
'script:' Generic.Subheading
|
|
' ' Text
|
|
'read-argument' Name.Variable
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'script:' Generic.Subheading
|
|
' ' Text
|
|
'load' Name.Exception
|
|
' ' Text
|
|
'script' Name.Variable
|
|
'\n ' Text
|
|
'either' Name.Builtin
|
|
' ' Text
|
|
'any' Name.Builtin
|
|
' ' Text
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'script' Name.Variable
|
|
'/1' Name.Attribute
|
|
' ' Text
|
|
'<>' Operator
|
|
' ' Text
|
|
"'Red" Name.Variable.Instance
|
|
'\n ' Text
|
|
'not' Name.Builtin
|
|
' ' Text
|
|
'block?' Keyword
|
|
' ' Text
|
|
'script' Name.Variable
|
|
'/2' Name.Attribute
|
|
' \n ' Text
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'print' Name.Builtin
|
|
' ' Text
|
|
'"' Literal.String
|
|
'*** Error: not a Red program!' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'[' Generic.Strong
|
|
'\n ' Text
|
|
'do' Name.Exception
|
|
' ' Text
|
|
'skip' Name.Function
|
|
' ' Text
|
|
'script' Name.Variable
|
|
' ' Text
|
|
'2' Literal.Number
|
|
'\n ' Text
|
|
']' Generic.Strong
|
|
'\n ' Text
|
|
'quit' Name.Exception
|
|
'\n' Text
|
|
|
|
']' Generic.Strong
|
|
'\n\n' Text
|
|
|
|
'init-console' Name.Variable
|
|
' ' Text
|
|
'"' Literal.String
|
|
'Red Console' Literal.String
|
|
'"' Literal.String
|
|
'\n\n' Text
|
|
|
|
'print' Name.Builtin
|
|
' ' Text
|
|
'{' Literal.String
|
|
'\n-=== Red Console alpha version ===-\n' Literal.String
|
|
|
|
'(' Literal.String
|
|
'only ASCII input supported' Literal.String
|
|
')' Literal.String
|
|
'\n' Literal.String
|
|
|
|
'}' Literal.String
|
|
'\n\n' Text
|
|
|
|
'do-console' Name.Variable
|
|
'\n' Text
|