45 |
val unpickle : PathConfig.mode -> string list * t -> t option |
val unpickle : PathConfig.mode -> string list * t -> t option |
46 |
|
|
47 |
val tstamp : t -> TStamp.t |
val tstamp : t -> TStamp.t |
|
|
|
|
val openTextIn : t -> TextIO.instream |
|
48 |
end |
end |
49 |
|
|
50 |
structure SrcPath :> SRCPATH = struct |
structure SrcPath :> SRCPATH = struct |
91 |
fun sameDirContext (ap, _) = AbsPath.sameDirContext ap |
fun sameDirContext (ap, _) = AbsPath.sameDirContext ap |
92 |
val cwdContext = AbsPath.cwdContext |
val cwdContext = AbsPath.cwdContext |
93 |
|
|
|
fun openTextIn (ap, _) = AbsPath.openTextIn ap |
|
|
|
|
94 |
fun pickle warn ((ap, _), (cap, _)) = AbsPath.pickle warn (ap, cap) |
fun pickle warn ((ap, _), (cap, _)) = AbsPath.pickle warn (ap, cap) |
95 |
fun unpickle m (l, (cap, _)) = |
fun unpickle m (l, (cap, _)) = |
96 |
Option.map intern (AbsPath.unpickle m (l, cap)) |
Option.map intern (AbsPath.unpickle m (l, cap)) |