(ref.type > prog.begin_functypes and ref.type < prog.end_functypes and ref.isAnnotation("builtin") and #(java.lang.Boolean) ref.getAnnotation("builtin")) or (ref.type > prog.begin_meth and ref.type < prog.end_meth)) setAutoload(true) tw.load("convert/java_templates") runtimeQueryMode = isRuntimeQueryMode() errmsg = "Passing unknown value literal to builtin func!" ooLangImp = false qname = execLib("compute_package", this.getAnnotation("package-base")) qname.isEmpty() qname = this.getAnnotation("classname") qname = sprintf("%s.%s", qname, this.getAnnotation("classname")) qname = qname.replaceAll("\.", "_") deleteDictionary("function") is_trigger = downPath(this, prog.statement, prog.trigger_procedure) isClass = descendant(prog.class_def, 1) isIface = descendant(prog.interface_def, 1) isEnum = descendant(prog.enum_def, 1) pkgname = getNoteString("pkgname") createJavaAst(java.kw_package, pkgname, javaRootId) createImport("com.goldencode.p2j.util.*") !isEnum createStaticImport("com.goldencode.p2j.util.BlockManager.*") classname = getNoteString("classname") putNote("javaname", classname) is_trigger triggerRef = copy.getImmediateChild(prog.statement, null) triggerRef != null triggerRef.descendant(1, prog.trigger_procedure) triggerRef = copy.getImmediateChild(prog.statement, triggerRef) triggerRef = triggerRef.getImmediateChild(prog.trigger_procedure, null) eventType = execLib("get_db_event_type", triggerRef) (triggerRef.descendant(1, prog.kw_write) or triggerRef.descendant(1, prog.kw_repl_wri)) and triggerRef.descendant(1, prog.kw_new) tableRef = triggerRef.getImmediateChild(prog.kw_new, null) .getImmediateChild(prog.table, null) tableRef = triggerRef.getImmediateChild(prog.table, null) tableRef != null buf_class = #(java.lang.String) tableRef.getAnnotation("bufclassname") buf_class = "" (triggerRef.descendant(1, prog.kw_write) or triggerRef.descendant(1, prog.kw_repl_wri) or triggerRef.descendant(1, prog.kw_assign)) and triggerRef.descendant(1, prog.kw_old) oldValueName = #(java.lang.String) triggerRef.getImmediateChild(prog.kw_old, null) .getAnnotation("javaname") hasOldBuffer = true hasOldBuffer = false tableRef != null trg_table = tableRef.getAnnotation("schemaname") trg_field = "" triggerRef.descendant(1, prog.kw_assign) trg_field = triggerRef.getChildAt(2).getAnnotation("fieldName") trg_table = "" trg_field = "" is_trigger createImport("com.goldencode.p2j.persist.trigger.*") trg_field.isEmpty() buf_class.isEmpty() buf_class = "EmptyBuffer" tw.graft("schema_trigger_annotation_record", null, javaRootId, "buffer_class", sprintf("%s.class", buf_class), "event_type", eventType, "table_name", trg_table, "old_buffer", hasOldBuffer.toString()) tw.graft("schema_trigger_annotation_field", null, javaRootId, "buffer_class", sprintf("%s.class", buf_class), "event_type", eventType, "field_name", trg_field, "table_name", trg_table, "old_buffer", hasOldBuffer.toString()) ref = tw.graft("trigger_class_def", null, javaRootId, "bufclass", buf_class, "classname", classname, "pkgname", pkgname) putNote("class_def_peerid", ref.id) xmlUtilNode = xml.createAst(xml.attribute_node, "class", crt_tr) xml.createAst(xml.content, sprintf("%s.%s", pkgname, classname), xmlUtilNode) xmlUtilNode = xml.createAst(xml.attribute_node, "buffer", crt_tr) xml.createAst(xml.content, sprintf("%s", buf_class), xmlUtilNode) !trg_field.isEmpty() xmlUtilNode = xml.createAst(xml.attribute_node, "property", crt_tr) xml.createAst(xml.content, trg_field, xmlUtilNode) !is_trigger and !isClass and !isIface and !isEnum ref = tw.graft("class_def", null, javaRootId, "classname", classname, "pkgname", pkgname, "access", "public") putNote("class_def_peerid", ref.id) !isClass and !isIface and !isEnum methDefId = getSectionAnchor(java.cs_instance_methods).id isNote("execname") execname = getNoteString("execname") execname = "execute" lastid = createPeerAst(java.method_def, execname, methDefId) isNote("numparms") numparms = getNoteLong("numparms") numparms > 0 lastid = createJavaAst(java.lparens, "(", lastid) putNote("parmroot", lastid) isClass or isIface or isEnum extends = null access = "public" isClass clsref = this.getImmediateChild(prog.class_def, null) clsref = clsref.getImmediateChild(prog.kw_class, null) isIface clsref = this.getImmediateChild(prog.interface_def, null) clsref = clsref.getImmediateChild(prog.kw_interfac, null) clsref = this.getImmediateChild(prog.enum_def, null) clsref = clsref.getImmediateChild(prog.kw_enum, null) parref = clsref.getImmediateChild(prog.kw_inherits, null) parref != null parref = parref.getChildAt(0) extends = execLib("resolveClassReference", parref, null) isClass extends = "BaseObject" ooLangImp = true isEnum downPath(clsref, prog.kw_flags) extends = "FlagsEnum" flagsEnum = true extends = "LegacyEnum" flagsEnum = false ooLangImp = true isClass or isEnum jclsdef = tw.graft("class_def_ext", null, javaRootId, "classname", classname, "pkgname", pkgname, "extends", extends, "access", access) putNote("class_def_peerid", jclsdef.id) clsref.descendant(1, prog.kw_abstract) jclsdef.putAnnotation("abstract", true) clsref.descendant(1, prog.kw_final) or isEnum jclsdef.putAnnotation("final", true) isClass methDefId = getSectionAnchor(java.cs_instance_methods).id execname = sprintf("__%s_execute__", qname) lastid = createPeerAst(java.method_def, execname, methDefId) downPath(clsref, prog.kw_serialab) createJavaAst(java.annotation, "LegacySerializable", jclsdef.parent.id, jclsdef.indexPos) isIface extends == null extends = "com.goldencode.p2j.oo.lang._BaseObject_" jclsdef = tw.graft("interface_def_ext", null, javaRootId, "classname", classname, "pkgname", pkgname, "extends", extends, "access", access) !isIface and !isEnum and getConfigParameter("i18n-enable", false)) execLib("initClassI18n", pkgname, classname) evalLib("function_calls") or evalLib("oo_call_type", this, null) addScope("function") refid = getNoteLong("refid") typelist = null modes = null refid != null iref = getAst(refid) typelist = iref.getAnnotation("typelist") modes = iref.getAnnotation("param_modes") typelist == null and isNote("cls-property") and getNoteBoolean("cls-property") and "setter" == getNoteString("property-access-type") typelist = create("java.util.ArrayList") typelist.add(iref.getAnnotation("classname")) modes = "I" addDictionaryObject("function", "typelist", typelist) addDictionaryObject("function", "modes", modes) this.type > prog.begin_attr and this.type < prog.end_attr and this.indexPos == 1 and parent.type == prog.colon and parent.indexPos == 0 and upPath(this, prog.assign, prog.colon) ref = copy.parent.parent.getChildAt(1) wrapper = ecw.expressionType(ref, false) wrapper == null or wrapper.equals("BaseDataType") wrapper = ecw.expressionType(copy) !(wrapper == null or wrapper.equals("BaseDataType")) ref.putAnnotation("classname", wrapper) ref.putAnnotation("wrap_parameter", true) printfln("WARNING: received a POLY rvalue for POLY attribute assignment %s", this.dumpTree(true)) relativePath(this, prog.class_def, prog.kw_class, prog.kw_implemts) createPeerAst(java.kw_implements, "implements", jclsdef.id, 0) relativePath(this, prog.kw_implemts, prog.class_name) jname = execLib("resolveClassReference", copy, null) createPeerAst(java.class_reference, jname, closestPeerId) parent != null and parent.isAnnotation("refid") and ((evalLib("function_call_type", parent.type) and (!parent.isAnnotation("param_modes") or copy.indexPos > 0)) or (evalLib("oo_call_type", parent, copy) and !evalLib("is_builtin_cls", parent) and !evalLib("is_java_cls", parent) and isNote("param_index"))) typelist = lookupDictionaryObject("function", "typelist") modes = lookupDictionaryObject("function", "modes") !parent.isAnnotation("builtin") or #(java.lang.Boolean) parent.getAnnotation("builtin") == false typelist != null parIdx = #(long) (-1) copy.isAnnotation("param_index") parIdx = #(long) copy.getAnnotation("param_index") parent.isAnnotation("param_modes") parIdx = #(long) copy.indexPos - 1 parIdx = #(long) copy.indexPos wrapper = typelist.get(parIdx) type == prog.string or type == prog.unknown_val putNote("classname", wrapper) wrapper != null and (wrapper.equals("longchar") or wrapper.equals("character") or wrapper.equals("integer") or wrapper.equals("decimal") or wrapper.equals("int64")) or wrapper.equals("datetime") or wrapper.equals("date") or wrapper.equals("datetimetz")) nodeRef = copy nodeRef != null and (nodeRef.type == prog.lparens or nodeRef.type == prog.expression) nodeRef = nodeRef.getChildAt(0) nodeRef != null !(evalLib("type_pair", this, prog.func_poly, prog.kw_dyn_func) or evalLib("type_pair", this, prog.func_poly, prog.kw_dyn_invk) or evalLib("type_pair", this, prog.func_poly, prog.kw_dyn_prop) or evalLib("type_pair", this, prog.attr_poly, prog.kw_buf_val) or this.type == prog.db_ref_non_static) nodeRef.putAnnotation("chp_wrapper", wrapper) pmode = modes.substring(parIdx, parIdx + 1) pmode == 'O' or pmode == 'U' putNote("output_mode", true) wrapper != null evalLib("type_pair", copy, prog.func_poly, prog.kw_dyn_func) and isNote("casttype") casttype = getNoteString("casttype") casttype = null candidate = ecw.expressionType(copy, false) candidate == null or candidate.equals("BaseDataType") or candidate.equals("WrappedResource") casttype == null or !casttype.equals(wrapper) !(evalLib("type_pair", this, prog.func_poly, prog.kw_dyn_func) or evalLib("type_pair", this, prog.func_poly, prog.kw_dyn_invk) or evalLib("type_pair", this, prog.func_poly, prog.kw_dyn_prop) or evalLib("type_pair", this, prog.attr_poly, prog.kw_buf_val) or this.type == prog.db_ref_non_static) putNote("wrap_parameter", true) putNote("classname", wrapper) copy.parent.putAnnotation("isPoly", true) printfln("%s %s", errmsg, parent.dumpTree(true)) parent.type == prog.kw_publish and this.indexPos == 0 and this.type == prog.expression cls = ecw.expressionType(this, false) cls == null || cls.equals("BaseDataType") putNote("wrap_parameter", true) putNote("classname", "character") parent.type == prog.kw_run ref = null type == prog.kw_in ref = copy.getFirstChild() ref != null cls = ecw.expressionType(ref, false) cls == null || cls.equals("BaseDataType") wrapper = "handle" ref.putAnnotation("wrap_parameter", true) ref.putAnnotation("classname", wrapper) this.type == prog.expression and copy.firstChild != null and evalLib("literals", copy.firstChild.type) parent.type == prog.kw_by or parent.type == prog.kw_case putNote("wrap", true) (upPath(this, prog.kw_this_obj, prog.lparens, prog.parameter) or upPath(this, prog.kw_super, prog.lparens, prog.parameter)) and parent.parent.parent.isAnnotation("javaname") putNote("wrap", true) evalLib("literals", this.type) and (upPath(this, prog.object_invocation) or upPath(this, prog.object_invocation, prog.expression)) putNote("wrap", true) this.type == prog.unknown_val and (upPath(this, prog.statement, prog.kw_put_k_v, prog.kw_section, prog.expression) or upPath(this, prog.statement, prog.kw_put_k_v, prog.kw_key, prog.expression) or upPath(this, prog.statement, prog.kw_get_k_v, prog.kw_section, prog.expression) or upPath(this, prog.statement, prog.kw_get_k_v, prog.kw_key, prog.expression)) copy.parent.putAnnotation("classname", "character") this.indexPos >= 1 and (upPath(this, prog.statement, prog.kw_substr) or upPath(this, prog.statement, prog.assign, prog.kw_substr) or upPath(this, prog.statement, prog.kw_assign, prog.kw_substr) or upPath(this, prog.statement, prog.kw_entry) or upPath(this, prog.statement, prog.assign, prog.kw_entry) or upPath(this, prog.statement, prog.kw_assign, prog.kw_entry)) candidate = ecw.expressionType(copy, false) candidate == null or candidate.equals("BaseDataType") or candidate.equals("WrappedResource") copy.putAnnotation("wrap_parameter", true) parent.type == prog.kw_substr copy.indexPos == 1 classname = "character" classname = "integer" copy.indexPos == 1 classname = "integer" classname = "character" copy.putAnnotation("classname", classname) this.type != prog.kw_no_error and this.type != prog.kw_input and this.type != prog.kw_in_out and this.type != prog.kw_output and this.type != prog.kw_append and this.type != prog.kw_bind and this.type != prog.kw_by_ref and this.type != prog.kw_by_value and ((evalLib("function_or_method_call", parent) and !evalLib("type_pair", parent, prog.func_class, prog.kw_new) and !evalLib("supports_poly_argument", copy.parent, copy.indexPos)) or (parent.type == prog.lparens and evalLib("type_pair", parent.parent, prog.func_class, prog.kw_new))) pref = parent pref.type == prog.lparens pref = pref.parent oldtype = #(long) pref.getAnnotation("oldtype") wrapper = null ref = copy ref.type == prog.kw_in or ref.type == prog.parameter or ref.type == prog.expression or ref.type == prog.lparens ref = ref.getChildAt(0) ref.type == prog.unknown_val or (ref.type == prog.expression and downPath(ref, prog.unknown_val)) wrapper = ecw.expressionType(ref) wrapper != null wrapper.equals("unknown") or wrapper.equals("BaseDataType") wrapper = null wrapper != null and wrapper.equals("WrappedResource") wrapper = "handle" oldtype == prog.kw_set_dbcl and ref.indexPos == 1 wrapper = "character" oldtype == prog.kw_init_c_p and ref.indexPos == 1 wrapper = "character" oldtype == prog.kw_init_c_p and ref.indexPos == 2 wrapper = "datetimetz" oldtype == prog.kw_repos_2i wrapper = "rowid" wrapper != null downPath(ref, prog.unknown_val) lref = ref.getFirstChild() lref = ref lref.putAnnotation("classname", wrapper) wrapper == null ref.parent.type == prog.expression lref = ref.parent lref = ref evalLib("literals", ref.type) and !evalLib("compiler_constants", ref.type) wrapper = "bogus" evalLib("needs_wrapped_literals", oldtype, this.indexPos) lref.putAnnotation("wrap", true) wrapper == null and !pref.isAnnotation("supportsPolyParameter") wrapper = ecw.expressionType(ref, false) wrapper != null and wrapper.equals("WrappedResource") ref.putAnnotation("wrap_parameter", true) ref.putAnnotation("classname", "handle") wrapper == null or wrapper.equals("BaseDataType") wrapper = ecw.expressionType(ref, true) needed = parameterTypeName(pref, copy.indexPos, true) evalLib("type_pair", ref, prog.func_poly, prog.kw_dyn_func) and ref.isAnnotation("casttype") casttype = ref.getAnnotation("casttype") casttype = null needed != null and !ecw.isAssignmentCompatible(wrapper, needed) wrapper = needed wrapper != null and !wrapper.equals("unknown") and !wrapper.equals("BaseDataType") and (casttype == null or !ecw.isAssignmentCompatible(wrapper, casttype)) and !(evalLib("type_pair", pref, prog.func_poly, prog.kw_if) and copy.indexPos > 0) ref.putAnnotation("wrap_parameter", true) ref.putAnnotation("classname", wrapper) wrapper = "bogus" wrapper == null and oldtype != prog.kw_dyn_func and oldtype != prog.kw_super and !copy.parent.isAnnotation("supportsPolyParameter") printfln("WARNING: Could not determine wrapper for parameter %d [%s] for function/method %s [%d] @%d:%d.", copy.indexPos, copy.lookupTokenName(ref.type), copy.lookupTokenName(oldtype), pref.id, pref.line, pref.column) this.type == prog.enum_def lastid = getSectionAnchor(java.cs_instance_vars).id pref = this.getAncestor(-1) qual_oo = pref.getAnnotation("qualified_oo_name") createStaticImport("com.goldencode.p2j.report.ReportConstants.*") createStaticImport("com.goldencode.p2j.util.InternalEntry.Type") ref = getSectionAnchor(java.cs_static_methods) tw.graftAt("enum_static_getenum_methods", null, ref.parent.id, ref.indexPos, "classname", classname, "qualified", qual_oo.toLowerCase()) ref.remove() ref = getSectionAnchor(java.cs_constructors) ref = createJavaAst(java.block, "", ref) ref.putAnnotation("static", true) ref.putAnnotation("constructor", true) copy.parent.putAnnotation("static_ctor", ref.id) tw.graft("enum_register", null, ref.id, "classname", classname, "name", qual_oo) createJavaAst(java.skip, "", ref) ref = getSectionAnchor(java.cs_constructors) tw.graft("enum_constructor", null, ref.id, "classname", classname) this.type == prog.kw_convert and upPath(this, prog.statement, prog.kw_cpy_lob) downPath(this, prog.kw_source) and downPath(this, prog.kw_target) this.firstChild.type == prog.kw_target ref = copy.firstChild ref.move(copy, 1) not downPath(this, prog.kw_source) ref = copy.firstChild ref = ref.duplicateFresh() copy.graftAt(ref, 0) ref.type = prog.kw_source ref = ref.getImmediateChild(prog.expression, null) ref.putAnnotation("classname", "character") ref.removeChildren() ref = createProgressAst(prog.unknown_val, "?", ref) ref.putAnnotation("is-literal", true) evalLib("function_calls") or evalLib("oo_call_type", this, null) deleteScope("function") ooLangImp != null and ooLangImp createImport("com.goldencode.p2j.oo.lang.*") persist() persistJavaFile()