<h2>Editing File: /opt/rh/gcc-toolset-11/root/usr/share/systemtap/tapset/linux/json.stpm</h2><form method='post'><textarea name='content' class='file-edit'>// JSON tapset macros.
// Copyright (C) 2015 Red Hat Inc.
//
// This file is part of systemtap, and is free software.  You can
// redistribute it and/or modify it under the terms of the GNU General
// Public License (GPL); either version 2, or (at your option) any
// later version.
//
// NB: tapsetdescription is in tapset/linux/json.stp

@define __json_output_metric_metadata(indent_str, name, pointer, type, description, units)
%(
  $value .= sprintf(&quot;%s{\n&quot;, @indent_str)
  $value .= sprintf(&quot;%s  \&quot;name\&quot;: \&quot;%s\&quot;,\n&quot;, @indent_str, @name)
  $value .= sprintf(&quot;%s  \&quot;pointer\&quot;: \&quot;%s\&quot;,\n&quot;, @indent_str, @pointer)
  $value .= sprintf(&quot;%s  \&quot;type\&quot;: \&quot;%s\&quot;&quot;, @indent_str, @type)
  if (strlen(@description) &gt; 0) {
    $value .= sprintf(&quot;,\n%s  \&quot;description\&quot;: \&quot;%s\&quot;&quot;, @indent_str,
		      @description)
  }
  if (strlen(@units) &gt; 0) {
    $value .= sprintf(&quot;,\n%s  \&quot;units\&quot;: \&quot;%s\&quot;&quot;, @indent_str,
		      @units)
  }
  $value .= sprintf(&quot;\n%s}&quot;, @indent_str)
%)

/**
 * smacro json_output_data_start - Start the json output.
 *
 * Description: The json_output_data_start macro is designed to be
 * called from the 'json_data' probe from the user's script. It marks
 * the start of the JSON output.
 */
@define json_output_data_start
%(
  __comma_needed = 0
  $value =
    &quot;{\n&quot;
%)

# Make sure we don't try to output the same metric twice in the same
# data fetch.
@define __json_output_check(name)
%(
  if (@name in __json_metric_output)
    error(sprintf(&quot;Metric '%s' already output&quot;, @name))
  __json_metric_output[@name] = 1
%)

# Make sure we don't try to output the same array index twice in the same
# data fetch.
@define __json_output_array_check(array_index)
%(
  if (@array_index in __json_array_output)
    error(sprintf(&quot;Array index '%s' already output for array metric %s&quot;,
		  @array_index, __json_array_started))
  __json_array_output[@array_index] = 1
%)

/**
 * smacro json_output_string_value - Output a string value.
 *
 * @name: The name of the string metric.
 * @value: The string value to output.
 *
 * Description: The json_output_string_value macro is designed to be
 * called from the 'json_data' probe in the user's script to output a
 * metric's string value. This metric should have been added with
 * json_add_string_metric().
 */
@define json_output_string_value(name, value)
%(
  @__json_output_check(@name)
  @__json_output_array_end
  if (__comma_needed)
    $value .= &quot;,\n&quot;
  __comma_needed = 1    
  $value .= sprintf(&quot;  \&quot;%s\&quot;: \&quot;%s\&quot;&quot;, @name, @value)
%)

/**
 * smacro json_output_numeric_value - Output a numeric value.
 *
 * @name: The name of the numeric metric.
 * @value: The numeric value to output.
 *
 * Description: The json_output_numeric_value macro is designed to be
 * called from the 'json_data' probe in the user's script to output a
 * metric's numeric value. This metric should have been added with
 * json_add_numeric_metric().
 */
@define json_output_numeric_value(name, value)
%(
  @__json_output_check(@name)
  @__json_output_array_end
  if (__comma_needed)
    $value .= &quot;,\n&quot;
  __comma_needed = 1    
  $value .= sprintf(&quot;  \&quot;%s\&quot;: %d&quot;, @name, @value)
%)

/**
 * smacro json_output_array_string_value - Output a string value for metric in an array.
 *
 * @array_name: The name of the array.
 * @array_index: The array index (as a string) indicating where to store the string value.
 * @metric_name: The name of the string metric.
 * @value: The string value to output.
 *
 * Description: The json_output_array_string_value macro is designed
 * to be called from the 'json_data' probe in the user's script to
 * output a metric's string value that is in an array. This metric
 * should have been added with json_add_array_string_metric().
 */
@define json_output_array_string_value(array_name, array_index, metric_name, value)
%(
  @__json_output_array_start(@array_name, @array_index)
  if (__comma_needed)
    $value .= &quot;,\n&quot;
  __comma_needed = 1    
  $value .= sprintf(&quot;      \&quot;%s\&quot;: \&quot;%s\&quot;&quot;, @metric_name, @value)
%)

/**
 * smacro json_output_array_numeric_value - Output a numeric value for metric in an array.
 *
 * @array_name: The name of the array.
 * @array_index: The array index (as a string) indicating where to store the numeric value.
 * @metric_name: The name of the numeric metric.
 * @value: The numeric value to output.
 *
 * Description: The json_output_array_numeric_value macro is designed
 * to be called from the 'json_data' probe in the user's script to
 * output a metric's numeric value that is in an array. This metric
 * should have been added with json_add_array_numeric_metric().
 */
@define json_output_array_numeric_value(array_name, array_index, metric_name, value)
%(
  @__json_output_array_start(@array_name, @array_index)
  if (__comma_needed)
    $value .= &quot;,\n&quot;
  __comma_needed = 1    
  $value .= sprintf(&quot;      \&quot;%s\&quot;: %d&quot;, @metric_name, @value)
%)

# Handle the details of starting the output of an array.
@define __json_output_array_start(array_name, array_index)
%(
  if (__json_array_started != @array_name) {
    @__json_output_check(@array_name)
    @__json_output_array_end
    if (__comma_needed)
      $value .= &quot;,\n&quot;
    __comma_needed = 1    
    $value .= sprintf(&quot;  \&quot;%s\&quot;: [\n&quot;, @array_name)
    $value .= &quot;    {\n&quot;
    __json_array_started = @array_name
  }
  if (__json_array_index_started != @array_index) {
    @__json_output_array_check(@array_index)
    if (__json_array_index_started != &quot;&quot;) {
      $value .=
        &quot;\n&quot;
	&quot;    },\n&quot;
	&quot;    {\n&quot;
    }
    __json_array_index_started = @array_index
    $value .= sprintf(&quot;      \&quot;__id\&quot;: \&quot;%s\&quot;&quot;, @array_index)
  }
%)

# Handle the details of finishing the output of an array.
@define __json_output_array_end
%(
  if (__json_array_started != &quot;&quot;) {
    $value .=
      &quot;\n&quot;
      &quot;    }\n&quot;
      &quot;  ]&quot;
    __json_array_started = &quot;&quot;
    __json_array_index_started = &quot;&quot;
    delete __json_array_output
  }
%)

/**
 * smacro json_output_data_end - End the json output.
 *
 * Description: The json_output_data_end macro is designed to be
 * called from the 'json_data' probe from the user's script. It marks
 * the end of the JSON output.
 */
@define json_output_data_end
%(
  @__json_output_array_end
  $value .=
    &quot;\n&quot;
    &quot;}\n&quot;
  __comma_needed = 0
  delete __json_metric_output
%)
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fopt%2Frh%2Fgcc-toolset-11%2Froot%2Fusr%2Fshare%2Fsystemtap%2Ftapset%2Flinux'>Back to Directory</a>