FWD » Core Development » Conversion Tools

** 014 CA  20250226 Allow all ADM windows to be processed, regardless if they have parameters or not.  The

**                  fwd-embedded-driver.p and associated emain.p provides ways to run the window with

**                  parameters (by saving all the necessary info at the target 'module').

*/

-->

      <post-rules>

         <rule>embeddedWindow

         </rule>

      </post-rules>

   </rule-set>

         <rule>windowName = null</rule>

         <rule>admVersion = null</rule>

         <rule>hints = preproc.getHints()</rule>

         <rule>hints != null and hints.getRoot() != null

            <rule>hints != null and hints.getRoot() != null

               <action>

                  printfln("WARNING: Removing %s because no FRAME-NAME symbol is found.", 

               </action>

            </rule>

         </rule>

         <rule>embeddedDetails != null and windowName == null

            <rule>hints != null and hints.getRoot() != null

               <action>

                  printfln("WARNING: Removing %s because no WINDOW-NAME symbol is found.", 

               </action>

            </rule>

         </rule>

         <rule>embeddedDetails != null and admVersion == null

            <rule>hints != null and hints.getRoot() != null

               <action>

                  printfln("WARNING: Removing %s because no ADM-VERSION symbol is found.", 

               </action>

            </rule>

         </rule>

         <rule>embeddedDetails != null

            <!-- calc the name as it would be used in a Progress RUN statement 

                 (which would include any relative pathing such that a PROPATH

               <action>ref = this.getNextSibling()</action>

               <action>windowTitle = ecw.evaluateCharacterExpression(ref)</action>

               <rule>windowTitle == null

               </rule>

               <action>embeddedDetails.put("window-title", windowTitle)</action>

            <rule>!programDetails.containsKey("window-ref-id")

               <action>

                  printfln("WARNING: dropping file %s as an embedded program because no window is set",

               </action>

            </rule>

         </rule>

      </post-rules>

      <variable name="handleRefs"         type="java.util.Map" />

      <init-rules>

         <rule>embeddedDetails != null

            <rule>inAdmCreateObjects = false</rule>

                  <rule>currentPage &gt;= pages.size()

                     <action>

                        printfln("WARNING: %s has tried to access page %d with %d pages defined!", 

                     </action>

                  </rule>

            </action>

         </rule>

         <rule>embeddedDetails = embedded.get(procName)</rule>

         <!-- generate ASTs for this converted window -->

** Module   : cleanup.rules

** Abstract : handles removal or hiding of unnecessary nodes

**

**

** _#_ _I_ __Date__ __JPRM__ __________________________________Description___________________________________

** 001 GES 20050816   @22140 Handles removal or hiding of unnecessary nodes.

**                           versions, based on node types rather on string paths.

** 053 SVL 20240330          Fixed ENABLE/DISABLE statement hidden by mistake if all enabled elements have

**                           WHEN condition.

*/

 -->

            <!-- uncomment following action if logging is required -->

            <!-- action>

               printfln("## INFO: %s: %d: hiding PAGED after PAGE-SIZE", 

            </action -->

            <action>paged.setHidden(true)</action>

         </rule>

** Module   : collect_names.rules

** Abstract : collect Progress to Java name mappings and store for future use at runtime

**

**

** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________

** 001 SIY 20050818   @22167 Initial implementation of the name map collecting rule set. For each

** 028 OM  20230115          Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                           versions, based on node types rather on string paths.

** 029 ME  20230828          Add missing append/bind flags for table/dataset parameters.

*/

 -->

   <variable name="proot"          type="com.goldencode.p2j.convert.NameMappingWorker$MethodInfo" />

   <init-rules>

      <!-- gather file-level mapping data -->

      <rule>relativeName = getNoteString("relative-name")</rule>

** Module   : copy_view_as_from_schema.rules

** Abstract : copy VIEW-AS phrases from the schema into the Progress AST

**

**

** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________

** 001 GES 20060507   @26004 All user interface statements that can

**                           and relaseDictionary brackets.

** 006 OM  20230115          Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                           versions, based on node types rather on string paths.

*/

-->

   <init-rules>

      <!-- get schema dictionary initialized for this source file -->

      <rule>sdict = sw.getDictionary()</rule>

   </init-rules>

** Abstract : resolves name conflicts that arise from a mismatch of Progress

**            and Java namespaces

**

**

** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________

** 001 GES 20080402   @37807 Resolves name conflicts that arise from a

** 008 CA  20200412          Added incremental conversion support.

** 009 OM  20230115          Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                           versions, based on node types rather on string paths.

*/

-->

<rule-set>

   <!-- register worker objects -->

   <!-- variables -->

   <variable name="ref"           type="com.goldencode.ast.Aast" />

   <variable name="aref"          type="com.goldencode.ast.Aast" />

   <variable name="incre"         type="java.lang.Long" />

   <variable name="refid"         type="java.lang.Long" />

   <variable name="varid"         type="java.lang.Long" />

   <variable name="newname"       type="java.lang.String" />

   <variable name="superCls"      type="java.lang.String" />

   <variable name="clsName"       type="java.lang.String" />

   <variable name="counter"       type="java.util.Map" />

   <variable name="clsBufs"       type="java.util.Set" />

   <variable name="clsVars"       type="java.util.Set" />

         <rule>bufnames.contains(javaname)

            <action>

            </action>

            <!-- we need to make the name unique -->

                  <while>aref.parent != null

                     <action>aref = aref.parent</action>

                  </while>

               </rule>

            </rule>

** 061 SP  20241105          Where clause processing for loops that are converted to bulk deletes

**                           should be using qualified field references in FQL.

** 062 CA  20250319          Fixed '-db "some\path\to\file\":U' option (when the string ends with :U).

-->

<!--

      <!-- drop QUERY-TUNING phrase, no equivalent in FWD -->

      <rule>this.type == prog.kw_qry_tune

         <action>

         </action>

         <action>copy.remove()</action>

      </rule>

** 007 CA  20220427 Fixup constructor references, so they can be linked when called via THIS-OBJECT or SUPER.

** 008 RFB 20241107 Added abbrev_check rule. Ref. #9302.

** 009 DDF 20250207 Added annotations/early_javanames rule set.

*/

 -->

            <action>removeNote("tempidx-file")</action>

            <action>fprintf("post_parse_fixups.log",

                            "VAR_REF  %-40s: %-25s @ %05d : %05d\n",

                            this.getSymbolicTokenType(), 

                            line,

                            this.getColumn())

            <action>removeNote("tempidx-file")</action>

            <action>fprintf("post_parse_fixups.log",

                            "DS_REF  %-40s: %-25s @ %05d : %05d\n",

                            this.getSymbolicTokenType(), 

                            line,

                            this.getColumn())

            <action>removeNote("tempidx-file")</action>

            <action>fprintf("post_parse_fixups.log",

                            "METHOD_REF  %-40s: %-25s @ %05d : %05d\n",

                            this.getSymbolicTokenType(), 

                            line,

                            this.getColumn())

** 206 HC  20240703          Fixed conversion of widget reference in WEB-FILE-UPLOAD statement.

** 207 TJD 20230328          Do not backreference default frame for CLEAR.

** 208 LS  20250108          Added support for empty DISPLAY.

*/

-->

            <action>to.put(fd, #(long) (-1))</action>

            <action>

               printfln("## INFO: %s: changing %s from 1 to 0 for %s", 

                        to.get(frameName))

            </action>

         </rule>

            <!-- TODO: FWD fails to change DOWN to the 'from's DOWN value, if explicitly set -->

            <action>

               printfln("## INFO: %s: attempt to change %s %d to %d for %s",

                        to.get(fd), 

                        from.get(fd), 

                        to.get(frameName))

                  parent.parent.parent == null

               <action>

                  printfln("## INFO: %s: assuming DOWN set to 1 for %s at %s", 

               </action>

               <rule>type == prog.define_frame

                  <action>

                     <action>frame = #(java.util.Map) 

                       lookupDictionaryObject(currScope, frameVar)

                    </action>

                 </rule>

               </rule>

            </rule>

         <rule>bbList.get(this.firstChild.text.toLowerCase()) != null

            <action on="false">

               printfln("## WARN: %s: unable to locate browse (%s)",

            </action>

            <action>tmp = execLib("search_widget", this.firstChild)</action>

            <action>evalLib("add_node_ex", tmp, copy.firstChild)</action>

         <rule>tmp != null

            <action on="false">

               printfln("## INFO: %s: unable to locate frame for %s/%s/%s %s",

            </action>

            <action>evalLib("add_node_ex", tmp, copy)</action>

            <action>evalLib("put_accessor_ex", copy, tmp)</action>

         <rule>tmp != null

            <action on="false">

               printfln("## INFO: %s: unable to locate frame %s/%s/%s %s",

            </action>

            <action>evalLib("add_node_ex", tmp, copy)</action>

            <action>evalLib("put_accessor_ex", copy, tmp)</action>

         <rule>tmp != null

            <action on="false">

               printfln("## INFO: %s: unable to locate frame %s/%s/%s %s",

            </action>

            <action>evalLib("add_node_ex", tmp, copy)</action>

            <action>evalLib("put_accessor_ex", copy, tmp)</action>

            <action on="false">

               printfln("## WARN: %s: no frame found for %s/%s/%s (%s)", 

            </action>

         </rule>

** Module   : i18n.rules

** Abstract : i18n processing

**

**

** _#_ _I_ __Date__ _______________________________________Description_______________________________________

** 001 HC  20210926 Created initial version.

** 002 OM  20230115 Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                  versions, based on node types rather on string paths.

-->

<!--

         <!-- source reference -->

         <rule>txt.append("#: ")</rule>

         <rule>txt.append(":")</rule>

         <rule>txt.append(node.line)</rule>

         <rule>txt.append(":")</rule>

         <rule>txt.append("msgstr ")</rule>

         <rule>txt.append('"')</rule>

         <rule>targetLang != null

            <rule>target != null

               <action>txt.append(sprintf("%s", target))</action>

            </rule>

** Module   : implicit_where_clause.rules

** Abstract : convert implicit where clauses into explicit additions

**

**

** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________

** 001 GES 20051013   @23065 Convert implicit where clauses into explicit additions.

** 012 AL2 20240529          Release the schema dictionary at the very end. Otherwise, it will cause NPE

**                           in other rule sets that use the schema dictionary at the same time.

** 013 ES  20241030          Added isFind parameter to pushRecordPhrase method.

*/

-->

            <!-- init the schema dictionary and ensure it has the source

                 file specific temp-table data -->

            <action>schemaDict = schemaw.dictionary</action>

            <action>sym.schemaDictionary = schemaDict</action>

** Module   : index_selection.rules

** Abstract : duplicate the index selection decision of the Progress compiler 

**

**

** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________

** 001 GES 20051014   @23066 Duplicates the index selection decision of

**     RAA 20240904          Added risk factor for indeterminate sorting queries.

**     RAA 20240910          When computing the order by, also receive a set with the legacy name criteria.

** 051 ES  20241030          Added isFind parameter to pushRecordPhrase method.

*/

-->

      <rule>tablesList = create("java.lang.StringBuilder")</rule>

      <rule>countingTables = false</rule>

      <rule>tableCount = 0</rule>

      <rule>functypes = create("java.util.ArrayList")</rule>

      <rule>functypes.add(prog.func_char)</rule>

** 008 CA  20230705 Legacy REST services which can be mapped in the .paar file(s) must be marked as "fwd", to

**                  not be removed in legacy_annotations_post.rules. 

** 009 CA  20250219 Check if the file has an extension, when computing the file name for an operation.

*/

 -->

   </func-library>

   <init-rules>

      <rule>deleteDictionary("annotation")</rule>

      </rule>

      <rule>oname = lower(oname)</rule>

      <while>iter.hasNext()

         <action>soapOp = iter.next()</action>

            <action>iename = #(java.lang.String) ref.getAnnotation("name")</action>

         </rule>

         <while>iter.hasNext()

            <action>soapOp = iter.next()</action>

            <action>hasSrvs = true</action>

      <rule>hasSrvs

         <action>putNote("with_services", true)</action>

      </rule>

   </post-rules>

</rule-set>

** Module   : load_controls.rules

** Abstract : component-handle:LoadControls rules.

**

**

** _#_ _I_ __Date__ _________________________________Description__________________________________

** 001 HC  20190810 Initial version.

*/

 -->

<!--

   <init-rules>

      <rule>sections = null</rule>

      <rule>fileWorker.isFile(fHints, true)

         <action on="false">xmlHintsRoot = null</action>

** Module   : naming.rules

** Abstract : handles adding class and package names

**

**

** _#_ _I_ __Date__ __JPRM__ __________________________________Description__________________________________

** 001 SIY 20051103   @23186 Initial implementation.

**                           @Override annotation.

** 022 OM  20230115          Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                           versions, based on node types rather on string paths.

*/

 -->

      </rule>

      <!-- calc the base Java class name (no pathing and no .java or .class) -->

         <action>classname = classname.substring(fullpkg.length() + 1)</action>

         <rule on="false">true

            <rule>execLib("checkClassName")</rule>

            <rule>classnm = classname</rule>

               <action>idx = idx + 1</action>

            </while>

         </rule>

      </rule>

      <rule>putNote("classname", classname)</rule>

         <variable name="proxyMethodName" type="java.lang.String" />

         <action>proxyMethodName = execLib("simple_filename", proxyMethodName)</action>

         <action>idx = proxyMethodName.lastIndexOf('.')</action>

         <rule>idx &lt; 0

      <!-- calc the name as it would be used in a Progress RUN statement 

           (which would include any relative pathing such that a PROPATH

           lookup will find the file) -->

      <!-- force to use '/' Linux style file separator for name_map.xml class mapping entries -->

      <rule>projectsep = "/"</rule>

      <rule>projectsep != fileSep

         <!-- store the qualified OO class or interface name at the root -->

         <action>ooname = text</action>

         <!-- this needs to be done first -->

         <!-- map the source file name to the converted class naming info -->

         <!-- save the converted default constructor name at the root node -->

         <rule>relativePath(this, prog.class_def, prog.kw_class, prog.symbol)

** Module   : native_api.rules

** Abstract : Convert usages of Native API functions.

**

**

** _#_ _I_ __Date__ _________________________________Description__________________________________

** 001 HC  20181209 Initial version.

**     HC  20190206 Fixed resolution of external library name.

**     HC  20190305 Fixed conversion of memptr parameter type.

** 003 HC  20200324 Added missing memptr type mapping.

*/

 -->

<!--

   <variable name="lnum"           type="java.lang.Long" />

   <init-rules>

      <rule>fileWorker.isFile(fHints, true)

         <action on="false">xmlHintsRoot = null</action>

** Module   : ocx_conversion.rules

** Abstract : Converts supported OCX objects to 4GL widgets.

**

**

** _#_ _I_ __Date__ _________________________________Description__________________________________

** 001 HC  20181127 Initial version.

**                  versions, based on node types rather on string paths.

** 015 CA  20240115 Do not annotate a function or OO method call with 'wrap', instead annotate any literal

**                  argument, as the parent call can be used as an argument itself.

*/

-->

      <rule>dropProc = null</rule>

      <rule>dropNodes = create("java.util.HashSet")</rule>

      <rule>fileWorker.isFile(fHints, true)

         <action on="false">xmlHintsRoot = null</action>

** Module   : proxy_programs.xml

** Abstract : mark legacy services proxy programs

**

**

** _#_ _I_ __Date__ _______________________________________Description________________________________________

** 001 CA  20220513 Created initial version, extracted from legacy_services.rules.

**     CA  20230125 Ignore FORWARD functions.

** 002 OM  20230115 Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                  versions, based on node types rather on string paths.

*/

-->

   <rule-set>

      <init-rules>

      </init-rules>

      <walk-rules>>

** Module   : record_field_expansion.rules

** Abstract : convert implicit field refs into explicit versions

**

**

** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________

** 001 GES 20051103   @23224 Some UI and I/O language statements support syntax where a record

**                           versions, based on node types rather on string paths.

** 013 AL2 20240529          Release the schema dictionary at the very end. Otherwise, it will cause NPE

**                           in other rule sets that use the schema dictionary at the same time.

*/

-->

         <!-- init the schema dictionary and ensure it has the source

              file specific temp-table data -->

         <action>sym.schemaDictionary = schemaw.dictionary</action>

         <!-- obtain the source nodes to expand, cache some key info and

** Module   : return_statements.rules

** Abstract : differentiate between function style and procedure style returns

**

**

** _#_ _I_ __Date__ __JPRM__ __________________________________Description____________________________________

** 001 GES 20050919   @22808 Annotate return statements to note if executed from a function or 

** 007 CA  20200324          For RETURN ERROR, void OO methods are not functions.

** 008 CA  20220520          RETURN statements returning an unknown OO var must strong-type the 'object' 

**                           instance with the function's/method's return qualified type.

*/

 -->

         <rule>btype == prog.trigger_block and descendant(prog.kw_error, 1)

            <action>

               printfln("## WARNING: %s: %d: RETURN ERROR invalid in TRIGGER", 

                        copy.line)

            </action>

         </rule>

** Module   : events.rules

** Abstract : Process events and trigger calls.

**

**

** _#_ _I_ __Date__ _______________________________________Description_______________________________________

** 001 CA  20170522 Call graph analysis v3.

**     OM  20220330 Moved database conversion artifacts to ${cvtpath} folder.

** 003 OM  20230115 Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                  versions, based on node types rather on string paths.

*/

-->

   </func-library>

   <init-rules>

      <rule>schemaConfig = sw.getSchemaConfig()</rule>

      <rule>sdict = sw.getDictionary()</rule>

      <rule>dbname = null</rule>

            <rule>dbV == null

               <!-- add the vertex for the source file -->

               <action>

               </action>

               <action>cgw.property(schemafile, "srcfile", dbRef.getAnnotation("srcfile"))</action>

** Abstract : processing of the function calls and (explicit and dynamic) for the

**            generate_call_graph.xml

**

**

** _#_ _I_ __Date__ ________________________________Description___________________________________

** 001 CA  20170517 Call graph analysis v3.

**     CA  20180525 Callgraph improvements - changes in tx management, vertex caching and more.

** 004 OM  20230115 Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                  versions, based on node types rather on string paths.

*/

-->

         <action>callSiteKey = prog.function_call</action>

         <action>

         </action>

         <action>execLib("link_to_target_vertex", container, callSite, callSiteKey, targetV)</action>

         </rule>

         <!-- check for ADM/ADM2 related calls -->

            <action>procV = cgw.findParentAstVertex(container, prog.internal_procedure)</action>

            <rule>procV != null

               <rule>cgw.property(procV, "procedure").equals("assignpageproperty")

** Module   : generate_call_graph.xml

** Abstract : build call graph and unused files list.        

**

**

** _#_ _I_ __Date__ __JPRM__ ____________________________Description______________________________

** 001 SIY 20050719   @21724 Generate call graph and dead files list.

**     CA  20180525          Callgraph improvements - changes in tx management, vertex caching and 

**                           more.

** 007 CA  20200412          Added incremental conversion support.

*/

-->

      <variable name="hintCounters" type="java.util.Map"/>

      <init-rules>

         <rule>cgw.markReachable(procfile)</rule>

         <rule>cgw.markLive(procfile)</rule>

         <rule>app_entry_point = cgw.property(procfile, "app-entry-point")</rule>

** Module   : generate_call_graph_post.xml

** Abstract : rules executed once the initial graph is completed.

**

**

** _#_ _I_ __Date__ ________________________________Description___________________________________

** 001 CA  20170604 Call graph analysis v3.

** 002 CA  20180328 Performance optimizations.

** 003 CA  20180525 Callgraph improvements - changes in tx management, vertex caching and more.

*/

-->

      <variable name="hintCounters" type="java.util.Map"/>

      <init-rules>

         <rule>extproc = cgw.findNodeById(prog.external_procedure, this.id)</rule>

         <rule>hintCounters = create("java.util.HashMap")</rule>

** Module   : list_ambiguous.rules

** Abstract : Tool to list all ambiguous call sites.

**

**

** _#_ _I_ __Date__ _________________________________Description__________________________________

** 001 CA  20140313 Created initial version.

** 002 CA  20140403 Fixed filename output on windows OS.

** 003 GES 20170426 Call graph analysis v3.

*/

-->

      <rule>this.parent == null

         <action>first = true</action>

         <rule>createEmptyHints

            <action>io.deleteFile(fhname, false)</action>

         </rule>

            <action>iter = cgw.edgeIterator(out, "ambiguous")</action>

            <rule>first and iter.hasNext()

               <action>first = false</action>

               <rule>createEmptyHints

** Module   : list_dead_files.rules

** Abstract : Tool to list all dead files.

**

**

** _#_ _I_ __Date__ _________________________________Description__________________________________

** 001 CA  20140313 Created initial version.

** 002 CA  20140403 Fixed filename output on windows OS.

** 003 CA  20140513 Fixed a problem when determining if an include file is dead or not.

** 004 GES 20170501 Call graph v3.

*/

-->

            #(java.lang.Boolean) cgw.property(out, "app-entry-point") == false

         <action>iter = cgw.vertexTraversalInE(out)</action>

         <rule>!iter.hasNext()

            <!-- collect all the include nodes in the include sub-graph for this dead file -->

            <action>iter = cgw.traversalIterator(out, "includes")</action>

** Module   : list_dependencies.rules

** Abstract : List the direct dependencies for all external procedures.

**

**

** _#_ _I_ __Date__ _________________________________Description__________________________________

** 001 CA  20140313 Created initial version.

** 002 CA  20140403 Fixed filename output on windows OS.

** 003 GES 20170426 Call graph analysis v3.

*/

-->

            </action>

            <rule>first and iter.hasNext()

               <action>first = false</action>

            </rule>

** Module   : list_external_targets.rules

** Abstract : Tool to list all external dependencies.

**

**

** _#_ _I_ __Date__ _________________________________Description__________________________________

** 001 CA  20140313 Created initial version.  List all nodes marked as "external" and the location

**                  where they are called.

** 002 CA  20140403 Fixed filename output on windows OS.

** 003 GES 20170426 Call graph analysis v3.

*/

-->

               <rule>cgw.property(in, "external") != null

                  <rule>first

                     <action>first = false</action>

                  </rule>

** Module   : list_missing.rules

** Abstract : Tool to list all missing 4GL programs and include files.

**

**

** _#_ _I_ __Date__ _________________________________Description__________________________________

** 001 CA  20140313 Created initial version.

** 002 CA  20140403 Fixed filename output on windows OS.

** 003 GES 20170426 Call graph analysis v3.

*/

-->

               <rule>inType == prog.missing

                  <rule>first

                     <action>

                     </action>

                     <action>first = false</action>

                  </rule>

** Module   : load_code_set.xml

** Abstract : Load all the legacy files for the entire code set.

**

**

** _#_ _I_ __Date__ _______________________________________Description_______________________________________

** 001 CA  20140306 Created initial version.  Loads all the legacy files (4GL programs and

** 006 CA  20200428 Legacy DEFINE ENUM conversion support.

** 007 OM  20230115 Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                  versions, based on node types rather on string paths.

*/

-->

      <init-rules>

         <!-- check if the procedure file node exists -->

         <rule>

         </rule>

         <rule>procfile == null

            <action>

               procfile = cgw.createFileResource("Procedure File",

                                                 prog.procedure_file,

            </action>

               <action>cgw.property(procfile, "adm-program", true)</action>

            </rule>

         </rule>

               extproc = cgw.createAstNode(procfile, this, prog.external_procedure, true)

            </action>

            <action>cgw.property(extproc, "node-key", "external-procedure")</action>

            <!--  this is a new AST, load its include graph -->

            <action>cgw.createIncludeGraph(this)</action>

** Module   : load_code_set_post.xml

** Abstract : Rules to be executed after the code-set was loaded.

**

**

** _#_ _I_ __Date__ _______________________________________Description_______________________________________

** 001 CA  20170517 Call graph analysis v3.

** 005 CA  20191015 Used is_builtin_cls to check if a class ref is built-in.

** 006 OM  20230115 Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                  versions, based on node types rather on string paths.

*/

-->

      <init-rules>

         <rule>hintCounters = create("java.util.HashMap")</rule>

         <rule>extproc = cgw.findNodeById(prog.external_procedure, this.id)</rule>

         <rule>container = extproc</rule>

** Abstract : Loads all the tables with defined schema-triggers and links them with the

**            target external program.

**

**

** _#_ _I_ __Date__ _________________________________Description__________________________________

** 001 CA  20140313 Created initial version.

**                  with NO_PROCEDURE_SPECIFIED_AT_TRIGGER_DEFINITION.

** 006 CA  20191007 Fixed some issues after changes in the .schema AST (nodes were moved to 

**                  annotations).

*/

-->

      <variable name="tIter"       type="java.util.Iterator" />

      <init-rules>

         <rule>sw.loadNonDefaults()</rule>

         <rule>sdict = sw.getDictionary()</rule>

            <action>

               schemafile = cgw.createFileResource("Schema File",

                                                   prog.schema_file,

            </action>

            <action>cgw.property(schemafile, "srcfile", getNoteString("srcfile"))</action>

** Module   : run_statements.rules

** Abstract : processing of the run statements for the generate_call_graph.xml

**

**

** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________

** 001 SIY 20050719   @21730 Extracted from the generate_call_graph.xml.

**                           more.

** 008 OM  20230115          Replaced absolutePath(), relativePath(), upPath() and downPath() with faster

**                           versions, based on node types rather on string paths.

*/

-->

               <action>target = chRef.text.toLowerCase()</action>

               <action>callSiteKey = prog.run_int_proc</action>

               <action>

               </action>

               <rule>targetV != null

                    fetchfirst or fetchlast -->

               <action>procV = cgw.findParentAstVertex(container, prog.function)</action>

               <rule>procV != null and cgw.property(procV, "function").equals("openquery")

                        downPath(this, prog.kw_value, prog.expression, prog.plus, prog.string)

                     <action>

                        target = this.firstChild.firstChild.firstChild.firstChild.text

                  </rule>

               </rule>

                  <action>

                     procV = cgw.findParentAstVertex(container, prog.internal_procedure)

                  </action>

                  </rule>

               </rule>

                  <action>

                     procV = cgw.findParentAstVertex(container, prog.internal_procedure)

                  </action>

                  </rule>

               </rule>

                  <action>

                     procV = cgw.findParentAstVertex(container, prog.internal_procedure)

                  </action>

            <action>callSiteKey = prog.run_int_proc</action>

            <action>

            </action>

            <rule>targetV != null

** Abstract : Tool to verify problems in schema trigger definitions or external programs defined

**            as a schema trigger.

**

**

** _#_ _I_ __Date__ _________________________________Description__________________________________

** 001 CA  20140313 Created initial version.

** 002 CA  20140403 Fixed filename output on windows OS.

** 003 CA  20140715 Fixed typo related to node type "trigger-type".

** 004 GES 20170426 Call graph analysis v3.

*/

-->

         <rule>first

            <action>

            </action>

            <action>first = false</action>

         </rule>

** 228 EM  20241002          Suppressed the display of database labels in FORM if NO-LABELS is present.

**     EM  20241010          Suppressed the display of database labels in FRAME if NO-LABELS is present.

** 229 AOG 20250217          Changed the way filename is extracted for image phrases / button images.

*/

-->

   <worker class="com.goldencode.p2j.pattern.TemplateWorker"             namespace="tw" />

   <worker class="com.goldencode.p2j.convert.ExpressionConversionWorker" namespace="ecw" />

   <worker class="com.goldencode.p2j.convert.I18nWorker"                 namespace="trw" />

   <!-- expression libraries -->

   <include name="common-progress" />

      <!-- generate Java AST -->

      <function name="init_jast">

         <parameter name="fnode"  type="com.goldencode.ast.Aast" />

         <variable name="cname"   type="java.lang.String" />

         <variable name="ext"     type="java.lang.String" />

         <variable name="rule"    type="java.lang.String" />

         <variable name="pkgname" type="java.lang.String" />

         <variable name="acc"     type="java.lang.String" />

         <variable name="id"      init="javaRootId" />

         <rule>true

            <action>cname = execLib("gen_cname", fnode, true)</action>

            <action>pkgname = #(java.lang.String) fnode.getAnnotation("pkgname")</action>

            <action>createJavaAst(java.kw_package, pkgname, javaRootId)</action>

            <action>createImport("com.goldencode.p2j.util.*")</action>

            <rule>ref.type == prog.kw_x_of or ref.type == prog.kw_col_of

               <action>

                  printfln("## Error:: unsupported option %s/%s in %s %d",

               </action>

            </rule>

            <rule>ref.type == prog.kw_y_of or ref.type == prog.kw_row_of

               <action>

                  printfln("## Error:: unsupported option %s/%s in %s %d",

               </action>

            </rule>

            <rule>ref.type == prog.kw_x_of or ref.type == prog.kw_col_of

               <action>

                  printfln("## Error:: unsupported option %s/%s in %s %d",

               </action>

            </rule>

            <rule>ref.type == prog.kw_y_of or ref.type == prog.kw_row_of

               <action>

                  printfln("## Error:: unsupported option %s/%s in %s %d",

               </action>

            </rule>

      <function name="gen_interface">

         <parameter name="frame"  type="java.util.Map" />

         <variable name="fnode"   type="com.goldencode.ast.Aast" />

         <variable name="cname"   type="java.lang.String" />

         <variable name="pkgname" type="java.lang.String" />

         <variable name="map"     type="java.util.Map" />

         <variable name="node"    type="com.goldencode.ast.Aast" />

         <variable name="inn"     type="com.goldencode.ast.Aast" />

         <variable name="lastId"  type="java.lang.Long" />

         <rule>true

            <action>fnode = execLib("get_fnode", frame)</action>

            <action>cname = #(java.lang.String) fnode.getAnnotation("fr_interface")</action>

            <action>pkgname = #(java.lang.String) fnode.getAnnotation("pkg_int")</action>

            <action>createJavaAst(java.kw_package, pkgname, javaRootId)</action>

            <action>createImport("com.goldencode.p2j.util.*")</action>

            <action>createImport("com.goldencode.p2j.ui.*")</action>

            <action>execLib("gen_method_signatures", map)</action>

            <!-- persist JAST -->

         </rule>