root/trunk/thune/scripts/c_string.t

; Convert Urlan data to C string.

[str | a b]
[
    str copy {"} {\"} replace.all head
    /*
    str copy
    [some [
        to '"' :a skip to '"' :b ('{' :a/1 '}' :b/1) skip
    ]]
    parse head
    */
]
func :replace-quotes  ; (str -- str)

args [
    load to-string
    next dup tail prev remove drop   ; Remove first & last bracket
    trim.in
        dup eol push
    ;dup first eol eq? ift next
    [some[
        :tok to eol tok: skip
            (tok tail? iff ({  "} prin tok replace-quotes prin {\n"} print))
    ]]
    parse drop
]
each