From: Andrey C. <sku...@us...> - 2006-11-03 16:32:18
|
Update of /cvsroot/eas-dev/ocmng/tests In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv6950/tests Added Files: CORE.xml testclass1.xml testclass2.xml testplugin.prg Log Message: Move all components to top level. Remove ocmng and xml2xmo sources. Add components: - dbconsole - form_menu, form_action and form_localization for menu generation - update form component for generation menu --- NEW FILE: CORE.xml --- <?xml version="1.0" encoding="koi8-r" ?> <component> <name>ETC01-coretest</name> <category>test</category> <version>1.0</version> <license>GNU/GPL</license> <created>2006-04-24</created> <requires> <dependence type="component">../CORE/ETC01.xml</dependence> </requires> <dictionary> <id>ETC01</id> <name>settings data</name> <type>$CODBTYPE$</type> <path>$CODBROOT$</path> </dictionary> <meta dictionary="ETC01"> <depository name="aquarum" memoSize="32" /> <extent name="undef">üÔÏ ÐÒÏÓÔÒÁÎÓÔ×Ï ÔÏÌØËÏ ÄÌÑ ÎÅÉÚ×ÅÓÔÎÙÈ ÏÂßÅËÔÏ×.</extent> <extent name="connections">Connection statistic</extent> <extent name="component">Component data</extent> </meta> </component> --- NEW FILE: testclass1.xml --- <?xml version="1.0" encoding="koi8-r" ?> <component> <name>ETC01-testclass1</name> <category>test</category> <version>1.0</version> <license>GNU/GPL</license> <created>2006-04-13</created> <author>Uri</author> <property name="policy">ru.Ru</property> <requires> <dependence type="component">CORE.xml</dependence> </requires> <files> <file name="testplugin.prg" type="text/clip-source">ODB trigger for class testclass1</file> </files> <meta dictionary="ETC01"> <attribute name="testattr_c" type="string" lenType="ignore" len="2" dec="0" mask="" defValue="" notNull="false" notEmpty="false" /> <index name="testattr_c" expression="testattr_c"/> <class name="testclass1" logNeed="false" extent="component" superClass="" essence="" uniqueKey="testattr_c" attributes="testattr_c" indices="testattr_c" /> <plugin name="testplugin" class="testclass1" type="Source file" file="testplugin.prg" function="" /> </meta> <data> <objects depository="ETC0101" class="testclass1"> <object> <attr name="testattr_c">t1</attr> </object> <object> <attr name="testattr_c">t2</attr> </object> <object> <attr name="testattr_c">t3</attr> </object> </objects> </data> </component> --- NEW FILE: testclass2.xml --- <?xml version="1.0" encoding="koi8-r" ?> <component> <name>ETC01-testclass2</name> <category>test</category> <version>1.0</version> <license>GNU/GPL</license> <created>2006-05-05</created> <author>Uri</author> <property name="policy">ru.Ru</property> <requires> <dependence type="component">CORE.xml</dependence> <dependence type="component">testclass1.xml</dependence> </requires> <files> </files> <meta dictionary="ETC01"> <attribute name="testattr_c" type="string" lenType="ignore" len="2" dec="0" mask="" defValue="" notNull="false" notEmpty="false" /> <attribute name="testattr_l" type="logical" lenType="alltrim" len="1" dec="0" mask="" defValue="" notNull="false" notEmpty="false" /> <attribute name="testattr_d" type="date" lenType="ignore" len="3" dec="0" mask="" defValue="" notNull="false" notEmpty="false" /> <counter name="testcounter1" type="LAST" /> <attribute name="testattr_n" type="number" lenType="rtrim" len="5" dec="1" mask="" defValue="" counter="testcounter1" notNull="false" notEmpty="false" /> <attribute name="testattr_m" type="text" lenType="fill" len="6" dec="2" mask="" defValue="" notNull="false" notEmpty="false" /> <attribute name="testattr_x" type="any" lenType="ignore" len="7" dec="3" mask="" defValue="" notNull="false" notEmpty="false" /> <attribute name="testattr_r" type="ref" lenType="ignore" len="12" dec="0" mask="" defValue="" notNull="false" notEmpty="false" refTo="ETC01:testclass1" /> <attribute name="testattr_s" type="classref" lenType="ignore" len="12" dec="0" mask="" defValue="" notNull="false" notEmpty="false" /> <attribute name="testattr_a" type="array" lenType="ignore" len="8" dec="0" mask="" defValue="" notNull="false" notEmpty="false" /> <index name="testattr_c" expression="testattr_c"/> <index name="testattr_n" expression="testattr_n"/> <index name="testattr_d" expression="testattr_d"/> <class name="testclass2" logNeed="false" extent="component" superClass="testclass1" essence="testattr_c" uniqueKey="testattr_c" mainIdx="testattr_c" attributes="testattr_c,testattr_l,testattr_d,testattr_n,testattr_m,testattr_x,testattr_r,testattr_s,testattr_a" indices="testattr_c,testattr_n,testattr_d" findAttrs="testattr_c,testattr_d" tcolList="testattr_c,testattr_l,testattr_d" /> <tcolumn name="testattr_c" width="2" header="áÔÔÒ1" footer="" expression="testattr_c" /> <tcolumn name="testattr_l" width="1" header="áÔÔÒ2" footer="" expression="testattr_l" /> <tcolumn name="testattr_d" width="10" header="áÔÔÒ3" footer="" expression="testattr_d" /> <tview name="ôÅÓÔÏ×ÙÊ ËÌÁÓÓ2" class="testclass2" columns="testattr_c,testattr_l,testattr_d" /> </meta> <data> <objects depository="ETC0101" class="testclass2"> <object> <attr name="testattr_c">k1</attr> <attr name="testattr_l">false</attr> <attr name="testattr_d">20060504</attr> <attr name="testattr_n">0</attr> <attr name="testattr_m">memo string:1</attr> <attr name="testattr_x">any data:1</attr> <attr name="testattr_r" refTo="ETC0101:testclass1">t1</attr> <attr name="testattr_s">ETC01:testclass1</attr> <attr name="testattr_a"> <value type="number">1</value> <value type="date">20060504</value> <value type="string">string:1</value> <value type="ref" refTo="ETC0101:testclass1">t1</value> <value type="classref" meta="CLASS">ETC01:testclass1</value> <value type="array"> <value type="string">subarray1</value> <value type="number">1</value> <value type="date">20060504</value> </value> <value type="array"> <value type="string">subarray2</value> <value type="number">2</value> <value type="date">20060504</value> </value> </attr> </object> <object> <attr name="testattr_c">k2</attr> <attr name="testattr_l">true</attr> <attr name="testattr_d">20060503</attr> <attr name="testattr_n">1</attr> <attr name="testattr_m">memo string:2</attr> <attr name="testattr_x">any data:2</attr> <attr name="testattr_r" refTo="ETC0101:testclass1">t2</attr> <attr name="testattr_s">ETC01:testclass1</attr> <attr name="testattr_a"> <value type="number">2</value> <value type="date">20060503</value> <value type="string">string:2</value> <value type="ref" refTo="ETC0101:testclass1">t2</value> <value type="classref" meta="CLASS">ETC01:testclass1</value> <value type="array"> <value type="string">subarray1</value> <value type="number">1</value> <value type="date">20060503</value> </value> <value type="array"> <value type="string">subarray2</value> <value type="number">2</value> <value type="date">20060503</value> </value> </attr> </object> <object> <attr name="testattr_c">k3</attr> <attr name="testattr_l">false</attr> <attr name="testattr_d">20060502</attr> <attr name="testattr_n">1</attr> <attr name="testattr_m">memo string:3</attr> <attr name="testattr_x">any data:3</attr> <attr name="testattr_r" refTo="ETC0101:testclass1">t3</attr> <attr name="testattr_s">ETC01:testclass1</attr> <attr name="testattr_a"> <value type="number">3</value> <value type="date">20060502</value> <value type="string">string:3</value> <value type="ref" refTo="ETC0101:testclass1">t3</value> <value type="classref" meta="CLASS">ETC01:testclass1</value> <value type="array"> <value type="string">subarray1</value> <value type="number">1</value> <value type="date">20060502</value> </value> <value type="array"> <value type="string">subarray2</value> <value type="number">2</value> <value type="date">20060502</value> </value> </attr> </object> <object> <attr name="testattr_c">k4</attr> <attr name="testattr_l">true</attr> <attr name="testattr_d">20060501</attr> <attr name="testattr_n">2</attr> <attr name="testattr_m">memo string:4</attr> <attr name="testattr_x">any data:4</attr> <attr name="testattr_r" refTo="ETC0101:testclass1">t1</attr> <attr name="testattr_s">ETC01:testclass1</attr> <attr name="testattr_a"> <value type="number">4</value> <value type="date">20060501</value> <value type="string">string:4</value> <value type="ref" refTo="ETC0101:testclass1">t1</value> <value type="classref" meta="CLASS">ETC01:testclass1</value> <value type="array"> <value type="string">subarray1</value> <value type="number">1</value> <value type="date">20060501</value> </value> <value type="array"> <value type="string">subarray2</value> <value type="number">2</value> <value type="date">20060501</value> </value> </attr> </object> <object> <attr name="testattr_c">k5</attr> <attr name="testattr_l">false</attr> <attr name="testattr_d">20060430</attr> <attr name="testattr_n">3</attr> <attr name="testattr_m">memo string:5</attr> <attr name="testattr_x">any data:5</attr> <attr name="testattr_r" refTo="ETC0101:testclass1">t2</attr> <attr name="testattr_s">ETC01:testclass1</attr> <attr name="testattr_a"> <value type="number">5</value> <value type="date">20060430</value> <value type="string">string:5</value> <value type="ref" refTo="ETC0101:testclass1">t2</value> <value type="classref" meta="CLASS">ETC01:testclass1</value> <value type="array"> <value type="string">subarray1</value> <value type="number">1</value> <value type="date">20060430</value> </value> <value type="array"> <value type="string">subarray2</value> <value type="number">2</value> <value type="date">20060430</value> </value> </attr> </object> <object> <attr name="testattr_c">k6</attr> <attr name="testattr_l">true</attr> <attr name="testattr_d">20060429</attr> <attr name="testattr_n">4</attr> <attr name="testattr_m">memo string:6</attr> <attr name="testattr_x">any data:6</attr> <attr name="testattr_r" refTo="ETC0101:testclass1">t3</attr> <attr name="testattr_s">ETC01:testclass1</attr> <attr name="testattr_a"> <value type="number">6</value> <value type="date">20060429</value> <value type="string">string:6</value> <value type="ref" refTo="ETC0101:testclass1">t3</value> <value type="classref" meta="CLASS">ETC01:testclass1</value> <value type="array"> <value type="string">subarray1</value> <value type="number">1</value> <value type="date">20060429</value> </value> <value type="array"> <value type="string">subarray2</value> <value type="number">2</value> <value type="date">20060429</value> </value> </attr> </object> </objects> </data> </component> --- NEW FILE: testplugin.prg --- /* Copyright (C) 2006 ITK Author : Uri (ur...@it...) License : (GPL) http://www.itk.ru/clipper/license.html */ #define R2D2_AN_VALUES 5 static members := {; {"BEFORE_UPDATE_OBJECT", {|p1,p2,p3,p4,p5| before_update(p1,p2,p3,p4,p5)} },; {"BEFORE_APPEND_OBJECT", {|p1,p2,p3,p4,p5| before_append(p1,p2,p3,p4,p5)} }; } local i,ret := NIL, nmember parameters query_key query_key := alltrim(upper(query_key)) if query_key=="MEMBERS" ret:={} for i=1 to len(members) aadd(ret,members[i][1]) next endif nmember := ascan(members,{|x|x[1]==query_key}) if nmember !=0 ret := members[nMember][2] endif if ret == NIL ret:= "Error query key in sample plugins." endif return ret **************************************** static function before_append(oDep,newData,oldData,p4,p5) return .t. **************************************** static function before_update(oDep,newData,oldData,p4,p5) return .t. |