From d0e3a276b475b278263bb8dad6d3e7a694285228 Mon Sep 17 00:00:00 2001 From: gromoff97 Date: Mon, 8 Oct 2018 05:56:25 +0300 Subject: [PATCH 01/10] simple doc for cr-word was created --- documentation.frt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/documentation.frt b/documentation.frt index c8ea719..87ee47f 100644 --- a/documentation.frt +++ b/documentation.frt @@ -12,3 +12,8 @@ Drop the topmost element of the stack ( a b -- b a ) Swap two topmost elements of the stack " doc-word + +' cr g" +( -- ) +Makes following output appear at the beginning of the next line +" doc-word From 84cb4d629fb156353a19ce6f35019ada18e78836 Mon Sep 17 00:00:00 2001 From: gromoff97 Date: Mon, 8 Oct 2018 06:10:42 +0300 Subject: [PATCH 02/10] simple doc for case-word was created --- documentation.frt | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/documentation.frt b/documentation.frt index 87ee47f..c9b0896 100644 --- a/documentation.frt +++ b/documentation.frt @@ -17,3 +17,9 @@ Swap two topmost elements of the stack ( -- ) Makes following output appear at the beginning of the next line " doc-word + +' case g" +( -- ) +Tells where is the beginning of the "case...of...endof...endcase" - structure +" doc-word + From ba14826fc4a47c1b336e2c1cdacf249686d4106a Mon Sep 17 00:00:00 2001 From: gromoff97 Date: Mon, 8 Oct 2018 13:19:30 +0300 Subject: [PATCH 03/10] simple doc for of-word was created --- documentation.frt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/documentation.frt b/documentation.frt index c9b0896..fca86ed 100644 --- a/documentation.frt +++ b/documentation.frt @@ -23,3 +23,7 @@ Makes following output appear at the beginning of the next line Tells where is the beginning of the "case...of...endof...endcase" - structure " doc-word +' of g" +( -- ) +Marks the start of code for a "case" - clause in the "case...of...endof...endcase" - structure +" doc-word From 7a2730211c32ef2341f8fc42264a077d28bba800 Mon Sep 17 00:00:00 2001 From: gromoff97 Date: Mon, 8 Oct 2018 13:20:31 +0300 Subject: [PATCH 04/10] simple doc for endof-word was created --- documentation.frt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/documentation.frt b/documentation.frt index fca86ed..e055fb3 100644 --- a/documentation.frt +++ b/documentation.frt @@ -27,3 +27,8 @@ Tells where is the beginning of the "case...of...endof...endcase" - structure ( -- ) Marks the start of code for a "case" - clause in the "case...of...endof...endcase" - structure " doc-word + +' endof g" +( -- ) +Marks the end of code for a "case" - clause in the "case...of...endof...endcase" - structure +" doc-word \ No newline at end of file From 05d5211003d525b3d33707098218760f844e555a Mon Sep 17 00:00:00 2001 From: gromoff97 Date: Mon, 8 Oct 2018 13:24:21 +0300 Subject: [PATCH 05/10] simple doc for encase-word was created --- documentation.frt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/documentation.frt b/documentation.frt index e055fb3..b87ea6c 100644 --- a/documentation.frt +++ b/documentation.frt @@ -31,4 +31,8 @@ Marks the start of code for a "case" - clause in the "case...of...endof...endcas ' endof g" ( -- ) Marks the end of code for a "case" - clause in the "case...of...endof...endcase" - structure -" doc-word \ No newline at end of file +" doc-word + +' endcase g" +Tells where is the ending of the "case...of...endof...endcase" - structure +" doc-word From 2c3443381f20a3ff2474b5ddf30145cf9aeea8a8 Mon Sep 17 00:00:00 2001 From: gromoff97 Date: Mon, 8 Oct 2018 13:31:44 +0300 Subject: [PATCH 06/10] simple doc for in-range - word was created --- documentation.frt | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/documentation.frt b/documentation.frt index b87ea6c..9002e92 100644 --- a/documentation.frt +++ b/documentation.frt @@ -36,3 +36,10 @@ Marks the end of code for a "case" - clause in the "case...of...endof...endcase" ' endcase g" Tells where is the ending of the "case...of...endof...endcase" - structure " doc-word + +' in-range g" +( number numfrom numto -- 1/0 ) +Checks if number "number" is in range from "numfrom" to "numto"; places 1 on top of the stack if it is in range or 0 otherwise +" doc-word + + From 659a07c84a49bb11e0022a53b434af6bf24d3769 Mon Sep 17 00:00:00 2001 From: gromoff97 Date: Mon, 8 Oct 2018 13:36:43 +0300 Subject: [PATCH 07/10] simple doc for compiling-word was created --- documentation.frt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/documentation.frt b/documentation.frt index 9002e92..8217a04 100644 --- a/documentation.frt +++ b/documentation.frt @@ -42,4 +42,9 @@ Tells where is the ending of the "case...of...endof...endcase" - structure Checks if number "number" is in range from "numfrom" to "numto"; places 1 on top of the stack if it is in range or 0 otherwise " doc-word +' compiling g" +( -- state ) +Places the current "Forthress" state on top of the stack, i.e. 0 for "interpretation" mode or 1 for "compilation" mode +" doc-word + From 8a714e14e53bad04f3c00493bbd3d7177cf209e2 Mon Sep 17 00:00:00 2001 From: gromoff97 Date: Mon, 8 Oct 2018 13:41:06 +0300 Subject: [PATCH 08/10] simple doc for .' - word was created --- documentation.frt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/documentation.frt b/documentation.frt index 8217a04..10e8e1e 100644 --- a/documentation.frt +++ b/documentation.frt @@ -47,4 +47,7 @@ Checks if number "number" is in range from "numfrom" to "numto"; places 1 on top Places the current "Forthress" state on top of the stack, i.e. 0 for "interpretation" mode or 1 for "compilation" mode " doc-word - +' .' g" +( -- character ) +Places character code ( according to ASCII - table ) on top of the stack +" doc-word From 30ccbbe88d74135ac52009f8167ef76a6b3fc8f0 Mon Sep 17 00:00:00 2001 From: gromoff97 Date: Mon, 8 Oct 2018 13:49:50 +0300 Subject: [PATCH 09/10] simple doc for readce - word was created --- documentation.frt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/documentation.frt b/documentation.frt index 10e8e1e..c83e1de 100644 --- a/documentation.frt +++ b/documentation.frt @@ -51,3 +51,8 @@ Places the current "Forthress" state on top of the stack, i.e. 0 for "interpreta ( -- character ) Places character code ( according to ASCII - table ) on top of the stack " doc-word + +' readce g" +( -- character ) +Reads character and places its "ASCII" - code on top of the stack. Then it places 0 for control characters excluding the case with newline-character, i.e '\n' +" doc-word \ No newline at end of file From 661dcf3dd31a55ee9c469b04b27733f1f55da463 Mon Sep 17 00:00:00 2001 From: gromoff97 Date: Mon, 8 Oct 2018 14:07:06 +0300 Subject: [PATCH 10/10] text were edited a bit --- documentation.frt | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/documentation.frt b/documentation.frt index c83e1de..c7a7a7c 100644 --- a/documentation.frt +++ b/documentation.frt @@ -15,44 +15,45 @@ Swap two topmost elements of the stack ' cr g" ( -- ) -Makes following output appear at the beginning of the next line +Make following output appear at the beginning of the next line " doc-word ' case g" ( -- ) -Tells where is the beginning of the "case...of...endof...endcase" - structure +Tell where is the beginning of the "case...of...endof...endcase" - structure " doc-word ' of g" ( -- ) -Marks the start of code for a "case" - clause in the "case...of...endof...endcase" - structure +Mark the start of code for a "case" - clause in the "case...of...endof...endcase" - structure " doc-word ' endof g" ( -- ) -Marks the end of code for a "case" - clause in the "case...of...endof...endcase" - structure +Mark the end of code for a "case" - clause in the "case...of...endof...endcase" - structure " doc-word -' endcase g" -Tells where is the ending of the "case...of...endof...endcase" - structure +' endcase g" +( -- ) +Tell where is the ending of the "case...of...endof...endcase" - structure " doc-word ' in-range g" ( number numfrom numto -- 1/0 ) -Checks if number "number" is in range from "numfrom" to "numto"; places 1 on top of the stack if it is in range or 0 otherwise +Check if number "number" is in range from "numfrom" to "numto"; places 1 on top of the stack if it is in range or 0 otherwise " doc-word ' compiling g" ( -- state ) -Places the current "Forthress" state on top of the stack, i.e. 0 for "interpretation" mode or 1 for "compilation" mode +Place the current "Forthress" state on top of the stack, i.e. 0 for "interpretation" mode or 1 for "compilation" mode " doc-word ' .' g" ( -- character ) -Places character code ( according to ASCII - table ) on top of the stack +Place character code ( according to ASCII - table ) on top of the stack " doc-word ' readce g" ( -- character ) -Reads character and places its "ASCII" - code on top of the stack. Then it places 0 for control characters excluding the case with newline-character, i.e '\n' +Read character and places its "ASCII" - code on top of the stack and place 0 for control characters excluding the case with newline-character, i.e '\n' " doc-word \ No newline at end of file