diff options
| author | Martin Wilke <miwi@FreeBSD.org> | 2008-06-21 09:56:54 +0000 |
|---|---|---|
| committer | Martin Wilke <miwi@FreeBSD.org> | 2008-06-21 09:56:54 +0000 |
| commit | a15faa6309adb4b41cc265c2c5a9943b92c3c9b5 (patch) | |
| tree | 19cb3988e31364642a7fee8bdfb87580516d7cdb /devel/sml_tk/files/patch-src-paths.sml | |
| parent | - Update to 0.3.7. (diff) | |
sml_tk is a Standard ML package providing a portable, typed and abstract
interface to the user interface description and command language Tcl/Tk. It
allows the implementation of graphical user interfaces in a structured and
reusable way, supported by the powerful module system of Standard ML.
WWW: http://www.informatik.uni-bremen.de/~cxl/sml_tk
PR: ports/119640
Submitted by: Timothy Bourke <timbob at bigpond.com>
Notes
Notes:
svn path=/head/; revision=215448
Diffstat (limited to 'devel/sml_tk/files/patch-src-paths.sml')
| -rw-r--r-- | devel/sml_tk/files/patch-src-paths.sml | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/devel/sml_tk/files/patch-src-paths.sml b/devel/sml_tk/files/patch-src-paths.sml new file mode 100644 index 000000000000..fa48bd75daca --- /dev/null +++ b/devel/sml_tk/files/patch-src-paths.sml @@ -0,0 +1,18 @@ +--- ./src/paths.sml.orig Fri Mar 30 23:39:15 2001 ++++ src/paths.sml Sun Jan 13 11:03:51 2008 +@@ -29,13 +29,13 @@ + + fun fstWidPath s = + let val (m1, m2) = Substring.splitl (not o StringUtil.isDot) +- (Substring.triml 1 (Substring.all s)) ++ (Substring.triml 1 (Substring.full s)) + in (Substring.string m1, Substring.string m2) + end + + fun lastWidPath p = + let val (rp, rw) = Substring.splitr (not o StringUtil.isDot) +- (Substring.all p) ++ (Substring.full p) + in + if (Substring.size rp)= 0 then + ("", Substring.string rw) |