From: "Nicolas Cannasse" <warplayer@xxxxxxx>
Subject: [Ocaml-lib-devel] Proposal : Path
Date: Fri, 14 Nov 2003 14:33:34 +0900
> let def_sep =3D (if windows then "\\" else "/")
>
> exception Cannot_up
> exception Invalid_path of string
>
> let to_string =3D function
> | [] -> ""
> | [x] when x =3D=3D def_sep -> def_sep
> | p ->
> String.concat def_sep (List.rev p) ^ def_sep
Is there a reason not using Filename module?
--
Yamagata Yoriyuki
-------------------------------------------------------
This SF.Net email sponsored by: ApacheCon 2003,
16-19 November in Las Vegas. Learn firsthand the latest
developments in Apache, PHP, Perl, XML, Java, MySQL,
WebDAV, and more! http://www.apachecon.com/
|
