#! /usr/bin/revolution -ui

on startup

try

generate

catch tError

write tError & return to stderr

end try

end startup

on generate

local tOutput

generateErrorsList $1 & slash & "executionerrors.h", "MCexecutionerrors"

put the result & return into tOutput

generateErrorsList $1 & slash & "parseerrors.h", "MCparsingerrors"

put the result & return after tOutput

put tOutput into url ("binfile:" & $2)

end generate

on generateErrorsList pSrcFile, pName

local tArray

put "const char *" & pName & " =" & return after tArray

local tFound

put false into tFound

repeat for each line tLine in url ("file:" & pSrcFile)

if word 1 of tLine is "enum" then

put true into tFound

end if

if not tFound then

next repeat

end if

if word 1 of tLine is "};" then

exit repeat

end if

if word 1 of tLine is "//" and char 1 of word 2 of tLine is "{" then

get word 3 to -1 of tLine

replace quote with "\" & quote in it

put tab & quote & it & "\n" & quote & return after tArray

end if

end repeat

put ";" & return after tArray

return tArray

end generateErrorsList