home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH12EX14.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  413 b   |  24 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4. constants
  5. fa_subdir = $10
  6.  
  7. predicates
  8. existdir(string)
  9. exd1(string)
  10. exd2(string,string)
  11.  
  12. clauses
  13. existdir(Wild):-
  14.     diropen(Wild,fa_subdir,Block),
  15.     exd1(Block),
  16.      dirclose(Block).
  17.  
  18. exd1(Block):-
  19.     dirmatch(Block,Name,_,_,_,_,_,_,_,_),
  20.     exd2(Block,Name).
  21.  
  22. exd2(_,Name):- not(frontchar(Name,'.',_)), !.
  23. exd2(Block,_):- exd1(Block).
  24.