229 |
|
int rpos = 0; |
230 |
|
/* find end of list */ |
231 |
|
while (mop[rpos].binop) |
232 |
< |
rpos++; |
232 |
> |
if (mop[rpos++].binop != '.') { |
233 |
> |
fputs( |
234 |
> |
"Right-to-left evaluation only for matrix multiplication!\n", |
235 |
> |
stderr); |
236 |
> |
return(NULL); |
237 |
> |
} |
238 |
|
mright = loadop(mop+rpos); |
239 |
|
while (rpos-- > 0) { |
240 |
|
if (mright == NULL) |
318 |
|
int i; |
319 |
|
/* get options and arguments */ |
320 |
|
for (i = 1; i < argc; i++) { |
316 |
– |
if (nmats >= nall) |
317 |
– |
mop = grow_moparray(mop, nall += 2); |
321 |
|
if (argv[i][0] && !argv[i][1] && |
322 |
|
strchr(".+*/", argv[i][0]) != NULL) { |
323 |
|
if (mop[nmats].inspec == NULL || mop[nmats].binop) { |
324 |
< |
fprintf(stderr, "%s: missing matrix argument\n", |
325 |
< |
argv[0]); |
324 |
> |
fprintf(stderr, |
325 |
> |
"%s: missing matrix argument for '%c' operation\n", |
326 |
> |
argv[0], argv[i][0]); |
327 |
|
return(1); |
328 |
|
} |
329 |
|
mop[nmats++].binop = argv[i][0]; |
345 |
|
int n = argc-1 - i; |
346 |
|
switch (argv[i][1]) { /* get option */ |
347 |
|
case 'v': |
348 |
< |
verbose = !verbose; |
348 |
> |
verbose++; |
349 |
|
break; |
350 |
|
case 'f': |
351 |
|
switch (argv[i][2]) { |
386 |
|
goto userr; |
387 |
|
} |
388 |
|
} |
389 |
+ |
if (nmats >= nall) |
390 |
+ |
mop = grow_moparray(mop, nall += 2); |
391 |
|
} |
392 |
|
if (mop[0].inspec == NULL) /* nothing to do? */ |
393 |
|
goto userr; |
394 |
|
/* favor quicker concatenation */ |
395 |
< |
mres = prefer_right2left(mop) ? op_right2left(mop) : op_left2right(mop); |
396 |
< |
if (!mres) |
395 |
> |
mop[nmats].mtx = prefer_right2left(mop) ? op_right2left(mop) |
396 |
> |
: op_left2right(mop); |
397 |
> |
if (mop[nmats].mtx == NULL) |
398 |
> |
return(1); |
399 |
> |
/* apply trailing unary operations */ |
400 |
> |
mop[nmats].inspec = "trailing_ops"; |
401 |
> |
mres = loadop(mop+nmats); |
402 |
> |
if (mres == NULL) |
403 |
|
return(1); |
404 |
|
/* write result to stdout */ |
405 |
|
if (outfmt == DTfromHeader) |