// guru-mode conversions tapset
// Copyright (C) 2010 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.

/**
 * sfunction set_kernel_string - Writes a string to kernel memory.
 * @addr: The kernel address to write the string to.
 * @val: The string which is to be written.
 *
 * Description: Writes the given string to a given kernel
 * memory address. Reports an error on string copy fault.
 */
function set_kernel_string (addr:long, val:string) %{ /* guru */
  store_deref_string (THIS->val, THIS->addr, MAXSTRINGLEN);
  if (0) {
deref_fault: /* branched to from store_deref_string() */
    snprintf (CONTEXT->error_buffer, sizeof(CONTEXT->error_buffer),
        "kernel string copy fault at 0x%p", (void *) (uintptr_t) THIS->addr);
    CONTEXT->last_error = CONTEXT->error_buffer;
  }
%}

/**
 * sfunction set_kernel_string_n - Writes a string of given length to kernel memory.
 * @addr: The kernel address to write the string to.
 * @n: The maximum length of the string.
 * @val: The string which is to be written.
 *
 * Description: Writes the given string up to a maximum given length to a
 * given kernel memory address. Reports an error on string copy fault.
 */
function set_kernel_string_n (addr:long, n:long, val:string) %{ /* guru */
  int64_t len = clamp_t(int64_t, THIS->n + 1, 1, MAXSTRINGLEN);
  store_deref_string (THIS->val, THIS->addr, len);
  if (0) {
deref_fault: /* branched to from store_deref_string() */
    snprintf (CONTEXT->error_buffer, sizeof(CONTEXT->error_buffer),
        "kernel string copy fault at 0x%p", (void *) (uintptr_t) THIS->addr);
    CONTEXT->last_error = CONTEXT->error_buffer;
  }
%}

/**
 * sfunction set_kernel_long - Writes a long value to kernel memory.
 * @addr: The kernel address to write the long to.
 * @val: The long which is to be written.
 *
 * Description: Writes the long value to a given kernel memory address.
 * Reports an error when writing to the given address fails.
 */
function set_kernel_long (addr:long, val:long) %{ /* guru */
  kwrite((long *) (intptr_t) THIS->addr, THIS->val);
  if (0) {
deref_fault: /* branched to from kwrite() */
    snprintf (CONTEXT->error_buffer, sizeof(CONTEXT->error_buffer),
        "kernel long copy fault at 0x%p", (void *) (uintptr_t) THIS->addr);
    CONTEXT->last_error = CONTEXT->error_buffer;
  }
%}

/**
 * sfunction set_kernel_int - Writes an int value to kernel memory.
 * @addr: The kernel address to write the int to.
 * @val: The int which is to be written.
 *
 * Description: Writes the int value to a given kernel memory address.
 * Reports an error when writing to the given address fails.
 */
function set_kernel_int (addr:long, val:long) %{ /* guru */
  kwrite((int *) (intptr_t) THIS->addr, THIS->val);
  if (0) {
deref_fault: /* branched to from kwrite() */
    snprintf (CONTEXT->error_buffer, sizeof(CONTEXT->error_buffer),
        "kernel int copy fault at 0x%p", (void *) (uintptr_t) THIS->addr);
    CONTEXT->last_error = CONTEXT->error_buffer;
  }
%}

/**
 * sfunction set_kernel_short - Writes a short value to kernel memory.
 * @addr: The kernel address to write the short to.
 * @val: The short which is to be written.
 *
 * Description: Writes the short value to a given kernel memory address.
 * Reports an error when writing to the given address fails.
 */
function set_kernel_short (addr:long, val:long) %{ /* guru */
  kwrite((short *) (intptr_t) THIS->addr, THIS->val);
  if (0) {
deref_fault: /* branched to from kwrite() */
    snprintf (CONTEXT->error_buffer, sizeof(CONTEXT->error_buffer),
        "kernel short copy fault at 0x%p", (void *) (uintptr_t) THIS->addr);
    CONTEXT->last_error = CONTEXT->error_buffer;
  }
%}

/**
 * sfunction set_kernel_char - Writes a char value to kernel memory.
 * @addr: The kernel address to write the char to.
 * @val: The char which is to be written.
 *
 * Description: Writes the char value to a given kernel memory address.
 * Reports an error when writing to the given address fails.
 */
function set_kernel_char (addr:long, val:long) %{ /* guru */
  kwrite((char *) (intptr_t) THIS->addr, THIS->val);
  if (0) {
deref_fault: /* branched to from kwrite() */
    snprintf (CONTEXT->error_buffer, sizeof(CONTEXT->error_buffer),
        "kernel char copy fault at 0x%p", (void *) (uintptr_t) THIS->addr);
    CONTEXT->last_error = CONTEXT->error_buffer;
  }
%}