steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove <" and friends

db4
Doug Coleman 2009-09-21 17:59:37 -05:00
parent 4dbceb60e8
commit 77dd5f6677
2 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/multiline/multiline-docs.factor
View File

@ -5,10 +5,6 @@ HELP: STRING:
{ $syntax "STRING: name\nfoo\n;" } { $syntax "STRING: name\nfoo\n;" }
{ $description "Forms a multiline string literal, or 'here document' stored in the word called name. A semicolon is used to signify the end, and that semicolon must be on a line by itself, not preceeded or followed by any whitespace. The string will have newlines in between lines but not at the end, unless there is a blank line before the semicolon." } ; { $description "Forms a multiline string literal, or 'here document' stored in the word called name. A semicolon is used to signify the end, and that semicolon must be on a line by itself, not preceeded or followed by any whitespace. The string will have newlines in between lines but not at the end, unless there is a blank line before the semicolon." } ;
HELP: <"
{ $syntax "<\" text \">" }
{ $description "This forms a multiline string literal ending in \">. Unlike the " { $link POSTPONE: STRING: } " form, you can end it in the middle of a line. This construct is non-nesting. In the example above, the string would be parsed as \"text\"." } ;
HELP: /* HELP: /*
{ $syntax "/* comment */" } { $syntax "/* comment */" }
{ $description "Provides C-like comments that can span multiple lines. One caveat is that " { $snippet "/*" } " and " { $snippet "*/" } " are still tokens and must not abut the comment text itself." } { $description "Provides C-like comments that can span multiple lines. One caveat is that " { $snippet "/*" } " and " { $snippet "*/" } " are still tokens and must not abut the comment text itself." }
@ -47,8 +43,6 @@ HELP: DELIMITED:
} }
} ; } ;
{ POSTPONE: <" POSTPONE: STRING: } related-words
HELP: parse-multiline-string HELP: parse-multiline-string
{ $values { "end-text" "a string delineating the end" } { "str" "the parsed string" } } { $values { "end-text" "a string delineating the end" } { "str" "the parsed string" } }
{ $description "Parses the input stream until the " { $snippet "end-text" } " is reached and returns the parsed text as a string." } { $description "Parses the input stream until the " { $snippet "end-text" } " is reached and returns the parsed text as a string." }
@ -57,7 +51,6 @@ HELP: parse-multiline-string
ARTICLE: "multiline" "Multiline" ARTICLE: "multiline" "Multiline"
"Multiline strings:" "Multiline strings:"
{ $subsection POSTPONE: STRING: } { $subsection POSTPONE: STRING: }
{ $subsection POSTPONE: <" }
{ $subsection POSTPONE: HEREDOC: } { $subsection POSTPONE: HEREDOC: }
{ $subsection POSTPONE: DELIMITED: } { $subsection POSTPONE: DELIMITED: }
"Multiline comments:" "Multiline comments:"

12
basis/multiline/multiline.factor
View File

@ -75,18 +75,6 @@ PRIVATE>
: parse-multiline-string ( end-text -- str ) : parse-multiline-string ( end-text -- str )
1 (parse-multiline-string) ; 1 (parse-multiline-string) ;
SYNTAX: <"
"\">" parse-multiline-string parsed ;
SYNTAX: <'
"'>" parse-multiline-string parsed ;
SYNTAX: {'
"'}" parse-multiline-string parsed ;
SYNTAX: {"
"\"}" parse-multiline-string parsed ;
SYNTAX: /* "*/" parse-multiline-string drop ; SYNTAX: /* "*/" parse-multiline-string drop ;
SYNTAX: HEREDOC: SYNTAX: HEREDOC: