ok = false evalLib("no_expression", down) and disp.getAnnotation("frame-id").equals(down.getAnnotation("frame-id")) ok = evalLib("is_same stream", disp, down) down.type == prog.kw_down aast0 = down.getChildAt(0) aast1 = down.getChildAt(1) ok = (aast0 == null or aast0.type != prog.expression) and (aast1 == null or aast1.type != prog.expression) ok = false disp_stream = null down_stream = null stream = disp.firstChild stream != null and (stream.type == prog.kw_stream or stream.type == prog.kw_strm_hnd) disp_stream = #(long)stream.getAnnotation("refid") disp_stream_type = stream.type stream = down.firstChild stream != null and stream.type == disp_stream_type down_stream = #(long)stream.getAnnotation("refid") (disp_stream == null and down_stream == null) or (disp_stream != null and disp_stream.equals(down_stream)) ok = true match = false ref.type == prog.kw_apply and ref.downPath("KW_TO") ref = copy.getImmediateChild(prog.kw_to, null) ref = ref.getChildAt(0) match = ref.type == prog.var_handle or ref.type == prog.field_handle or ref.type == prog.func_handle or ref.type == prog.meth_handle or ref.type == prog.oo_meth_handle or ref.type == prog.attr_handle or evalLib("converted_to_handle", ref) match = false downPath("KW_VALUE/EXPRESSION/STRING") and copy.getFirstChild().type == prog.kw_value ref = copy.getFirstChild() ref = ref.getFirstChild() ref = ref.getFirstChild() widgetType.equals(removeQuotes(ref.text.toLowerCase())) match = true ref = copy.getFirstChild() ref.remove() multiMode = false waitloc = createJavaAst(java.constructor, clsname, closestPeerId) ref.putAnnotation("peerid", waitloc) multiMode = true true listname = sprintf("list%d", nextNum) nextNum = nextNum + 1 waitloc = closestPeerId createJavaAst(java.skip, "", closestPeerId) waitref = tw.graft("variable_def_default", null, closestPeerId, "javaname", listname, "wrapper", "EventList") waitidx = waitref.indexPos + 1 choosename = sprintf("choose%d", chooseNum) chooseNum = chooseNum + 1 chooseloc = closestPeerId chooseref = tw.graft("variable_def_default", null, closestPeerId, "javaname", choosename, "wrapper", "Choose") chooseidx = chooseref.indexPos + 1 name.length() != 1 and name.indexOf("Array") != 1 res = sprintf("widget%s%s", name.substring(0, 1).toUpperCase(), name.substring(1)) res = sprintf("widget%s", name) true bref = ref.getAncestor(-1, prog.statement) bref = bref.getImmediateChild(prog.define_browse, null) parentid = closestPeerId idx = -1 parent = bref.getImmediateChild(prog.wid_browse, null) fname = execLib("get_framename", parent) frame_ref = getAst(#(java.lang.Long) parent.getAnnotation("frame-id")) wname = bref.getAnnotation("javaname") wname = execLib("gen_wacc", wname) parentid = createJavaAst(java.method_call, "setDynamicTitle", parentid, idx) lastid = createJavaAst(java.method_call, wname, parentid) lastid = createJavaAst(java.reference, fname, lastid) ref.putAnnotation("peerid", parentid) res = false getNoteBoolean("aggr_special") == null or getNoteBoolean("aggr_special") == false res = true tw.load("convert/java_templates") nextNum = 0 chooseNum = 0 ennum = 0 importUI = false importLT = false importFunc = false aggrMap = create("java.util.HashMap") aggrMap2 = create("java.util.HashMap") baseClass = sprintf("%s.this", getNoteString("classname")) lambdaBlock = evalLib("isLambdaBlockEnabled") deleteDictionary("frame_element_name") type == prog.content_array and parent.type == prog.statement addScope("frame_element_name") fename = null numImmediateChildren > 0 evalLib("non_aggregate") lastid = closestPeerId scoperef = getAst(#(long) copy.getAnnotation("scope-id")) scoperef.getAnnotation("aggr-id") == null lastid = getAst(#(long) scoperef.getAnnotation("peerid")).parent.id lastid = null lastid != null fename = getNoteString("javaname") addDictionaryObject("frame_element_name", "fename", fename) type == prog.system_dialog_font importUI = true evalLib("initializeChain", copy, closestPeerId, "execute", java.method_call, "FontTable.createFontChooserDialog", java.static_method_call) parent.type == prog.system_dialog_font type == prog.kw_ansi_onl execLib("addChainNode", copy.parent, "ansiOnly", java.method_call) type == prog.kw_fixd_onl execLib("addChainNode", copy.parent, "fixedOnly", java.method_call) type == prog.kw_max_sz execLib("addChainNode", copy.parent, "setMaxSize", java.method_call) type == prog.kw_min_sz execLib("addChainNode", copy.parent, "setMinSize", java.method_call) type == prog.kw_in execLib("addChainNode", copy.parent, "setWindow", java.method_call) type == prog.kw_update execLib("addChainNode", copy.parent, "update", java.method_call) type == prog.system_dialog_color importUI = true evalLib("initializeChain", copy, closestPeerId, "execute", java.method_call, "ColorTable.createColorChooserDialog", java.static_method_call) parent.type == prog.system_dialog_color type == prog.kw_in execLib("addChainNode", copy.parent, "setWindow", java.method_call) type == prog.kw_update execLib("addChainNode", copy.parent, "update", java.method_call) type == prog.system_dialog_get_file importUI = true evalLib("initializeChain", copy, closestPeerId, "execute", java.method_call, "FileDialog.createFileSearchDialog", java.static_method_call) type == prog.system_dialog_get_dir importUI = true evalLib("initializeChain", copy, closestPeerId, "execute", java.method_call, "FileDialog.createDirSearchDialog", java.static_method_call) parent.type == prog.system_dialog_get_file or parent.type == prog.system_dialog_get_dir type == prog.kw_creat_tf execLib("addChainNode", copy.parent, "createTestFile", java.method_call) type == prog.kw_ask_over execLib("addChainNode", copy.parent, "askOverwrite", java.method_call) type == prog.kw_save_as execLib("addChainNode", copy.parent, "saveAs", java.method_call) type == prog.kw_ret_2sd execLib("addChainNode", copy.parent, "returnToStartDir", java.method_call) type == prog.kw_must_exi execLib("addChainNode", copy.parent, "mustExist", java.method_call) type == prog.kw_use_fil execLib("addChainNode", copy.parent, "useFilename", java.method_call) type == prog.kw_init_dir execLib("addChainNode", copy.parent, "setInitialDir", java.method_call) type == prog.kw_def_extn execLib("addChainNode", copy.parent, "setDefaultExtension", java.method_call) type == prog.kw_update execLib("addChainNode", copy.parent, "update", java.method_call) type == prog.kw_title execLib("addChainNode", copy.parent, "setTitle", java.method_call) type == prog.kw_filters execLib("addChainNode", copy.parent, "setFilters", java.method_call) type == prog.kw_in execLib("addChainNode", copy.parent, "setWindow", java.method_call) type == prog.kw_at_w_brw execLib("addChainNode", copy.parent, "atWebBrowser", java.method_call) type == prog.kw_multiple execLib("addChainNode", copy.parent, "multiple", java.method_call) type == prog.kw_upload execLib("addChainNode", copy.parent.parent, "upload", java.method_call) type == prog.kw_init_flt and parent.type == prog.kw_filters and parent.parent.type == prog.system_dialog_get_file execLib("addChainNode", copy.parent.parent, "setInitialFilter", java.method_call) type == prog.system_dialog_printer_setup importUI = true evalLib("initializeChain", copy, closestPeerId, "execute", java.method_call, "PrintingService.createSetupDialog", java.static_method_call) parent.type == prog.system_dialog_printer_setup type == prog.kw_num_copy execLib("addChainNode", copy.parent, "setCopyCount", java.method_call) type == prog.kw_landscap ref = execLib("addChainNode", copy.parent, "setOrientation", java.method_call) ref != null createJavaAst(java.reference, "PrintingService.LANDSCAPE", ref) type == prog.kw_portrait ref = execLib("addChainNode", copy.parent, "setOrientation", java.method_call) ref != null createJavaAst(java.reference, "PrintingService.PORTRAIT", ref) type == prog.kw_update ref = execLib("addChainNode", copy.parent, "update", java.method_call) type == prog.kw_in execLib("addChainNode", copy.parent, "setWindow", java.method_call) type == prog.kw_sys_help importUI = true evalLib("initializeChain", copy, closestPeerId, "execute", java.method_call, "HelpService.prepare", java.static_method_call) parent.type == prog.kw_sys_help type == prog.kw_win_name execLib("addChainNode", copy.parent, "setWindowName", java.method_call) type == prog.kw_contents execLib("addChainNode", copy.parent, "contents", java.method_call) type == prog.kw_ctx execLib("addChainNode", copy.parent, "setContext", java.method_call) type == prog.kw_help_top execLib("addChainNode", copy.parent, "setTopic", java.method_call) type == prog.kw_key execLib("addChainNode", copy.parent, "setKey", java.method_call) type == prog.kw_alt_key execLib("addChainNode", copy.parent, "setAlternateKey", java.method_call) type == prog.kw_pos this.getFirstChild().type == prog.kw_maximize execLib("addChainNode", copy.parent, "maximized", java.method_call) execLib("addChainNode", copy.parent, "setPosition", java.method_call) type == prog.kw_quit execLib("addChainNode", copy.parent, "quit", java.method_call) type == prog.kw_set_cont execLib("addChainNode", copy.parent, "setContents", java.method_call) type == prog.kw_ctx_pop execLib("addChainNode", copy.parent, "setContextPopup", java.method_call) type == prog.kw_part_key execLib("addChainNode", copy.parent, "setPartialKey", java.method_call) type == prog.kw_mult_key execLib("addChainNode", copy.parent, "setMultipleKey", java.method_call) type == prog.kw_command execLib("addChainNode", copy.parent, "setCommand", java.method_call) type == prog.kw_finder execLib("addChainNode", copy.parent, "finder", java.method_call) type == prog.kw_force_f execLib("addChainNode", copy.parent, "forceFile", java.method_call) type == prog.kw_help execLib("addChainNode", copy.parent, "help", java.method_call) type == prog.frame_lock createPeerAst(java.static_method_call, "DynamicWidgetFactory.pushScreenLock", closestPeerId) type == prog.frame_unlock createPeerAst(java.static_method_call, "DynamicWidgetFactory.pushScreenUnlock", closestPeerId) type == prog.create_widget importUI = true explicitw = null methodText = null methodType = java.static_method_call explicitw == null and (downPath("KW_BUTTON") or evalLib("match_widget_type", "button")) explicitw = "Button" explicitw == null and (downPath("KW_CHART") or evalLib("match_widget_type", "chart")) explicitw = "Chart" explicitw == null and (downPath("KW_COMBO_BX") or evalLib("match_widget_type", "combo-box")) explicitw = "ComboBox" explicitw == null and (downPath("KW_CNTRL_FR") or evalLib("match_widget_type", "control-frame")) explicitw = "ControlFrame" explicitw == null and (downPath("KW_DIALOG") or evalLib("match_widget_type", "dialog-box")) explicitw = "DialogBox" explicitw == null and (downPath("KW_CALENDAR") or evalLib("match_widget_type", "calendar")) explicitw = "Calendar" explicitw == null and (downPath("KW_EDITOR") or evalLib("match_widget_type", "editor")) explicitw = "Editor" explicitw == null and (downPath("KW_FILL_IN") or evalLib("match_widget_type", "fill-in")) explicitw = "FillIn" explicitw == null and (downPath("KW_FRAME") or evalLib("match_widget_type", "frame")) explicitw = "Frame" explicitw == null and (downPath("KW_HTML_BWS") or evalLib("match_widget_type", "html-browser")) explicitw = "HtmlBrowser" explicitw == null and (downPath("KW_IMAGE") or evalLib("match_widget_type", "image")) explicitw = "Image" explicitw == null and (downPath("KW_IL_IMG") or evalLib("match_widget_type", "imagelist")) explicitw = "ImageList" explicitw == null and (downPath("KW_MENU") or evalLib("match_widget_type", "menu")) explicitw = "Menu" explicitw == null and (downPath("KW_MENU_ITM") or evalLib("match_widget_type", "menu-item")) explicitw = "MenuItem" explicitw == null and (downPath("KW_PROG_BAR") or evalLib("match_widget_type", "progress-bar")) explicitw = "ProgressBar" explicitw == null and (downPath("KW_RADIO_S") or evalLib("match_widget_type", "radio-set")) explicitw = "RadioSet" explicitw == null and (downPath("KW_RECT") or evalLib("match_widget_type", "rectangle")) explicitw = "Rectangle" explicitw == null and (downPath("KW_SEL_LST") or evalLib("match_widget_type", "selection-list")) explicitw = "SelectionList" explicitw == null and (downPath("KW_SIGNATUR") or evalLib("match_widget_type", "signature")) explicitw = "Signature" explicitw == null and (downPath("KW_SLIDER") or evalLib("match_widget_type", "slider")) explicitw = "Slider" explicitw == null and (downPath("KW_SUB_MENU") or evalLib("match_widget_type", "sub-menu")) explicitw = "SubMenu" explicitw == null and (downPath("KW_TABSET") or evalLib("match_widget_type", "tabset")) explicitw = "TabSet" explicitw == null and (downPath("KW_TEXT") or evalLib("match_widget_type", "text")) explicitw = "Text" explicitw == null and (downPath("KW_TOGGL_BX") or evalLib("match_widget_type", "toggle-box")) explicitw = "ToggleBox" explicitw == null and (downPath("KW_TREELIST") or evalLib("match_widget_type", "treelist")) explicitw = "TreeList" explicitw == null and (downPath("KW_TREEVIEW") or evalLib("match_widget_type", "treeview")) explicitw = "TreeView" explicitw == null and (downPath("KW_WINDOW") or evalLib("match_widget_type", "window")) explicitw = "Window" explicitw == null and (downPath("KW_BTN_LIST") or evalLib("match_widget_type", "button-list")) explicitw = "ButtonList" explicitw != null methodText = sprintf("DynamicWidgetFactory.create%s", explicitw) downPath("KW_VALUE") methodText = "DynamicWidgetFactory.create" methodText != null createPeerAst(methodType, methodText, closestPeerId) throwException(sprintf("Unsupported CREATE WIDGET statement clause [%s]", this.getFirstChild().text)) type == prog.create_browse importUI = true createPeerAst(java.static_method_call, "DynamicWidgetFactory.createBrowse", closestPeerId) type == prog.statement and downPath("KW_FORM/KW_HEADER") and descendant(prog.content_array, 1) parentid = closestPeerId idx = -1 osref = copy.getImmediateChild(prog.kw_form, null) osref = getAst(#(java.lang.Long) osref.getAnnotation("frame-id")) osref = getAst(#(java.lang.Long) osref.getAnnotation("scope_peer")) osref != null parentid = osref.parent.id idx = osref.indexPos + 1 createPeerAst(java.bogus, "", parentid, idx) parent.type == prog.runtime_browse_options and copy.type == prog.kw_title execLib("generate_browse_title", copy) parent.type == prog.statement methodText = null methodType = java.method_call refName = null peeremit = true type == prog.kw_choose or type == prog.kw_color or type == prog.kw_disable or type == prog.kw_disp or type == prog.kw_down or type == prog.kw_enable or type == prog.kw_next_pmt or type == prog.kw_prmt_for or type == prog.kw_scroll or type == prog.kw_set or type == prog.kw_up or type == prog.kw_update or ((type == prog.kw_hide or type == prog.kw_view) and isNote("frame-id") and !isNote("single-element")) or (type == prog.kw_form and descendant(prog.kw_header, 1)) refName = #(java.lang.String) execLib("get_framename", this) type == prog.kw_apply and !evalLib("apply_to_handle", this) methodText = "apply" numImmediateChildren == 1 or downPath("KW_TO/KW_FRAME/WID_FRAME") or downPath("KW_TO/WID_FRAME") isNote("frame-id") refName = #(java.lang.String) execLib("get_framename", this) methodText = "apply" importLT = true methodType = java.static_method_call type == prog.kw_bell methodText = "bell" importLT = true methodType = java.static_method_call type == prog.kw_choose methodType = java.method_call methodText = "choose" peeremit = false execLib("gen_choose") type == prog.kw_clear methodText = "clear" methodType = java.method_call descendant(prog.kw_all, 1) methodText = "clearAll" descendant(prog.kw_frame, 1) refName = #(java.lang.String) execLib("get_framename", this) importLT = true methodType = java.static_method_call type == prog.define_browse methodText = "registerQuery" type == prog.kw_color methodText = "setColors" type == prog.kw_disable methodText = "disable" downPath("KW_ALL/KW_EXCEPT") methodText = "disableExcept" downPath("KW_UNL_HID") methodText = "disableUnlessHidden" ref = this.getImmediateChild(prog.content_array, null) ref.numImmediateChildren == 1 refName = null type == prog.kw_disp and parent.type == prog.statement parSib = parent.nextSibling parSib != null and parSib.type == prog.statement chld = parSib.firstChild chld != null and evalLib("is_display_and_down", this, chld) this.putAnnotation("followed-by-down", true) chld.remove() type == prog.kw_disp methodText = "display" downPath("KW_UNL_HID") methodText = "displayUnlessHidden" #(boolean)this.getAnnotation("followed-by-down") == true methodText = methodText.concat("AndDown") type == prog.kw_down methodText = "down" type == prog.delete_widget this.getFirstChild().type == prog.var_com_handle methodText = "ComServer.delete" methodText = "HandleOps.delete" methodType = java.static_method_call type == prog.kw_enable methodText = "enable" downPath("KW_ALL/KW_EXCEPT") methodText = "enableExcept" downPath("KW_UNL_HID") methodText = "enableUnlessHidden" downPath("KW_ALL/KW_EXCEPT") methodText = "enableUnlessHiddenExcept" ref = this.getImmediateChild(prog.content_array, null) ref.numImmediateChildren == 1 refName = null type == prog.kw_form and descendant(prog.kw_header, 1) ref = copy.parent.getImmediateChild(prog.content_array, null) ref != null and ref.numImmediateChildren > 0 methodText = "registerHeader" type == prog.kw_hide descendant(prog.kw_msg, 1) methodText = "hideMessage" importLT = true descendant(prog.kw_all, 1) methodText = "hideAll" importLT = true methodText == null methodText = "hide" isNote("frame-id") and (!isNote("single-element") or (this.numImmediateChildren == 1 and this.getImmediateChild(prog.kw_stream, null) != null)) refName = #(java.lang.String) execLib("get_framename", this) not isNote("frame-id") and not (this.firstChild != null and evalLib("handle_type", this.firstChild.type)) methodText = null refName = null methodType = java.static_method_call type == prog.input_clear methodText = "inputClear" importLT = true methodType = java.static_method_call type == prog.kw_msg descendant(prog.kw_view_as, 1) methodText = "messageBox" methodText = "message" importLT = true methodType = java.static_method_call type == prog.kw_next_pmt methodText = "nextPrompt" type == prog.kw_on !descendant(prog.db_event, 1) needswait = true methodType = java.static_method_call numImmediateChildren == 2 and this.getChildAt(0).type == prog.event and this.getChildAt(1).type == prog.key_function needswait = false methodText = "remapKey" importLT = true descendant(prog.db_event, 1) needswait = false descendant(prog.kw_revert, 1) methodText = "deregisterDatabaseTrigger" methodText = "registerDatabaseTrigger" createStaticImport("com.goldencode.p2j.persist.trigger.DatabaseTriggerManager.*") createImport("com.goldencode.p2j.persist.trigger.*") descendant(prog.kw_revert, 1) methodText = "deregisterTrigger" importLT = true descendant(prog.kw_persist, 1) downPath("KW_PERSIST/KW_RUN/KW_IN") methodText = "registerTriggerPersistentIn" methodText = "registerTriggerPersistent" importLT = true descendant(prog.library_ref, 3) errmsg = sprintf("ERROR: Unsupported RUN mode %s in %d.", this.lookupTokenName(prog.library_ref), this.id) printfln(errmsg) methodText = "registerTrigger" importLT = true trigid = closestPeerId instvarid = createJavaAst(java.bogus, "", closestPeerId) skipid = createJavaAst(java.skip, "", closestPeerId) copy.getNumImmediateChildren(prog.kw_of) > 1 execLib("gen_separate_event_list") multiMode = false type == prog.kw_pause descendant(prog.kw_b4_hide, 1) methodText = "pauseBeforeHide" methodText = "pause" importLT = true methodType = java.static_method_call type == prog.process_events methodText = "processEvents" importLT = true methodType = java.static_method_call type == prog.put_cursor methodText = "putCursor" importLT = true methodType = java.static_method_call type == prog.put_screen methodText = "putScreen" importLT = true methodType = java.static_method_call type == prog.kw_scroll methodText = "scroll" type == prog.kw_status methodType = java.static_method_call importLT = true descendant(prog.kw_default, 1) methodText = "statusDefault" descendant(prog.kw_off, 1) methodText = "statusInputOff" methodText = "statusInput" type == prog.kw_term descendant(prog.kw_term, 1) methodText = "resetTerminal" methodText = "setTerminalType" importLT = true methodType = java.static_method_call type == prog.kw_underlin and copy.numImmediateChildren > 0 and copy.getChildAt(0).type != prog.frame_phrase methodText = "underline" ref = this.getImmediateChild(prog.content_array, null) ref.numImmediateChildren > 1 refName = #(java.lang.String) execLib("get_framename", this) type == prog.kw_up methodText = "up" type == prog.kw_update or type == prog.kw_set or type == prog.kw_prmt_for multiMode = false descendant(prog.editing_block, 1) refName = null descendant(prog.kw_go_on, 1) execLib("gen_separate_event_list") type == prog.kw_update methodText = "update" type == prog.kw_set methodText = "set" methodText = "promptFor" downPath("KW_UNL_HID") methodText = methodText.concat("UnlessHidden") type == prog.kw_view methodText = "view" isNote("frame-id") and (!isNote("single-element") or (this.numImmediateChildren == 1 and this.getImmediateChild(prog.kw_stream, null) != null)) refName = #(java.lang.String) execLib("get_framename", this) type == prog.kw_wait_for methodType = java.static_method_call methodText = "LogicalTerminal.waitFor" importLT = true copy.getNumImmediateChildren(prog.kw_of) > 1 execLib("gen_separate_event_list") multiMode = false type == prog.kw_update or type == prog.kw_set or type == prog.kw_prmt_for or type == prog.kw_disp or type == prog.kw_disable or type == prog.kw_enable or type == prog.kw_view or type == prog.kw_hide or type == prog.kw_choose or type == prog.kw_color or type == prog.kw_underlin or type == prog.kw_wait_for createJavaAst(java.skip, "", closestPeerId) putNote("block_par_id", closestPeerId) methodText != null and methodText.length() != 0 peeremit lastid = createPeerAst(methodType, methodText, closestPeerId) lastid = createJavaAst(methodType, methodText, closestPeerId) nonpeerid = lastid methodType == java.method_call and refName != null createJavaAst(java.reference, refName, lastid) methodType == java.static_method_call importUI = true type == prog.statement and downPath("DEFINE_VARIABLE/KW_AS/KW_WID_HAND") importUI = true isNote("frame-id") or importUI or type == prog.frame_alloc createImport("com.goldencode.p2j.ui.*") type == prog.kw_when and parent.type == prog.when_list downPath("EXPRESSION/BOOL_TRUE") or downPath("EXPRESSION/BOOL_FALSE") tw.graft("unfinished_var_def", copy, closestPeerId, "classname", "boolean", "javaname", getNoteString("javaname")) exprRef = copy.getChildAt(0) exprRef != null exprRef = exprRef.getChildAt(0) exprRef != null and evalLib("childCanAvoidUnwrap", exprRef) tw.graft("init_var_full_no_wrap", copy, closestPeerId, "wrapper", "boolean", "javaname", getNoteString("javaname")) shimid = tw.graft("init_var_full", copy, closestPeerId, "wrapper", "boolean", "javaname", getNoteString("javaname"), "type", "METHOD_CALL", "text", "booleanValue").id shimCls = expressionType(exprRef, false) shimCls == null or !shimCls.equals("logical") shimid = createJavaAst(java.constructor, "logical", shimid) copy.putAnnotation("peerid", shimid) type == prog.content_array and parent.type != prog.statement and numImmediateChildren > 1 parent.type == prog.kw_msg cls = "Object" cls = "GenericWidget" tw.graft("anon_array", copy, closestPeerId, "classname", cls, "extent", string(numImmediateChildren)) type == prog.content_array and parent.type == prog.statement fename = null numImmediateChildren > 0 evalLib("non_aggregate") lastid = closestPeerId scoperef = getAst(#(long) copy.getAnnotation("scope-id")) scoperef.getAnnotation("aggr-id") == null lastid = getAst(#(long) scoperef.getAnnotation("peerid")).parent.id lastid = null lastid != null createJavaAst(java.skip, "", lastid) fename = lookupDictionaryObject("frame_element_name", "fename") fename == null fename = getNoteString("javaname") lastid = tw.graft("named_array", copy, lastid, "classname", "FrameElement", "javaname", fename, "extent", string(numImmediateChildren)).id evalLib("non_aggregate") aggrMap.put(scoperef, getAst(lastid).parent.parent) aggrMap2.put(scoperef, copy.getAnnotation("javaname")) scoperef.putAnnotation("aggr-id", lastid) copy.putAnnotation("peerid", lastid) evalLib("non_aggregate") copy.putAnnotation("peerid", #(java.lang.Long) scoperef.getAnnotation("aggr-id")) type == prog.kw_when and parent.type == prog.content_array ternref = createPeerAst(java.tern_if_else, "", getAst(closestPeerId)) isNote("refid") javaname = #(java.lang.String) execLib("get_javaname", this) createJavaAst(java.reference, javaname, ternref) type == prog.frame_element feref = closestPeerId (parent.type == prog.kw_assign and parent.parent.type == prog.statement) or upPath("STATEMENT/KW_ASSIGN/KW_IF/KW_THEN/BLOCK/") feref = createJavaAst(java.method_call, "assignScreenValue", feref) frname = #(java.lang.String) execLib("get_framename", this) createJavaAst(java.reference, frname, feref) numImmediateChildren == 1 cls = "WidgetElement" isNote("form_header") and getNoteBoolean("form_header") cls = "HeaderElement" isNote("word_wrap") and getNoteBoolean("word_wrap") cls = "WordWrapElement" descendant(prog.aggregate, 1) cls = "AggregatorElement" cls = "Element" createPeerAst(java.constructor, cls, feref) type == prog.aggregate and parent.type == prog.frame_element javaname = #(java.lang.String) execLib("get_javaname", this) createJavaAst(java.reference, javaname, closestPeerId) evalLib("apply_to_handle", this) importLT = true createPeerAst(java.static_method_call, "apply", closestPeerId) type == prog.embedded_assignment createPeerAst(java.constructor, "EmbeddedAssignment", closestPeerId) type == prog.caret and parent.type == prog.content_array createPeerAst(java.constructor, "BypassElement", closestPeerId) (type == prog.kw_set or type == prog.kw_update) and parent.type == prog.kw_msg isNote("vardef") and getNoteBoolean("vardef") parentid = #(long) copy.parent.getAnnotation("peerid") parentid = closestPeerId type == prog.kw_set createJavaAst(java.bool_true, "", parentid) createJavaAst(java.bool_false, "", parentid) isNote("vardef") and getNoteBoolean("vardef") varid = createJavaAst(java.constructor, "AccessorWrapper", parentid) createJavaAst(java.reference, getNoteString("javaname"), varid) varref = copy.getChildAt(0) evalLib("vartype", varref.type) varid = createJavaAst(java.constructor, "AccessorWrapper", closestPeerId) varref.putAnnotation("peerid", varid) (parent.type == prog.kw_set or parent.type == prog.kw_update) and parent.parent.type == prog.kw_msg type == prog.kw_auto_ret copy.parent.isAnnotation("vardef") and #(java.lang.Boolean) copy.parent.getAnnotation("vardef") parentid = #(long) copy.parent.parent.getAnnotation("peerid") parentid = closestPeerId createJavaAst(java.bool_true, "", parentid) !parent.descendant(1, prog.kw_format) lvalref = copy.parent.getChildAt(0) evalLib("vartype", lvalref.type) fmtstr = execLib("get_format_varname", lvalref) toktype = java.reference evalLib("fieldtype", lvalref.type) fmtstr = execLib("get_format_field", lvalref) toktype = java.string fmtstr != null createJavaAst(toktype, fmtstr, parentid) type == prog.kw_format and parent.isAnnotation("vardef") and #(java.lang.Boolean) parent.getAnnotation("vardef") parentid = #(long) copy.parent.parent.getAnnotation("peerid") fmtstr = null isNote("define_constant") and getNoteBoolean("define_constant") fmtstr = getNoteString("define_constant") copy.parent.isAnnotation("format_constant") fmtstr = copy.parent.getAnnotation("format_constant") putNote("peerid", parentid) fmtstr != null createJavaAst(java.reference, fmtstr, parentid) type == prog.kw_view_as and parent.type == prog.kw_msg !descendant(prog.kw_quest, 1) and !descendant(prog.kw_info, 1) and !descendant(prog.kw_error, 1) and !descendant(prog.kw_warn, 1) txt = "ALERT_MESSAGE" importLT = true createJavaAst(java.reference, txt, closestPeerId) parent.type == prog.kw_view_as and parent.parent.type == prog.kw_msg txt = null type == prog.kw_quest txt = "ALERT_QUESTION" type == prog.kw_info txt = "ALERT_INFO" type == prog.kw_error txt = "ALERT_ERROR" type == prog.kw_warn txt = "ALERT_WARNING" txt != null importLT = true createJavaAst(java.reference, txt, closestPeerId) parent.type == prog.kw_button and parent.parent.type == prog.kw_view_as txt = null type == prog.kw_yes_no txt = "BTN_YES_NO" type == prog.kw_yes_no_c txt = "BTN_YES_NO_CANCEL" type == prog.kw_ok txt = "BTN_OK" type == prog.kw_ok_can txt = "BTN_OK_CANCEL" type == prog.kw_retry_c txt = "BTN_RETRY_CANCEL" txt != null importLT = true createJavaAst(java.reference, txt, closestPeerId) type == prog.kw_color and parent.type == prog.statement ref = this.getChildAt(0) ref.type == prog.kw_prompt or (ref.type == prog.kw_disp and ref.numImmediateChildren == 0) createJavaAst(java.null_literal, "", closestPeerId) type == prog.color_phrase createPeerAst(java.constructor, "ColorSpec", closestPeerId) type == prog.kw_normal and parent.type == prog.color_phrase createPeerAst(java.reference, "ColorSpec.COLOR_NORMAL", closestPeerId) type == prog.kw_input and parent.type == prog.color_phrase createPeerAst(java.reference, "ColorSpec.COLOR_INPUT", closestPeerId) type == prog.kw_messages and parent.type == prog.color_phrase createPeerAst(java.reference, "ColorSpec.COLOR_MESSAGES", closestPeerId) type == prog.symbol and parent.type == prog.color_phrase txt = removeQuotes(text) txt = ecw.progressToJavaString(sprintf('"%s"', txt)) createPeerAst(java.string, txt, closestPeerId) parent.type == prog.runtime_frame_options or upPath("RUNTIME_FRAME_OPTIONS/KW_COLOR")) txt = null parentid = closestPeerId idx = -1 frameOpt = parent type == prog.kw_col txt = "setColumn" type == prog.kw_down txt = "setDown" type == prog.kw_row txt = "setRow" type == prog.kw_title txt = "setDynamicTitle" type == prog.kw_col or type == prog.kw_down or type == prog.kw_row or type == prog.kw_title osref = getAst(#(java.lang.Long) parent.getAnnotation("frame-id")) osref = getAst(#(java.lang.Long) osref.getAnnotation("scope_peer")) osref != null parentid = osref.parent.id idx = osref.indexPos + 1 type == prog.kw_color txt = "setDColor" this.putAnnotation("color-peerid", parentid) type == prog.kw_prompt frameOpt = parent.parent parentid = parent.getAnnotation("color-peerid") txt = "setPfColor" txt != null lastid = createPeerAst(java.method_call, txt, parentid, idx) createJavaAst(java.reference, #(java.lang.String) execLib("get_framename", frameOpt), lastid) txt == null and parent.type == prog.runtime_frame_options errmsg = sprintf("Unrecognized runtime UI option for %s.", this.getSymbolicTokenType()) throwException(errmsg) (type == prog.kw_clear or (type == prog.kw_hide and numImmediateChildren == 0)) and parent.type == prog.statement and methodText != null ttype = java.bool_false descendant(prog.kw_no_pause, 1) ttype = java.bool_true createJavaAst(ttype, "", closestPeerId) type == prog.kw_off and parent.type == prog.put_cursor createPeerAst(java.bool_false, "", closestPeerId) (type == prog.kw_disp or type == prog.kw_update or type == prog.kw_set or type == prog.kw_prmt_for or type == prog.kw_enable or type == prog.kw_disable or ((type == prog.kw_view or type == prog.kw_hide) and isNote("frame-id") and !isNote("single-element")) or (type == prog.kw_form and descendant(prog.kw_header, 1))) and parent.type == prog.statement and !descendant(prog.editing_block, 1) and methodText != null descendant(prog.kw_stream, 1) streamid = closestPeerId fename = lookupDictionaryObject("frame_element_name", "fename") fename != null createJavaAst(java.reference, fename, closestPeerId) (parent.type == prog.kw_disp or parent.type == prog.kw_update or parent.type == prog.kw_set or parent.type == prog.kw_prmt_for) and parent.parent.type == prog.statement and !parent.descendant(1, prog.editing_block) fename = lookupDictionaryObject("frame_element_name", "fename") type == prog.kw_stream and fename != null createJavaAst(java.reference, fename, streamid) type == prog.kw_wait_for and parent.type == prog.statement isNote("frame-id") refName = #(java.lang.String) execLib("get_framename", this) createJavaAst(java.reference, refName, closestPeerId) createJavaAst(java.null_literal, "", closestPeerId) (type == prog.kw_wait_for or (type == prog.kw_on and needswait != null and needswait)) and parent.type == prog.statement multiMode createJavaAst(java.reference, listname, closestPeerId) waitref = copy.getImmediateChild(prog.kw_of, null) execLib("gen_single_event_list", "EventList", waitref) ((type == prog.kw_update or type == prog.kw_set or type == prog.kw_prmt_for) and descendant(prog.kw_go_on, 1) and descendant(prog.editing_block, 1) == false) and parent.type == prog.statement waitref = copy.getImmediateChild(prog.kw_go_on, null) execLib("gen_single_event_list", "GoOn", waitref) type == prog.kw_focus and parent.type == prog.kw_wait_for focchld = copy.getFirstChild() focchld != null and evalLib("handle_type", focchld.type) castid = createJavaAst(java.cast, "GenericWidget", closestPeerId) createPeerAst(java.method_call, "unwrapWidget", castid) type == prog.kw_on and downPath("KW_PERSIST/KW_RUN") legacyname = null childref = copy.getImmediateChild(prog.kw_persist,null) .getFirstChild() .getFirstChild() childref.type == prog.filename or childref.type == prog.library_ref legacyname = childref.text childref.type == prog.int_proc legacyname = childref.text legacyname != null createJavaAst(java.string, legacyname, closestPeerId) type == prog.kw_choose and parent.type == prog.statement createJavaAst(java.reference, choosename, nonpeerid) type == prog.kw_of and descendant(prog.event_list, 1) multiMode lastid = createPeerAst(java.method_call, "addEvent", waitloc, waitidx) waitidx = waitidx + 1 createJavaAst(java.reference, listname, lastid) (type == prog.event_list or type == prog.widget_list) and numImmediateChildren > 1 type == prog.event_list raytype = "String" true htarget = false wtarget = false onRef = this.getChildAt(0) onRef != null and !(htarget and wtarget) onRef.isAnnotation("frame-id") or (onRef.type >= prog.begin_widgets and onRef.type <= prog.end_widgets) wtarget = true onRef.type == prog.sys_handle oldtype = #(java.lang.Long) onRef.getAnnotation("oldtype") oldtype == prog.kw_focus or oldtype == prog.kw_cur_win or oldtype == prog.kw_def_win or oldtype == prog.kw_act_win wtarget = true htarget = true onRef.type == prog.kw_menu_itm or onRef.type == prog.kw_sub_menu or onRef.type == prog.kw_menu wtarget = true htarget = true onRef = onRef.getNextSibling() raytype = "Object" htarget and !wtarget raytype = "handle" !htarget and wtarget raytype = "GenericWidget" tw.graft("anon_array", copy, closestPeerId, "classname", raytype, "extent", string(numImmediateChildren)) type == prog.kw_go_on parent.type != prog.kw_choose multiMode loc = waitloc idx = waitidx cname = listname loc = chooseloc idx = chooseidx cname = choosename multiMode or parent.type == prog.kw_choose lastid = createPeerAst(java.method_call, "addGoOn", loc, idx) createJavaAst(java.reference, cname, lastid) lastid = closestPeerId numImmediateChildren > 1 tw.graft("anon_array", copy, lastid, "classname", "String", "extent", string(numImmediateChildren)) parent.type == prog.kw_choose and parent.parent.type == prog.statement txt = null type == prog.kw_row txt = "addRow" type == prog.kw_field this.setHidden(true) fldref = this.getFirstChild() fldref != null fldref.type != prog.kw_help lastid = createJavaAst(java.method_call, "addField", chooseloc, chooseidx) chooseidx = chooseidx + 1 createJavaAst(java.reference, choosename, lastid) frmid = createJavaAst(java.method_call, #(java.lang.String) fldref.getAnnotation('accessor'), lastid) createJavaAst(java.reference, #(java.lang.String) execLib("get_framename", fldref), frmid) hlpref = fldref.getFirstChild() hlpref != null hlpref.setHidden(true) fldref.type == prog.kw_help hlpref = fldref.getFirstChild() hlpref.setHidden(true) createJavaAst(java.string, progressToJavaString(hlpref.text), lastid) fldref.setHidden(true) fldref = fldref.getNextSibling() type == prog.kw_no_error txt = "setNoError" type == prog.kw_pause txt = "setPause" type == prog.kw_color txt = "setColor" type == prog.kw_keys txt = "setKeys" type == prog.kw_auto_ret txt = "setAutoReturn" txt != null lastid = createPeerAst(java.method_call, txt, chooseloc, chooseidx) createJavaAst(java.reference, choosename, lastid) type == prog.event or type == prog.key_function createPeerAst(java.string, text, closestPeerId) type == prog.kw_skip and parent.type == prog.content_array lastid = createPeerAst(java.constructor, "SkipEntity", closestPeerId) numImmediateChildren == 0 createJavaAst(java.bool_true, "", lastid) type == prog.trigger_block fullTrans = false !isNote("database_trigger") or !getNoteBoolean("database_trigger") blockRef = copy.getImmediateChild(prog.block, null) blockRef != null and #(java.lang.Long) blockRef.getAnnotation("transLevel") == prog.transaction fullTrans = true getNoteBoolean("database_trigger") dbEventType = parent.getImmediateChild(prog.db_event, null).getChildAt(0).type txt = execLib("get_db_event_type", parent) createJavaAst(java.reference, txt, closestPeerId) ref = execLib("get_first_db_trigger_buffer", copy.parent) createJavaAst(java.reference, sprintf("%s.class", #(java.lang.String) ref.getAnnotation("bufclassname")), closestPeerId) dbEventType == prog.kw_assign ref = execLib("get_field_immediate_child", copy.parent, null) createJavaAst(java.string, #(java.lang.String) ref.getAnnotation("fieldname"), closestPeerId) trigCls = getNoteString("classname") trigCls != null createJavaAst(java.reference, sprintf("%s.class", trigCls), closestPeerId) createJavaAst(java.reference, baseClass, closestPeerId) fullTrans and (!isNote("database_trigger") or !getNoteBoolean("database_trigger")) createJavaAst(java.bool_true, "", closestPeerId) getNoteBoolean("database_trigger") parent.descendant(1, prog.kw_override) createJavaAst(java.bool_true, "", closestPeerId) parent.descendant(1, prog.kw_old) createJavaAst(java.bool_false, "", closestPeerId) parent.descendant(1, prog.kw_old) createJavaAst(java.bool_true, "", closestPeerId) getNoteBoolean("database_trigger") dbEventType = parent.getImmediateChild(prog.db_event, null).getChildAt(0).type ref = execLib("get_first_db_trigger_buffer", parent) ref = tw.graft("database_trigger_inner_class_def", copy, getSectionAnchor(java.cs_inner_classes), "classname", getNoteString("classname"), "bufclass", #(java.lang.String) ref.getAnnotation("bufclassname"), "funcname", getNoteString("funcname")) tw.attach(ref, tw.removeFromDepot("trigassign")) ref2 = ref.getAncestor(6).getChildAt(0) tw.attach(ref2, tw.removeFromDepot("trigparm").getChildAt(0)) dbEventType == prog.kw_assign and parent.descendant(1, prog.kw_old) ref3 = copy.parent.getImmediateChild(prog.kw_old, null) refid0 = createJavaAst(java.reference_def, "BaseDataType", ref2.id) ref2 = getAst(refid0) ref2.putAnnotation("final", true) ref2.putAnnotation("name", #(java.lang.String) ref3.getAnnotation("param_name")) tw.isInDepot("trig_init") ref2 = ref.getAncestor(2).getChildAt(0).getChildAt(0) tw.attach(ref2, tw.removeFromDepot("trig_init").getChildAt(0)) trigCls == null isNote("singleton") and getNoteBoolean("singleton") ref = tw.graft("block_lambda_def", copy, closestPeerId, "parent", "Trigger") tryid = execLib("insert_try_block_if_needed", ref.id) tryid != ref.id ref = getAst(tryid) execLib("save_control_point_ids", ref, instvarid, true) getAst(instvarid).remove() getAst(skipid).remove() ref = tw.graft("trigger_anon_class_def", copy, closestPeerId) tryid = execLib("insert_try_block_if_needed", ref.id) tryid != ref.id ref = getAst(tryid) getAst(instvarid).remove() getAst(skipid).remove() ref = tw.graft("trigger_inner_class_def", copy, getSectionAnchor(java.cs_inner_classes), "classname", trigCls) tryid = execLib("insert_try_block_if_needed", ref.id) tryid != ref.id ref = getAst(tryid) type == prog.kw_on and descendant(prog.db_event, 1) and descendant(prog.kw_revert, 1) txt = execLib("get_db_event_type", this) createJavaAst(java.reference, txt, closestPeerId) ref = this.getImmediateChild(prog.symbol, null) createJavaAst(java.reference, sprintf("%s.class", #(java.lang.String) ref.getAnnotation("bufclassname")), closestPeerId) createImport(sprintf("%s.*", #(java.lang.String) ref.getAnnotation("pkgname"))) type == prog.editing_block java_label = #(java.lang.String) execLib("get_current_block_label") refName = #(java.lang.String) execLib("get_framename", parent) parent.type == prog.kw_prmt_for optype = "promptForEditing" parent.type == prog.kw_set optype = "setEditing" optype = "updateEditing" parent.downPath("KW_UNL_HID") optype = optype.concat("UnlessHidden") ref = getAst(closestPeerId) parentIdx = ref.numImmediateChildren - 1 createJavaAst(java.skip, "", closestPeerId) putNote("block_par_id", closestPeerId) instvarid = createJavaAst(java.bogus, "", closestPeerId) createJavaAst(java.skip, "", closestPeerId) blockId = createJavaAst(java.static_method_call, optype, closestPeerId) createJavaAst(java.reference, refName, blockId) fename = lookupDictionaryObject("frame_element_name", "fename") createJavaAst(java.reference, fename, blockId) parent.descendant(1, prog.kw_go_on) createJavaAst(java.reference, listname, blockId) isNote("enclosing") jname = sprintf("enclBlk%d", ennum) ennum = ennum + 1 execLib("emitLabels", closestPeerId, parentIdx, blockId, copy, jname) createJavaAst(java.string, java_label, blockId) lambdaBlock editref = tw.graft("block_lambda_def", copy, blockId, "parent", "Block") editref = tw.graft("block_inner_class_def", copy, blockId) execLib("save_control_point_ids", editref, instvarid, lambdaBlock) (type == prog.kw_validate or type == prog.kw_help) and parent.type == prog.validation ref = execLib("getTopLevelInternalNodeAncestor") ref == null ref = copy.getAncestor(-1) ref.type != prog.trigger_block ref = ref.getImmediateChild(prog.block, null) ref = getAst(#(long) ref.getAnnotation("peerid")) type == prog.kw_validate createPeerAst(java.method_call, "setValidation", ref.id, 0) importFunc = true createPeerAst(java.method_call, "setHelpStatic", ref.id, 0) type == prog.kw_scroll and parent.type == prog.statement ttype = java.bool_false descendant(prog.kw_from_cur, 1) ttype = java.bool_true createJavaAst(ttype, "", closestPeerId) ttype = java.bool_true descendant(prog.kw_down, 1) ttype = java.bool_false createJavaAst(ttype, "", closestPeerId) type == prog.kw_no_msg and parent.type == prog.kw_pause tw.graft("specific_null", copy, closestPeerId, "classname", "String") (type == prog.kw_update or type == prog.kw_set or type == prog.kw_prmt_for or type == prog.kw_disp or type == prog.kw_disable or type == prog.kw_enable) and parent.type == prog.statement blockParId = getNoteLong("block_par_id") blockParId != null createJavaAst(java.skip, "", blockParId) type == prog.kw_color and parent.type == prog.statement !descendant(prog.kw_prompt, 1) and nextChildIndex == 1 createJavaAst(java.null_literal, "", closestPeerId) type == prog.kw_view_as and parent.type == prog.kw_msg !descendant(prog.kw_button, 1) and this.getChildAt(nextChildIndex).type == prog.kw_title txt = "BTN_OK" importLT = true createJavaAst(java.reference, txt, closestPeerId) type == prog.put_cursor or type == prog.put_screen !descendant(prog.kw_row, 1) and this.getChildAt(nextChildIndex).type == prog.kw_col createJavaAst(java.num_literal, "1", closestPeerId) descendant(prog.kw_row, 1) and !descendant(prog.kw_col, 1) and this.getChildAt(nextChildIndex).type == prog.kw_color createJavaAst(java.num_literal, "1", closestPeerId) type == prog.frame_element and nextChildIndex == 1 and isNote("tempfmt") createJavaAst(java.string, getNoteString("tempfmt"), closestPeerId) this.type == prog.kw_msg and this.numImmediateChildren > 1 ref = this.getImmediateChild(prog.content_array, null) ref.numImmediateChildren == 0 createJavaAst(java.string, "", closestPeerId, 0) (type == prog.kw_set or type == prog.kw_update) and parent.type == prog.kw_msg and !parent.descendant(1, prog.kw_view_as) !descendant(prog.kw_format, 1) and !descendant(prog.kw_auto_ret, 1) lvalref = copy.getChildAt(0) evalLib("vartype", lvalref.type) fmtstr = execLib("get_format_varname", lvalref) toktype = java.reference evalLib("fieldtype", lvalref.type) fmtstr = execLib("get_format_field", lvalref) toktype = java.string fmtstr != null createJavaAst(toktype, fmtstr, closestPeerId) type == prog.kw_view_as and parent.type == prog.kw_msg !descendant(prog.kw_button, 1) and !descendant(prog.kw_title, 1) txt = "BTN_OK" importLT = true createJavaAst(java.reference, txt, closestPeerId) !descendant(prog.kw_title, 1) castid = createPeerAst(java.cast, "String", closestPeerId) createJavaAst(java.null_literal, "", castid) (type == prog.put_cursor or type == prog.put_screen) and descendant(prog.kw_row, 1) and !descendant(prog.kw_col, 1) and !descendant(prog.kw_color, 1) createJavaAst(java.num_literal, "1", closestPeerId) type == prog.kw_of and descendant(prog.event_list, 1) and parent.type == prog.kw_on and descendant(prog.kw_anywhere, 1) createJavaAst(java.bool_true, "", closestPeerId) type == prog.kw_of and descendant(prog.event_list, 1) multiMode copy.nextSibling.type != prog.kw_of createJavaAst(java.skip, "", waitloc, waitidx) type == prog.trigger_block and !isNote("classname") createJavaAst(java.skip, "", trigid) type == prog.define_browse fename = lookupDictionaryObject("frame_element_name", "fename") createJavaAst(java.reference, fename, lastid) type == prog.kw_when and parent.type == prog.content_array createJavaAst(java.null_literal, "", closestPeerId) type == prog.content_array and parent.type == prog.statement deleteScope("frame_element_name") fename = null methodText != null and type == prog.kw_hide and parent.type == prog.statement ttype = java.bool_false descendant(prog.kw_no_pause, 1) ttype = java.bool_true createJavaAst(ttype, "", closestPeerId) type == prog.frame_element and isNote("word_wrap_idx") createJavaAst(java.num_literal, string(getNoteLong("word_wrap_idx")), closestPeerId) type == prog.editing_block and isNote("enclosing") blockParId = copy.parent.getAnnotation("block_par_id") execLib("emitDeferred", blockParId, copy) type == prog.editing_block or ((type == prog.kw_update or type == prog.kw_set or type == prog.kw_prmt_for or type == prog.kw_disp or type == prog.kw_disable or type == prog.kw_enable or type == prog.kw_view or type == prog.kw_hide or type == prog.kw_choose or type == prog.kw_color or type == prog.kw_underlin) and parent.type == prog.statement) blockParId = getNoteLong("block_par_id") blockParId != null createJavaAst(java.skip, "", blockParId) type == prog.editing_block execLib("remove_empty_emitted_sections", lambdaBlock, false) this.type == prog.trigger_procedure and this.descendant(1, prog.kw_assign) and this.descendant(1, prog.kw_new) xref = getSectionAnchor(java.cs_instance_methods) xref = xref.getImmediateChild(java.method_def, null) xref.getImmediateChild(java.lparens, null) == null lastid = createJavaAst(java.lparens, "(", xref.id, 0) xref = getAst(lastid) xref.getImmediateChild(java.lparens, null) lastid = createJavaAst(java.reference_def, "Undoable", xref.id) xref = getAst(lastid) paramName = #(java.lang.String) this.getImmediateChild(prog.kw_new, null) .getAnnotation("javaname") xref.putAnnotation("name", sprintf("_%s", paramName)) xref.putAnnotation("final", true) this.type == prog.trigger_procedure and this.descendant(1, prog.kw_assign) and this.descendant(1, prog.kw_old) xref = getSectionAnchor(java.cs_instance_methods) xref = xref.getImmediateChild(java.method_def, null) xref = xref.getImmediateChild(java.lparens, null) xref != null paramName = #(java.lang.String) this.getImmediateChild(prog.kw_old, null) .getAnnotation("javaname") lastid = createJavaAst(java.reference_def, "BaseDataType", xref.id) xref = getAst(lastid) xref.putAnnotation("name", sprintf("_%s", paramName)) xref.putAnnotation("final", true) importLT help.createStaticImport("com.goldencode.p2j.ui.LogicalTerminal.*") importFunc help.createImport("java.util.function.*") iter = aggrMap.keySet().iterator() iter.hasNext() scoperef = iter.next() ref = aggrMap.get(scoperef) javaname = aggrMap2.get(scoperef) lastid = getAst(#(long) scoperef.getAnnotation("peerid")).parent.id idx = ref.getIndexPos() frname = #(java.lang.String) execLib("get_framename", scoperef) lastid = createJavaAst(java.method_call, "registerAccumulators", lastid, idx + 1) createJavaAst(java.reference, frname, lastid) createJavaAst(java.reference, javaname, lastid)