From: Ralph Ronnquist Date: Fri, 11 Jun 2021 09:53:18 +0000 (+1000) Subject: upgrade X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=04f2de0478f8924fecee363057c208434f32a119;p=rrq%2Frrqforth.git upgrade --- diff --git a/reference.html b/reference.html index 988e551..04da373 100644 --- a/reference.html +++ b/reference.html @@ -776,7 +776,7 @@ asciidoc.install(); @n++   @n--   C,   -S"   +S"   >R   R@   R>   @@ -840,6 +840,7 @@ asciidoc.install(); IMMEDIATE   INPUT  

LIT   +LIT-STRING   LOAD-BUFFER-SIZE   LOAD-FILE  

MAIN-ARGS   @@ -868,6 +869,7 @@ asciidoc.install(); STDIN   STREAM   STREAM-NCHARS   +STR>TEMP   STRLEN   STRNCMP   STRNCPY   @@ -875,6 +877,8 @@ asciidoc.install(); SYSTEM  

TELL   .TEMP   +TEMP   +TEMPSPACE   TERMINATE0   TFA>CFA   TFA>DFA   @@ -2542,25 +2546,43 @@ _______________________________________________________

-

Word: S"

+

Word: LIT-STRING

Data stack: ( -- chars* n )
-

"S"" is a function word that pushes the [n:char] pointer for a string -inlined subsequently to it in the containing definition. This is -similar to LIT but for a string literal.

+

"LIT-STRING" is a function word that pushes the char* and length n of +a subsequent inline string, then advances execution to continue after +the string. This is similar to LIT but for a block literal.

+

Note that the inlined byte count includes the terminating NUL byte.

-
Definition concept for LIT
-

: LIT R> DUP @ 2DUP + 8 + >R SWAP 8 + SWAP ;

+
Definition concept for LIT-STRING
+

: LIT-STRING R@ DUP @ 8 + R@ @ 2DUP + R> + >R 1 - ;

_______________________________________________________
+

+
+
+

Word: S"

+
+
+
Data stack: ( -- )  Input stream: " chars"
+
+

"S"" is an immediate function word that compiles the subseqent +characters up to terminating double-quote into the current definition, +preceded by a LIT-STRING cell, and the count of +bytes scanned. The inline text includes a terminating NUL character +which also is included in the inlined count.

+

Note that "S"" uses " for reading the string.

+
+_______________________________________________________ +

@@ -3070,8 +3092,9 @@ _______________________________________________________ 
Data stack: ( -- )
-

";" (semi-colon) is a function word that ends a new forth definition -by means of adding an EXIT

+

";" (semi-colon) is an immediate function word that ends a new forth +definition by means of adding an EXIT cell, then changing +<<p_state,STATE> to interpreting.

@@ -3236,6 +3259,29 @@ stream (or filling it by reading the backing file).

_______________________________________________________
+

+
+
+

Word: STR>TEMP

+
+
+

Data stack: ( char* n — char* n )

+
+

"STR>TEMP" is a function word that copies a given string plus a +terminating NUL character into a TEMPSPACE snippet, +all preceded by a length cell. It returns a pointer for to the text in +the snippet and its length, excluding the NUL character at end and the +length cell before tie text.

+
+
Layout for copied string
+
+
        length: 8 bytes
+returned char*: n bytes
+           nul: 1 byte
+
+
+_______________________________________________________ +

@@ -3321,6 +3367,58 @@ descriptor 1).

_______________________________________________________
+

+
+
+

Word: TEMP

+
+
+

Data stack: ( size — addr )

+
+

"TEMP" is a function word that "allocates" a TEMPSPACE +area of given size and returns its base address. The allocation is +temporary and only valid until there is a later allocation that +overruns this area.

+

Allocations are done in succession until the requested size overruns +the TEMPSPACE. If so, the allocation pointer is reset +and the space is allocated from start again. This is all intended for +small and short-lived data areas.

+
+_______________________________________________________ +
+

+
+
+

Word: TEMPSPACE

+
+
+
Data stack: ( -- a )
+
+

"TEMPSPACE" is a variable word that holds three cells the for managing +"temporary memory":

+
    +
  • +

    +the size of the temporary memory space (default 104857600 bytes) +

    +
    • +
  • +

    +the base address for whole temporary memory area +

    +
    • +
  • +

    +the amount currently used +

    +
    • +
+

This memory is intended to be used by requesting snippets of memory in +a cyclic fashion via TEMP without concern about it possibly +overlapping a prior request.

+
+_______________________________________________________ +

@@ -3628,7 +3726,7 @@ is deepest.

diff --git a/rrqforth b/rrqforth index a5f2ecf..729f1bb 100755 Binary files a/rrqforth and b/rrqforth differ