FWD » Core Development » Base Language

<?xml version="1.0"?>

<!-- 

/*

** Module   : dynamic_function_xref.xml

** Abstract : 

**

** Copyright (c) 2013, Golden Code Development Corporation.

** ALL RIGHTS RESERVED. Use is subject to license terms.

**

**           Golden Code Development Corporation

**                      CONFIDENTIAL

**

** _#_ _I_ __Date__ _______________________Description________________________

** 001 GES 20130119 First version.

*/

 -->

<cfg>

   <!-- register worker objects -->

   <worker class="com.goldencode.p2j.uast.ProgressPatternWorker"

           namespace="prog" />

   <worker class="com.goldencode.p2j.convert.ExpressionConversionWorker"

           namespace="ecw" />

   <!-- expression libraries -->

   <include name="common-progress" />

   <include name="report" />

   <!-- variables -->

   <variable name="outputFilename"      init="'output.txt'" />

   <variable name="fid"                 init="#(long) (-1)" />

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

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

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

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

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

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

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

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

   <!-- pipeline of rule-sets to process -->

   <!-- global initialization (once per pipeline) -->

   <init-rules>

      <rule>dynFuncTargets = #(java.util.Set) create("java.util.HashSet")</rule>

      <rule>funcList = #(java.util.Map) create("java.util.HashMap")</rule>

   </init-rules>

   <!-- main processing (once per AST) -->

   <!-- create the list of #(java.util.Set) create("java.util.HashSet")matches -->

   <rule-set input="tree" >

      <walk-rules>

         <rule>

            type == prog.func_poly and

            #(java.lang.Long) this.getAnnotation("oldtype") == prog.kw_dyn_func

            <action>ref = this.getChildAt(0)</action>

            <rule>ref.type == prog.string

               <action>fname = progressToJavaString(ref.text).toUpperCase()</action>

               <action>dynFuncTargets.add(fname)</action>

            </rule>

         </rule>

         <rule>type == prog.kw_funct and parent.type == prog.function

           <action>fname = getNoteString("name").toUpperCase()</action>

           <action>rtype = this.lookupTokenName(#(java.lang.Integer) getNoteLong("type"))</action>

           <rule>funcList.containsKey(fname)

              <action>rtypeList = #(java.util.Set) funcList.get(fname)</action>

              <action>rtypeList.add(rtype)</action>

              <action on="false">rtypeList = #(java.util.Set) create("java.util.HashSet")</action>

              <action on="false">rtypeList.add(rtype)</action>

              <action on="false">funcList.put(fname, rtypeList)</action>

            </rule>

         </rule>

      </walk-rules>

   </rule-set>

   <!-- global termination (once per pipeline) -->

   <post-rules>

      <rule>deleteFile(outputFilename, false)</rule>

      <rule>fid = openStream(outputFilename, true)</rule>

      <rule>iter = dynFuncTargets.iterator()</rule>

      <while>iter.hasNext()

         <action>fname = #(java.lang.String) iter.next()</action>

         <rule>funcList.containsKey(fname)

            <action>rtypeList = #(java.util.Set) funcList.get(fname)</action>

            <rule>rtypeList.size() == 1

               <action>fprintf(fid, 'OK')</action>

               <action on="false">fprintf(fid, 'BAD')</action>

            </rule>

            <action>fprintf(fid, ' %s', fname)</action>

            <action>titer = rtypeList.iterator()</action>

            <while>titer.hasNext()

               <action>rtype = #(java.lang.String) titer.next()</action>

               <action>fprintf(fid, ' %s', rtype)</action>

            </while>

            <action>fprintf(fid, '\n')</action>

            <action on="false">fprintf(fid, 'NODEF %s\n', fname)</action>

         </rule>

      </while>

      <rule>closeStream(fid)</rule>

   </post-rules>

</cfg>