kmx git

\  Test of various formats of strings

\  Updated Tue, 10 Oct 2006 at 11:46 PDT by David L. Paktor

fcode-version2

headers hex

."
Empty string next."
." "
." BSlashes#1: \t\1fea9\abdc\n\1f\\fece"
decimal
." BSlashes#2: \t\a7\c01a"
." Dec 1193176 = 0x1234D8 Dec 176 = 0xB0 \1193176\"
hex
." BSlashes#3: \n\a7\c01a"
." BSlashes#4: \t\a7\\c0\\1a"
." BSlashes#5: \t\a7\\c0\\1a"( feedface)"
." 3 BSlashes, then QOpen. \t\Q\n"(090abcdefeca8e beeffece b020)Zoh. "(1 23 4 567 8 9 0 1 2 3 0 a b c 30)"
.( Dot-Paren-NoSpace)cr cr
.( Dot-Paren Space) cr cr
." QEscapes: "p"b"n"zz"
." QEscapes: ""Q"nn"rr"tt"ff"ll"bb"!!"^[UpBrack"zz"
0 is my-self                 \  Is it keeping line numbers straight?
" Quote"" Quote" type cr
s" Ess-Quote"type cr
." Cross
the
line.
Three times."
0 is my-self                 \  Is it still keeping line numbers straight?
." Can I get a \ backslash?"
." Like this \\ maybe?"
." What about "( 1c cd e6 \ The rest of this line should be a comment
         c7  )?"
."  Is "\ the rest of this line a comment?"
\  "  \  This should do it.
0 is my-self                 \  Is it still keeping line numbers straight?
." Or a way to get a "\ backslash?"
\  "  \  Or not...
0 is my-self                 \  Is it still keeping line numbers straight?

: glemph!"  " glemph!""" evaluate ;
\  What does the " do?

fcode-end
openbios/fcode-utils/testsuite/TokMisc/StringsGenl.fth

Commit

testsuite/TokMisc/StringsGenl.fth
