mlton/xml/call-count.sig

   1 (* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  * Copyright (C) 1997-2000 NEC Research Institute.
   4  *
   5  * MLton is released under a BSD-style license.
   6  * See the file MLton-LICENSE for details.
   7  *)
   8
   9 signature CALL_COUNT_STRUCTS =
  10    sig
  11       include XML
  12    end
  13
  14 signature CALL_COUNT =
  15    sig
  16       include CALL_COUNT_STRUCTS
  17
  18       (* Instrument the program so that the C primitive of the given name
  19        * is applied at each call.
  20        * For now, the string should either be Xml or Sxml.
  21        *)
  22       val instrument: Program.t * string -> Program.t
  23    end