root/trunk/thune/scripts/ctx-hdr.t

; Make C enums from contexts

[
    to-string dup
    ['-' find dup iff break remove 1 uppercase] forever
    drop
]
proc :c-prefix   ; (word -- str)

[
    to-string dup
    ['-' find dup iff break '_' 1 poke] forever
    drop
]
proc :c-symbol   ; (word -- str)

"// Generated by mkhdr.t" print

args/1 load
[some [
    :tok
    block! 'context set-word!
    (
        ["^/enum ContextIndex"
         tok/3 word! to c-prefix 1 uppercase dup :sname "^/{^/"]
            prin.pack
        sname uppercase drop
        tok/1 [
            first dup :w set-word! is-type? ift (
                ["    CI_" sname '_' w: word! to c-symbol uppercase ",^/"]
                    prin.pack
            )
        ] iter
        "};" print
    )
  | skip
]]
parse drop

;eof