SCHEMA Maths_value_arm;

  
USE FROM Engineering_analysis_basics_arm -- Engineering_analysis_basics
  (Class);

  
TYPE Maths_atom = SELECT (
  Maths_boolean,
  Maths_complex,
  Maths_integer,
  Maths_real);
END_TYPE;

  
TYPE Maths_boolean = BOOLEAN;
END_TYPE;

  
TYPE Maths_complex = LIST [2,2] OF REAL;
END_TYPE;

  
TYPE Maths_integer = INTEGER;
END_TYPE;

  
TYPE Maths_real = REAL;
END_TYPE;

  
TYPE Maths_tuple = LIST [2,?] OF Maths_value;
END_TYPE;

  
TYPE Maths_value = SELECT (
  Maths_atom,
  Maths_function,
  Maths_space,
  Maths_tuple);
END_TYPE;

  
END_SCHEMA;

Page last updated - 7 Sep 2000