Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/eXene/graph-util/get-dpy.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/graph-util/get-dpy.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1861, Mon Nov 7 18:17:09 2005 UTC revision 1862, Mon Nov 7 23:03:18 2005 UTC
# Line 20  Line 20 
20    (* parse a string specifying a X display into its components. *)    (* parse a string specifying a X display into its components. *)
21      fun parseDisplay "" = {host="",dpy="0",screen="0"}      fun parseDisplay "" = {host="",dpy="0",screen="0"}
22        | parseDisplay d = let        | parseDisplay d = let
23            val (host,rest) = SS.splitl (fn c => c <> #":") (SS.all d)            val (host,rest) = SS.splitl (fn c => c <> #":") (SS.full d)
24            val (dpy,scr) = SS.splitl (fn c => c <> #".") rest            val (dpy,scr) = SS.splitl (fn c => c <> #".") rest
25            in            in
26              if SS.size dpy < 2 then raise EXB.BadAddr "No display field"              if SS.size dpy < 2 then raise EXB.BadAddr "No display field"

Legend:
Removed from v.1861  
changed lines
  Added in v.1862

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0