src/Intrv/Intrv.cdl

   1 -- File:        Intrv.cdl
   2 -- Created:     Fri Dec 13 14:13:31 1991
   3 -- Author:      Christophe MARION
   4 --              <cma@sdsun1>
   5 ---Copyright:    Matra Datavision 1991
   6
   7 package Intrv
   8
   9         ---Purpose:
  10 uses
  11     Standard,
  12     TCollection
  13
  14 is
  15                                  --                  other
  16     enumeration Position is      --      me     **------------***
  17         Before,                  --    **---*
  18         JustBefore,              --    **--------*
  19         OverlappingAtStart,      --    **--------------*
  20         JustEnclosingAtEnd,      --    **----------------------*
  21         Enclosing,               --    **------------------------------*
  22         JustOverlappingAtStart,  --              *---------*
  23         Similar,                 --              *-------------*
  24         JustEnclosingAtStart,    --              *---------------------*
  25         Inside,                  --                    *---*
  26         JustOverlappingAtEnd,    --                    *-------*
  27         OverlappingAtEnd,        --                    *---------------*
  28         JustAfter,               --                            *-------*
  29         After                    --                                 *--*
  30     end Position;
  31
  32     class Interval;
  33     class Intervals;
  34     class SequenceOfInterval instantiates Sequence from TCollection(Interval);
  35
  36 end Intrv;