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

multiline: remove unused DELIMITED: word.

db4
Doug Coleman 2015-07-21 12:02:15 -07:00
parent 1b4048232a
commit da5564bd3f
3 changed files with 0 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -32,19 +32,6 @@ HELP: HEREDOC:
} }
} ; } ;
HELP: DELIMITED:
{ $syntax "DELIMITED: marker\n...text...\nmarker" }
{ $values { "marker" "a word (token)" } { "text" "arbitrary text" } { "value" string } }
{ $description "Returns a string delimited by an arbitrary user-defined token. This delimiter must be exactly the text beginning at the first non-blank character after " { $link POSTPONE: DELIMITED: } " until the end of the line containing " { $link POSTPONE: DELIMITED: } ". Text is captured until the exact delimiter string is found, regardless of where." }
{ $warning "Whitespace is significant on the " { $link POSTPONE: DELIMITED: } " line." }
{ $examples
{ $example "USING: multiline prettyprint ;"
"DELIMITED: factor blows my mind"
"whoafactor blows my mind ."
"\"whoa\""
}
} ;
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." }
@ -55,7 +42,6 @@ ARTICLE: "multiline" "Multiline"
{ $subsections { $subsections
POSTPONE: STRING: POSTPONE: STRING:
POSTPONE: HEREDOC: POSTPONE: HEREDOC:
POSTPONE: DELIMITED:
} }
"Multiline comments:" "Multiline comments:"
{ $subsections POSTPONE: /* } { $subsections POSTPONE: /* }

9
basis/multiline/multiline-tests.factor
View File

@ -71,15 +71,6 @@ lol
xyz xyz
] unit-test ] unit-test
{ "lol" }
[ DELIMITED: aol
lolaol ] unit-test
{ "whoa" }
[ DELIMITED: factor blows my mind
whoafactor blows my mind ] unit-test
<< <<
SYNTAX: MULTILINE-LITERAL: parse-here suffix! ; SYNTAX: MULTILINE-LITERAL: parse-here suffix! ;
>> >>

8
basis/multiline/multiline.factor
View File

@ -91,11 +91,3 @@ SYNTAX: HEREDOC:
[ next-line ] [ next-line ]
[ parse-til-line-begins ] [ parse-til-line-begins ]
} cleave suffix! ; } cleave suffix! ;
SYNTAX: DELIMITED:
lexer get {
[ skip-blank ]
[ rest-of-line ]
[ next-line ]
[ 0 (parse-multiline-string) ]
} cleave suffix! ;