
  TYPE
    cst$boundary_processing = record
      case boundary_type: (csc$clip, csc$wrap) of
      = csc$clip =
        ,
      = csc$wrap =
        wrap_type: (csc$character_wrap, csc$word_wrap),
      casend,
    recend;

