FWD » Core Development » Base Language

** 037 HC  20200726 Initial implementation of SPREADSHEET widget and related changes.

**     CA  20200914 Added aspectjtools to fwdConvert group.

**     CA  20200915 Upgraded to Jetty 9.4.22.

*/

/*

    fwdConvertServer group: 'org.jboss.logging', name: 'jboss-logging', version: '3.1.0.GA'

    fwdConvertServer group: 'antlr', name: 'antlr', version: '2.7.7'

    fwdConvertServer group: 'javax.transaction', name: 'jta', version: '1.1'

    fwdConvertClient (group: 'com.google.guava', name: 'guava', version: '19.0') {

    fwdClientServer group: 'org.shredzone.acme4j', name: 'acme4j-client', version: '0.10'

    fwdClientServer group: 'org.shredzone.acme4j', name: 'acme4j-utils', version: '0.10'

    fwdClientServer group: 'com.esotericsoftware', name: 'reflectasm', version: '1.11.3'

    fwdServer group: 'org.apache.tuscany.sdo', name: 'tuscany-sdo-impl', version: '1.1.1'

    fwdServer group: 'org.apache.tuscany.sdo', name: 'tuscany-sdo-tools', version: '1.1.1'

** 101 VVT 20200203          Added cursor UI resources (.cur files) to jar location.

** 102 OM  20200108          DMO Impl generation TRPL dropped from runtime support.

** 103 HC  20200726          Initial implementation of SPREADSHEET widget and related changes.

 -->

<!--

  <path id="javadoc.path">

    <pathelement path="${src.home}"/>

  </path>

                    com/goldencode/p2j/*

                    com/goldencode/expr/*

                    com/goldencode/util/*

                    p2jpl.ddr"

          excludes="com/goldencode/p2j/spi/*

                    com/goldencode/p2j/SpiVersion.class"

** 031 CA  20190722          Added datetimetz comparators, as <op>(record, text).

**     GES 20190819          Added missing drop function statements for <op>(record, text) and

**                           <op>(text, record).

*/

/*

      'java.lang.String=

          com.goldencode.p2j.persist.pl.Functions.getFWDVersion()'

      language java immutable;

   END INSTALL",

   "BEGIN REMOVE

      drop function reportPrecisionScale(numeric);

      drop function getFWDVersion();

   END REMOVE"

}

** 102 CA  20200412          Added incremental conversion support.

** 103 HC  20200325          Added ocx_conversion_post.rules.

** 104 CA  20200514          Added support for SOAP web services.

*/

 -->

   <!-- second pass, finally remove unreachable code -->

   <rule-set name="annotations/remove_unreachable2" />

   <!-- convert OCX objects to 4GL widgets -->

   <rule-set name="annotations/ocx_conversion" />

   <rule-set name="annotations/ocx_conversion_post" />

   <!-- component-handle:LoadControls conversion -->

   <rule-set name="annotations/load_controls" />

   <!-- customer-specific tree rewriting -->

   <rule-set name="customer_specific_annotations_prep" optional="true" />

** Module   : database_general.rules

** Abstract : database related annotations

**

**

** 001 ECF 20051207   @23763 Created initial version. Miscellaneous rules

**                           for annotating various database language

**                           statements and functions.

**                           connect options.

** 035 ECF 20170820          Added support for read-xml and write-xml methods.

** 036 OM  20170823          Fixed DISABLE TRIGGERS statement.

** 039 OM  20171215          Force fields to have alias only if the quick-delete has subqueries.

** 040 ECF 20180118          API name change in SchemaWorker.

** 041 OM  20180309          The id-related functions are converted earlier into corresponding

**                           currently is not implemented.

** 046 ECF 20181208          Added support for read-json and write-json methods.

** 047 CA  20181221          Fixed FIND-CURRENT lock literals.

**     CA  20190323          FOR EACH ... DELETE. blocks conversion to EMPTY TEMP-TABLE must be 

**                           done only after buffer scopes are computed.

** 049 OM  20190327          Renamed DataSource to avoid conflicts with DataSet source.

** 054 IAS 20200212          Added support for new CONNECT options.

** 055 ECF 20200906          New ORM implementation.

** 056 CA  20200910          Added BUFFER:SERIALIZE-ROW() method conversion.

-->

<!--

      <!-- prepare {READ|WRITE}-{XML[SCHEMA]|JSON} and SERIALIZE-ROW methods -->

      <rule>parent.type == prog.meth_logical

         <action>oldtype = parent.getAnnotation("oldtype")</action>

         <rule>oldtype == prog.kw_read_xsc or

            <action>pos1 = this.indexPos</action>

            <rule>(pos1 >= 2 and oldtype != prog.kw_serialzr) or 

                  ((pos1 == 0 or pos1 >= 3) and oldtype == prog.kw_serialzr)

               <action>putNote("use-method-peerid", true)</action>

** 002 CA  20190703 Added support for WebHandler services.

** 003 CA  20200514 Added support for SOAP web services.

** 004 GES 20200723 Added address attribute for REST.

**                  generated into the legacy open client proxy Java program.

*/

 -->

**         20200608 Added NODECLICK, BEFORELABELEDIT, AFTERLABELEDIT event triggers.

