updates to latest image
8 files changed, 694 insertions(+), 119 deletions(-) M del M describe M find-tags M re M src,kernel M src,stdlib M src,vm.c A words.tsv
M del => del +3 -0
@@ 1,3 1,6 @@ This tool is used to remove unwanted files. Pass it a file name and it will remove it. This does not support multiple files. ~~~ #0 get-argument file:delete ~~~
M describe => describe +2 -2
@@ 67,9 67,9 @@ simple code. ~~~ {{ :skip (n-) [ ASCII:HT s:split drop n:inc ] times ; :skip (n-) [ ASCII:HT s:split/char drop n:inc ] times ; :select (n-s) @SourceLine swap skip ASCII:HT s:split nip ; @SourceLine swap skip ASCII:HT s:split/char nip ; ---reveal---
M find-tags => find-tags +1 -0
@@ 6,4 6,5 @@ :scan [ dup has-tag? [ display-tag ] [ drop ] choose ] file:for-each-line ; file-list [ dup text? [ scan ] [ drop ] choose ] a:for-each ~~~
M re => re +1 -1
@@ 262,7 262,7 @@ existing lines down. When entering text with `e`, use a period on an otherwise blank line to return to the command processing mode. ~~~ :cmd:i @Input $, s:split s:to-number ed:to-line [ n:inc ] dip s:copy ; :cmd:i @Input $, s:split/char s:to-number ed:to-line [ n:inc ] dip s:copy ; {{ :add-space dup ed:insert-line ;
M src,kernel => src,kernel +42 -15
@@ 1,4 1,4 @@ # RETRO Core 2021.4 # RETRO Core 2021.7 RETRO Core is a minimal Forth implementation for the Nga virtual machine. Like Nga this is intended to be used within @@ 134,6 134,10 @@ Here's the initial memory map: | 2 | Dictionary | | 3 | Heap | | 4 | RETRO version | | 5 | Pointer to `interpret` | | 6 | Pointer to `err:notfound` | | 7 | Pointer to TIB | | 8 | Pointer to End of TIB | ~~~ : Dictionary @@ 143,7 147,13 @@ r 9999 d 1536 : Version d 202104 d 202107 : references r interpret r err:notfound r TIB d 1535 ~~~ Both of these are pointers. `Dictionary` points to the most @@ 350,7 360,7 @@ significant performance hit, so I'm leaving it this way. :choose &choice:false store &choice:true store &choice:false + fetch call ; &choice:false + fetch call ; ~~~ : choice:true @@ 592,9 602,6 @@ r comma | call a function | compile a call to a function | ~~~ : class:word:interpret i ju...... : class:word:compile i lilica.. d 2049 @@ 606,7 613,7 @@ r comma i lifelili r Compiler r class:word:compile r class:word:interpret r class:macro i liju.... r choose ~~~ @@ 623,7 630,7 @@ correspond to Nga instructions. i lifelili r Compiler r comma:opcode r class:word:interpret r class:macro i liju.... r choose ~~~ @@ 793,7 800,7 @@ r Which ### Number Conversion This code converts a zero terminated string into a number. The This code converts a zero terminated string into a number. The approach is very simple: * Store an internal multiplier value (-1 for negative, 1 for @@ 815,15 822,26 @@ pretty easy to add them later, but it's not needed in the base kernel. ~~~ : Base d 10 : adjust i lisure.. d 7 : next i lica.... r fetch-next i zr...... i duligtli d 58 r adjust i cc...... i lisuswpu d 48 i swlimuad d 10 i poliju.. i swlifemu r Base i adpoliju r next : check @@ 1182,8 1200,6 @@ i feju.... d 0 : interpret:sigil i ........ i ........ i lifezr.. r sigil:handler i lifeliad @@ 1751,13 1767,23 @@ r 0057 r muri:r r class:word s r : 9999 : 0059 r 0058 r Base r class:data s Base : 9999 r 0059 r err:notfound r class:word s err:notfound ~~~ ~~~ : TIB ~~~ ## Appendix: Words, Stack Effects, and Usage | Word | Stack | Notes | @@ 1819,6 1845,7 @@ s err:notfound | d:lookup | s-p | Given a string, return the DT (or 0 if undefined) | | Version | -a | Variable; holds a version identifier | | err:notfound | - | Handler for token not found errors | | Base | -a | Variable; holds current numeric base | ## Legalities
M src,stdlib => src,stdlib +64 -22
@@ 513,12 513,14 @@ Some numeric comparisons. :n:odd? (n-f) n:even? not ; ~~~ The basic RETRO kernel doesn't provide two useful forms The basic RETRO kernel doesn't provide a few useful forms which I'll provide here. ~~~ :if; (qf-) over &if dip 0; pop drop-pair ; :-if; (qf-) over &-if dip not 0; pop drop-pair ; :if: (f-) #25 , #3 , ; immediate :-if: (f-) #1644289 , #-1 , #3 , ; immediate ~~~ ## More Stack Shufflers. @@ 1004,7 1006,7 @@ RETRO provides string constants for several ranges of characters that are of some general interest. ~~~ :s:DIGITS (-s) '0123456789 ; :s:DIGITS (-s) '0123456789ABCDEF ; :s:ASCII-LOWERCASE (-s) 'abcdefghijklmnopqrstuvwxyz ; :s:ASCII-UPPERCASE (-s) 'ABCDEFGHIJKLMNOPQRSTUVWXYZ ; :s:ASCII-LETTERS (-s) @@ 1116,21 1118,6 @@ both leading and trailing spaces. :s:trim (s-s) s:trim-right s:trim-left ; ~~~ Convert a decimal (base 10) number to a string. ~~~ {{ :correct (c-c) dup $0 lt? [ $0 over - #2 * + ] if ; ---reveal--- :n:to-string (n-s) [ here buffer:set dup n:abs [ #10 /mod swap $0 + correct buffer:add dup n:-zero? ] while drop n:negative? [ $- buffer:add ] if buffer:start s:reverse ] buffer:preserve ; }} ~~~ Now replace the old sigil:' with this one that can optionally turn underscores into spaces. @@ 1151,15 1138,15 @@ character. Results are undefined if the character can not be located. ~~~ :s:split (sc-ss) :s:split/char (sc-ss) dup-pair s:index-of nip dup-pair s:left &+ dip ; :s:split-on-string (ss-ss) :s:split/string (ss-ss) dup-pair s:index-of-string n:inc nip dup-pair s:left &+ dip ; :s:replace (sss-s) over s:length here store [ s:split-on-string swap here fetch + ] dip s:prepend s:append ; [ s:split/string swap here fetch + ] dip s:prepend s:append ; ~~~ `s:tokenize` takes a string and a character to use as a @@ 1196,7 1183,7 @@ returns an array containing pointers to each of them. :s:tokenize-on-string (ss-s) #0 !TP [ dup &Needle s:copy s:append ] [ s:length !Len ] bi [ &Needle s:split-on-string save next done? ] until [ &Needle s:split/string save next done? ] until &Tokens @TP n:dec !Tokens ; }} ~~~ @@ 1219,6 1206,19 @@ returns an array containing pointers to each of them. }} ~~~ ~~~ {{ 'String d:create #12 allot :check-sign (n-) n:negative? [ $- buffer:add ] if ; :n->digit (n-c) s:DIGITS + fetch ; :convert (n-) [ @Base /mod swap n->digit buffer:add dup n:zero? ] until drop ; ---reveal--- :n:to-string (n-s) [ &String buffer:set dup n:abs convert check-sign ] buffer:preserve &String s:reverse ; }} ~~~ Use `s:format` to construct a string from multiple items. This can be illustrated with: @@ 1653,7 1653,7 @@ directly. ~~~ :process-tokens (sn-) [ (get_next_token ASCII:SPACE s:split ) swap [ (get_next_token ASCII:SPACE s:split/char ) swap [ dup s:length n:-zero? &interpret &drop choose ] dip n:inc ] times interpret ; @@ 1734,6 1734,16 @@ original one. :unhook (a-) n:inc dup n:inc swap store ; ~~~ ## Numeric Bases ~~~ :decimal #10 !Base ; :binary #2 !Base ; :octal #8 !Base ; :hex #16 !Base ; ~~~ ## I/O ~~~ @@ 1784,6 1794,38 @@ provide much more than I can do here. :FREE (-n) STRINGS #1025 - here - ; ~~~ ## Listener If a VM implementation provides both the character output and a generic "keyboard" input, the basic listener here can be used. ~~~ {{ :eol? (c-f) [ ASCII:CR eq? ] [ ASCII:LF eq? ] [ ASCII:SPACE eq? ] tri or or ; :valid? (s-sf) dup s:length n:-zero? ; :bs? (c-cf) dup [ #8 eq? ] [ #127 eq? ] bi or ; :check-bs (c-c) bs? [ buffer:get buffer:get drop-pair ] if ; ---reveal--- :c:get (-c) hook #1 io:scan-for io:invoke ; :s:get (-s) [ #7 fetch buffer:set [ c:get dup buffer:add check-bs eol? ] until buffer:start s:chop ] buffer:preserve ; :listen (-) repeat s:get valid? &interpret &drop choose again ; }} &listen #1 store ~~~ ## The End ## Legalities
M src,vm.c => src,vm.c +54 -79
@@ 24,7 24,7 @@ #define IMAGE_SIZE 32000000 /* Amount of RAM, in cells */ #define ADDRESSES 256 /* Depth of address stack */ #define STACK_DEPTH 256 /* Depth of data stack */ #define TIB 1024 /* Location of TIB */ #define TIB memory[7] /* Location of TIB */ #define D_OFFSET_LINK 0 /* Dictionary Format Info. Update if */ #define D_OFFSET_XT 1 /* you change the dictionary fields. */ @@ 874,82 874,57 @@ void process_opcode_bundle(CELL opcode) { } } int32_t ngaImageCells = 1011; int32_t ngaImageCells = 1027; int32_t ngaImage[] = { 1793,-1,995,1536,202104,0,10,1,10,2,10,3,10,4,10,5,10,6,10,7, 10,8,10,9,10,10,11,10,12,10,13,10,14,10,15,10,16,10,17,10, 18,10,19,10,20,10,21,10,22,10,23,10,24,10,25,10,68223234,1,2575,85000450, 1,656912,0,0,268505089,63,62,285281281,0,63,2063,10,101384453,0,9,10,2049,56,25,459011, 76,524546,76,302256641,1,10,16974595,0,50529798,10,25,524547,95,50529798,10,17108738,1,251790353,101777669,1, 17565186,86,524545,90,64,167838467,-1,134287105,3,59,659457,3,459023,107,2049,56,25,2049,107,1793, 114,2049,114,117506307,0,107,0,524545,25,112,168820993,0,126,1642241,126,134283523,7,112,1793,107, 7,524545,2049,107,1793,107,16846593,126,141,140,1793,64,16846593,126,112,140,1793,64,7,10, 659713,1,659713,2,659713,3,1793,168,17108737,3,2,524559,107,2049,107,2049,107,2049,121,168820998, 2,0,0,167841793,181,5,17826049,0,181,2,15,25,524546,164,134287105,182,95,2305,183,459023, 191,134287361,182,186,659201,181,2049,56,25,84152833,48,286458116,10,459014,206,184618754,45,25,16974851,-1, 168886532,1,134284289,1,215,134284289,0,206,660227,32,0,0,115,105,103,105,108,58,95,0, 285278479,232,6,2576,524546,81,1641217,1,167838467,229,2049,244,2049,240,524545,232,201,17826050,231,0, 2572,2563,2049,222,1793,133,459023,133,17760513,146,3,166,8,251727617,3,2,2049,160,16,168820993, -1,126,2049,201,2049,160,459023,133,285282049,3,2,134287105,126,279,524545,1793,107,16846593,3,0, 107,8,659201,3,524545,25,112,17043201,3,7,2049,112,2049,107,268505092,126,1642241,126,656131,659201, 3,524545,7,112,2049,107,459009,19,112,459009,54,112,459009,15,112,459009,17,112,1793,5, 10,524546,160,134284303,162,1807,0,0,0,1642241,231,285282049,346,1,459012,341,117509889,181,341,134287105, 346,201,16845825,0,356,338,1793,64,1793,370,17826050,346,250,8,117506305,347,359,64,2116,11340, 11700,11400,13685,13104,12432,12402,9603,9801,11514,11413,11110,12528,11948,10302,13340,9700,13455,12753,10500,10670, 12654,13320,11960,13908,10088,10605,11865,11025,0,2049,201,987393,1,1793,107,524546,446,2049,444,2049, 444,17891588,2,446,8,17045505,-24,-16,17043736,-8,1118488,1793,107,17043202,1,169021201,2049,56,25,33883396, 101450758,6404,459011,436,34668804,2,2049,433,524545,378,436,302056196,378,659969,1,0,9,152,100,117, 112,0,455,11,152,100,114,111,112,0,462,13,152,115,119,97,112,0,470,21, 152,99,97,108,108,0,478,26,152,101,113,63,0,486,28,152,45,101,113,63, 0,493,30,152,108,116,63,0,501,32,152,103,116,63,0,508,34,152,102,101, 116,99,104,0,515,36,152,115,116,111,114,101,0,524,38,152,43,0,533,40, 152,45,0,538,42,152,42,0,543,44,152,47,109,111,100,0,548,46,152,97, 110,100,0,556,48,152,111,114,0,563,50,152,120,111,114,0,569,52,152,115, 104,105,102,116,0,576,332,158,112,117,115,104,0,585,335,158,112,111,112,0, 593,329,158,48,59,0,600,56,146,102,101,116,99,104,45,110,101,120,116,0, 606,59,146,115,116,111,114,101,45,110,101,120,116,0,620,222,146,115,58,116, 111,45,110,117,109,98,101,114,0,634,95,146,115,58,101,113,63,0,649,81, 146,115,58,108,101,110,103,116,104,0,658,64,146,99,104,111,111,115,101,0, 670,74,152,105,102,0,680,72,146,45,105,102,0,686,261,158,115,105,103,105, 108,58,40,0,693,126,133,67,111,109,112,105,108,101,114,0,704,3,133,72, 101,97,112,0,716,107,146,44,0,724,121,146,115,44,0,729,127,158,59,0, 735,288,158,91,0,740,304,158,93,0,745,2,133,68,105,99,116,105,111,110, 97,114,121,0,750,159,146,100,58,108,105,110,107,0,764,160,146,100,58,120, 116,0,774,162,146,100,58,99,108,97,115,115,0,782,164,146,100,58,110,97, 109,101,0,793,146,146,99,108,97,115,115,58,119,111,114,100,0,803,158,146, 99,108,97,115,115,58,109,97,99,114,111,0,817,133,146,99,108,97,115,115, 58,100,97,116,97,0,832,166,146,100,58,97,100,100,45,104,101,97,100,101, 114,0,846,262,158,115,105,103,105,108,58,35,0,862,268,158,115,105,103,105, 108,58,58,0,873,282,158,115,105,103,105,108,58,38,0,884,266,158,115,105, 103,105,108,58,36,0,895,319,158,114,101,112,101,97,116,0,906,321,158,97, 103,97,105,110,0,916,368,146,105,110,116,101,114,112,114,101,116,0,925,201, 146,100,58,108,111,111,107,117,112,0,938,152,146,99,108,97,115,115,58,112, 114,105,109,105,116,105,118,101,0,950,4,133,86,101,114,115,105,111,110,0, 969,415,146,105,0,980,107,146,100,0,985,409,146,114,0,990,338,146,101,114, 114,58,110,111,116,102,111,117,110,100,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,288898,289938,133,70,73,68,0,1,289931,289952,146,114,101,97,100,45, 98,121,116,101,0,3841,289938,2049,9522,1,255,21,10,289939,289973,146,114,101,97,100, 45,99,101,108,108,0,2049,289952,2049,289952,2049,289952,2049,289952,1,-8,24,17,1,-8, 24,17,1,-8,24,17,10,289960,290003,133,67,101,108,108,115,0,1011,289994,290012,146, 115,105,122,101,0,3841,289938,2049,9595,1,4,197652,2,4097,290003,10,290004,290037,146,108, 111,97,100,45,105,109,97,103,101,0,1,0,2049,9485,4097,289938,1,288907,2049,290012, 1793,290056,2049,289973,67502597,16,2049,2884,10,1,290049,2049,2270,3,3841,289938,2049,9504,10,290023, 290075,133,67,111,117,110,116,0,8,290066,290084,146,69,79,76,63,0,1,290075,2049, 2982,3841,290075,1,20,11,1793,290102,2049,9203,1,0,4097,290075,10,1,290095,9,10,1793, 290221,3841,290003,2049,3640,105,110,116,51,50,92,32,116,32,110,103,97,73,109,97, 103,101,67,101,108,108,115,32,61,32,37,110,59,0,1,290112,2049,7217,2049,9240, 2049,9203,2049,3640,105,110,116,51,50,92,32,116,32,110,103,97,73,109,97,103, 101,91,93,32,61,32,123,0,1,290151,2049,7217,2049,9240,2049,9203,1,288907,1,288907, 1,3,17,15,1793,290204,2049,56,2049,9254,1,44,2049,9190,2049,290084,10,1,290193,2049, 2270,3,2049,3640,125,59,0,1,290211,2049,9240,2049,9203,10,1,290108,56,53,0,48, 57,50,0,54,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,}; 1793,-1,1011,1536,202107,376,348,1027,1535,0,10,1,10,2,10,3,10,4,10, 5,10,6,10,7,10,8,10,9,10,10,11,10,12,10,13,10,14,10,15, 10,16,10,17,10,18,10,19,10,20,10,21,10,22,10,23,10,24,10,25, 10,68223234,1,2575,85000450,1,656912,0,0,268505089,67,66,285281281,0,67,2063,10,101384453,0,9, 10,2049,60,25,459011,80,524546,80,302256641,1,10,16974595,0,50529798,10,25,524547,99,50529798,10, 17108738,1,251790353,101777669,1,17565186,90,524545,94,68,167838467,-1,134287105,3,63,659457,3,459023,111,2049, 60,25,2049,111,1793,118,2049,118,117506307,0,111,0,524545,29,116,168820993,0,130,1642241,130, 134283523,11,116,1793,111,524545,2049,111,1793,111,16846593,130,144,161,1793,68,16846593,130,116,161, 1793,68,7,10,659713,1,659713,2,659713,3,1793,171,17108737,3,2,524559,111,2049,111,2049, 111,2049,125,168820998,2,0,0,167841793,184,9,17826049,0,184,2,15,25,524546,167,134287105,185, 99,2305,186,459023,194,134287361,185,189,659201,184,10,659969,7,2049,60,25,17694978,58,210,9, 84152833,48,319750404,209,117507601,212,184618754,45,25,16974851,-1,168886532,1,134284289,1,225,134284289,0,212,660227, 32,0,0,115,105,103,105,108,58,95,0,285278479,242,6,2576,524546,85,1641217,1,167838467, 239,2049,254,2049,250,524545,242,204,17826050,241,0,2572,2563,2049,232,1793,137,459023,137,17760513, 149,3,169,8,251727617,3,2,2049,163,16,168820993,-1,130,2049,204,2049,163,459023,137,285282049, 3,2,134287105,130,289,524545,1793,111,16846593,3,0,111,8,659201,3,524545,29,116,17043201,3, 11,2049,116,2049,111,268505092,130,1642241,130,656131,659201,3,524545,11,116,2049,111,459009,23,116, 459009,58,116,459009,19,116,459009,21,116,1793,9,10,524546,163,134284303,165,1807,0,1642241,241, 285282049,356,1,459012,351,117509889,184,351,134287105,356,204,16845825,0,364,348,1793,68,1793,378,17826050, 356,260,8,117506305,357,367,68,2116,11340,11700,11400,13685,13104,12432,12402,9603,9801,11514,11413,11110, 12528,11948,10302,13340,9700,13455,12753,10500,10670,12654,13320,11960,13908,10088,10605,11865,11025,0,2049,204, 987393,1,1793,111,524546,454,2049,452,2049,452,17891588,2,454,8,17045505,-24,-16,17043736,-8,1118488, 1793,111,17043202,1,169021201,2049,60,25,33883396,101450758,6404,459011,444,34668804,2,2049,441,524545,386,444, 302056196,386,659969,1,0,13,155,100,117,112,0,463,15,155,100,114,111,112,0,470, 17,155,115,119,97,112,0,478,25,155,99,97,108,108,0,486,30,155,101,113, 63,0,494,32,155,45,101,113,63,0,501,34,155,108,116,63,0,509,36,155, 103,116,63,0,516,38,155,102,101,116,99,104,0,523,40,155,115,116,111,114, 101,0,532,42,155,43,0,541,44,155,45,0,546,46,155,42,0,551,48,155, 47,109,111,100,0,556,50,155,97,110,100,0,564,52,155,111,114,0,571,54, 155,120,111,114,0,577,56,155,115,104,105,102,116,0,584,342,161,112,117,115, 104,0,593,345,161,112,111,112,0,601,339,161,48,59,0,608,60,149,102,101, 116,99,104,45,110,101,120,116,0,614,63,149,115,116,111,114,101,45,110,101, 120,116,0,628,232,149,115,58,116,111,45,110,117,109,98,101,114,0,642,99, 149,115,58,101,113,63,0,657,85,149,115,58,108,101,110,103,116,104,0,666, 68,149,99,104,111,111,115,101,0,678,78,155,105,102,0,688,76,149,45,105, 102,0,694,271,161,115,105,103,105,108,58,40,0,701,130,137,67,111,109,112, 105,108,101,114,0,712,3,137,72,101,97,112,0,724,111,149,44,0,732,125, 149,115,44,0,737,131,161,59,0,743,298,161,91,0,748,314,161,93,0,753, 2,137,68,105,99,116,105,111,110,97,114,121,0,758,162,149,100,58,108,105, 110,107,0,772,163,149,100,58,120,116,0,782,165,149,100,58,99,108,97,115, 115,0,790,167,149,100,58,110,97,109,101,0,801,149,149,99,108,97,115,115, 58,119,111,114,100,0,811,161,149,99,108,97,115,115,58,109,97,99,114,111, 0,825,137,149,99,108,97,115,115,58,100,97,116,97,0,840,169,149,100,58, 97,100,100,45,104,101,97,100,101,114,0,854,272,161,115,105,103,105,108,58, 35,0,870,278,161,115,105,103,105,108,58,58,0,881,292,161,115,105,103,105, 108,58,38,0,892,276,161,115,105,103,105,108,58,36,0,903,329,161,114,101, 112,101,97,116,0,914,331,161,97,103,97,105,110,0,924,376,149,105,110,116, 101,114,112,114,101,116,0,933,204,149,100,58,108,111,111,107,117,112,0,946, 155,149,99,108,97,115,115,58,112,114,105,109,105,116,105,118,101,0,958,4, 137,86,101,114,115,105,111,110,0,977,423,149,105,0,988,111,149,100,0,993, 417,149,114,0,998,209,137,66,97,115,101,0,1003,348,149,101,114,114,58,110, 111,116,102,111,117,110,100,0 };
A words.tsv => words.tsv +527 -0
@@ 0,0 1,527 @@ $ -c - - Return ASCII:NUL (0). class:macro {n/a} {n/a} global all ' -s - - Return an empty string. class:macro {n/a} {n/a} global all ( - - - Provide a visual indication of a code group. class:macro {n/a} {n/a} sigil all ) - - - Provide a visual indication of a code group. class:macro {n/a} {n/a} sigil all * nn-n - - Multiply `n1` by `n2` and return the result. class:primitive #2 #6 *\n #-1 #100 * {n/a} global all + nn-n - - Add `n1` to `n2` and return the result. class:primitive #1 #2 + {n/a} global all , n- - - Store the specified value into the memory at `here` and increment `Heap` by 1. class:word $a , $b , $c , #0 , {n/a} global all - nn-n - - Subtract `n2` from `n1` and return the result. class:primitive #2 #1 - {n/a} global all ---reveal--- - - - Switch to the exposed (public) portion of a lexical namespace. class:word {n/a} {n/a} global all -eq? nn-f - - Compare two values for inequality. Returns `TRUE` if they are not equal or `FALSE` otherwise. class:primitive #1 #2 -eq?\n $a $b -eq? {n/a} global all -if fq- - - Execute the quotation if the flag is `FALSE`. class:word {n/a} {n/a} global all -if: f- - - Execute the remainder of the word or quotation if the flag is `FALSE`. If `TRUE`, exit the word. This should be used inside a definition only. class:macro {n/a} {n/a} global all -if; fq- - - Execute the quotation if the flag is `FALSE`. If false, also exit the word. class:word {n/a} {n/a} global all / nm-q - - Divide `n` by `m` and return the integer part of the quotient. class:word {n/a} {n/a} global all // - - - Ignore any tokens remaining on the current line. Works with files and the interactive "listener". class:word {n/a} {n/a} global rre /mod nm-rq - - Divide `n` by `m` and return the integer part of the quotient and remainder. class:primitive {n/a} {n/a} global all 0; n-n || n- - - If `n` is zero, drop `n` and exit the current word. If non-zero, leave `n` alone and allow execution to continue. class:macro {n/a} {n/a} global all ; - - - End the current definition. class:macro {n/a} {n/a} global all ?dup n-nn || n-n - - Duplicate top value on stack if not zero. If zero, do nothing. class:word #1 ?dup\n #0 ?dup {n/a} global all ASCII:ACK -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:BEL -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:BS -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:CAN -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:CR -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:DC1 -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:DC2 -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:DC3 -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:DC4 -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:DEL -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:DLE -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:EM -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:ENQ -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:EOT -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:ESC -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:ETB -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:ETX -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:FF -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:FS -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:GS -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:HT -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:LF -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:NAK -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:NUL -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:RS -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:SI -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:SO -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:SOH -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:SPACE -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:STX -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:SUB -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:SYN -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:US -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all ASCII:VT -n - - Constant. Refers to specific ASCII code. class:data {n/a} {n/a} ASCII all Base -a - - Variable. Holds the current numeric base. class:data {n/a} {n/a} global all Compiler -a - - Variable. Holds the compiler state. If TRUE, the compiler is active. If FALSE, it is not. class:data {n/a} {n/a} global all Dictionary -a - - Variable. Holds a pointer to the most recent dictionary header. class:data {n/a} {n/a} global all EOM -a - - Constant. Returns the last addressable memory address. class:word {n/a} {n/a} global all FALSE -n - - Returns `0`, the value used to indicate a FALSE result. class:word {n/a} {n/a} global all FREE -n - - Returns the number of cells available to your application. This is the amount of memory, less the already consumed portion and buffers mapped for Retro's internal use. class:word {n/a} {n/a} global all Heap -a - - Variable. Holds the address of the next available cell. class:data {n/a} {n/a} global all I -n - - Access the loop index for the current loop. (For loops made using `indexed-times`) class:word {n/a} {n/a} global all J -n - - Access the parent loop index for the current loop. (For loops made using `indexed-times`) class:word {n/a} {n/a} global all K -n - - Access the grandparent loop index for the current loop. (For loops made using `indexed-times`) class:word {n/a} {n/a} global all NoEcho -a - - Variable. If TRUE, allow display of the "ok" prompt and startup banner. class:word {n/a} {n/a} global rre RewriteUnderscores -a - - Variable. When set to `TRUE`, Retro will replace underscores in strings with spaces. When `FALSE`, Retro does not. class:data {n/a} {n/a} global all STRINGS -a - - Return the address of the start of the temporary string pool. This can be altered by changing the values of `TempStrings` and `TempStringMax`. class:word {n/a} {n/a} global all ScopeList -a - - Variable. This holds some information used by `{{` and `}}`. class:data {n/a} {n/a} global all TIB -a - - Constant. Returns a pointer to the text input buffer. class:data {n/a} {n/a} global rre TRUE -n - - Returns `-1`, the value used to indicate a TRUE result. class:word {n/a} {n/a} global all TempStringMax -a - - Variable. Holds the maximum length of a temporary string. class:data {n/a} {n/a} global all TempStrings -a - - Variable. Holds the number of temporary strings. class:data {n/a} {n/a} global all Version -a - - Variable. This stores the version number. class:data {n/a} {n/a} global all [ - - - Begin a quotation. class:macro {n/a} {n/a} global all ] - - - End a quotation. class:macro {n/a} {n/a} global all a:-eq? aa-f - - Compare all values in the array. Return `FALSE` if all values are equal or `TRUE` otherwise. This assumes the array contains only numeric values. class:word {n/a} {n/a} a all a:append aa-a - - Return a new array consisting of the values in a1 followed by the values in a2. class:word {n/a} {n/a} a all a:begins-with? aa-f - - Return `TRUE` if a1 begins with a2 or `FALSE` otherwise. class:word {n/a} {n/a} a all a:chop a-a - - Return a new array containing all but the last value in the source array. class:word {n/a} {n/a} a all a:contains-string? sa-f - - Return `TRUE` if the string value is in the array or `FALSE` otherwise. class:word {n/a} {n/a} a all a:contains? na-f - - Return `TRUE` if the value is in the array or `FALSE` otherwise. class:word {n/a} {n/a} a all a:copy aa- - - Copy an array (a1) to a destination (a2). class:word {n/a} {n/a} a all a:counted-results q-a - - Run a quote and construct a new array from the returned values. The quote should return the values and the number of values to put into the array. class:word {n/a} {n/a} a all a:dup a-b - - Make a copy of an array. Return the address of the copy. class:word {n/a} {n/a} a all a:ends-with? aa-f - - Return `TRUE` if a1 ends with a2 or `FALSE` otherwise. class:word {n/a} {n/a} a all a:eq? aa-f - - Compare all values in the array. Return `TRUE` if all values are equal or `FALSE` otherwise. This assumes the array contains only numeric values. class:word {n/a} {n/a} a all a:fetch an-n - - Fetch the value stored at the specified index in the specified array. class:word { #0 #1 #3 } #2 a:fetch {n/a} a all a:filter aq-b - - For each item in the initial array, run the specified quote. If the quote returns `TRUE`, copy the item into a new array. If `FALSE`, discard it. Returns a pointer to the new array. class:word {n/a} {n/a} a all a:for-each aq- - - Execute the quote once for each item in the array. class:word {n/a} {n/a} a all a:from-string s-a - - Create a new array with the characters in the source string. class:word {n/a} {n/a} a all a:index-of an-n - - Return the location of the first instance of the specified value in the array. class:word {n/a} {n/a} a all a:index-of-string as-n - - Return the location of the first instance of the specified string in the array. class:word {n/a} {n/a} a all a:left an-a - - Return a new array containing the first `n` values from the source array. class:word {n/a} {n/a} a all a:length a-n - - Return the length of a array. class:word {n/a} {n/a} a all a:make q-a - - Execute quote. Return a new array containing the values the quote leaves on the stack. This is identical to doing `a:counted-results a:reverse` class:word {n/a} {n/a} a all a:map aq-b - - Execute quote once for each item in the array. Constructs a new array from the value returned by the quote. class:word {n/a} {n/a} a all a:middle afl-a - - Extract a new array from the middle of the specified array. This will take the values starting at `f` and extend to the `l` last value. class:word {n/a} {n/a} a all a:prepend aa-a - - Return a new array consisting of the values in a2 followed by the values in a1. class:word {n/a} {n/a} a all a:reduce pnq-n - - Takes an array, a starting value, and a quote. This will apply the quote to each item in the array; the quote should consume two values and return one. class:word {n/a} {n/a} a all a:reverse a-b - - Reverse the order of items in a array. This will return a new array. class:word {n/a} {n/a} a all a:right an-a - - Return a new array containing the specified number of values from the right side of the array. class:word {n/a} {n/a} a all a:store vna- - - Store a value into the array at the specified index. class:word #3 { #0 #1 #2 } #1 a:store {n/a} a all a:th an-b - - Return the actual address of the `n`th item in the array. class:word {n/a} {n/a} a all a:to-string a-s - - Create a new string from the provided array. This string will be stored in the temporal string buffers. class:word {n/a} {n/a} a all abort - - - Abort execution. class:macro {n/a} {n/a} global rre again - - - Close an unconditional loop. Branches back to the prior `repeat`. class:macro {n/a} {n/a} global all allot n- - - Allocate the specified number of cells from the `Heap`. class:word 'Buffer d:create #100 allot {n/a} global all and nm-o - - Perform a bitwise AND operation between the two provided values. class:primitive {n/a} {n/a} global all banner - - - Display a welcome message on startup. class:word {n/a} {n/a} global rre {n/a} bi xqq-? - - Execute q1 against x, then execute q2 against a copy of x. class:word #100 [ #10 * ] [ #10 - ] bi {n/a} global all bi* xyqq-? - - Execute q1 against x and q2 against y. class:word #10 #20 [ #2 * ] [ #10 / ] bi* {n/a} global all bi@ xyq-? - - Execute q against x, then execute q against y. class:word #10 #20 [ #3 * ] bi@ {n/a} global all binary - - - Set `Base` to binary. class:word {n/a} {n/a} a all buffer:add n- - - Append a value to the current buffer. class:word {n/a} {n/a} buffer all buffer:empty - - - Reset the current buffer to an empty state. class:word {n/a} {n/a} buffer all buffer:end -a - - Return a pointer to the current end of the active buffer. class:word {n/a} {n/a} buffer all buffer:get -n - - Remove the last value from the current buffer. class:word {n/a} {n/a} buffer all buffer:preserve q- - - Save and restore the current buffer before and after executing the specified quote. class:word {n/a} {n/a} buffer all buffer:set a- - - Assign a new buffer as the current one. class:word {n/a} {n/a} buffer all buffer:size -n - - Return the number of cells in the buffer. class:word {n/a} {n/a} buffer all buffer:start -a - - Return the start address of the current buffer. class:word {n/a} {n/a} buffer all bye - - - Exit Retro. class:word {n/a} {n/a} global rre c:-consonant? c-f - - Return TRUE if character is a not consonant or FALSE otherwise. class:word {n/a} {n/a} c all c:-digit? c-f - - Return TRUE if character is a not numeric digit or FALSE otherwise. class:word {n/a} {n/a} c all c:-lowercase? c-f - - Return TRUE if character is not lowercase or FALSE otherwise. class:word {n/a} {n/a} c all c:-uppercase? c-f - - Return TRUE if character is not uppercase or FALSE otherwise. class:word {n/a} {n/a} c all c:-visible? c-f - - Return TRUE if character is not printable or FALSE otherwise. class:word {n/a} {n/a} c all c:-vowel? c-f - - Return TRUE if character is not a vowel or FALSE otherwise. class:word {n/a} {n/a} c all c:-whitespace? c-f - - Return TRUE if character is not whitespace, or FALSE otherwise. class:word {n/a} {n/a} c all c:consonant? c-f - - Return TRUE if character is a consonant or FALSE otherwise. class:word {n/a} {n/a} c all c:digit? c-f - - Return TRUE if character is a numeric digit or FALSE otherwise. class:word {n/a} {n/a} c all c:get -c - - Vectored. Read a single keypress. class:word {n/a} {n/a} global rre c:letter? c-f - - Return TRUE if character is an ASCII letter or FALSE otherwise. class:word {n/a} {n/a} c all c:lowercase? c-f - - Return TRUE if character is lowercase or FALSE otherwise. class:word {n/a} {n/a} c all c:put c- - - Vectored. Display a single character. class:word {n/a} {n/a} global all c:to-lower c-c - - Convert character to lowercase equivalent. class:word {n/a} {n/a} c all c:to-number c-n - - Convert an ASCII digit character into the corresponding decimal value class:word {n/a} {n/a} global all c:to-string c-s - - Convert character into a string. class:word {n/a} {n/a} c all c:to-upper c-c - - Convert character to uppercase equivalent. class:word {n/a} {n/a} c all c:toggle-case c-c - - Convert an ASCII character to the opposite case. class:word {n/a} {n/a} c all c:uppercase? c-f - - Return TRUE if character is uppercase or FALSE otherwise. class:word {n/a} {n/a} c all c:visible? c-f - - Return TRUE if character is printable or FALSE otherwise. class:word {n/a} {n/a} c all c:vowel? c-f - - Return TRUE if character is a vowel or FALSE otherwise. class:word {n/a} {n/a} c all c:whitespace? c-f - - Return TRUE if character is whitespace, or FALSE otherwise. class:word {n/a} {n/a} c all call a- - - Call a function. class:primitive {n/a} {n/a} global all case nmq- || nmq-n - - If `n` is equal to `m`, drop both and execute the specified quote before exiting the calling word. If not equal, leave `n` on the stack and let execution continue. class:word {n/a} {n/a} global all choose fqq- - - Execute q1 if the flag is true (-1) or q2 if the flag is false (0). Only these flags are valid when using `choose`; passing other values as flags will result in memory corruption. class:word {n/a} {n/a} global all class:data n- || n-n - - Class handler for data structures. Keep the address or value on the stack. Compile the value or address as a literal into the current definition. class:word {n/a} {n/a} class all class:macro a- - - Class handler for compiler macros (immediate words) Execute the function at the provided address. Execute the function at the provided address. class:word {n/a} {n/a} class all class:primitive a- - - Class handler for primitive words (words which map to Nga instructions) Execute the function. Compile the machine code in the definiton into the current definition. class:word {n/a} {n/a} class all class:word a- - - Class handler for normal words. Execute the function at the provided address. Compile a call to the specified address into the current definition. class:word {n/a} {n/a} class all clear - - - Clear the display. class:word {n/a} {n/a} global rre clock:day -n - - Return the current day. class:word {n/a} {n/a} clock iOS, rre clock:hour -n - - Return the current hour. This will be in the range of 0-23, inclusive. class:word {n/a} {n/a} clock iOS, rre clock:minute -n - - Return the current minute. This will be in the range of 0-59, inclusive. class:word {n/a} {n/a} clock iOS, rre clock:month -n - - Return the current month. This will be in the range of 1-12, inclusive. class:word {n/a} {n/a} clock iOS, rre clock:operation ...n- - - Trigger a clock operation. This is not intended to be used directly. class:word {n/a} {n/a} clock rre clock:second -n - - Return the current second. This will be in the range of 0-59, inclusive. class:word {n/a} {n/a} clock iOS, rre clock:timestamp -n - - Return a host specific timestamp. In the standard system, this is a 32-bit Unix timestamp, but this is not required. class:word {n/a} {n/a} clock rre clock:utc:day -n - - Return the current day in UTC. class:word {n/a} {n/a} clock iOS, rre clock:utc:hour -n - - Return the current hour in UTC. class:word {n/a} {n/a} clock iOS, rre clock:utc:minute -n - - Return the current minute in UTC. class:word {n/a} {n/a} clock iOS, rre clock:utc:month -n - - Return the current month in UTC. class:word {n/a} {n/a} clock iOS, rre clock:utc:second -n - - Return the current second in UTC. class:word {n/a} {n/a} clock iOS, rre clock:utc:year -n - - Return the current year in UTC. class:word {n/a} {n/a} clock iOS, rre clock:year -n - - Return the current year. class:word {n/a} {n/a} clock iOS, rre compile:call a- - - Compile a call to the specified address into the current definition. class:word {n/a} {n/a} compile all compile:jump a- - - Compile a jump to the specified address into the current definition. class:word {n/a} {n/a} compile all compile:lit n- - - Compile the code to push a number to the stack into the current definition. class:word {n/a} {n/a} compile all compile:ret - - - Compile a return instruction into the current definition. class:word {n/a} {n/a} compile all compiling? -f - - Return `TRUE` if compiler is on or `FALSE` otherwise. class:word {n/a} {n/a} global all const ns- - - Create a constant returning the specified value. class:word {n/a} {n/a} global all copy sdl- - - Copy `l` cells from memory at `s` to the memory at `d`. These should not overlap. class:word {n/a} {n/a} global all curry nq-q - - Bind a value to a function and return a new quote that calls the bound action. class:word {n/a} {n/a} global all d n- - - Inline a numeric value to the current assembly segment. class:word {n/a} {n/a} global all d:add-header saa- - - Vectored. Create a header. Provide a string (s) for the name, a pointer to the class handler (a1) and a pointer to the word definition (a2) Generally this won't be used directly. class:word {n/a} {n/a} d all d:class d-a - - Given a dictionary header, return the class field. class:word {n/a} {n/a} d all d:create s- - - Create a new dictionary header named the specified string. The new header will point to `here` and have a class of `class:data`. class:word {n/a} {n/a} d all d:for-each q- - - Execute the specified quote once for each header in the dictionary. Before running the quote, this also pushes a pointer to the header onto the stack. class:word {n/a} {n/a} d all d:last -d - - Return the most recent dictionary header. class:word {n/a} {n/a} d all d:last.class -a - - Return a pointer to the class field of the most recent dictionary header. class:word {n/a} {n/a} d all d:last.name -s - - Return a pointer to the name field of the most recent dictionary header. class:word {n/a} {n/a} d all d:last.xt -a - - Return a pointer to the xt field of the most recent dictionary header. class:word {n/a} {n/a} d all d:link d-a - - Given a dictionary header, return the link field. class:word {n/a} {n/a} d all d:lookup s-d - - Lookup the specified name in the dictionary and return a pointer to its dictionary header. This returns zero if the word is not found. This also sets an internal variable ('which' in retro.muri) to the header address. class:word {n/a} {n/a} d all d:lookup-xt a-d - - Lookup the specified address in the dictionary and return a pointer to its dictionary header. This returns zero if the word is not found. class:word {n/a} {n/a} d all d:name d-s - - Given a dictionary header, return the name field. class:word {n/a} {n/a} d all d:words - - - Display a list of all named items in the `Dictionary`. class:word {n/a} {n/a} d rre d:words-beginning-with s- - - Display a list of all named items in the `Dictionary` that begin with the provided substring. class:word {n/a} {n/a} d rre d:words-with s- - - Display a list of all named items in the `Dictionary` that contain the provided substring. class:word {n/a} {n/a} d rre d:xt d-a - - Given a dictionary header, return the xt field. class:word {n/a} {n/a} d all data - - - Change the class of the most recently defined word to `class:data`. class:word {n/a} {n/a} global all decimal - - - Set `Base` to decimal. class:word {n/a} {n/a} a all depth -n - - Return the number of items on the stack. class:word {n/a} {n/a} global all dip nq-n - - Temporarily remove n from the stack, execute the quotation, and then restore n to the stack. class:word {n/a} {n/a} global all does q- - - Attach an action to the most recently created word. This is used in a manner similar to CREATE/DOES> in traditional Forth. class:word {n/a} {n/a} global all drop n- - - Discard the top value on the stack. class:primitive {n/a} {n/a} global all drop-pair nn- - - Remove top two items on the stack. class:word {n/a} {n/a} global all dump-stack - - - Display the items on the data stack. class:word {n/a} {n/a} global all dup n-nn - - Duplicate the top item on the stack. class:primitive {n/a} {n/a} global all dup-pair nm-nmnm - - Duplicate the top two items on the stack. class:word {n/a} {n/a} global all e:-INF -e - - Constant. Negative infinity. For encoded floating-point values. class:word {n/a} {n/a} e rre {n/a} e:-inf? e-f - - Is encoded value negative infinity? class:word {n/a} {n/a} e rre {n/a} e:INF -e - - Constant. Infinity. For encoded floating-point values. class:word {n/a} {n/a} e rre {n/a} e:MAX -e - - Constant. Maximum value. For encoded floating-point values. class:word {n/a} {n/a} e rre e:MIN -e - - Constant. Minimum value. For encoded floating-point values. class:word {n/a} {n/a} e rre {n/a} e:NAN -e - - Constant. Not a Number. For encoded floating-point values. class:word {n/a} {n/a} e rre {n/a} e:clip e-E - - Constrain the encoded value to the allowable range. class:word {n/a} {n/a} e rre e:inf? e-f - - Is encoded value infinity? class:word {n/a} {n/a} e rre {n/a} e:max? e-f - - Is encoded value at the maximum? class:word {n/a} {n/a} e rre {n/a} e:min? e-f - - Is encoded value at the minimum? class:word {n/a} {n/a} e rre {n/a} e:n? e-f - - Return `TRUE` if the encoded value is a valid number, or `FALSE` otherwise. class:word {n/a} {n/a} e rre e:nan? e-f - - Is encoded value a Nan? class:word {n/a} {n/a} e rre {n/a} e:put e- - - Display an encoded number. class:word {n/a} {n/a} e rre e:to-f e- - -n Decode an encoded floating-point value. class:word {n/a} {n/a} e rre e:zero? e-f - - Return `TRUE` if the value is zero, or `FALSE` otherwise. class:word {n/a} {n/a} e rre eq? nn-f - - Compare two values for equality. Returns `TRUE` if they are equal or `FALSE` otherwise. class:primitive #1 #2 eq?\n $a $b eq? {n/a} global all err:notfound - - - Vectored. Error handler. Called when a word is not found by `interpret`. class:word {n/a} {n/a} err all f:* - - FF-F Multiply two floating-point numbers, returning the result. class:word .3.1415 .22 f:* {n/a} f rre f:+ - - FF-F Add two floating-point numbers, returning the result. class:word .3.1 .22 f:+ {n/a} f rre f:- - - FF-F Subtract F2 from F1 returning the result. class:word .22.3 .0.12 f:- {n/a} f rre f:-INF - - -n Return a value corresponding to negative infinity class:word {n/a} {n/a} f rre f:-eq? -f - FF- Compare two floating-point values for inequality. Returns `TRUE` if they are not equal or `FALSE` otherwise. class:word {n/a} {n/a} f rre f:-inf? -f - F- Return `TRUE` if floating-point value is -INF or `FALSE` otherwise. class:word {n/a} {n/a} f rre f:/ - - FF-F Divide floating-point value F1 by F2. class:word {n/a} {n/a} f rre f:E - - -F Return the floating-point value for Euler's number. class:word {n/a} {n/a} f rre f:E1 - - -f Hook. Return a constant used as the scaling factor for the e: words. class:word {n/a} {n/a} f rre {n/a} f:INF - - -n Return a value corresponding to positive infinity class:word {n/a} {n/a} f rre f:NAN - - -n Return a value corresponding to NaN class:word {n/a} {n/a} f rre f:PI - - -F Return the floating-point value for PI. class:word {n/a} {n/a} f rre f:abs - - F-F Return the absolute value for a floating-point value. class:word {n/a} {n/a} f rre f:acos - - F-F Return the arc cosine of a floating-point number. class:word {n/a} {n/a} f rre f:adepth -n - - Return the number of items on the alternate floating-point stack. class:word {n/a} {n/a} f rre f:asin - - F-F Return the arc sine of a floating-point number. class:word {n/a} {n/a} f rre f:atan - - F-F Return the arc tangent of a floating-point number. class:word {n/a} {n/a} f rre f:between? -f - nlu- Return TRUE if number is between the lower (l) and upper (u) bounds. If not, return FALSE. This is inclusive of the limits. class:word .3 .1 .100 f:between?\n .100 .200 .300 f:between? {n/a} f rre f:case q- - nm-n If `n` is equal to `m`, drop both and execute the specified quote before exiting the calling word. If not equal, leave `n` on the stack and let execution continue. class:word {n/a} {n/a} f rre f:ceiling - - F-F Return the smallest integral value greater than or equal to the specified value. class:word {n/a} {n/a} f rre f:cos - - F-F Return the cosine of a floating-point number. class:word {n/a} {n/a} f rre f:dec - - n-m Decrement n by one. class:word .100 f:dec {n/a} f rre f:depth -n - - Return the number of items on the floating-point stack. class:word {n/a} {n/a} f rre f:drop - - F- Discard the top item on the floating-point stack. class:word {n/a} {n/a} f rre f:drop-pair - - FF- Remove top two items on the stack. class:word {n/a} {n/a} f rre f:dump-astack - - - Display the items on the alternate floating-point stack. class:word {n/a} {n/a} f rre f:dump-stack - - - Display the items on the floating-point stack. class:word {n/a} {n/a} f rre f:dup - - F-FF Duplicate the top item on the floating-point stack. class:word {n/a} {n/a} f rre f:dup-pair - - nm-nmnm Duplicate the top two items on the stack. class:word {n/a} {n/a} f rre f:eq? -f - FF- Compare two floating-point values for equality. Returns `TRUE` if they are equal or `FALSE` otherwise. class:word {n/a} {n/a} f rre f:fetch a- - -n Fetch a stored floating-point value. class:word {n/a} {n/a} f rre f:floor - - F-F Perform a mathematical floor operation on the floating-point value. class:word {n/a} {n/a} f rre f:gt? -f - FF- Compare two floating-point values for greater than. class:word {n/a} {n/a} f rre f:inc - - n-m Increment n by one. class:word .100 f:inc {n/a} f rre f:inf? -f - F- Return `TRUE` if floating-point value is INF or `FALSE` otherwise. class:word {n/a} {n/a} f rre f:limit - - nlu-m Return n if it is within the lower (l) and upper (u) bounds. If outside the bounds, return the closes boundary value. class:word .-10 .5 .8 f:limit\n .10 .1 .15 f:limit {n/a} f rre f:log - - FF-F Return log(F1) for base F2 for floating-point values. class:word {n/a} {n/a} f rre f:lt? -f - FF- Compare two floating-point values for less than. class:word {n/a} {n/a} f rre f:max - - mn-o Return the greater of two values. class:word .1 .7 f:max\n .-8 .-10 f:max {n/a} f rre f:min - - mn-o Return the lesser of two values. class:word .1 .7 f:min\n .-8 .-10 f:min {n/a} f rre f:nan? -f - F- Return `TRUE` if floating-point value is NaN or `FALSE` otherwise. class:word {n/a} {n/a} f rre f:negate - - F-F Invert the sign of the floating-point value. class:word .3.1415 f:negate {n/a} f rre f:negative? -f - F- Return `TRUE` if floating-point value is negative or `FALSE` if not. class:word {n/a} {n/a} f rre f:nip - - NM-M Remove the second item from the stack. class:word {n/a} {n/a} f rre f:over - - FG-FGF Put a copy of the second floating-point value over the top one. class:word {n/a} {n/a} f rre f:pop - - -F Pop a floating-point value from the alternate stack. class:word {n/a} {n/a} f rre f:positive? -f - F- Return `TRUE` if floating-point value is positive or `FALSE` otherwise. class:word {n/a} {n/a} f rre f:power - - FF-F Return F1^F2 for floating-point values. class:word {n/a} {n/a} f rre f:push - - F- Push a floating-point value to an alternative stack. class:word {n/a} {n/a} f rre f:put - - F- Display a floating-point number. class:word {n/a} {n/a} global rre f:rot - - abc-bca Rotate the top three values. class:word {n/a} {n/a} f rre f:round - - f-f Round a floating-point value. class:word {n/a} {n/a} f rre f:sign -n - F- Return 1 if the floating-point value is positive or -1 if it is negative. class:word .3.1415 f:sign {n/a} f rre f:signed-sqrt - - F-F Return the square root of a floating-point number. class:word {n/a} {n/a} f rre f:signed-square - - f-f Return the square of a floating-point number. class:word {n/a} {n/a} f rre f:sin - - F-F Return the sine of a floating-point number. class:word {n/a} {n/a} f rre f:sqrt - - F-F Return the square root of a floating-point number. class:word {n/a} {n/a} f rre f:square - - f-f Return the square of a floating-point number. class:word {n/a} {n/a} f rre f:store a- - n- Store a floating-point value to the specified memory location. class:word {n/a} {n/a} f rre f:swap - - FG-GF Exchange the top and second items on the floating-point stack. class:word {n/a} {n/a} f rre f:tan - - F-F Return the tangent of a floating-point number. class:word {n/a} {n/a} f rre f:to-e -e - n- Encode the floating-point value to an integer. class:word {n/a} {n/a} f rre f:to-number -n - F- Convert a floating-point value into a number. class:word {n/a} {n/a} f rre f:to-string -s - F- Convert a floating-point value into a string. class:word {n/a} {n/a} f rre f:tuck - - FG-GFG Tuck a copy of the top floating-point value under the second one. class:word {n/a} {n/a} f rre fetch a-n - - Fetch the value stored at the specified address. class:primitive &Version fetch {n/a} global all fetch-next a-an - - Fetch the value stored at the specified address. Returns the next address and the value. class:word {n/a} {n/a} global all file:A -n - - Constant for opening a file in APPEND mode. class:data {n/a} {n/a} file rre file:R -n - - Constant for opening a file in READ mode. class:data {n/a} {n/a} file rre file:R+ -n - - Constant for opening a file in READ & WRITE mode. class:data {n/a} {n/a} file rre file:W -n - - Constant for opening a file in WRITE mode. class:data {n/a} {n/a} file rre file:close h- - - Given a file handle, close the file. class:word {n/a} {n/a} file rre file:delete s- - - Delete the named file. class:word {n/a} {n/a} file rre file:exists? s-f - - Given a file name, return `TRUE` if it exists or `FALSE` if it does not. class:word {n/a} {n/a} file rre file:flush h- - - Given a file handle, flush any pending writes to disk. class:word {n/a} {n/a} file rre file:for-each-line sq- - - Given a file name, open it and run the quote once for each line in the file. class:word {n/a} {n/a} file rre file:open sm-h - - Open a named file (s) with the given mode (m). Returns a handle identifying the file. class:word '/etc/motd file:R file:open {n/a} file rre file:open-for-append s-nn - - Open a file for reading & writing. Returns the size (NOS) and a file ID (TOS) class:word {n/a} {n/a} file rre file:open-for-reading s-nn - - Open a file for reading. Returns the size (NOS) and a file ID (TOS) class:word {n/a} {n/a} file rre file:open-for-writing s-n - - Open a file for writing. Returns the file ID class:word {n/a} {n/a} file rre file:operation ...n- - - Trigger a file I/O operation. This is not intended to be used directly. class:word {n/a} {n/a} file rre file:read h-c - - Given a file handle, read and return the next character in it. class:word {n/a} {n/a} file rre file:read-line f-s - - Given a file handle, read a line and return a pointer to it. class:word {n/a} {n/a} file rre file:seek nh- - - Move the current offset into a file to the specified one. class:word {n/a} {n/a} file rre file:size h-n - - Given a file handle, return the size of the file (in bytes). class:word {n/a} {n/a} file rre file:slurp as- - - Given an address and a file name, read the file contents into memory starting at the address. class:word {n/a} {n/a} file rre file:spew ss- - - Given a string (s1) and a file name (s2), write the string into the file, replacing any existing content. class:word {n/a} {n/a} file rre file:tell h-n - - Given a file handle, return the current offset in the file. class:word {n/a} {n/a} file rre file:write ch- - - Write a character to the file represented by the handle. class:word {n/a} {n/a} file rre float:operation ...n- - - Trigger a floating-point operation. This is not intended to be used directly. class:word {n/a} {n/a} float rre gopher:get asns-n - - Takes an address, a server, a port, and a selector. Fetch the resource and store it at address. Return the number of bytes received. class:word here 'forthworks.com #70 '/ gopher:get\n here s:put {n/a} gopher ios gt? nn-f - - Compare n1 and n2. Return `TRUE` if n1 is greater than n2, or `FALSE` otherwise. class:primitive {n/a} {n/a} global all gteq? nn-f - - Compare n1 and n2. Return `TRUE` if n1 is greater than or equal to n2, or `FALSE` otherwise. class:word {n/a} {n/a} global all here -a - - Return the next free address in memory. class:word {n/a} {n/a} global all hex - - - Set `Base` to hexadecimal. class:word {n/a} {n/a} a all hook - - - Add a hook point into the current word. This should only be used as the first word in a definition. class:macro :foo hook ; {n/a} global global i s- - - Assemble the instructions specified by the string into the current assembly scope. class:word {n/a} {n/a} global all if fq- - - Execute the quote if the flag is `TRUE`. class:word {n/a} {n/a} global all if: f- - - Execute the rest of the word or quotation if the flag is `TRUE`. If `FALSE`, exit the word. This should be used inside a definition only. class:macro {n/a} {n/a} global all if; fq- - - Execute the quotation if the flag is `TRUE`. If true, also exit the word. class:word {n/a} {n/a} global all image:save s- - - Save the current system to a new image file. class:word {n/a} {n/a} image rre immediate - - - Change the class of the most recently defined word to `class:macro`. class:word {n/a} {n/a} global all include s- - - Run the code in the specified file. class:word {n/a} {n/a} global rre indexed-times nq- - - Run a quote the specified number of times, tracking the loop index in `I`. This is less efficient than `times`, so if the index is not needed, this should be avoided. class:word {n/a} {n/a} global all interpret s- - - Vectored. Interpret a single input token. class:word '#100 interpret\n 'words interpret {n/a} global all io:enumerate -n - - Return the number of I/O devices. class:word {n/a} {n/a} io all io:invoke n- - - Invoke an interaction with an I/O device. class:word {n/a} {n/a} io all io:query n-mN - - Ask an I/O device to identify itself. Returns a version (m) and device ID (N). class:word {n/a} {n/a} io all io:scan-for n-m - - Scan the I/O devices for a device with a specified ID. Returns the device number, or -1 if not found. class:word {n/a} {n/a} io all io:unix-syscall ...n- - - Trigger a Unix system call. This is not intended to be used directly. class:word {n/a} {n/a} io rre listen - - - Run interactive "listener" (a REPL). class:word {n/a} {n/a} global rre lt? nn-f - - Compare n1 and n2. Return `TRUE` if n1 is less than n2, or `FALSE` otherwise. class:primitive {n/a} {n/a} global all lteq? nn-f - - Compare n1 and n2. Return `TRUE` if n1 is less than or equal to n2, or `FALSE` otherwise. class:word {n/a} {n/a} global all mod nm-o - - Divide `n` by `m` and return the remainder. class:word {n/a} {n/a} global all n:-zero? n-f - - Return `TRUE` if number is not zero, or `FALSE` otherwise. class:word {n/a} {n/a} n all n:MAX -n - - Return the maximum value that will fit in a cell. class:word {n/a} {n/a} n all n:MIN -n - - Return the minimum value that will fit in a cell. class:word {n/a} {n/a} n all n:abs n-n - - Return the absolute value of a number. class:word #10 n:abs\n #-10 n:abs\n {n/a} n all n:between? nlu-f - - Return TRUE if number is between the lower (l) and upper (u) bounds. If not, return FALSE. This is inclusive of the limits. class:word #3 #1 #100 n:between?\n $q $a $b n:between? {n/a} n all n:dec n-m - - Decrement n by one. class:word #100 n:dec {n/a} n all n:even? n-f - - Return `TRUE` if number is even, or `FALSE` if not. class:word #12 n:even?\n #11 n:even? {n/a} n all n:inc n-m - - Increment n by one. class:word #100 n:inc {n/a} n all n:limit nlu-m - - Return n if it is within the lower (l) and upper (u) bounds. If outside the bounds, return the closes boundary value. class:word #-10 #5 #8 n:limit\n #10 #1 #15 n:limit {n/a} n all n:max mn-o - - Return the greater of two values. class:word #1 #7 n:max\n #-8 #-10 n:max {n/a} n all n:min mn-o - - Return the lesser of two values. class:word #1 #7 n:min\n #-8 #-10 n:min {n/a} n all n:negate n-n - - Invert the sign of a number. class:word #10 n:negate\n #-10 n:negate {n/a} n rre n:negative? n-f - - Return `TRUE` if number is negative, or `FALSE` if not. class:word {n/a} {n/a} n all n:odd? n-f - - Return `TRUE` if number is odd, or `FALSE` if not. class:word {n/a} {n/a} n all n:positive? n-f - - Return `TRUE` if number is positive, or `FALSE` if not. class:word {n/a} {n/a} n all n:pow bp-n - - Return base (b) to power (p). class:word {n/a} {n/a} n all n:put n- - - Display a number. class:word {n/a} {n/a} global all n:random -n - - Return a random number. class:word n:random n:put {n/a} n rre n:sqrt n-m - - Return the square root of a number. class:word {n/a} {n/a} n all n:square n-m - - Return the square of a number. class:word {n/a} {n/a} n all n:strictly-positive? n-f - - Return TRUE if number is greater than zero or FALSE if it is zero or less. class:word {n/a} {n/a} n all n:to-float n- - -F Convert a number into a floating-point value. class:word {n/a} {n/a} n rre n:to-string n-s - - Convert a number into a string. class:word {n/a} {n/a} n all n:zero? n-f - - Return `TRUE` if number is zero, or `FALSE` otherwise. class:word {n/a} {n/a} n all nip nm-m - - Remove the second item from the stack. class:word {n/a} {n/a} global all nl - - - Display a newline. class:word {n/a} {n/a} global all not n-m - - Perform a logical NOT operation. class:word {n/a} {n/a} global all octal - - - Set `Base` to octal. class:word {n/a} {n/a} a all or mn-o - - Perform a bitwise OR between the provided values. class:primitive {n/a} {n/a} global all over nm-nmn - - Put a copy of n over m. class:word {n/a} {n/a} global all parse-until q-s - - Read input from stdin (via `c:get`) until the returned character is matched by the quote. Returns a string. class:word :read-until-period (-s)\n [ $. eq? ] parse-until ; {n/a} all rre pb:get a- - - Copy a string from the pasteboard to the specified address. class:word {n/a} {n/a} pb iOS {n/a} pb:length -n - - Return the length of the string on the pasteboard. class:word {n/a} pb pb iOS pb:set s- - - Copy a string to the pasteboard. class:word {n/a} {n/a} pb iOS pop -n n- - Move a value from the return stack to the data stack. class:macro {n/a} {n/a} global all primitive - - - Change the class of the most recently defined word to `class:primitive`. class:word {n/a} {n/a} global all push n- -n - Move a value from the data stack to the return stack. class:macro {n/a} {n/a} global all r s- - - Lookup a reference by name and inline its pointer to the current assembly segment. class:word {n/a} {n/a} global all reclass a- - - Change the class handler of the most recently defined word to the specified one. class:word {n/a} {n/a} global all reorder ...ss-? - - Restructure the order of items on the stack. class:word {n/a} {n/a} global all repeat - - - Begin an unconditional loop. class:macro {n/a} {n/a} global all reset ...- - - Remove all items from the stack. class:word {n/a} {n/a} global all rot abc-bca - - Rotate the top three values. class:word {n/a} {n/a} global all s, s- - - Compile the code needed to push a string pointer to the stack and inline the string data into the current definition. class:word {n/a} {n/a} global all s:ASCII-LETTERS -s - - Constant. Returns a string of the ASCII letters (upper and lower case) class:data {n/a} {n/a} s all s:ASCII-LOWERCASE -s - - Constant. Returns a string of the ASCII letters in lowercase class:data {n/a} {n/a} s all s:ASCII-UPPERCASE -s - - Constant. Returns a string of the ASCII letters in uppercase class:data {n/a} {n/a} s all s:DIGITS -s - - Constant. Return a string of characters recognized as numeric digits. class:data {n/a} {n/a} s all s:PUNCTUATION -s - - Constant. Return a string of characters recognized as punctuation. class:data {n/a} {n/a} s all s:WHITESPACE -s - - Constant. Returns a string of characters recognized as whitespace. class:data {n/a} {n/a} s all s:append ss-s - - Return a new string consisting of s1 followed by s2. class:word {n/a} {n/a} s all s:begins-with? ss-f - - Return `TRUE` if s1 begins with s2 or `FALSE` otherwise. class:word {n/a} {n/a} s all s:case sSq- || sSq-s - - If the `s` matches `S`, discard `s` and run the quote before exiting the caller. If they do not match, discard the quote and leave `s` on the stack. class:word {n/a} {n/a} s all s:chop s-s - - Remove the last character from a string. Returns a new string. class:word {n/a} {n/a} s all s:const ss- - - Create a constant named s2, returning a pointer to s1. This will use `s:keep` to preserve the original string. class:word {n/a} {n/a} s all s:contains-char? sc-f - - Return `TRUE` if the character is present in the string or `FALSE` otherwise. class:word {n/a} {n/a} s all s:contains-string? ss-f - - Return `TRUE` if the second string is present in the first string or `FALSE` otherwise. class:word {n/a} {n/a} s all s:copy sa- - - Copy a string (s) to a destination (a). This will include the terminator character when copying. class:word {n/a} {n/a} s all s:empty -s - - Return an empty string. class:word {n/a} {n/a} s all s:ends-with? ss-f - - Return `TRUE` if s1 ends with s2 or `FALSE` otherwise. class:word {n/a} {n/a} s all s:eq? ss-f - - Compare two strings for equality. Return `TRUE` if identical or `FALSE` if not. class:word 'hello 'again s:eq?\n 'test 'test s:eq? {n/a} s all s:evaluate s-? - -? Evaluate string as if it was typed into the interpreter. class:word {n/a} {n/a} s all s:filter sq-s - - Execute the quote once for each value in the string. If the quote returns `TRUE`, append the value into a new string. If `FALSE` the value will be discarded. class:word {n/a} {n/a} s all s:for-each sq- - - Execute the quote once for each value in the string. class:word {n/a} {n/a} s all s:format ...s-s - - Construct a new string using the template passed and items from the stack. class:word {n/a} {n/a} s all s:get -s - - Read input from standard in (via `c:get`) until a CR or LF is encountered. Returns a strig. class:word {n/a} {n/a} all rre s:get-word -s - - Read input from standard in (via `c:get`) until a whitespace is encountered. Returns a strig. class:word {n/a} {n/a} all rre s:hash s-n - - Calculate a hash value for a string. This uses the djb2 algorithm. class:word {n/a} {n/a} s all s:index-of sc-n - - Return the location of the first instance of the specified character in the string. class:word {n/a} {n/a} s all s:index-of-string ss-n - - Return the location of the first instance of the specified substring (s2) in the string (s1). Returns -1 if not found. class:word {n/a} {n/a} s all s:keep s-s - - Store a string into the heap and return a pointer to the start of it. class:word {n/a} {n/a} s all s:left sn-s - - Return a new string containing the first `n` characters from the source string. class:word {n/a} {n/a} s all s:length s-n - - Return the number of characters in a string, excluding the NULL terminator. class:word {n/a} {n/a} s all s:map sq-s - - Execute the specified quote once for each character in the string. Builds a new string from the return value of the quote. The quote should return only one value. class:word {n/a} {n/a} s all s:prepend ss-s - - Return a new string consisting of s2 followed by s1. class:word {n/a} {n/a} s all s:put s- - - Display a string. class:word {n/a} {n/a} global all s:replace sss-s - - Replace the first instance of s2 in s1 with s3. class:word {n/a} {n/a} s all s:replace-all sss-s - - Replace all instances of s2 in s1 with s3. class:word {n/a} {n/a} s all s:reverse s-s - - Reverse the order of ASCII characters in a string. class:word {n/a} {n/a} s all s:right sn-s - - Return a new string containing the specified number of characters from the right side of the string. class:word {n/a} {n/a} s all s:skip - - - Internal helper function used to skip over a string in a definition. class:word {n/a} {n/a} s all s:split sc-ss - - Deprecated. Use `s:split/char` instead. Split a string on the first occurrence of the specified character. class:word {n/a} {n/a} s all s:split-on-string ss-ss - - Deprecated. Use `s:split/string` instead. Split a string on the first occurrence of the specified string. After the split, the top stack item will be the part of the string before the specified subsring, and the second item will be the rest of the original string. class:word 'Hello_Brave_World! 'Brave s:split-on-string s:put nl s:put nl {n/a} s all s:split/char sc-ss - - Split a string on the first occurrence of the specified character. class:word {n/a} {n/a} s all s:split/string ss-ss - - Split a string on the first occurrence of the specified string. After the split, the top stack item will be the part of the string before the specified subsring, and the second item will be the rest of the original string. class:word 'Hello_Brave_World! 'Brave s:split-on-string s:put nl s:put nl {n/a} s all s:substr sfl-s - - Extract a substring from the specified string. This will take the characters starting at `f` and extend `l` characters in length. class:word {n/a} {n/a} s all s:temp s-s - - Move a string into the temporary string buffers. class:word {n/a} {n/a} s all s:to-float s- - -F Convert a string representation into a floating-point value. class:word {n/a} {n/a} s rre s:to-lower s-s - - Convert uppercase ASCII characters in a string to lowercase. class:word {n/a} {n/a} s all s:to-number s-n - - Convert a string to a number. class:word {n/a} {n/a} s all s:to-upper s-s - - Convert lowercase ASCII characters in a string to uppercase. class:word {n/a} {n/a} s all s:tokenize sc-a - - Takes a string and a character to use as a separator. It splits the string into substrings and returns an array containing pointers to each of them. class:word {n/a} {n/a} s all s:tokenize-on-string ss-a - - Takes a string (s1) and a substring (s2) use as a separator. It splits the string into substrings and returns as array containing pointers to each of them. class:word {n/a} {n/a} s all s:trim s-s - - Trim leading and trailing whitespace from a string. class:word '__hello__ s:trim {n/a} s all s:trim-left s-s - - Trim leading whitespace from a string. class:word '__hello__ s:trim-left {n/a} s all s:trim-right s-s - - Trim trailing whitespace from a string. class:word '__hello__ s:trim-right {n/a} s all script:abort-include - - - Discard remaining tokens on the current line being evaluated. This only works when including a file, not at the interpreter. class:word {n/a} {n/a} sys rre script:arguments -n - - Return the number of arguments passed to the program. class:word {n/a} {n/a} sys rre script:current-file -s - - Return the filename of the file being processed by the current `include`, or `/dev/stdin` if the input source is the terminal. class:word {n/a} {n/a} sys rre script:current-line -n - - Return the current line number of the file being processed by the current `include`, or `0` if the input source is the terminal. Line numbering starts at 1. class:word {n/a} {n/a} sys rre script:get-argument n-s - - Given an argument number, return the argument as a string. class:word {n/a} {n/a} sys rre script:ignore-to-eof - - - Discard remaining lines in the file currently being evaluated. This only works when including a file, not at the interpreter. class:word {n/a} {n/a} sys rre script:ignore-to-eol - - - Discard remaining tokens in the current line. This only works when including a file, not at the interpreter. class:word {n/a} {n/a} sys rre script:name -s - - Return the filename of the program being run. class:word {n/a} {n/a} sys rre set-hook aa- - - Patch the hook point in a2 to point to a1. class:word :foo hook ;\n :bar #1 ;\n &bar &foo set-hook {n/a} global all shift mn-o - - Peform a bitwise shift of m by n bits. If n is positive, shift right. If negative, the shift will be to the left. class:primitive {n/a} {n/a} global all sigil:! ns- - - Store a value into a variable. Store a value into the named variable. Compile the code to store a value into a named variable. class:macro {n/a} {n/a} sigil all sigil:# s-n - - Process token as a number. Convert the string into a number and leave on the stack. Convert the string into a number and compile into the current definition as a literal. class:macro {n/a} {n/a} sigil all sigil:$ s-c - - Process token as an ASCII character. Fetch first character from string. Leave on stack. Fetch first character from the string. Compile into the current definition as literal. class:macro {n/a} {n/a} sigil all sigil:& s-a - - Return a pointer to a named item. Lookup name in dictionary, return contents of the xt field on the stack. Lookup name in dictionary, compile code to push the contents of the xt field into the current definition. class:macro {n/a} {n/a} sigil all sigil:' s-s - - Process token as a string. Move string into temporary buffer. If `RewriteUnderscores` is `TRUE`, replace all instances of _ with space. Move string into temporary buffer. If `RewriteUnderscores` is `TRUE`, replace all instances of _ with space. Then compile the string into the current definition. class:macro {n/a} {n/a} sigil all sigil:( s- - - Process token as a comment. Discard the string. Discard the string. class:macro {n/a} {n/a} sigil all sigil:. s- - -F Interpret time: convert string to a floating-point value. Compile time: convert string to a floating-point value and compile code to push this value to the float stack. class:macro {n/a} {n/a} sigil rre sigil:: s- - - Process token as a new definition. Create a header pointing to `here` with the provided string as the name. Sets class to `class:word`. class:macro {n/a} {n/a} sigil all sigil:@ s-n - - Fetch from a stored variable. Fetch a value from a named variable. Compile the code to fetch a value from a named variable into the current definition. class:macro {n/a} {n/a} sigil all sigil:\ s- - - Process token as an instruction bundle. Discard the string. Assemble the opcodes in the string and use `,` to inline it into the current definition. class:macro {n/a} {n/a} sigil all sigil:^ s- - - Process token as a function reference. Discard the string. Comma the XT of the word into the current definition. class:macro {n/a} {n/a} sigil all sigil:` s- - - Process token as a bytecode. Discard the string. Convert the string to a number and use `,` to inline it into the current definition. class:macro {n/a} {n/a} sigil all sigil:| s- - - POSTPONE equivalent. Discard the string. Convert the string to a number and use `,` to inline it into the current definition. class:macro {n/a} {n/a} sigil all sip nq-n - - Run quote. After execution completes, put a copy of n back on top of the stack. class:word {n/a} {n/a} global all socket:accept n-nn - - Begin accepting connections. Returns a new socket and an error code. class:word {n/a} {n/a} socket rre socket:bind sn-nn - - Bind a socket to a port. The port should be a string. Returns 0 if successful or -1 otherwise and an error code. class:word {n/a} {n/a} socket rre socket:close n- - - Close a socket. class:word {n/a} {n/a} socket rre socket:configure ss- - - Configure internal settings for a host (s1) and port (s2). Use before `socket:bind`. class:word {n/a} {n/a} socket rre socket:connect n-nn - - Connect to a server. Provide a socket, this will return a status flag and an error code. class:word {n/a} {n/a} socket rre socket:create -n - - Obtain a new socket. class:word {n/a} {n/a} socket rre socket:gethostbyname as- - - Get the host IP in dotted notation. The host is specified by the string and the address is the start of the buffer for the dotted IP. class:word {n/a} {n/a} socket rre socket:listen nn-nn - - Prepare a socket for accepting incoming connections. Takes a backlog count (n1) and a socket (n2). Returns a flag (0 success, -1 failed) and an error code. class:word {n/a} {n/a} socket rre socket:operation ...n- - - Trigger a socket operation. This is not intended to be used directly. class:word {n/a} {n/a} socket rre socket:recv ann-nn - - Receive data from a socket. This will read into memory starting at address *a*, up to *n1* bytes. *n2* is the socket. Returns the number of bytes read and an error code. class:word {n/a} {n/a} socket rre socket:send sn-nn - - Send a string to a socket. This will return the number of characters sent and an error code. class:word {n/a} {n/a} socket rre sp - - - Display a space (`ASCII:SPACE`) class:word :spaces (n-) [ sp ] times ;\n #12 spaces {n/a} global all store na- - - Store a value into the specified address. class:primitive 'Base var\n #10 &Base store {n/a} global all store-next na-a - - Store a value into the specified address and return the next address. class:word {n/a} {n/a} global all swap nm-mn - - Exchange the position of the top two items on the stack class:primitive {n/a} {n/a} global all tab - - - Display a tab (`ASCII:HT`) class:word {n/a} {n/a} global all times nq- - - Run the specified quote the specified number of times. class:word #12 [ $- c:put ] times {n/a} global all tri xqqq-? - - Apply q1 against x, then q2 against a copy of x, and finally q3 against another copy of x. class:word {n/a} {n/a} global all tri* xyzqqq-? - - Apply q1 against x, q2 against y, and q3 against z. class:word {n/a} {n/a} global all tri@ xyzq-? - - Apply q against x, then against y, and finally against z. class:word {n/a} {n/a} global all tuck nm-mnm - - Put a copy of the top item on the stack under the second one. class:word {n/a} {n/a} global all ui:add-view s- - - Add view named `s` to the displayed views. class:word {n/a} {n/a} ui retro/python ui:create-view ss- - - Create a new view. `s1` is the name and `s2` is the type. class:word {n/a} {n/a} ui retro/python ui:get-action s-a - - Return the address of the Retro handler for a view's associated action. class:word {n/a} {n/a} ui retro/python ui:get-position s-nn - - Return the row and column of the named view. class:word {n/a} {n/a} ui retro/python ui:get-size s-nn - - Return the height and width of the named view. class:word {n/a} {n/a} ui retro/python ui:get-text s-s - - Get the value of the text property of the named view. class:word {n/a} {n/a} ui retro/python ui:get-title s-s - - Get the value of the title property for the named view. class:word {n/a} {n/a} ui retro/python ui:operation ...n- - - Carry out a UI operation. Used internally by the other `ui:` words. class:word {n/a} {n/a} ui retro/python ui:present - - - Display all views. class:word {n/a} {n/a} ui retro/python ui:remove-view s- - - Remove view named `s` from the displayed views. class:word {n/a} {n/a} ui retro/python ui:set-action as- - - Set the action handler for a view to the specified Retro word address. class:word {n/a} {n/a} ui retro/python ui:set-position nns- - - Move view `s` to row `n1` and column `n2`. class:word {n/a} {n/a} ui retro/python ui:set-size nns- - - Set view `s` to height `n1` and width `n2`. class:word {n/a} {n/a} ui retro/python ui:set-text ss- - - Set the text property of view `s2` to `s1`. class:word {n/a} {n/a} ui retro/python ui:set-title ss- - - Set the title property of view `s2` to `s1`. class:word {n/a} {n/a} ui retro/python unhook a- - - Reset the hook point in a1 to the default definition. class:word :foo hook #1 ;\n :bar #2 ;\n &bar &foo set-hook\n &foo unhook {n/a} global all unix:chdir s- - - Change the current working directory to the specified one. class:word '/etc unix:chdir {n/a} unix rre unix:count-files-in-cwd -n - - Return the number of files (and subdirectories) in the current working directory class:word {n/a} {n/a} unix rre unix:exec0 s- - - Execute a process by running the application specified by s. class:word {n/a} {n/a} unix rre unix:exec1 ss- - - Execute a process by running the application specified by s1. Pass s2 as an argument. class:word {n/a} {n/a} unix rre unix:exec2 sss- - - Execute a process by running the application specified by s1. Pass s2 and s3 as arguments. class:word {n/a} {n/a} unix rre unix:exec3 ssss- - - Execute a process by running the application specified by s1. Pass s2, s3, and s4 as arguments. class:word {n/a} {n/a} unix rre unix:exit n- - - Exit the current process, returning the specified return code. class:word {n/a} {n/a} unix rre unix:for-each-file q- - - Run a quote once for each file or subdirectory in the current directory. The quote will receive the file name as a string and should consume this and return nothing on the stack. class:word {n/a} {n/a} unix rre unix:fork -n - - Fork the current process. Returns a PID. class:word {n/a} {n/a} unix rre unix:get-cwd -s - - Return the current working directory class:word {n/a} {n/a} unix rre unix:getenv sa- - - Get an environment variable. Provide the name and an address to store it in. class:word 'SHELL s:empty [ unix:getenv ] sip s:put nl {n/a} unix rre unix:getpid -n - - Return the PID of the current process. class:word {n/a} {n/a} unix rre unix:kill nn- - - Terminates a process. Takes a process and a signal to send. class:word {n/a} {n/a} unix rre unix:pclose n- - - Close a pipe. class:word {n/a} {n/a} unix rre unix:pipe s- - - Takes a string with a Unix command line and run it in a pipe, returning a new string with the first line of the output from the pipe. class:word 'ls_-l unix:pipe s:put nl {n/a} unix rre unix:popen sn-n - - Open a pipe. Takes a command to run, and a file mode (`file:R` or `file:W`; `file:R+` may work on some systems). Returns a file ID usable with words in the `file:` namespace. class:word {n/a} {n/a} unix rre unix:putenv s- - - Takes a string in the form `name=value` and sets an environment variable named `name` to `value`. class:word 'EDITOR=vi unix:putenv {n/a} unix rre unix:sleep n- - - Sleep for the specified number of seconds. class:word {n/a} {n/a} unix rre unix:slurp-pipe as-n - - Open a pipe. Read all output from the pipe (until ASCII:NULL) and store in the specified buffer. Return the number of bytes read. class:word {n/a} {n/a} unix rre unix:system s- - - Runs another application using the system shell and returns after execution is completed. class:word 'ls_-lh_/etc unix:system {n/a} unix rre unix:wait -n - - Waits for a child process to complete. This maps to the wait() system call. class:word {n/a} {n/a} unix rre until q- - - Execute quote repeatedly while the quote returns a value of `FALSE`. The quote should return a flag of either `TRUE` or `FALSE`, though `until` will treat any non-zero value as `TRUE`. class:word #10 [ dup n:put nl n:dec dup n:zero? ] until {n/a} global all v:dec a- - - Decrement the value stored at the specified address by 1. class:word {n/a} {n/a} v all v:dec-by na- - - Decrement the value stored at the specified address by the specified value. class:word {n/a} {n/a} v all v:inc a- - - Increment the value stored at the specified address by 1. class:word {n/a} {n/a} v all v:inc-by na- - - Increment the value stored at the specified address by the specified value. class:word {n/a} {n/a} v all v:limit alu- - - Fetch the value stored at the address, then run `n:limit` against it, using the specified lower and upper bounds. Then store the resulting value back to the original address. class:word {n/a} {n/a} v all v:off a- - - Set a variable to 0. class:word {n/a} {n/a} v all v:on a- - - Set a variable to -1. class:word {n/a} {n/a} v all v:preserve aq- - - Make a copy of the value at the address, then run the quote. Once the quote completes, restore the address to the specified value. class:word {n/a} {n/a} v all v:update aq- - - Fetch a value from the specified address, then run the quotation with this value on the stack. Afterwards, store the returned value at the original address. class:word {n/a} {n/a} v all var s- - - Create a variable. The variable is initialized to 0. class:word 'Base var {n/a} global all var-n ns- - - Create a variable with the specified initial value. class:word #10 'Base var-n\n {n/a} global all while q- - - Execute quote repeatedly while the quote returns a `TRUE` value. The quote should return a flag of either `TRUE` or `FALSE`, though `while` will treat any non-zero value as `TRUE`. class:word #10 [ dup n:put nl n:dec dup n:-zero? ] while {n/a} global all xor mn-o - - Perform a bitwise XOR operation. class:primitive {n/a} {n/a} global all { - - - Begin an array. This is intended to make creating arrays a bit cleaner than using a quotation and `a:counted-results`. class:word {n/a} {n/a} global all {{ - - - Begin a lexically scoped area. class:word {n/a} {n/a} global all } -a - - Complete an array begun by `{`. Returns a pointer to the data. class:word {n/a} {n/a} global all }} - - - End a lexically scoped area. This will hide any headers between `{{` and `---reveal---`, leaving only headers between `---reveal---` and the `}}` visible. class:word {n/a} {n/a} global all