urbit/include/f/benx.h

/* include/benx.h
**
** This file is in the public domain.
*/
  /** Data structures.
  **/
    /* u2_loom_benx: tracing, profiling, debugging
    */
      typedef struct _u2_loom_benx {
        /* Source position debug stack:
        **
        **  *(list ~[* [@ @] [@ @]])
        */
        u2_weak zat;  // on shed

        /* Manual context debug stack:
        **
        **  *(list %{nap})
        */
        u2_weak zof;  // on shed

        /* Interpreter steps.
        */
        c3_d  sap_d;

        /* Words copied.
        */
        c3_d  cop_d;

        /* Matching comparisons.
        */
        c3_d  det_d;

        /* Jet activations.
        */
        c3_d  jax_d;

        /* User-defined activations.
        */
        c3_d  use_d;

        /* Current depth of C stack.
        */
        c3_w  wac_w;

        /* Maximum depth of C stack.
        */
        c3_w  wax_w;

        /* Original words in wire.
        */
        c3_w lif_w;

        /* Original words in basket.
        */
        c3_w bos_w;

        /* Unix time in seconds.
        */
        c3_w sec_w;

        /* Unix time in microseconds.
        */
        c3_w usc_w;
      } u2_loom_benx;

#define   u2_benx_at(bex_r, wof)        *u2_at(bex_r, u2_loom_benx, wof)
#define   u2_benx_be(bex_r, ite, wof)   *u2_be(bex_r, u2_loom_benx, ite, wof)


  /** Functions.
  **/
    /* u2_bx_boot(): reset the performance log.
    */
      void
      u2_bx_boot(u2_ray wir_r);

    /* u2_bx_post(): export and reset the performance log.
    **
    **  zat: source position stack (on shed)
    **  zof: programer action stack (on shed)
    **  sap: number of steps
    **  cop: number of words copied
    **  det: number of identical nouns compared
    **  jax: number of jet activations
    **  use: number of user counts
    **  wax: maximum depth of C stack
    **  viq: words in wire allocated
    **  zor: words in basket allocated
    **  ums: number of milliseconds consumed
    */
      u2_bean
      u2_bx_post(u2_ray   wir_r,
                 u2_noun* zat,
                 u2_noun* zof,
                 c3_d*    sap_d,
                 c3_d*    cop_d,
                 c3_d*    det_d,
                 c3_d*    jax_d,
                 c3_d*    use_d,
                 c3_w*    wax_w,
                 c3_ws*   viq_ws,
                 c3_ws*   zor_ws,
                 c3_w*    ums_w);

    /* u2_bx_spot(): declare source position.
    */
      void
      u2_bx_spot(u2_ray  wir_r,
                 u2_noun hod);                                    //  transfer

    /* u2_bx_loaf(): print debug wall.
    */
      void
      u2_bx_loaf(u2_ray  wir_r,
                 u2_noun wal);                                    //  retain

    /* u2_bx_bean_ent(), u2_bx_bean_out(): enter and exit execution state.
    */
      void
      u2_bx_bean_ent(u2_ray  wir_r,
                     u2_noun hod);                                //  transfer
      void
      u2_bx_bean_out(u2_ray wir_r);

    /* u2_bx_step(): note interpreter step.
    */
      void
      u2_bx_step(u2_ray wir_r);

    /* u2_bx_copy(): note `cop` copied words.
    */
      void
      u2_bx_copy(u2_ray wir_r,
                 c3_w   cop_w);

    /* u2_bx_dent(): note 'det' identicals.
    */
      void
      u2_bx_dent(u2_ray wir_r,
                 c3_w   det_w);

    /* u2_bx_shed(): note `wad` allocated/freed words in hangar.
    */
      void
      u2_bx_shed(u2_ray wir_r,
                 c3_ws  wad_ws);

    /* u2_bx_bask(): note `wad` allocated/freed words in basket.
    */
      void
      u2_bx_bask(u2_ray wir_r,
                 c3_ws  wad_ws);

    /* u2_bx_sink(): go deeper (call) in the C stack.
    */
      void
      u2_bx_sink(u2_ray wir_r);

    /* u2_bx_rise(): go shallower (return) in the C stack.
    */
      void
      u2_bx_rise(u2_ray wir_r);

    /* u2_bx_used(): report a user count.
    */
      void
      u2_bx_used(u2_ray wir_r);

    /* u2_bx_flew(): report a jet activation.
    */
      void
      u2_bx_flew(u2_ray wir_r);

    /* u2_bx_mark(): update memory watermarks.
    */
      void
      u2_bx_mark(u2_ray wir_r);

    /* u2_bx_show(): print benchmark report and clear structure.
    */
      void
      u2_bx_show(u2_ray wir_r);

    /* u2_bx_warn(): report a warning at file and line.
    */
      void
      u2_bx_warn(u2_ray      wir_r,
                 const c3_c* fil_c,
                 c3_w        lyn_w);
#     define u2_bx_warn_here(wir_r) u2_bx_warn(wir_r, __FILE__, __LINE__)