DB_VARNUMERIC

構造体

サイズx64: 4 バイト / x86: 4 バイト

サイズ=各フィールドのバイト数(x64/x86 で異なる場合は x64/x86 と併記)。x64/x86 列=フィールドのバイトオフセット(HSPで dupptr / lpoke / wpoke 等に使用)。

フィールド

フィールド	型	サイズ	x64	x86	説明
precision	BYTE	1	+0	+0	数値の精度(全体桁数)。
scale	CHAR	1	+1	+1	数値のスケール(小数部桁数、符号付きCHAR)。
sign	BYTE	1	+2	+2	符号。1で正、0で負を表す。
val	BYTE	1	+3	+3	数値の絶対値をリトルエンディアンの可変長バイト列で表した先頭バイト。

各言語での定義

#include <windows.h>

// DB_VARNUMERIC  (x64 4 / x86 4 バイト)
typedef struct DB_VARNUMERIC {
    BYTE precision;
    CHAR scale;
    BYTE sign;
    BYTE val[1];
} DB_VARNUMERIC;

using System;
using System.Runtime.InteropServices;

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct DB_VARNUMERIC
{
    public byte precision;
    public sbyte scale;
    public byte sign;
    [MarshalAs(UnmanagedType.ByValArray, SizeConst = 1)] public byte[] val;
}

Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure DB_VARNUMERIC
    Public precision As Byte
    Public scale As SByte
    Public sign As Byte
    <MarshalAs(UnmanagedType.ByValArray, SizeConst:=1)> Public val() As Byte
End Structure

import ctypes
from ctypes import wintypes

class DB_VARNUMERIC(ctypes.Structure):
    _fields_ = [
        ("precision", ctypes.c_ubyte),
        ("scale", ctypes.c_byte),
        ("sign", ctypes.c_ubyte),
        ("val", ctypes.c_ubyte * 1),
    ]

#[repr(C)]
pub struct DB_VARNUMERIC {
    pub precision: u8,
    pub scale: i8,
    pub sign: u8,
    pub val: [u8; 1],
}

import "golang.org/x/sys/windows"

type DB_VARNUMERIC struct {
	precision byte
	scale int8
	sign byte
	val [1]byte
}

type
  DB_VARNUMERIC = record
    precision: Byte;
    scale: Shortint;
    sign: Byte;
    val: array[0..0] of Byte;
  end;

const DB_VARNUMERIC = extern struct {
    precision: u8,
    scale: i8,
    sign: u8,
    val: [1]u8,
};

type
  DB_VARNUMERIC {.bycopy.} = object
    precision: uint8
    scale: int8
    sign: uint8
    val: array[1, uint8]

struct DB_VARNUMERIC
{
    ubyte precision;
    byte scale;
    ubyte sign;
    ubyte[1] val;
}

HSP用定義

HSP3.7/3.8 は構造体機能が無いため4byte整数配列(dim)+peek/poke で操作(32/64bitでサイズ・位置が異なる場合はタブで分割)。IronHSP は NSTRUCT(#defstruct/stdim/->)で32/64bit共通。

; HSP3.7/3.8 は構造体機能が無いため、4byte整数の配列変数で操作します。(x64 レイアウト)
; DB_VARNUMERIC サイズ: 4 バイト(x64)
dim st, 1    ; 4byte整数×1(構造体サイズ 4 / 4 切り上げ)
; precision : BYTE (+0, 1byte)  poke st,0,値  /  値 = peek(st,0)
; scale : CHAR (+1, 1byte)  poke st,1,値  /  値 = peek(st,1)
; sign : BYTE (+2, 1byte)  poke st,2,値  /  値 = peek(st,2)
; val : BYTE (+3, 1byte)  varptr(st)+3 を基点に操作(1byte:入れ子/配列)
; ※4byte境界の整数は添字 st.N(N=オフセット/4)で読み書き可。それ以外は peek/poke 系を使用。

; IronHSP は NSTRUCT(構造体)をサポート。32bit/64bit どちらでも同じコードで動作します。
#defstruct global DB_VARNUMERIC
    #field byte precision
    #field byte scale
    #field byte sign
    #field byte val 1
#endstruct

stdim st, DB_VARNUMERIC        ; NSTRUCT 変数を確保
st->precision = 100
mes "precision=" + st->precision

DB_VARNUMERIC

フィールド

各言語での定義

HSP用 定義

HSP用定義