160 |
case aet_lf: |
case aet_lf: |
161 |
return make_longfloat(x->lfa.lfa_self[i]); |
return make_longfloat(x->lfa.lfa_self[i]); |
162 |
case aet_char: |
case aet_char: |
163 |
return make_fixnum(x->st.st_self[i]); |
return small_fixnum(x->st.st_self[i]); |
164 |
case aet_uchar: |
case aet_uchar: |
165 |
return make_fixnum(x->ust.ust_self[i]); |
return small_fixnum(x->ust.ust_self[i]); |
166 |
case aet_short: |
case aet_short: |
167 |
return make_fixnum(SHORT(x, i)); |
return make_fixnum(SHORT(x, i)); |
168 |
case aet_ushort: |
case aet_ushort: |
169 |
return make_fixnum(USHORT(x, i)); |
return small_fixnum(USHORT(x, i)); |
170 |
|
|
171 |
default: |
default: |
172 |
FEerror("unknown array type",0); |
FEerror("unknown array type",0); |
183 |
|
|
184 |
object |
object |
185 |
aset1(object x,int i,object val) { |
aset1(object x,int i,object val) { |
186 |
return fSaset1(x,make_fixnum(i),val); |
return fSaset1(x,i,val); |
187 |
} |
} |
188 |
|
|
189 |
DEFUN_NEW("ASET1", object, fSaset1, SI, 3, 3, NONE, OO, OO, OO,OO,(object x, object ii,object val),"") |
DEFUN_NEW("ASET1", object, fSaset1, SI, 3, 3, NONE, OO, IO, OO,OO,(object x, int i,object val),"") |
190 |
{ |
{ |
|
int i; |
|
|
i=fix(ii); |
|
191 |
switch (type_of(x)) { |
switch (type_of(x)) { |
192 |
case t_array: |
case t_array: |
193 |
case t_vector: |
case t_vector: |
257 |
} |
} |
258 |
|
|
259 |
DEFUNO_NEW("ASET", object, fSaset, SI, 1, ARG_LIMIT, NONE, OO, |
DEFUNO_NEW("ASET", object, fSaset, SI, 1, ARG_LIMIT, NONE, OO, |
260 |
OO, OO, OO,void,siLaset,(object x,object ii,object y, ...),"") |
IO, OO, OO,void,siLaset,(object x,int i,object y, ...),"") |
261 |
{ int i1; |
{ int i1; |
262 |
int n = VFUN_NARGS; |
int n = VFUN_NARGS; |
|
int i; |
|
263 |
va_list ap; |
va_list ap; |
264 |
if (type_of(x) == t_array) |
if (type_of(x) == t_array) |
265 |
{int m ; |
{int m ; |
267 |
int rank = n - 2; |
int rank = n - 2; |
268 |
if (x->a.a_rank != rank) |
if (x->a.a_rank != rank) |
269 |
FEerror(" ~a has wrong rank",1,x); |
FEerror(" ~a has wrong rank",1,x); |
270 |
if (rank == 0) return fSaset1(x,make_fixnum(0),ii); |
if (rank == 0) return fSaset1(x,0,make_fixnum(i)); |
271 |
ASSURE_TYPE(ii,t_fixnum); |
/* ASSURE_TYPE(ii,t_fixnum); */ |
272 |
i = fix(ii); |
/* i = fix(ii); */ |
273 |
if (rank == 1) |
if (rank == 1) |
274 |
return fSaset1(x,ii,y); |
return fSaset1(x,i,y); |
275 |
va_start(ap,y); |
va_start(ap,y); |
276 |
m = 0; |
m = 0; |
277 |
k = i; |
k = i; |
301 |
break ;} |
break ;} |
302 |
} |
} |
303 |
va_end(ap); |
va_end(ap); |
304 |
return fSaset1(x,make_fixnum(i1),y); |
return fSaset1(x,i1,y); |
305 |
} |
} |
306 |
else |
else |
307 |
{ |
{ |
308 |
ASSURE_TYPE(ii,t_fixnum); |
/* ASSURE_TYPE(ii,t_fixnum); */ |
309 |
return fSaset1(x,ii,y); |
return fSaset1(x,i,y); |
310 |
} |
} |
311 |
|
|
312 |
} |
} |
817 |
{if (typ2!=aet_bit) |
{if (typ2!=aet_bit) |
818 |
goto badcopy; |
goto badcopy; |
819 |
{while(rest> 0) |
{while(rest> 0) |
820 |
{ fSaset1(y,make_fixnum(i2+n1-rest),(fLrow_major_aref(x,i1+n1-rest))); |
{ fSaset1(y,i2+n1-rest,(fLrow_major_aref(x,i1+n1-rest))); |
821 |
rest--;} |
rest--;} |
822 |
}} |
}} |
823 |
i1=i1/CHAR_SIZE ; |
i1=i1/CHAR_SIZE ; |
1088 |
} |
} |
1089 |
|
|
1090 |
|
|
1091 |
|
|
1092 |
|
|
1093 |
DEFUN_NEW("ASET-BY-CURSOR",object,fSaset_by_cursor,SI,3,3, |
DEFUN_NEW("ASET-BY-CURSOR",object,fSaset_by_cursor,SI,3,3, |
1094 |
NONE,OO,OO,OO,OO,(object array,object val,object cursor),"") |
NONE,OO,OO,OO,OO,(object array,object val,object cursor),"") |
1095 |
{ |
{ |
1098 |
object ind[ARRAY_RANK_LIMIT]; |
object ind[ARRAY_RANK_LIMIT]; |
1099 |
/* 3 args */ |
/* 3 args */ |
1100 |
ind[0]=array; |
ind[0]=array; |
1101 |
if (cursor==sLnil) {fSaset1(array,make_fixnum(0),val); RETURN1(array);} |
if (cursor==sLnil) {fSaset1(array,0,val); RETURN1(array);} |
1102 |
ind[1]=MMcar(cursor); |
ind[1]=MMcar(cursor); |
1103 |
|
ASSURE_TYPE(ind[1],t_fixnum); |
1104 |
i = 2; |
i = 2; |
1105 |
for (x = MMcdr(cursor); !endp(x); x = MMcdr(x)) |
for (x = MMcdr(cursor); !endp(x); x = MMcdr(x)) |
1106 |
{ ind[i++] = MMcar(x);} |
{ ind[i++] = MMcar(x);} |
1107 |
ind[i]=val; |
ind[i]=val; |
1108 |
VFUN_NARGS=i+1; |
VFUN_NARGS=i+1; |
1109 |
c_apply_n((object (*)())fSaset,i+1,ind); |
|
1110 |
|
/* FIXME do this with C macros */ |
1111 |
|
switch(i+1){ |
1112 |
|
case 3: (*fSaset)(ind[0],fix(ind[1]),ind[2]);break; |
1113 |
|
case 4: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3]);break; |
1114 |
|
case 5: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4]);break; |
1115 |
|
case 6: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5]);break; |
1116 |
|
case 7: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6]);break; |
1117 |
|
case 8: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7]);break; |
1118 |
|
case 9: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1119 |
|
ind[8]);break; |
1120 |
|
case 10: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1121 |
|
ind[8],ind[9]);break; |
1122 |
|
case 11: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1123 |
|
ind[8],ind[9],ind[10]);break; |
1124 |
|
case 12: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1125 |
|
ind[8],ind[9],ind[10],ind[11]);break; |
1126 |
|
case 13: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1127 |
|
ind[8],ind[9],ind[10],ind[11],ind[12]);break; |
1128 |
|
case 14: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1129 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13]);break; |
1130 |
|
case 15: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1131 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14]);break; |
1132 |
|
case 16: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1133 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1134 |
|
ind[15]);break; |
1135 |
|
case 17: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1136 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1137 |
|
ind[15],ind[16]);break; |
1138 |
|
case 18: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1139 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1140 |
|
ind[15],ind[16],ind[17]);break; |
1141 |
|
case 19: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1142 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1143 |
|
ind[15],ind[16],ind[17],ind[18]);break; |
1144 |
|
case 20: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1145 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1146 |
|
ind[15],ind[16],ind[17],ind[18],ind[19]);break; |
1147 |
|
case 21: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1148 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1149 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20]);break; |
1150 |
|
case 22: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1151 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1152 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21]);break; |
1153 |
|
case 23: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1154 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1155 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1156 |
|
ind[22]);break; |
1157 |
|
case 24: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1158 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1159 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1160 |
|
ind[22],ind[23]);break; |
1161 |
|
case 25: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1162 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1163 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1164 |
|
ind[22],ind[23],ind[24]);break; |
1165 |
|
case 26: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1166 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1167 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1168 |
|
ind[22],ind[23],ind[24],ind[25]);break; |
1169 |
|
case 27: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1170 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1171 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1172 |
|
ind[22],ind[23],ind[24],ind[25],ind[26]);break; |
1173 |
|
case 28: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1174 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1175 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1176 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27]);break; |
1177 |
|
case 29: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1178 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1179 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1180 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28]);break; |
1181 |
|
case 30: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1182 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1183 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1184 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1185 |
|
ind[29]);break; |
1186 |
|
case 31: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1187 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1188 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1189 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1190 |
|
ind[29],ind[30]);break; |
1191 |
|
case 32: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1192 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1193 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1194 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1195 |
|
ind[29],ind[30],ind[31]);break; |
1196 |
|
case 33: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1197 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1198 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1199 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1200 |
|
ind[29],ind[30],ind[31],ind[32]);break; |
1201 |
|
case 34: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1202 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1203 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1204 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1205 |
|
ind[29],ind[30],ind[31],ind[32],ind[33]);break; |
1206 |
|
case 35: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1207 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1208 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1209 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1210 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34]);break; |
1211 |
|
case 36: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1212 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1213 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1214 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1215 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35]);break; |
1216 |
|
case 37: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1217 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1218 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1219 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1220 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1221 |
|
ind[36]);break; |
1222 |
|
case 38: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1223 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1224 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1225 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1226 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1227 |
|
ind[36],ind[37]);break; |
1228 |
|
case 39: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1229 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1230 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1231 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1232 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1233 |
|
ind[36],ind[37],ind[38]);break; |
1234 |
|
case 40: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1235 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1236 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1237 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1238 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1239 |
|
ind[36],ind[37],ind[38],ind[39]);break; |
1240 |
|
case 41: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1241 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1242 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1243 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1244 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1245 |
|
ind[36],ind[37],ind[38],ind[39],ind[40]);break; |
1246 |
|
case 42: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1247 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1248 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1249 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1250 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1251 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41]);break; |
1252 |
|
case 43: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1253 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1254 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1255 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1256 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1257 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42]);break; |
1258 |
|
case 44: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1259 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1260 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1261 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1262 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1263 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1264 |
|
ind[43]);break; |
1265 |
|
case 45: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1266 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1267 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1268 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1269 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1270 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1271 |
|
ind[43],ind[44]);break; |
1272 |
|
case 46: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1273 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1274 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1275 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1276 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1277 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1278 |
|
ind[43],ind[44],ind[45]);break; |
1279 |
|
case 47: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1280 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1281 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1282 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1283 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1284 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1285 |
|
ind[43],ind[44],ind[45],ind[46]);break; |
1286 |
|
case 48: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1287 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1288 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1289 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1290 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1291 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1292 |
|
ind[43],ind[44],ind[45],ind[46],ind[47]);break; |
1293 |
|
case 49: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1294 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1295 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1296 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1297 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1298 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1299 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48]);break; |
1300 |
|
case 50: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1301 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1302 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1303 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1304 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1305 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1306 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49]);break; |
1307 |
|
case 51: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1308 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1309 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1310 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1311 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1312 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1313 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1314 |
|
ind[50]);break; |
1315 |
|
case 52: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1316 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1317 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1318 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1319 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1320 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1321 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1322 |
|
ind[50],ind[51]);break; |
1323 |
|
case 53: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1324 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1325 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1326 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1327 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1328 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1329 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1330 |
|
ind[50],ind[51],ind[52]);break; |
1331 |
|
case 54: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1332 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1333 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1334 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1335 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1336 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1337 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1338 |
|
ind[50],ind[51],ind[52],ind[53]);break; |
1339 |
|
case 55: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1340 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1341 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1342 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1343 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1344 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1345 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1346 |
|
ind[50],ind[51],ind[52],ind[53],ind[54]);break; |
1347 |
|
case 56: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1348 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1349 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1350 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1351 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1352 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1353 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1354 |
|
ind[50],ind[51],ind[52],ind[53],ind[54],ind[55]);break; |
1355 |
|
case 57: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1356 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1357 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1358 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1359 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1360 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1361 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1362 |
|
ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56]);break; |
1363 |
|
case 58: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1364 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1365 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1366 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1367 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1368 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1369 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1370 |
|
ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56], |
1371 |
|
ind[57]);break; |
1372 |
|
case 59: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1373 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1374 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1375 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1376 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1377 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1378 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1379 |
|
ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56], |
1380 |
|
ind[57],ind[58]);break; |
1381 |
|
case 60: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1382 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1383 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1384 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1385 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1386 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1387 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1388 |
|
ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56], |
1389 |
|
ind[57],ind[58],ind[59]);break; |
1390 |
|
case 61: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1391 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1392 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1393 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1394 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1395 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1396 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1397 |
|
ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56], |
1398 |
|
ind[57],ind[58],ind[59],ind[60]);break; |
1399 |
|
case 62: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1400 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1401 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1402 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1403 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1404 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1405 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1406 |
|
ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56], |
1407 |
|
ind[57],ind[58],ind[59],ind[60],ind[61]);break; |
1408 |
|
case 63: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1409 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1410 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1411 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1412 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1413 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1414 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1415 |
|
ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56], |
1416 |
|
ind[57],ind[58],ind[59],ind[60],ind[61],ind[62]);break; |
1417 |
|
case 64: (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7], |
1418 |
|
ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14], |
1419 |
|
ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21], |
1420 |
|
ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28], |
1421 |
|
ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35], |
1422 |
|
ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42], |
1423 |
|
ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49], |
1424 |
|
ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56], |
1425 |
|
ind[57],ind[58],ind[59],ind[60],ind[61],ind[62],ind[63]);break; |
1426 |
|
default: FEerror("Exceeded call-arguments-limit ",0); |
1427 |
|
} |
1428 |
|
|
1429 |
RETURN1(array); |
RETURN1(array); |
1430 |
} |
} |
1431 |
|
|