mirror of
https://git.freebsd.org/ports.git
synced 2025-06-27 23:50:30 -04:00
a15faa6309
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>
18 lines
681 B
Standard ML
18 lines
681 B
Standard ML
--- ./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)
|