Skip to content

Commit 38e92a9

Browse files
rdipardonyamatongwe
rdipardo
authored and
nyamatongwe
committed
#351 Test Forth line comments and identifiers with symbolic prefixes
1 parent 91030c5 commit 38e92a9

File tree

3 files changed

+145
-0
lines changed

3 files changed

+145
-0
lines changed

‎test/examples/forth/Issue351.forth‎

Lines changed: 48 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,48 @@
1+
: \DUP ( n - n n ) DUP ;
2+
: DUP\ ( n - ) \DUP 2DROP ;
3+
: (DROP ( n - ) DUP\ 2 DROP ;
4+
: DROP( ( n - ) \DUP DUP\ (DROP ;
5+
: !FOO ;
6+
: 'BAR ;
7+
: ,BAZ ;
8+
: -QUX ;
9+
: @QUUX ;
10+
: _CORGE ;
11+
12+
: OP_PREFIXES ( -)
13+
!
14+
2!
15+
!FOO
16+
#
17+
#S
18+
'
19+
'BAR
20+
*
21+
*/MOD
22+
+!
23+
,
24+
,BAZ
25+
-
26+
-QUX
27+
.
28+
.S
29+
/
30+
/MOD
31+
<
32+
0<
33+
=
34+
0=
35+
>
36+
>NUMBER
37+
?
38+
?DUP
39+
@
40+
2@
41+
@QUUX
42+
[
43+
]
44+
_CORGE
45+
;
46+
47+
\ redefine '\' as a newline
48+
: \ CR ;

‎test/examples/forth/Issue351.forth.folded‎

Lines changed: 49 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,49 @@
1+
0 400 0 : \DUP ( n - n n ) DUP ;
2+
0 400 0 : DUP\ ( n - ) \DUP 2DROP ;
3+
0 400 0 : (DROP ( n - ) DUP\ 2 DROP ;
4+
0 400 0 : DROP( ( n - ) \DUP DUP\ (DROP ;
5+
0 400 0 : !FOO ;
6+
0 400 0 : 'BAR ;
7+
0 400 0 : ,BAZ ;
8+
0 400 0 : -QUX ;
9+
0 400 0 : @QUUX ;
10+
0 400 0 : _CORGE ;
11+
0 400 0
12+
0 400 0 : OP_PREFIXES ( -)
13+
0 400 0 !
14+
0 400 0 2!
15+
0 400 0 !FOO
16+
0 400 0 #
17+
0 400 0 #S
18+
0 400 0 '
19+
0 400 0 'BAR
20+
0 400 0 *
21+
0 400 0 */MOD
22+
0 400 0 +!
23+
0 400 0 ,
24+
0 400 0 ,BAZ
25+
0 400 0 -
26+
0 400 0 -QUX
27+
0 400 0 .
28+
0 400 0 .S
29+
0 400 0 /
30+
0 400 0 /MOD
31+
0 400 0 <
32+
0 400 0 0<
33+
0 400 0 =
34+
0 400 0 0=
35+
0 400 0 >
36+
0 400 0 >NUMBER
37+
0 400 0 ?
38+
0 400 0 ?DUP
39+
0 400 0 @
40+
0 400 0 2@
41+
0 400 0 @QUUX
42+
0 400 0 [
43+
0 400 0 ]
44+
0 400 0 _CORGE
45+
0 400 0 ;
46+
0 400 0
47+
0 400 0 \ redefine '\' as a newline
48+
0 400 0 : \ CR ;
49+
0 400 0

‎test/examples/forth/Issue351.forth.styled‎

Lines changed: 48 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,48 @@
1+
{6}: \DUP{0} {2}( n - n n ){0} {5}DUP{0} {6};{0}
2+
{6}: DUP\{0} {2}( n - ){0} {3}\DUP{0} {5}2DROP{0} {6};{0}
3+
{6}: (DROP{0} {2}( n - ){0} {3}DUP\{0} {9}2{0} {5}DROP{0} {6};{0}
4+
{6}: DROP({0} {2}( n - ){0} {3}\DUP{0} {3}DUP\{0} {3}(DROP{0} {6};{0}
5+
{6}: !FOO{0} {6};{0}
6+
{6}: 'BAR{0} {6};{0}
7+
{6}: ,BAZ{0} {6};{0}
8+
{6}: -QUX{0} {6};{0}
9+
{6}: @QUUX{0} {6};{0}
10+
{6}: _CORGE{0} {6};{0}
11+
12+
{6}: OP_PREFIXES{0} {2}( -){0}
13+
{5}!{0}
14+
{5}2!{0}
15+
{3}!FOO{0}
16+
{3}#{0}
17+
{3}#S{0}
18+
{3}'{0}
19+
{3}'BAR{0}
20+
{3}*{0}
21+
{3}*/MOD{0}
22+
{3}+!{0}
23+
{3},{0}
24+
{3},BAZ{0}
25+
{3}-{0}
26+
{3}-QUX{0}
27+
{5}.{0}
28+
{5}.S{0}
29+
{3}/{0}
30+
{3}/MOD{0}
31+
{3}<{0}
32+
{3}0<{0}
33+
{3}={0}
34+
{3}0={0}
35+
{3}>{0}
36+
{3}>NUMBER{0}
37+
{3}?{0}
38+
{5}?DUP{0}
39+
{5}@{0}
40+
{5}2@{0}
41+
{3}@QUUX{0}
42+
{3}[{0}
43+
{3}]{0}
44+
{3}_CORGE{0}
45+
{6};{0}
46+
47+
{1}\ redefine '\' as a newline{0}
48+
{6}: \{0} {5}CR{0} {6};{0}

0 commit comments

Comments
 (0)