/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
 * vim: set ts=8 sw=4 et tw=80:
 *
 * ***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1/GPL 2.0/LGPL 2.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * Copyright (C) 2007  Sun Microsystems, Inc. All Rights Reserved.
 *
 * Contributor(s):
 *      Brendan Eich <brendan@mozilla.org>
 *
 * Alternatively, the contents of this file may be used under the terms of
 * either of the GNU General Public License Version 2 or later (the "GPL"),
 * or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
 * in which case the provisions of the GPL or the LGPL are applicable instead
 * of those above. If you wish to allow use of your version of this file only
 * under the terms of either the GPL or the LGPL, and not to allow others to
 * use your version of this file under the terms of the MPL, indicate your
 * decision by deleting the provisions above and replace them with the notice
 * and other provisions required by the GPL or the LGPL. If you do not delete
 * the provisions above, a recipient may use your version of this file under
 * the terms of any one of the MPL, the GPL or the LGPL.
 *
 * ***** END LICENSE BLOCK ***** */

#ifdef INCLUDE_MOZILLA_DTRACE
#include "javascript-trace.h"
#endif
#include "jspubtd.h"
#include "jsprvtd.h"

#ifndef _JSDTRACEF_H
#define _JSDTRACEF_H

JS_BEGIN_EXTERN_C

extern void
jsdtrace_function_entry(JSContext *cx, JSStackFrame *fp, JSFunction *fun);

extern void
jsdtrace_function_info(JSContext *cx, JSStackFrame *fp, JSStackFrame *dfp,
                       JSFunction *fun);

extern void
jsdtrace_function_args(JSContext *cx, JSStackFrame *fp, JSFunction *fun, jsuint argc, jsval *argv);

extern void
jsdtrace_function_rval(JSContext *cx, JSStackFrame *fp, JSFunction *fun, jsval *rval);

extern void
jsdtrace_function_return(JSContext *cx, JSStackFrame *fp, JSFunction *fun);

extern void
jsdtrace_object_create_start(JSStackFrame *fp, JSClass *clasp);

extern void
jsdtrace_object_create_done(JSStackFrame *fp, JSClass *clasp);

extern void
jsdtrace_object_create(JSContext *cx, JSClass *clasp, JSObject *obj);

extern void
jsdtrace_object_finalize(JSObject *obj);

extern void
jsdtrace_execute_start(JSScript *script);

extern void
jsdtrace_execute_done(JSScript *script);

JS_END_EXTERN_C

namespace js {

class DTrace {
  public:
    /*
     * If |lval| is provided to the enter/exit methods, it is tested to see if
     * it is a function as a predicate to the dtrace event emission.
     */
    static void enterJSFun(const JSContext *cx, const JSStackFrame *fp, const JSFunction *fun,
                           const JSStackFrame *dfp, jsuint argc, const jsval *argv,
                           const jsval *lval = NULL);
    static void exitJSFun(const JSContext *cx, const JSStackFrame *fp, const JSFunction *fun,
                          const jsval *rval, const jsval *lval = NULL);

    static void finalizeObject(const JSObject *obj);

    class ExecutionScope {
        const JSScript *script;
        void startExecution();
        void endExecution();
      public:
        explicit ExecutionScope(const JSScript *script) : script(script) { startExecution(); }
        ~ExecutionScope() { endExecution(); }
    };

};

inline void
DTrace::enterJSFun(const JSContext *cx, const JSStackFrame *fp, const JSFunction *fun,
                   const JSStackFrame *dfp, jsuint argc, const jsval *argv,
                   const jsval *lval)
{
#ifdef INCLUDE_MOZILLA_DTRACE
    if (!lval || VALUE_IS_FUNCTION(cx, lval)) {
        if (JAVASCRIPT_FUNCTION_ENTRY_ENABLED())
            jsdtrace_function_entry(cx, &frame, fun);
        if (JAVASCRIPT_FUNCTION_INFO_ENABLED())
            jsdtrace_function_info(cx, &frame, frame.down, fun);
        if (JAVASCRIPT_FUNCTION_ARGS_ENABLED())
            jsdtrace_function_args(cx, &frame, fun, frame.argc, frame.argv);
    }
#endif
}

inline void
DTrace::exitJSFun(const JSContext *cx, const JSStackFrame *fp, const JSFunction *fun,
                  const jsval *rval, const jsval *lval)
{
#ifdef INCLUDE_MOZILLA_DTRACE
    if (!lval || VALUE_IS_FUNCTION(cx, lval)) {
        if (JAVASCRIPT_FUNCTION_RVAL_ENABLED())
            jsdtrace_function_rval(cx, fp, fun, rval);
        if (JAVASCRIPT_FUNCTION_RETURN_ENABLED())
            jsdtrace_function_return(cx, fp, fun);
    }
#endif
}

inline void
DTrace::finalizeObject(const JSObject *obj)
{
#ifdef INCLUDE_MOZILLA_DTRACE
    if (JAVASCRIPT_OBJECT_FINALIZE_ENABLED())
        jsdtrace_object_finalize(obj);
#endif
}

inline void
DTrace::ExecutionScope::startExecution()
{
#ifdef INCLUDE_MOZILLA_DTRACE
    if (JAVASCRIPT_EXECUTE_START_ENABLED())
        jsdtrace_execute_start(script);
#endif
}

inline void
DTrace::ExecutionScope::endExecution()
{
#ifdef INCLUDE_MOZILLA_DTRACE
    if (JAVASCRIPT_EXECUTE_END_ENABLED())
        jsdtrace_execute_done(script);
#endif
}

} /* namespace js */
    
#endif /* _JSDTRACE_H */