** 012 SBI 20200619 Changed NODECLICK, BEFORELABELEDIT, AFTERLABELEDIT to be according with FWD

**                  widget events naming convention, AFTERLABELEDIT can update the label's value.

**     HC  20200726 Improved OCX conversion of COM properties.

**     HC  20200827 Fixed conversion of assignment of COM properties with multiple indexes.

*/

 -->

<!--

         <!-- Calendar -->

         <action>map6 = create("java.util.HashMap")</action>

         <action>map6.put("checkbox"         , "Checked")</action>

         <action>map6.put("font"             , "FontInfo")</action>

         <action>map6.put("format"           , "FormatStyle")</action>

** Module   : record_scoping.rules

** Abstract : calculates record scopes

**

**

** 001 GES 20050919   @22811 Calculates record scopes in a Progress

**                           compatible manner, including support for

**                           all of the implicit scope expansion rules.

** 019 CA  20190128          Track buffer's static state (if OO).

** 020 CA  20190513          Fixed buffer usage from super-classes, in OO.

** 021 CA  20190530          Fixed staging of buffer parameters for OO methods or constructors.

*/

 -->

<!--

   <walk-rules>

      <rule>type == prog.block and getNoteBoolean("recordScoping")

         <action>buf.pushScope(copy)</action>

      </rule>

      <!-- temp-tables and work-tables are currently scoped to the external

           procedure but this is NOT CORRECT -->

      <rule>

          type == prog.define_work_table) and not ancestor(prog.interface_def, -1)

            <action>ref = copy.getImmediateChild(prog.kw_for, null)</action>

            <rule>ref.downPath("TEMP_TABLE")

               <action>ref = ref.getImmediateChild(prog.temp_table, null)</action>

**

** Copyright (c) 2005-2020, Golden Code Development Corporation.

**

** 001 GES 20050721   @21759 Good working version which supports a wide

**                           range of the most common builtin functions

**                           including all type conversion, math, string

**     GES 20200506          Changed the name of DYNAMIC-ENUM().

**     SBI 20200529          Implemented LOAD-PICTURE.

** 102 CA  20200811          SUPER() function has as first argument the caller's return type.

*/

 -->

            ftype == prog.kw_mf_gfsd or ftype == prog.kw_mf_gfsr  or ftype == prog.kw_mf_gph   or

            ftype == prog.kw_mf_gpn  or ftype == prog.kw_mf_gpw   or ftype == prog.kw_mf_gtw   or

            ftype == prog.kw_mf_gxy  or ftype == prog.kw_mf_gzf   or ftype == prog.kw_mf_init  or

            <action>bRet = true</action>

      <rule>fwdId2Mf.put(prog.kw_mf_gxy  , "getXY")</rule>

      <rule>fwdId2Mf.put(prog.kw_mf_gzf  , "getZoomFactor")</rule>

      <rule>fwdId2Mf.put(prog.kw_mf_init , "initialize")</rule>

      <rule>fwdId2Mf.put(prog.kw_mf_mpdf , "makePdf")</rule>

      <rule>fwdId2Mf.put(prog.kw_mf_p2mu , "pix2MfUnits")</rule>

