C++ (Cpp) tyscm_scm_from_type示例

示例#1

文件： scm-lazy-string.c 项目： mbref/binutils-gdb-microblaze

static SCM
gdbscm_lazy_string_type (SCM self)
{
    SCM ls_scm = lsscm_get_lazy_string_arg_unsafe (self, SCM_ARG1, FUNC_NAME);
    lazy_string_smob *ls_smob = (lazy_string_smob *) SCM_SMOB_DATA (ls_scm);

    return tyscm_scm_from_type (ls_smob->type);
}

示例#2

文件： scm-arch.c 项目： Drakey83/steamlink-sdk

static SCM
gdbscm_arch_uint64_type (SCM self)
{
  struct type *type
    = gdbscm_arch_builtin_type (self, FUNC_NAME)->builtin_uint64;

  return tyscm_scm_from_type (type);
}

示例#3

文件： scm-arch.c 项目： Drakey83/steamlink-sdk

static SCM
gdbscm_arch_ulonglong_type (SCM self)
{
  struct type *type
    = gdbscm_arch_builtin_type (self, FUNC_NAME)->builtin_unsigned_long_long;

  return tyscm_scm_from_type (type);
}

示例#4

文件： scm-arch.c 项目： Drakey83/steamlink-sdk

static SCM
gdbscm_arch_longdouble_type (SCM self)
{
  struct type *type
    = gdbscm_arch_builtin_type (self, FUNC_NAME)->builtin_long_double;

  return tyscm_scm_from_type (type);
}

示例#5

文件： scm-arch.c 项目： Drakey83/steamlink-sdk

static SCM
gdbscm_arch_schar_type (SCM self)
{
  struct type *type
    = gdbscm_arch_builtin_type (self, FUNC_NAME)->builtin_signed_char;

  return tyscm_scm_from_type (type);
}

示例#6

static SCM
gdbscm_symbol_type (SCM self)
{
    symbol_smob *s_smob
        = syscm_get_valid_symbol_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME);
    const struct symbol *symbol = s_smob->symbol;

    if (SYMBOL_TYPE (symbol) == NULL)
        return SCM_BOOL_F;

    return tyscm_scm_from_type (SYMBOL_TYPE (symbol));
}