This repository has been archived on 2024-06-20. You can view files and clone it, but you cannot make any changes to it's state, such as pushing and creating new issues, pull requests or comments.
coffee.pygments/tests/examplefiles/red/example.red.output
Oldes Huhuman 79db0b33cf
Don't require script headers in Rebol and Red codes. (#2349)
* 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.
2023-02-24 14:34:36 +01:00

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