{This common deck contains type declarations that are required to}
{interface to the system core command processor.


{Define parameter value types recognized by command processor.}

  TYPE
    syt$value_kinds = (syc$null_value, syc$integer_value, syc$boolean_value,
      syc$string_value, syc$name_value, syc$pointer_value);


{Command parameter descriptor.}

  TYPE
    syt$parameter_descriptor = record
      required: boolean,
      position: 0 .. 31,
      keyword: string (8),
      case parameter_kind: syt$value_kinds of
      = syc$integer_value =
        idefault,
        imin,
        imax: integer,
      = syc$name_value =
        namedef: ost$name,
      = syc$boolean_value =
        bdefault: boolean,
      = syc$pointer_value =
        ptr_default: ^cell,
      = syc$string_value =
        text_default : ost$string,
      casend,
    recend;


{Command parameter value descriptor.}

  TYPE
    syt$parameter_value = record
      defined: boolean,
      case parameter_kind: syt$value_kinds of
      = syc$integer_value =
        int: integer,
      = syc$string_value =
        text: ost$string,
      = syc$name_value =
        name: ost$name,
      = syc$boolean_value =
        bool: boolean,
      = syc$pointer_value =
        ptr: ^cell,
      casend,
    recend;


*copyc OST$NAME
*copyc OST$STRING