<!--      <rule>fwdId2Mf.put(prog.kw_mf_pdoc , "printDoc")</rule>-->

            <action>dbimport = true</action>

         </rule>

         <!-- duplicative with kw_today below but easier to find this way -->

         <rule>ftype == prog.kw_date

            <action>methodText = "date"</action>

            <action>methodType = java.constructor</action>

         </rule>

         <rule>ftype == prog.kw_datetime

            <action>methodText = "datetime"</action>

            <action>methodType = java.constructor</action>

            <action>methodText = "datetimetz"</action>

            <action>methodType = java.constructor</action>

         </rule>

         <rule>ftype == prog.kw_day

            <action>methodText = "date.day"</action>

         </rule>

               <action>extent = deref.getAnnotation("oldextent")</action>

            </rule>

            <rule>extent == null or extent == 0

               <action>methodText = "0"</action>

               <action>methodType = java.num_literal</action>

            </rule>

            <rule>

               (extent != null and extent == -1) or

               (copy.parent.isAnnotation("wrap") and

            <action>dbimport = true</action>

         </rule>

         <rule>ftype == prog.kw_rejected

            <action>methodType = java.method_call</action>

            <action>methodText = "rejected"</action>

            <rule on="false">raiseError

               <action>

               </action>

               <action>printfln("%s\n%s", errmsg, this.dumpTree(true))</action>

            </rule>

** Module   : legacy_services.rules

** Abstract : conversion related to legacy proxy client code.

**

**

** _#_ _I_ __Date__ _______________________________________Description________________________________________

** 001 CA  20201007 Created initial version.

*/

 -->

               <action>

                  createJavaAst(java.string, #(java.lang.String) propAst.getAnnotation("historical"), ref)

               </action>

                  <action>

                     createJavaAst(java.num_literal, sprintf("%s", propAst.getAnnotation("extent")), ref)

                  </action>

**

** Copyright (c) 2015-2020, Golden Code Development Corporation.

**

** 001 VIG 20141101 Initial version.

** 002 VIG 20150204 Added SUB-MENU label support, removeQuotes are replaced by 

**                  ecw.progressToJavaString() method call.

** 005 OM  20150918 Fixed historical/java names.

** 006 VIG 20160621 Added labels collection to uiStrings file.

** 007 GES 20171017 Added hexadecimal literal support.

**                  instead of the legacy name, so it was not converting properly.

** 009 GES 20180910 Resolved ambiguous method call (it did not fail previously but the correct

**                  method was not being called).

** 010 CA  20181208 Use progressToJavaString to emit the TITLE option.

** 011 CA  20200412 Added incremental conversion support.

** 012 SBI 20200322 Added label not null rule for processing menu items.

*/

-->

   <post-rules>

      <!-- this is done here, once, as uiStrings will have everything collected -->

   </post-rules>

   <func-library access="private"> 

**

** Copyright (c) 2018-2020, Golden Code Development Corporation.

**

** 001 GES 20181213 First version.

** 002 OM  20181218 Added generics for object getters.

** 003 GES 20190118 Changed "access" annotation to "access-mode" for methods. This is consistent

**     CA  20200514 Emit the LegacySignature at the external program's 'execute' method and all its internal

**                  entries.

** 009 CA  20200804 Emit bulk setter and getter for an extent property.

**                  nested block.

*/

 -->

**     CA  20200503          Added ERROR:ERROR-STRING, QUERY:CACHE and BUFFER:IS-MULTI-TENANT.

**     SVL 20200509          Added ALIGNMENT attribute.

** 222 SBI 20200619          Added NEW-LABEL attribute for the tree widget.

**                           LAST-EVENT:SET-LASTKEY() method.  Added the LAST-EVENT:COLUMN/ROW attributes

**                           support.  Added the BUFFER-FIELD:DEFAULT-VALUE attribute.

*/

 -->

         <rule>list.put(prog.kw_aud_ev_c, execLib("cr_descr", "ClientPrincipal"            , "getAuditEventContext"   , "setAuditEventContext"   , true       ))</rule>

         <rule>list.put(prog.kw_authen_f, execLib("cr_descr", "ClientPrincipal"            , "authenticationFailed"   , null                     , true       ))</rule>

         <rule>list.put(prog.kw_auto_com, execLib("cr_descr", "Widget"                     , "isAutoCompletion"       , "setAutoCompletion"      , true       ))</rule>

         <rule>list.put(prog.kw_auto_end, execLib("cr_descr", "Button"                     , "isAutoEndKey"           , "setAutoEndKey"          , true       ))</rule>

         <rule>list.put(prog.kw_auto_go , execLib("cr_descr", "Button"                     , "isAutoGo"               , "setAutoGo"              , true       ))</rule>

         <rule>list.put(prog.kw_auto_ind, execLib("cr_descr", "Editor"                     , "isAutoIndent"           , "setAutoIndent"          , true       ))</rule>

         <rule>list.put(prog.kw_cur_qry , execLib("cr_descr", "DataRelation"               , "getCurrentQuery"        , null                     , true       ))</rule>

         <rule>list.put(prog.kw_cvt_3d_c, execLib("cr_descr", "ImageSupport"               , "getConvert3D"           , "setConvert3D"           , true       ))</rule>

         <rule>list.put(prog.kw_data_scm, execLib("cr_descr", "Buffer"                     , "dataSourceCompleteMap"  , null                     , true       ))</rule>

         <rule>list.put(prog.kw_data_src, execLib("cr_descr", "Buffer"                     , "dataSource"             , null                     , true       ))</rule>

         <rule>list.put(prog.kw_data_sri, execLib("cr_descr", "Buffer"                     , "dataSourceRowid"        , "dataSourceRowid"        , true       ))</rule>

         <rule>list.put(prog.kw_dataset , execLib("cr_descr", "Buffer"                     , "dataSet"                , null                     , true       ))</rule>

         <rule>list.put(prog.kw_db_list , execLib("cr_descr", "ClientPrincipal"            , "getDbList"              , null                     , true       ))</rule>

         <rule>list.put(prog.kw_deblank , execLib("cr_descr", "Deblank"                    , "isDeblank"              , "setDeblank"             , true       ))</rule>

         <rule>list.put(prog.kw_debug   , execLib("cr_descr", "Debugger"                   , "debug"                  , null                     , true       ))</rule>

         <rule>list.put(prog.kw_def_comm, execLib("cr_descr", "Transaction"                , "isDefaultCommit"        , "setDefaultCommit"       , true       ))</rule>

         <rule>list.put(prog.kw_def_str , execLib("cr_descr", "BufferField"                , "getDefaultString"       , "setDefaultString"       , true       ))</rule>

         <rule>list.put(prog.kw_def_val , execLib("cr_descr", "BufferField"                , "getDefaultValue"        , ""                       , true       ))</rule>

         <rule>list.put(prog.kw_end_f_d , execLib("cr_descr", "Droppable"                  , "endFileDrop"            , null                     , true       ))</rule>

         <rule>list.put(prog.kw_ent_tlst, execLib("cr_descr", "LogManager"                 , "getEntryTypesList"      , null                     , true       ))</rule>

         <rule>list.put(prog.kw_entry   , execLib("cr_descr", "CommonListWidget"           , "entry"                  , null                     , true       ))</rule>

         <rule>list.put(prog.kw_err_str , execLib("cr_descr", "ErrorString"                , "errorString"            , "changeErrorString"      , true       ))</rule>

         <rule>list.put(prog.kw_evt_proc, execLib("cr_descr", "EventProcedure"             , "getEventProcedure"      , "setEventProcedure"      , true       ))</rule>

         <rule>list.put(prog.kw_expand  , execLib("cr_descr", "RadioSet"                   , "isExpand"               , "setExpand"              , true       ))</rule>

         <rule>list.put(prog.kw_export_p, execLib("cr_descr", "ClientPrincipal"            , "exportPrincipal"        , null                     , true       ))</rule>

         <rule>list.put(prog.kw_f_key_h , execLib("cr_descr", "DataRelation"               , "getForeignKeyHidden"    , "setForeignKeyHidden"    , true       ))</rule>

         <rule>list.put(prog.kw_fetch_sr, execLib("cr_descr", "Browse"                     , "fetchSelectedRow"       , null                     , true       ))</rule>

         <rule>list.put(prog.kw_fill_wst, execLib("cr_descr", "DataSource"                 , "getFillWhereString"     , "setFillWhereString"     , true       ))</rule>

         <rule>list.put(prog.kw_fill    , execLib("cr_descr", "Fillable"                   , "fill"                   , null                     , true       ))</rule>

         <rule>list.put(prog.kw_filled  , execLib("cr_descr", "Rectangle"                  , "getFilled"              , "setFilled"              , true       ))</rule>

         <rule>list.put(prog.kw_img_only, execLib("cr_descr", "ImageOnly"                  , "isImageOnly"            , "setImageOnly"           , true       ))</rule>

         <rule>list.put(prog.kw_in_hndl , execLib("cr_descr", "Call"                       , "getInHandle"            , "setInHandle"            , true       ))</rule>

         <rule>list.put(prog.kw_index   , execLib("cr_descr", "Indexed"                    , "getIndex"               , "setIndex"               , true       ))</rule>

         <rule>list.put(prog.kw_initiate, execLib("cr_descr", "Debugger"                   , "initiate"               , null                     , true       ))</rule>

         <rule>list.put(prog.kw_inner_c , execLib("cr_descr", "ScrollbarHorizontalElement" , "getInnerChars"          , "setInnerChars"          , true       ))</rule>

         <rule>list.put(prog.kw_inner_l , execLib("cr_descr", "InnerLines"                 , "getInnerLines"          , "setInnerLines"          , true       ))</rule>

         <rule>list.put(prog.kw_lab_font, execLib("cr_descr", "BrowseElement"              , "getLabelFont"           , "setLabelFont"           , true       ))</rule>

         <rule>list.put(prog.kw_labels  , execLib("cr_descr", "Labels"                     , "isLabels"               , "setLabels"              , true       ))</rule>

         <rule>list.put(prog.kw_large   , execLib("cr_descr", "Editor"                     , "isLarge"                , "setLarge"               , true       ))</rule>

         <rule>list.put(prog.kw_last_of , execLib("cr_descr", "Query"                      , "isLastOfGroup"          , null                     , true       ))</rule>

         <rule>list.put(prog.kw_last_ti , execLib("cr_descr", "FieldGroup"                 , "getLastTabItem"         , "setLastTabItem"         , true       ))</rule>

         <rule>list.put(prog.kw_length  , execLib("cr_descr", "Editor"                     , "getLength"              , null                     , true       ))</rule>

         <rule>list.put(prog.kw_merge_rc, execLib("cr_descr", "Buffer"                     , "mergeRowChanges"        , null                     , true       ))</rule>

         <rule>list.put(prog.kw_min_btn , execLib("cr_descr", "Window"                     , "isMinButton"            , "setMinButton"           , true       ))</rule>

         <rule>list.put(prog.kw_min_val , execLib("cr_descr", "Slider"                     , "getMinValue"            , "setMinValue"            , true       ))</rule>

         <rule>list.put(prog.kw_mnemon  , execLib("cr_descr", "Mnemonic"                   , "getMnemonic"            , null                     , true       ))</rule>

         <rule>list.put(prog.kw_modified, execLib("cr_descr", "Widget"                     , "isModified"             , "setModified"            , true       ))</rule>

         <rule>list.put(prog.kw_mou_ptr , execLib("cr_descr", "Widget"                     , "getMousePointer"        , null                     , true       ))</rule>

         <rule>list.put(prog.kw_mov_2eof, execLib("cr_descr", "Editor"                     , "moveCaretToEof"         , null                     , true       ))</rule>

         <rule>list.put(prog.kw_movable , execLib("cr_descr", "Widget"                     , "isMovable"              , "setMovable"             , true       ))</rule>

         <rule>list.put(prog.kw_multiple, execLib("cr_descr", "Multiple"                   , "isMultiple"             , "setMultiple"            , true       ))</rule>

         <rule>list.put(prog.kw_nested  , execLib("cr_descr", "DataRelation"               , "isNested"               , "setNested"              , true       ))</rule>

         <rule>list.put(prog.kw_next_rid, execLib("cr_descr", "DataSource"                 , "getNextRowid"           , "setNextRowid"           , true       ))</rule>

         <rule>list.put(prog.kw_no_cur_v, execLib("cr_descr", "Slider"                     , "isNoCurrentValue"       , "setNoCurrentValue"      , true       ))</rule>

         <rule>list.put(prog.kw_no_em_sp, execLib("cr_descr", "Browse"                     , "isNoEmptySpace"         , "setNoEmptySpace"        , true       ))</rule>

         <rule>list.put(prog.kw_no_focus, execLib("cr_descr", "Button"                     , "getNoFocus"             , "setNoFocus"             , true       ))</rule>

         <rule>list.put(prog.kw_no_valid, execLib("cr_descr", "Browse"                     , "isNoValidate"           , "setNoValidate"          , true       ))</rule>

         <rule>list.put(prog.kw_nodes   , execLib("cr_descr", "Nodes"                      , "getNodes"               , null                     , true       ))</rule>

         <rule>list.put(prog.kw_num_buff, execLib("cr_descr", "BufferCollection"           , "numBuffers"             , null                     , true       ))</rule>

         <rule>list.put(prog.kw_save_fil, execLib("cr_descr", "Editor"                     , "saveFile"               , null                     , true       ))</rule>

         <rule>list.put(prog.kw_save_rch, execLib("cr_descr", "Buffer"                     , "saveRowChanges"         , null                     , true       ))</rule>

         <rule>list.put(prog.kw_save_wst, execLib("cr_descr", "DataSource"                 , "getSaveWhereString"     , "setSaveWhereString"     , true       ))</rule>

         <rule>list.put(prog.kw_sing_run, execLib("cr_descr", "Procedure"                  , "isSingleRun"            , null                     , true       ))</rule>

         <rule>list.put(prog.kw_singlton, execLib("cr_descr", "Procedure"                  , "isSingleton"            , null                     , true       ))</rule>

         <rule>list.put(prog.kw_scr_2cr , execLib("cr_descr", "Browse"                     , "scrollToCurrentRow"     , null                     , true       ))</rule>

         <rule>list.put(prog.kw_selectbl, execLib("cr_descr", "Widget"                     , "isSelectable"           , "setSelectable"          , true       ))</rule>

         <rule>list.put(prog.kw_selected, execLib("cr_descr", "Widget"                     , "isSelected"             , "setSelected"            , true       ))</rule>

         <rule>list.put(prog.kw_sep_fgc , execLib("cr_descr", "Browse"                     , "getSeparatorFgColor"    , "setSeparatorFgColor"    , true       ))</rule>

         <rule>list.put(prog.kw_serialzn, execLib("cr_descr", "NamedSerializable"          , "getSerializeName"       , "setSerializeName"       , true       ))</rule>

         <rule>list.put(prog.kw_serialzr, execLib("cr_descr", "Buffer"                     , "serializeRow"           , null                     , true       ))</rule>

         <rule>list.put(prog.kw_server  , execLib("cr_descr", "Remotable"                  , "getServerHandle"        , "setServerHandle"        , true       ))</rule>

         <rule>list.put(prog.kw_xml_dtyp, execLib("cr_descr", "XmlNode"                    , "getXmlDataType"         , "setXmlDataType"         , true       ))</rule>

         <rule>list.put(prog.kw_xml_nnam, execLib("cr_descr", "XmlNode"                    , "getXmlNodeName"         , "setXmlNodeName"         , true       ))</rule>

         <rule>list.put(prog.kw_xml_ntyp, execLib("cr_descr", "XmlNode"                    , "getXmlNodeType"         , "setXmlNodeType"         , true       ))</rule>

         <!-- The FWD extensions are listed separately. -->

         <rule>list.put(prog.kw_add_bcca, execLib("cr_descr", "EmailSender"                , "addBccAddress"          , ""                       , true       ))</rule>

         <rule>list.put(prog.kw_add_c_n , execLib("cr_descr", "TreeNodeCollection"         , "addChildNode"           , null                     , true       ))</rule>

         <rule>list.put(prog.kw_caltitfg, execLib("cr_descr", "Calendar"                   , "getTitleForeColor"      , "setTitleForeColor"      , true       ))</rule>

         <rule>list.put(prog.kw_caltrlfg, execLib("cr_descr", "Calendar"                   , "getTrailingForeColor"   , "setTrailingForeColor"   , true       ))</rule>

         <rule>list.put(prog.kw_calupdwn, execLib("cr_descr", "Calendar"                   , "isUpDown"               , "setUpDown"              , true       ))</rule>

         <rule>list.put(prog.kw_cease   , execLib("cr_descr", "FWDTimer"                   , "cease"                  , null                     , true       ))</rule>

         <rule>list.put(prog.kw_clea_tab, execLib("cr_descr", "Signature"                  , "clearTablet"              , ""                       , true       ))</rule>

         <rule>list.put(prog.kw_clea_win, execLib("cr_descr", "Signature"                  , "clearSignatureWindow"     , ""                       , true       ))</rule>

                     <action>methodText = "getResourceType"</action>

                  </rule>

                     <action>hwrap = "Error"</action>

                     <action>methodText = "isError"</action>

                     <rule>isAssign

                        <action>methodText = "setError"</action>

                     </rule>

                  </rule>

               </rule>

               <rule>ftype == prog.kw_max_h_c

                  <action>methodText = "getMaxHeightChars"</action>

                  <rule>isAssign

                     <action>methodText = "setMaxHeightChars"</action>

               <!-- MIN-HEIGHT-CHARS support for browse and windows -->

               <rule>ftype == prog.kw_min_h_c

                  <action>methodText = "getMinHeightChars"</action>

                  <rule>isAssign

                     <action>methodText = "setMinHeightChars"</action>

                  <!-- setter and getter are both named "name"! -->

                  <action>methodText = "name"</action>

               </rule>

               <rule>ftype == prog.kw_new

                  <action>methodText = "newlyCreated"</action>

**     SBI 20200505          Added COM-SELF conversion support.

**     RFB 20201002          Added additional parameter to thisProcedure when an annotation is found. Ref #4861

**     SVL 20201009          Emit extent fields where subscript is an expression.

*/

 -->

               <rule>oldtype == prog.kw_os_err

                  <action>methodTxt = "FileSystemOps.getLastError"</action>

               </rule>

               <rule>oldtype == prog.kw_pro_arch

                  <action>methodTxt = "EnvironmentOps.getProcessArchitecture"</action>

               </rule>

**

** Copyright (c) 2013-2020 Golden Code Development Corporation.

**

** 001 CA  20130118 Added support for persistent procedures,  procedure 

**                  handles and super procedures.  DYNAMIC-FUNCTION(expr IN 

**                  handle) where expr is not a constant has the IN handle 

**     RFB 20200429 Removed a dumpTree that wasn't providing any useful information

**                  after the "WARNING: Hiding duplicate...".

**     RFB 20200504 Shortened up some other log messages to still provide info,

*/

-->

         <action>funcRetTypes.put(fname, cls)</action>

      </rule>

      <rule>type == prog.assign

         <action>ref = copy.getFirstChild()</action>

         <rule>ref.type == prog.colon

            <action>ref = ref.getChildAt(1)</action>

            <while>ref.type == prog.db_ref_non_static 

               <action>ref = ref.nextSibling</action>

            </while>

            <rule>evalLib("read_only_attribute", ref)

               <action>

                           file,

                           line,

               </action>

               <action>pref.putAnnotation("no_wrap", true)</action>

            </rule>

         </rule>

      </rule>

      <!-- capture the all FORWARD, IN handle or IN SUPER function declarations

           which also have a named BUFFER parameter (ignore all others, including

           buffer parameters that have no name) -->

**     SBI 20200520 LOAD-PICTURE is fully supported.

** 053 GES 20200628 Added SET-LASTKEY method and updated DEFAULT-STRING and DEFAULT-VALUE attributes.

**     HC  20200726 Initial implementation of SPREADSHEET widget and related changes.

*/

 -->

         <rule>funcs.put(prog.kw_cur_res , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>

         <rule>funcs.put(prog.kw_cur_val , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>

         <rule>funcs.put(prog.kw_cvt_dt  , rw.cvt_lvl_none    | rw.rt_lvl_none)</rule> <!-- webspeed convert-datetime is notsupported -->

         <rule>funcs.put(prog.kw_date    , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>

         <rule>funcs.put(prog.kw_date_tz , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>

         <rule>funcs.put(prog.kw_datetime, rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>

         <rule>vars.put(prog.kw_opsys   , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>

         <rule>vars.put(prog.kw_os_drv  , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>

         <rule>vars.put(prog.kw_os_err  , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>

         <rule>vars.put(prog.kw_pro_arch, rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>

         <rule>vars.put(prog.kw_proc_hnd, rw.cvt_lvl_none    | rw.rt_lvl_none)</rule> <!-- proc-handle is not supported -->

         <rule>vars.put(prog.kw_proc_st , rw.cvt_lvl_none    | rw.rt_lvl_none)</rule> <!-- proc-status is not supported -->

         <rule>attrs.put(prog.kw_data_e_r, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_data_scm, rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- data-source-complete-map -->

         <rule>attrs.put(prog.kw_dataset , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- dataset -->

         <rule>attrs.put(prog.kw_data_src, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- data-source -->

         <rule>attrs.put(prog.kw_data_sri, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- data-source-rowid -->

         <rule>attrs.put(prog.kw_datatype, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_fil_c_t , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_fill    , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- fill -->

         <rule>attrs.put(prog.kw_filled  , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_fil_m_d , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_fil_m_t , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_fil_name, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_language, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- languages -->

         <rule>attrs.put(prog.kw_large   , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_last_ar , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_last_ch , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_last_frm, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- last-form -->

         <rule>attrs.put(prog.kw_last_obj, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- last-object -->

         <rule>attrs.put(prog.kw_menu_mou, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_merge_bf, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- merge-by-field -->

         <rule>attrs.put(prog.kw_merge_ch, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- merge-changes -->

         <rule>attrs.put(prog.kw_min_btn , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- min-button -->

         <rule>attrs.put(prog.kw_min_cwch, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- min-column-width-chars -->

         <rule>attrs.put(prog.kw_min_cwpx, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- min-column-width-pixels -->

         <rule>attrs.put(prog.kw_nodv_2lc, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_no_em_sp, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> 

         <rule>attrs.put(prog.kw_no_focus, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_normalze, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_no_sch_m, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- no-schema-marshal -->

         <rule>attrs.put(prog.kw_no_valid, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- the no-validate attr is a browse-only feature in the 4GL -->

         <rule>attrs.put(prog.kw_read_fil, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_read_jsn, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- read-json, done for DATASETS, too -->

         <rule>attrs.put(prog.kw_read_onl, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_recid   , rw.cvt_lvl_full       | rw.rt_lvl_full_restr)</rule> <!-- id returned not backward compatible with Progress recid -->

         <rule>attrs.put(prog.kw_rec_len , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- record-length -->

         <rule>attrs.put(prog.kw_recurse , rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- recursive -->

         <rule>attrs.put(prog.kw_repos_2i, rw.cvt_lvl_full_restr | rw.rt_lvl_full_restr)</rule> <!-- tenant-expression not supported -->

         <rule>attrs.put(prog.kw_repos_2r, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>   

         <rule>attrs.put(prog.kw_repos_b , rw.cvt_lvl_full       | rw.rt_lvl_basic)</rule> <!-- error reporting TODO -->

         <rule>attrs.put(prog.kw_repos_f , rw.cvt_lvl_full       | rw.rt_lvl_basic)</rule> <!-- error reporting TODO -->

         <rule>attrs.put(prog.kw_rep_stxt, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_req_info, rw.cvt_lvl_none       | rw.rt_lvl_full)</rule> <!-- request-info -->

         <rule>attrs.put(prog.kw_seal    , rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- seal -->

         <rule>attrs.put(prog.kw_seal_tst, rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- seal-timestamp -->

         <rule>attrs.put(prog.kw_search  , rw.cvt_lvl_full       | rw.rt_lvl_full_restr)</rule> <!-- no procedure library member syntax support -->

         <rule>attrs.put(prog.kw_selectbl, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_selected, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_sel_end , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_sep_fgc , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_seps    , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_serialzh, rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- serialize-hidden -->

         <rule>attrs.put(prog.kw_serialzr, rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- serialize-row -->

         <rule>attrs.put(prog.kw_server  , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_sess_end, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- session-end -->

         <rule>attrs.put(prog.kw_set_blue, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_set_brk , rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- set-break -->

         <rule>attrs.put(prog.kw_set_buf , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

         <rule>attrs.put(prog.kw_set_clnt, rw.cvt_lvl_full       | rw.rt_lvl_basic)</rule> <!-- set-client -->

         <rule>attrs.put(prog.kw_set_comm, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- set-commit -->

         <rule>attrs.put(prog.kw_set_c_p , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

**     GES 20191015 More updates for OO and structured error handling.

** 022 HC  20200331 Implemented support for OPEN-POPUP legacy method, which opens popup menu set

**                  on the widget.

*/

 -->

         <rule>opts.put(prog.kw_mf_gxy,                   rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->

         <rule>opts.put(prog.kw_mf_gzf,                   rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->

         <rule>opts.put(prog.kw_mf_init,                  rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->

         <rule>opts.put(prog.kw_mf_mpdf,                  rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->

         <rule>opts.put(prog.kw_mf_p2mu,                  rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->

         <rule>opts.put(prog.kw_mf_rp,                    rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->

**

** Copyright (c) 2005-2020, Golden Code Development Corporation.

**

** 001 GES 20050721   @21761 Good working version which provides many callable functions/rules 

**                           that allow the centralized definition and reuse of complex

**                           expressions, logic and processing.

**     GES 20200521          Added legacy name overrides.

** 236 CA  20200803          Added create_temp_table_key_criteria.

** 237 IAS 20200809          Added support for the MAX-WIDTH FIELD attribute.

*/

 -->

         </rule>

      </function>

      <function name="read_only_attribute">

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

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

         <variable  name="ftype" type="java.lang.Integer" />

         <return    name="res"   type="java.lang.Boolean" />

         <!-- attributes that are partially read-only, they are not included in the list below -->

         <!-- prog.kw_kw_evt_proc || read-only for the async request, the CALL version is read/write -->

         <!-- this is the list of known READ-ONLY attributes -->

         <!-- THIS IS A CHANGE FROM THE PREVIOUS APPROACH OF ENCODING A LIST OF WRITABLE ATTRS -->

                   ftype == prog.kw_dde_id   ||

                   ftype == prog.kw_dde_name ||

                   ftype == prog.kw_dde_topi ||

                   ftype == prog.kw_def_bufh ||

                   ftype == prog.kw_def_val  ||

                   ftype == prog.kw_disp_typ ||

**     SBI 20190728          Added "help" annotation.

** 056 OM  20190831          Added hidden fields and index specific to BEFORE TEMP-TABLES.

** 057 IAS 20200601          Added support for the table/field string attributes (*-SA properties).

**                           Added support for "dirty-read" hint/annotation.

**                           Removed generation of DMO implementation classes.

**     IAS 20200624          Added support for the field VIEW-AS attributes

**     IAS 20200809          Added support for the field DECIMALS, DESCRIPTION, CASE-SENSITIVE, and 

**                           MAX-WIDTH attributes

**     CA  20201021          Fixed runtime conversion of dynamic temp-tables with Progress.Lang.Object fields.

-->

<!--

               </action>

            </rule>

            <!-- graft "serialize-name" annotation -->

            <rule>copy.isAnnotation("serialize-name")

               <action>

                  </action>

               </rule>

               </rule>

               <!--loop through index components-->

               <while>idxCompAst != null

                  <action>ref = getAst(#(long) idxCompAst.getAnnotation("refid"))</action>

                  <action>

                     isDesc = idxCompAst.isAnnotation("descend") and

                              #(boolean) idxCompAst.getAnnotation("descend")

                                                'legacy_name', legacyName)

                  </action>

                  <rule>!ref.parent.isAnnotation("drop")

                  </rule>

                  <rule>isDesc

                     idxCompAst = idxAst.getImmediateChild(data.index_col, idxCompAst)

                  </action>

               </while>

               <!-- advance to the next index AST -->

               <action>idxAst = copy.getImmediateChild(data.index, idxAst)</action>

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

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

         <variable  name="caseSensitive"  type="java.lang.Boolean" />

         <!-- graft "fieldId" / "id" annotation -->

         <rule>newDMO

            <action on="true">

         <!-- graft "column-label" annotation -->

         <rule>sourceAst.isAnnotation("col_lab")

            <action>tmpString = sourceAst.getAnnotation('col_lab')</action>

            <action>

               tpl.graft('annotation_assign_string', null, fieldAst,

                         'key',   'columnLabel',

         <!-- graft "label" annotation -->

         <rule>sourceAst.isAnnotation("label")

            <action>tmpString = sourceAst.getAnnotation('label')</action>

            <action>

               tpl.graft('annotation_assign_string', null, fieldAst,

                         'key',   'label',

         <!-- add needed Hibernate properties -->

         <rule>

            hiberProps = execLib("buildDbImportProperties",

         </rule>

         <rule>config.addProperties(hiberProps)</rule>

         <rule>p2jDatabase = create("com.goldencode.p2j.persist.Database", dbName)</rule>

      </function>

   </func-library>

**

** Copyright (c) 2006-2020, Golden Code Development Corporation.

**

** 001 GES 20100629 Created initial version based on reindex.xml. Walks P2O

**                  AST to setup Hibernate, then uses Hibernate to generate

**                  DDL for all tables and for all indexes.

** 015 VMN 20140502 Added enhance schema name conversion support for hint "escape" attribute.

** 016 OM  20160712 Removed p2j_id_generator_sequence from generated index DDL.

** 017 OM  20200906 New ORM implementation.

-->

<!--

**

** Copyright (c) 2005-2020, Golden Code Development Corporation.

**

** 001 ECF 20050922   @22942 Created initial version. Provides creation rules for the composite

**                           getter and setter method declarations of a DMO interface Java AST.

** 002 ECF 20060321   @25269 Made numeric DMO setter methods more lenient. Setters for integer

**                           assign method.

** 011 OM  20200108          Moved back the extent support method definition to main interface

**                           (reverting H009).

-->

<!--

   <include name="schema/dmo_common" />

   <!-- variable declarations -->

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

   <variable name="descList"        type="java.util.List" />

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

   <walk-rules>

         <!-- retrieve necessary annotations -->

         <action>dataType = execLib('getDataType', this)</action>

         <action>dType = execLib('adjustDataType', dataType)</action>

         <!-- gather javadoc data -->

         <action>descList = execLib('gatherDocData', this)</action>

** 030 OM  20200906          New ORM implementation.

** 031 CA  20200910          Fixed the datetime(-tz) field's initial value at import - it uses ISO8601

**                           format or NOW function.

-->

<!--

   <variable name="fwdDialect"      type="com.goldencode.p2j.persist.dialect.Dialect" />

   <!-- parameters -->

   <func-library access="public">

      <function name="getDefaultValue">

      <rule>printfln('INFO:  Using %d threads for import', maxThreads)</rule>

      <rule>cacheables = create('java.util.HashSet')</rule>

      <rule>fwdDialect = create(ormProps.getProperty("dialect"))</rule>

   </init-rules>

      <variable name="indexes"      type="java.util.List" />

      <variable name="session"      type="com.goldencode.p2j.persist.orm.Session" />

      <variable name="default"      type="com.goldencode.p2j.util.BaseDataType" />

      <init-rules>

         <rule>schemaName = text</rule>

         </rule>

         <rule>type == data.index and !skipImport

            <!-- instantiate an index definition -->

            <action>

               indexDef = create("com.goldencode.p2j.persist.P2JIndex",

                                 data.formatWithEscapedParameter("idx__%s", text),

                                 this.isAnnotation("unique"),

                                 this.isAnnotation("primary"),

            </action>

            <!-- add it to the list for this table/DMO -->

** 007 VMN 20131106          Removed "sqlserver2008" target DB because SQL Server 2008 does not

**                           support sequences.

** 008 OM  20200408          Replaced Hibernate with customized orm.

-->

<!--

         <parameter name="uid"            type="java.lang.String" />

         <!-- connection pasword may be null, defaults to "p3rs1st" -->

         <parameter name="pw"             type="java.lang.String" />

         <return    name="dbImportParams" type="java.util.Properties" />

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

            <action>pw = "p3rs1st"</action>

         </rule>

         <rule>dbImportParams.put("dialect", dialectClass)</rule>

         <rule>dbImportParams.put("database_name", dbName)</rule>