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/SMLNJ/src/cml/src/core-cml/debug.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/cml/src/core-cml/debug.sml

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

revision 7, Sun Jan 18 00:59:30 1998 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 9  Line 9 
9  structure Debug : sig  structure Debug : sig
10    
11      val sayDebug : string -> unit      val sayDebug : string -> unit
12        val sayDebugTS : string -> unit
13        val sayDebugId : string -> unit
14    
15    end = struct    end = struct
16    
17      val sayDebug : string -> unit =      val sayDebug : string -> unit =
18            Unsafe.CInterface.c_function "SMLNJ-RunT" "debug"            Unsafe.CInterface.c_function "SMLNJ-RunT" "debug"
19    
20        fun sayDebugTS msg = sayDebug(concat["[", Time.fmt 3 (Time.now()), "] ", msg])
21    
22        val getCurThread : unit -> RepTypes.thread_id = Unsafe.getVar
23    
24        fun sayDebugId msg = sayDebug(concat[
25                RepTypes.tidToString(getCurThread()), " ", msg
26              ])
27    
28    end    end
29    

Legend:
Removed from v.7  
changed lines
  Added in v.8

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