src/CDF/CDF_DirectoryIterator.cdl

   1 -- File:        CDF_DirectoryIterator.cdl
   2 -- Created:     Wed Aug 13 13:53:20 1997
   3 -- Author:      Jean-Louis Frenkel
   4 --              <rmi@frilox.paris1.matra-dtv.fr>
   5 ---Copyright:    Matra Datavision 1997
   6
   7 class DirectoryIterator from CDF
   8
   9 uses
  10     Directory from CDF,
  11     Document from CDM,
  12     ListIteratorOfListOfDocument from CDM
  13 raises
  14     NoSuchObject from Standard
  15
  16 is
  17
  18     Create
  19     returns DirectoryIterator from CDF;
  20     ---Purpose: creates an Iterator with the directory
  21     --          of the current CDF.
  22
  23     Create(aDirectory: Directory from CDF)
  24     returns  DirectoryIterator from CDF;
  25
  26     MoreDocument (me: in out) returns Boolean from Standard;
  27     ---Purpose : Returns True if there are more entries to return
  28
  29     NextDocument (me: in out);
  30     ---Purpose : Go to the next entry
  31     --           (if there is not, Value will raise an exception)
  32
  33     Document (me: in out) returns Document from CDM
  34     ---Purpose : Returns item value of current entry
  35     raises NoSuchObject  from Standard;
  36
  37 fields
  38
  39     myIterator: ListIteratorOfListOfDocument from CDM;
  40 end DirectoryIterator from CDF;