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/branches/blume-private-devel/src/ml-nlffi-lib/Tests/readline/rl.sml
ViewVC logotype

Diff of /sml/branches/blume-private-devel/src/ml-nlffi-lib/Tests/readline/rl.sml

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

revision 1440, Wed Jan 14 23:26:22 2004 UTC revision 1441, Thu Jan 15 23:01:21 2004 UTC
# Line 2  Line 2 
2      type prompt      type prompt
3      val noprompt : prompt      val noprompt : prompt
4      val prompt : string -> prompt      val prompt : string -> prompt
5      val rl : prompt -> string      val rl : prompt -> string option
6  end = struct  end = struct
7      type prompt = (C.uchar, C.ro) C.obj C.ptr'      type prompt = (C.uchar, C.ro) C.obj C.ptr'
8      val noprompt = C.Ptr.null'      val noprompt = C.Ptr.null'
9      val prompt = ZString.dupML'      val prompt = ZString.dupML'
10      fun rl p = let      fun rl p = let
11        val cres = F_readline.f' p        val cres = F_readline.f' p
       val res = ZString.toML' cres  
12      in      in
13        C.free' cres;        if C.Ptr.isNull' cres then NONE
14        res        else SOME (ZString.toML' cres) before (F_add_history.f' (C.Ptr.ro' cres);
15                                                 C.free' cres)
16      end      end
17  end  end

Legend:
Removed from v.1440  
changed lines
  Added in v.1441

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