home *** CD-ROM | disk | FTP | other *** search
/ ftptest.leeds.ac.uk / 2015.02.ftptest.leeds.ac.uk.tar / ftptest.leeds.ac.uk / bionet / CAE-GROUP / SCL-WIN3x / SCLTEST.EXE / EXP / EXAMPLE.EXP < prev    next >
Text File  |  1994-12-13  |  1KB  |  76 lines
  1.  
  2.  
  3. SCHEMA example_schema;
  4.  
  5. TYPE label = STRING;
  6. END_TYPE;
  7.  
  8. TYPE color = ENUMERATION OF (red, green, blue, yellow, orange, white, black, brown);
  9. END_TYPE;
  10.  
  11. TYPE length_measure = REAL;
  12. END_TYPE;
  13.  
  14. TYPE point = REAL;
  15. END_TYPE;
  16.  
  17. ENTITY shape
  18. SUPERTYPE OF (ONEOF (circle, triangle, rectangle));
  19.  
  20.     item_name : label;
  21.     item_color : OPTIONAL color;
  22.     number_of_sides : INTEGER;
  23.  
  24. END_ENTITY;
  25.  
  26. ENTITY circle
  27. SUBTYPE OF (shape);
  28.  
  29.     radius : real;
  30.  
  31. END_ENTITY;
  32.  
  33. ENTITY triangle
  34. SUBTYPE OF (shape);
  35.  
  36.     side1_length, side2_length, side3_length : length_measure;
  37.  
  38. END_ENTITY;
  39.  
  40. ENTITY rectangle
  41. SUPERTYPE OF (square)
  42. SUBTYPE OF (shape);
  43.  
  44.     height : length_measure;
  45.     width : length_measure;
  46.  
  47. END_ENTITY;
  48.  
  49. ENTITY square
  50. SUBTYPE OF (rectangle);
  51.  
  52. END_ENTITY;
  53.  
  54. ENTITY cartesian_point;
  55.  
  56.     x : point;
  57.     y : point;
  58.     z : OPTIONAL point;
  59.  
  60. END_ENTITY;
  61.  
  62. ENTITY line;
  63.  
  64.     end_point_one : cartesian_point;
  65.     end_point_two : cartesian_point;
  66.  
  67. END_ENTITY;
  68.  
  69. ENTITY poly_line;
  70.  
  71.     points : LIST OF line;
  72.  
  73. END_ENTITY;
  74.  
  75. END_SCHEMA;
  76.