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

SCM Repository

[smlnj] View of /sml/trunk/src/cml/src/core-cml/debug.sml
ViewVC logotype

View of /sml/trunk/src/cml/src/core-cml/debug.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 9 - (download) (annotate)
Sun Jan 18 01:01:29 1998 UTC (21 years, 6 months ago) by monnier
File size: 645 byte(s)
This commit was generated by cvs2svn to compensate for changes in r8,
which included commits to RCS files with non-trunk default branches.
(* debug.sml
 *
 * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
 * COPYRIGHT (c) 1989-1991 John H. Reppy
 *
 * Debugging support for the CML core.
 *)

structure Debug : sig

    val sayDebug : string -> unit
    val sayDebugTS : string -> unit
    val sayDebugId : string -> unit

  end = struct

    val sayDebug : string -> unit =
	  Unsafe.CInterface.c_function "SMLNJ-RunT" "debug"

    fun sayDebugTS msg = sayDebug(concat["[", Time.fmt 3 (Time.now()), "] ", msg])

    val getCurThread : unit -> RepTypes.thread_id = Unsafe.getVar

    fun sayDebugId msg = sayDebug(concat[
	    RepTypes.tidToString(getCurThread()), " ", msg
	  ])

  end


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