[Eas-dev-commit] ocmng/components/tests CORE.xml, NONE, 1.1 testclass1.xml, NONE, 1.1 testclass2.xm

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/eas-dev/ocmng/components/tests
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv17182/components/tests

Added Files:
	CORE.xml testclass1.xml testclass2.xml testplugin.prg 
Log Message:
Add files

--- 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.

[Eas-dev-commit] ocmng/components/tests CORE.xml, NONE, 1.1 testclass1.xml, NONE, 1.1 testclass2.xm

[Eas-dev-commit] ocmng/components/tests CORE.xml, NONE, 1.1 testclass1.xml, NONE, 1.1 testclass2.xml, NONE, 1.1 testplugin.prg, NONE, 1.1