Fix examples' code and make them unchecked since they have side effects

db4
Alfredo Beaumont 2008-07-08 21:57:37 +02:00
parent 94a613f688
commit 3e43c69918
1 changed files with 8 additions and 8 deletions

View File

@ -12,9 +12,9 @@ HELP: ctags ( path -- )
{ $values { "path" "a pathname string" } } { $values { "path" "a pathname string" } }
{ $description "Generates a index file in ctags format and stores in " { $snippet "path" } "." } { $description "Generates a index file in ctags format and stores in " { $snippet "path" } "." }
{ $examples { $examples
{ $example { $unchecked-example
"USING: ctags ;" "USING: ctags ;"
"\"tags\" ctags-write" "\"tags\" ctags"
"" ""
} }
} ; } ;
@ -24,7 +24,7 @@ HELP: ctags-write ( seq path -- )
{ "path" "a pathname string" } } { "path" "a pathname string" } }
{ $description "Stores a " { $snippet "alist" } " in " { $snippet "path" } ". " { $snippet "alist" } " must be an association list with ctags format: key must be a valid word and value a sequence whose first element is a resource name and second element is a line number" } { $description "Stores a " { $snippet "alist" } " in " { $snippet "path" } ". " { $snippet "alist" } " must be an association list with ctags format: key must be a valid word and value a sequence whose first element is a resource name and second element is a line number" }
{ $examples { $examples
{ $example { $unchecked-example
"USING: kernel ctags ;" "USING: kernel ctags ;"
"{ { if { \"resource:extra/unix/unix.factor\" 91 } } } \"tags\" ctags-write" "{ { if { \"resource:extra/unix/unix.factor\" 91 } } } \"tags\" ctags-write"
"" ""
@ -38,9 +38,9 @@ HELP: ctag-strings ( alist -- seq )
{ "seq" sequence } } { "seq" sequence } }
{ $description "Converts an " { $snippet "alist" } " with ctag format (a word as key and a sequence whose first element is a resource name and a second element is a line number as value) in a " { $snippet "seq" } " of ctag strings." } { $description "Converts an " { $snippet "alist" } " with ctag format (a word as key and a sequence whose first element is a resource name and a second element is a line number as value) in a " { $snippet "seq" } " of ctag strings." }
{ $examples { $examples
{ $example { $unchecked-example
"USING: kernel ctags ;" "USING: kernel ctags prettyprint ;"
"{ { if { \"resource:extra/unix/unix.factor\" 91 } } } ctag-strings" "{ { if { \"resource:extra/unix/unix.factor\" 91 } } } ctag-strings ."
"{ \"if\\t/path/to/factor/extra/unix/unix.factor\\t91\" }" "{ \"if\\t/path/to/factor/extra/unix/unix.factor\\t91\" }"
} }
} ; } ;
@ -50,8 +50,8 @@ HELP: ctag ( seq -- str )
{ "str" string } } { "str" string } }
{ $description "Outputs a string " { $snippet "str" } " in ctag format for sequence with two elements, first one must be a valid word and second one a sequence whose first element is a resource name and second element is a line number" } { $description "Outputs a string " { $snippet "str" } " in ctag format for sequence with two elements, first one must be a valid word and second one a sequence whose first element is a resource name and second element is a line number" }
{ $examples { $examples
{ $example { $unchecked-example
"USING: kernel ctags ;" "USING: kernel ctags prettyprint ;"
"{ if { \"resource:extra/unix/unix.factor\" 91 } } ctag ." "{ if { \"resource:extra/unix/unix.factor\" 91 } } ctag ."
"\"if\\t/path/to/factor/extra/unix/unix.factor\\t91\"" "\"if\\t/path/to/factor/extra/unix/unix.factor\\t91\""
} }