1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
function TreeBase = AddBranch(TreeBase, Branch, CINFO )
// To understand how this software works the steps are:
//
// 1. check if "fn" is stored in the USER2CLib;
// a. if "fn" there is, we have to check if "fn.S" there is
// i. if "fn.S" there is, we have to check if "fn.S.R" there is
// ii. if "fn.S" there isn't, we can store the Branch
// ...
// and in the same way for the other case.
//
// b. if "fn" there isn't, we can store all the Branch
getf("SearchFunctionName.sci");
//
// I have to search the point where to insert the (sub) branch
//
//
// suppose I have to insert the function structure fn.S.R.D.CINFO
// the first operation is to cut the function structure in sub-structure
//
ind = strindex( Branch, '.' );
//
// SubBranch is an array which element, for the example are:
// SubBranch(1) = fn.
// SubBranch(2) = S.
// SubBranch(3) = R.
// SubBranch(4) = D.
// SubBranch(5) = CINFO
//
// PAY ATTENTION!!! you have S. and not S
//
SubBranch = strsplit( Branch, ind );
//
// I have to know the number of the element (I can have fn.S.R.D.S.R.D.CINFO)
//
[NumSub, Temp] = size( SubBranch );
clear Temp;
//
// I extract the first element of the SubStranch array. I know this element is the
// name of the function (in the example is fn)
//
TempStructure = part(SubBranch(1), [1 : length(SubBranch(1))-1]);
//
// I search the function
//
[TempProt, FlagFind] = SearchFunctionName( TempStructure, TreeBase(1)(1) );
index1 = 2;
if FlagFind then
//
// if I found the function name I have to explorer the structure until I find the sub branch to add to the TREE
//
GoOut = %F;
while ( (GoOut == %F) & (index1 <= (NumSub-1) ) );
//
// index1 point to the position in the sub structure that I have to check if is present in the TREE
// (if I have fn.S.C.... in my tree, I have to point to fn.S because I'll add a new branch for the R leaf)
// I use Temp because I have to remember the previous position
//
Temp = TempStructure + "." + part(SubBranch(index1), [1 : length(SubBranch(index1))-1]);
[TempProt, FlagFind] = SearchFunctionName( Temp, TreeBase(1)(1) );
if FlagFind then
//
// so, If Temp is present in the tree I upload the new position
//
index1 = index1 + 1;
TempStructure = Temp;
else
//
// else, I have found the position where to add the sub branch
GoOut = %T;
end
end
else
//
// If I don't found the function name I have to add it in the TREE
//
TreeBase(1)(1,$+1) = TempStructure;
TreeBase($+1) = "ERROR";
end
//
// index1 is the position of the first sub branch that I have add in the TREE
//
for index = index1 : NumSub-1,
//
// I extract the Leaf in the index position
//
TempLeaf = part( SubBranch(index), [1 : length( SubBranch(index) ) - 1] );
//
// I have to verify if I point to a tree or to a leaf
//
dimension = eval("size(TreeBase." + TempStructure + ")");
if dimension(1) == 1 then
//
// If I point to a leaf, I construct a temporany tree before to append the leaf
//
TempTreeBase = tlist( ["TempTreeBase", TempLeaf], "ERROR" );
TempCommand = "TreeBase." + TempStructure + " = TempTreeBase";
execstr( TempCommand );
else
//
// else (is the case that I have in my structure fn.S.R.D.S.R.D.CINFO and I want to memorize fn.S.R.D.CINFO)
// I add another branch
//
TempCommand = "TreeBase." + TempStructure + "(1)(1,$+1) = TempLeaf";
execstr( TempCommand );
TempCommand = "TreeBase." + TempStructure + "($+1) = ''ERROR''";
execstr( TempCommand );
end
TempStructure = TempStructure + "." + TempLeaf;
end
TempLeaf = part( SubBranch(NumSub), 1 : length( SubBranch(NumSub) ) );
if eval("TreeBase." + TempStructure + "(1)") == "ERROR" then
//
// When I close the loop for I have to append the leaf CINFO,
// but it is necessary to verify if we are at the end of the tree
//
TempTree = tlist( ["TempTree", "CINFO"], CINFO );
command = "TreeBase." + TempStructure + " = TempTree";
execstr( command );
else
// se non trovo ERROR non è detto che possa trovare CINFO, quindi devo perfezzionare la ricera
// if it isn't the end of the tree it is necessary to verify if I have CINFO
//
Temp = TempStructure + ".CINFO";
[TempProt, FlagFind] = SearchFunctionName( Temp, TreeBase(1)(1) );
if FlagFind
//
// if there is CINFO, I add this information
//
TempCommand = "TreeBase." + TempStructure + ".CINFO($+1) = CINFO";
execstr( TempCommand );
else
//
// else I append to the last CINFO the new one
//
TempCommand = "TreeBase." + TempStructure + "(1)(1,$+1) = ''CINFO''";
execstr( TempCommand );
TempCommand = "TreeBase." + TempStructure + "($+1) = CINFO";
execstr( TempCommand );
end
end
endfunction
|
