Type control

[salvomic]

(02-23-2015 07:18 PM)Han Wrote:  Just try this:

Code:

#cas
myexample(args):=
  local s;
  s:=SIZE(args);
  IF s==0 THEN RETURN("No args given"); END;
  RETURN(args(s));
END;
#end

...
This doesn't work for non-CAS programs because the Home environment doesn't parse comma-separated entries the same way. The non-CAS programs must either be programmed to take an explicit list of inputs or you must use a CAS program. That is, HOMEPROG(list) where list is an actual list would work for non-CAS programs. ...

Han,
in some CAS program of mine it works well...

now I've a non CAS program, and this code doesn't work:

Code:


EXPORT myprog(a);
BEGIN
local s;
s:= SIZE(a);
IF (s==0 OR TYPE(a)<>0) THEN RETURN("Input a real number"); END;
...

with myprog (not correct, I know) I get the error "Bad argument count" and with myprog() I get "Error: Bad argument value"

So, there isn't any way to control that input?

Thank you