CONVERT and variables for arguments

[epp]

Ahh, I only intended to have numeric input. My fault for not mentioning this. Well, with this in mind things got a bit simpler. The reason my original code didn't work was because I was concatenating to create the 1_ object rather than simply specifying the object directly in the list. This created a string containing the of the name of the object and that wouldn't work unless it was evaluated via expr or cas.

In summary, CONVERT does accept variables for arguments but those variables must contain an appropriate object. I wish to thank both Han and Eried for their patience and assistance.

Code:


EXPORT CDFrom,CDTo;
EXPORT Distance()
BEGIN
  LOCAL x,menu,unit;
  INPUT({{ x,[0],{45,20,3} }},"","Convert ");
  IF x == 0 THEN RETURN; END;
  unit := { 1_mm, 1_cm, 1_m, 1_km, 1_inch, 1_ft, 1_yd, 1_mile };
  menu := { "mm","cm","m","km","inches","feet","yards","miles" };
  CHOOSE(CDFrom, "Units", menu);
  CHOOSE(CDTo, "To", menu);
  x*CONVERT(unit[CDFrom],unit[CDTo]);
END;