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/branches/num64/system/Basis/Implementation/Win32/windows-dde.sml
ViewVC logotype

View of /sml/branches/num64/system/Basis/Implementation/Win32/windows-dde.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 5343 - (download) (annotate)
Fri Jun 7 16:58:24 2019 UTC (2 months, 2 weeks ago) by jhr
File size: 775 byte(s)
code layout
(* windows-dde.sml
 *
 * COPYRIGHT (c) 2008 Fellowship of SML/NJ
 *
 * Structure with the windows DDE APIs
 *
 *)

local
    structure Time = TimeImp
    structure IntInf = IntInfImp
in
structure Windows_DDE : WINDOWS_DDE =
  struct
    type info = Win32_General.word

    fun cfun x = CInterface.c_function "WIN32" x

    val startDialog : string * string -> info = cfun "dde_start_dialog"

    fun executeString (conversation, command, retry, delay) = let
	  val realDelay = IntInf.toInt(Time.toMilliseconds delay)
	  val executeStringInternal : info * string * int * int -> unit = cfun "dde_execute_string"
	  in
	    executeStringInternal (conversation, command, retry, realDelay)
	  end

    val stopDialog : info -> unit = cfun "dde_stop_dialog"

  end
end (* local *)

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