let generate_testsw (klass, klasses, fuid) =
let test klass = Format.sprintf "\tif ( IS_CLASS(this, \"%s\") ) return LIT_BOOL(1);" (String.trim klass) in
let cases = String.concat "\n" (List.map test klasses) in
let body = Format.sprintf "%s\n\treturn LIT_BOOL(0);" cases in
Format.sprintf "struct t_Boolean *%s( struct %s*this )\n{\n%s\n}\n\n" fuid klass body