diff --git a/Form/Adaptor.cls.xml b/Form/Adaptor.cls.xml index 3f6f043..1028b5a 100644 --- a/Form/Adaptor.cls.xml +++ b/Form/Adaptor.cls.xml @@ -1,5 +1,5 @@ - + Base form adaptor class, all forms must inherit from this class @@ -8,6 +8,7 @@ Base form adaptor class, all forms must inherit from this class Form Form.Field Form.Security,Form.Generators +64415,70229.977141 64090,75147.034342 Form.Info @@ -109,7 +110,7 @@ Get basic information about one object 1 1 id:%Integer -%Object +%DynamicObject list - contains objects ids (not oids)]]> 1 list:%ListOfDataTypes -%Array +%DynamicArray diff --git a/Form/Field.cls.xml b/Form/Field.cls.xml index c79348c..89ba189 100644 --- a/Form/Field.cls.xml +++ b/Form/Field.cls.xml @@ -1,9 +1,10 @@ - + Form field properties 1 +64415,69633 64090,75443.892382 diff --git a/Form/File.cls.xml b/Form/File.cls.xml index 63278d2..f678506 100644 --- a/Form/File.cls.xml +++ b/Form/File.cls.xml @@ -1,7 +1,8 @@ - + %Persistent +64415,69633 64090,76829.939948 diff --git a/Form/Generators.cls.xml b/Form/Generators.cls.xml index d13da45..54efb9b 100644 --- a/Form/Generators.cls.xml +++ b/Form/Generators.cls.xml @@ -1,17 +1,18 @@ - + Various generators called on form compilation which does not actually generate any code Generators that actually generate the code should be placed into Form.Adaptor class 1 +64415,70021.635618 64110,50058.313465 End form callback method 1 - + %Status diff --git a/Form/Info.cls.xml b/Form/Info.cls.xml index 119a2d6..788ef72 100644 --- a/Form/Info.cls.xml +++ b/Form/Info.cls.xml @@ -1,8 +1,9 @@ - + 1 Form +64415,70317.777266 64090,75344.051371 @@ -10,7 +11,7 @@ Get all forms list w ##class(Form.Info).getFormsList().$toJSONFormat() 1 -%Array +%DynamicArray CONTINUE:'..formExists(className) set formName = $parameter(className, $$$formNameParam) set formObj = {"name": (formName), "class": (className)} - do forms.$push(formObj) + do forms.%Push(formObj) } quit forms @@ -37,12 +38,12 @@ w ##class(Form.Info).getFormsList().$toJSONFormat() Get all forms metadata w ##class(Form.Info).getFormsMetadata().$toJSONFormat() 1 -%Object +%DynamicObject w ##class(Form.Info).getFormMetadata("Form.Test.Simple").$toJSONFormat()]]> 1 className:%String="" -%Object +%DynamicObject - + Преобразует объект класса Cache в JSON. Изменения ищутся по слову FORMS %ZEN.Auxiliary.jsonProvider +64415,69633 64099,77101.820492 diff --git a/Form/JSON/SQL.cls.xml b/Form/JSON/SQL.cls.xml index a0052e3..57d2653 100644 --- a/Form/JSON/SQL.cls.xml +++ b/Form/JSON/SQL.cls.xml @@ -1,8 +1,9 @@ - + Form %ZEN.Auxiliary.altJSONSQLProvider +64415,70816.9136 64091,68899.667254 @@ -282,13 +283,13 @@ Draw JSON output. } Set ..sql = tOrigSQL - Set aet = ##class(%Object).$fromJSON("{"""_..arrayName_""":[]}") + Set aet = ##class(%Object).%FromJSON("{"""_..arrayName_""":[]}") // FORMS - debug Set:$$$debug aet.sql = tOrigSQL // END - FORMS - debug - Set arrayNode = aet.$get(..arrayName) + Set arrayNode = aet.%Get(..arrayName) // FORMS - pagination Set tStartRow = ..pageSize * (..currPage - 1) @@ -310,7 +311,7 @@ Draw JSON output. For c = 1:1:tCols { Set tVal = tRS.%GetData(c) Set tOutVal = ##class(Form.Util.Converter).logicalToJSON($Get(tColInfo(c,"type")), tVal) - Do node.$set($Get(tColInfo(c,"name")), tOutVal) + Do node.%Set($Get(tColInfo(c,"name")), tOutVal) /*If ($IsValidNum(tVal)) { Do node.$set($Get(tColInfo(c,"name")),$Num(tVal),"number") @@ -319,7 +320,7 @@ Draw JSON output. Do node.$set($Get(tColInfo(c,"name")),tVal) }*/ } - Do arrayNode.$push(node) + Do arrayNode.%Push(node) } // FORMS - results count @@ -327,7 +328,7 @@ Draw JSON output. Set aet.total=tRS.%ROWCOUNT // END - FORMS - results count - Write aet.$toJSON() + Write aet.%ToJSON() } Catch(ex) { Write "null" diff --git a/Form/Property.cls.xml b/Form/Property.cls.xml index a8ffaf5..d124dd4 100644 --- a/Form/Property.cls.xml +++ b/Form/Property.cls.xml @@ -1,10 +1,11 @@ - + Methods for form field === class property 1 Form +64415,70687.774584 64090,75759.538379 @@ -13,7 +14,7 @@ Get metadata for one field of a form. Equal to propertyToMetadata method, but uses direct global references instead of object access 1 className:%String="",name="" -%Object +%DynamicObject - + Абстрактный класс, реализующий техническую обработку входящего запроса. %occErrors,%ZEN.Utils,Form %CSP.REST +64415,69633 64090,76470.397537 diff --git a/Form/REST/Field.cls.xml b/Form/REST/Field.cls.xml index c917e51..5394840 100644 --- a/Form/REST/Field.cls.xml +++ b/Form/REST/Field.cls.xml @@ -1,9 +1,10 @@ - + Брокер работы с полями форм Form.REST.Abstract +64415,69633 64090,79242.449407 diff --git a/Form/REST/File.cls.xml b/Form/REST/File.cls.xml index f490f8f..d52cf96 100644 --- a/Form/REST/File.cls.xml +++ b/Form/REST/File.cls.xml @@ -1,10 +1,11 @@ - + This broker does file-related work. All file properies are assumed to be of Form.File class Form.REST.Abstract +64415,69633 64091,74902.525566 diff --git a/Form/REST/Form.cls.xml b/Form/REST/Form.cls.xml index d8ec10c..6906de0 100644 --- a/Form/REST/Form.cls.xml +++ b/Form/REST/Form.cls.xml @@ -1,9 +1,10 @@ - + Класс работы с формами и их содержимым Form.REST.Abstract +64415,70738.823095 64090,79002.958751 @@ -29,7 +30,7 @@ Get available forms list as a JSON array %Status @@ -41,7 +42,7 @@ Get available forms metadata as JSON object %Status @@ -54,7 +55,7 @@ Get form metainformation by name %Status diff --git a/Form/REST/Main.cls.xml b/Form/REST/Main.cls.xml index 0a176b8..6eaac08 100644 --- a/Form/REST/Main.cls.xml +++ b/Form/REST/Main.cls.xml @@ -1,7 +1,8 @@ - + Form.REST.Abstract +64415,70755.832506 64090,76630.913942 @@ -47,7 +48,7 @@ diff --git a/Form/REST/Object.cls.xml b/Form/REST/Object.cls.xml index eb4d31b..2c6d23e 100644 --- a/Form/REST/Object.cls.xml +++ b/Form/REST/Object.cls.xml @@ -1,9 +1,10 @@ - + Брокер работы с индивидуальными объектами Form.REST.Abstract +64415,69633 64090,79332.572705 diff --git a/Form/REST/Objects.cls.xml b/Form/REST/Objects.cls.xml index 886be8e..81d524a 100644 --- a/Form/REST/Objects.cls.xml +++ b/Form/REST/Objects.cls.xml @@ -1,9 +1,10 @@ - + Broker class to work with queries Form.REST.Abstract +64415,69633 64090,79332.572705 diff --git a/Form/Security.cls.xml b/Form/Security.cls.xml index 56f90cd..7538b2a 100644 --- a/Form/Security.cls.xml +++ b/Form/Security.cls.xml @@ -1,7 +1,8 @@ - + 1 +64415,69633 64099,78607.760597 diff --git a/Form/Settings.cls.xml b/Form/Settings.cls.xml index fac283c..c7ed3d3 100644 --- a/Form/Settings.cls.xml +++ b/Form/Settings.cls.xml @@ -1,10 +1,11 @@ - + Get and set settings 1 Form +64415,69633 64110,52980.392815 diff --git a/Form/Test/Address.cls.xml b/Form/Test/Address.cls.xml index 75f5620..1bbfcc7 100644 --- a/Form/Test/Address.cls.xml +++ b/Form/Test/Address.cls.xml @@ -1,7 +1,8 @@ - + %SerialObject,%Populate +64415,69633 64101,39590.214377 diff --git a/Form/Test/Company.cls.xml b/Form/Test/Company.cls.xml index 8112fb1..352f70b 100644 --- a/Form/Test/Company.cls.xml +++ b/Form/Test/Company.cls.xml @@ -1,7 +1,8 @@ - + %Persistent,Form.Adaptor,%Populate +64415,69633 64101,39307.619051 diff --git a/Form/Test/Person.cls.xml b/Form/Test/Person.cls.xml index eb9fba6..dc82e29 100644 --- a/Form/Test/Person.cls.xml +++ b/Form/Test/Person.cls.xml @@ -1,9 +1,10 @@ - + Test form: Person %Persistent,Form.Adaptor,%Populate +64415,69633 64101,38189.100761 diff --git a/Form/Test/Simple.cls.xml b/Form/Test/Simple.cls.xml index a1dbf95..f065d4d 100644 --- a/Form/Test/Simple.cls.xml +++ b/Form/Test/Simple.cls.xml @@ -1,7 +1,8 @@ - + %Persistent,Form.Adaptor,%Populate +64415,69633 64090,75943.393938 diff --git a/Form/Util/Converter.cls.xml b/Form/Util/Converter.cls.xml index e4cb89a..507311c 100644 --- a/Form/Util/Converter.cls.xml +++ b/Form/Util/Converter.cls.xml @@ -1,9 +1,10 @@ - + Various datatype conversion utilities 1 +64415,70660.763024 64100,82956.192829 @@ -11,7 +12,7 @@ Various datatype conversion utilities Convert delimited string to dynamic array 1 string:%String,delimiter:%String="," -%Array +%DynamicArray Convert $list to dynamic array 1 list:%List -%Array +%DynamicArray diff --git a/Form/Util/Init.cls.xml b/Form/Util/Init.cls.xml index 4d29f9e..680aa14 100644 --- a/Form/Util/Init.cls.xml +++ b/Form/Util/Init.cls.xml @@ -1,8 +1,9 @@ - + 1 Form +64415,69633 64101,40238.796897 diff --git a/Form/Util/Translate.cls.xml b/Form/Util/Translate.cls.xml index 4e56cd5..2e8f7e1 100644 --- a/Form/Util/Translate.cls.xml +++ b/Form/Util/Translate.cls.xml @@ -1,9 +1,10 @@ - + Support for metadata translation Form +64415,70401.668478 64386,54065.171182 @@ -44,13 +45,13 @@ do ##class(Form.Util.Translate).Insert() 1 -%Array +%DynamicArray diff --git a/README.md b/README.md index 6de278b..9c691aa 100644 --- a/README.md +++ b/README.md @@ -1,5 +1,7 @@ # Forms -Forms adapter for InterSystems Cache. + +Forms adapter for InterSystems Cache. Supports Caché versions 2017+. +For 2016.* versions, please see [this tree](https://github.com/intersystems-ru/RESTForms/tree/8e3ef48fbb4f6ce1dc3c471ec43cfc6e65bb2c40). # Installation