Skip to content
GitLab
Select Git revision
  • master default
Find file BlameHistoryPermalink
  • Bonte Bruno's avatar
    Add features for using R to couple models · f050aa02
    Bonte Bruno authored 
    	* Cormas: A dedicated identifier function in Entity Class (in Add-ons)
	* Cormas: A change in setAttributeofClassvalue function (in Add-ons) to set or to get values of attribute of all instances of a class
	* Cormas: A spectial class to do this (DataTansfR in Add-ons)
	* R: functions to call theses cormas functions in cormas-func.R
    f050aa02
DataTransfR.st 4.08 KiB
1 
<?xml version="1.0"?>
2
3 
<st-source>
4 
<time-stamp>From VisualWorks® NonCommercial, 7.6 of lundi 3 mars 2008 on mardi 15 octobre 2019 at 6:46:00</time-stamp>
5
6
7 
<class>
8 
<name>DataTransfR</name>
9 
<environment>CormasNS.Kernel</environment>
10 
<super>Core.Object</super>
11 
<private>false</private>
12 
<indexed-type>none</indexed-type>
13 
<inst-vars>myCormas entityType attribute ids values </inst-vars>
14 
<class-inst-vars></class-inst-vars>
15 
<imports></imports>
16 
<category></category>
17 
<attributes>
18 
<package>Cormas</package>
19 
</attributes>
20 
</class>
21
22 
<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->
23
24
25 
<methods>
26 
<class-id>CormasNS.Kernel.DataTransfR class</class-id> <category>instance creation</category>
27
28 
<body package="Cormas" selector="new">new
29 
	"Answer a newly created and initialized instance."
30
31 
	^super new initialize</body>
32
33 
<body package="Cormas" selector="newData:cormas:">newData: classAttIdsValues cormas: aCormasInstance
34 
	"Answer a newly created and initialized instance."
35 
| newBe idsValues data|
36 
	newBe:= self new.
37 
	newBe myCormas: aCormasInstance.
38 
	data := classAttIdsValues asArrayOfSubstringsSeparatedBy: $;.
39 
	newBe entityType: data first.
40 
	newBe attribute: (data at: 2).
41 
	idsValues:= (data at: 3)  asArrayOfSubstringsSeparatedBy: $,.
42 
	idsValues size &gt; 0 ifTrue: [
43 
		newBe ids: (idsValues asOrderedCollection collect: [: string | string  asInteger]).
44 
		newBe values: (	( (data at: 4)  asArrayOfSubstringsSeparatedBy: $,) asOrderedCollection collect: [: string | string asNumber asFloat]).
45 
	].
46 
 ^newBe</body>
47 
</methods>
48
49 
<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->
50
51
52 
<methods>
53 
<class-id>CormasNS.Kernel.DataTransfR</class-id> <category>initialize-release</category>
54
55 
<body package="Cormas" selector="initialize">initialize
56 
	"Initialize a newly created instance. This method must answer the receiver."
57
58 
	" *** Replace this comment with the appropriate initialization code *** "
59 
	^self</body>
60 
</methods>
61
62 
<methods>
63 
<class-id>CormasNS.Kernel.DataTransfR</class-id> <category>accessing</category>
64
65 
<body package="Cormas" selector="attribute">attribute
66 
	^attribute</body>
67
68 
<body package="Cormas" selector="attribute:">attribute: anObject
69 
	attribute := anObject</body>
70
7172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137
<body package="Cormas" selector="entityType">entityType ^entityType</body> <body package="Cormas" selector="entityType:">entityType: anObject entityType := anObject</body> <body package="Cormas" selector="ids">ids ^ids</body> <body package="Cormas" selector="ids:">ids: anObject ids := anObject</body> <body package="Cormas" selector="myCormas">myCormas ^myCormas</body> <body package="Cormas" selector="myCormas:">myCormas: anObject myCormas := anObject</body> <body package="Cormas" selector="values">values ^values</body> <body package="Cormas" selector="values:">values: anObject values := anObject</body> </methods> <methods> <class-id>CormasNS.Kernel.DataTransfR</class-id> <category>transfer</category> <body package="Cormas" selector="getData">getData | sortedEntities | sortedEntities := (self myCormas cormasModel perform: ('the' , self entityType , 's') asSymbol) asOrderedCollection asSortedCollection: [:e1 :e2 | e1 idRTransfer &lt; e2 idRTransfer]. self ids: ''. self values: ''. sortedEntities do: [:entity | self ids: self ids, entity idRTransfer asString , ','. self values: self values, (entity perform: self attribute asSymbol) asString, ',']. ^self ids,';', self values</body> <body package="Cormas" selector="setData">setData | sortedEntities nb args | sortedEntities := (self myCormas cormasModel perform: ('the' , self entityType , 's') asSymbol) asOrderedCollection asSortedCollection: [:e1 :e2 | e1 idRTransfer &lt; e2 idRTransfer ]. nb := 1. sortedEntities do: [:entity | (entity idRTransfer = (self ids at: nb)) ifTrue: [ args := Array new: 1. args at: 1 put: (self values at: nb). entity perform: (self attribute , ':') asSymbol withArguments: args] ifFalse: [self halt]. nb := nb + 1]</body> </methods> </st-source>