SCM Repository
Annotation of /sml/trunk/src/smlnj-lib/Unix/unix-path-sig.sml
Parent Directory
| 
Revision Log
Revision 651 - (view) (download)
| 1 : | monnier | 2 | (* unix-path-sig.sml |
| 2 : | * | ||
| 3 : | * COPYRIGHT (c) 1993 by AT&T Bell Laboratories. See COPYRIGHT file for details. | ||
| 4 : | * | ||
| 5 : | * AUTHOR: John Reppy and Emden Gansner | ||
| 6 : | * AT&T Bell Laboratories | ||
| 7 : | * Murray Hill, NJ 07974 | ||
| 8 : | * jhr@research.att.com | ||
| 9 : | * erg@research.att.com | ||
| 10 : | *) | ||
| 11 : | |||
| 12 : | signature UNIX_PATH = | ||
| 13 : | sig | ||
| 14 : | |||
| 15 : | type path_list | ||
| 16 : | |||
| 17 : | val getPath : unit -> path_list | ||
| 18 : | (* get the user's PATH environment variable. *) | ||
| 19 : | |||
| 20 : | monnier | 8 | datatype access_mode = datatype OS.FileSys.access_mode |
| 21 : | monnier | 2 | datatype file_type = F_REGULAR | F_DIR | F_SYMLINK | F_SOCK | F_CHR | F_BLK |
| 22 : | (** what is the type in POSIX??? **) | ||
| 23 : | |||
| 24 : | exception NoSuchFile | ||
| 25 : | |||
| 26 : | val findFile : (path_list * access_mode list) -> string -> string | ||
| 27 : | val findFiles : (path_list * access_mode list) -> string -> string list | ||
| 28 : | |||
| 29 : | val findFileOfType : (path_list * file_type * access_mode list) -> string -> string | ||
| 30 : | val findFilesOfType : (path_list * file_type * access_mode list) -> string -> string list | ||
| 31 : | |||
| 32 : | end (* UNIX_PATH *) |
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
