TAPE_ERASE

構造体

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

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

フィールド

フィールド	型	サイズ	x64	x86	説明
Type	ERASE_TAPE_TYPE	4	+0	+0	テープ消去の種類(全消去/短消去等のERASE_TAPE_TYPE)。
Immediate	BOOLEAN	1	+4	+4	TRUEなら完了を待たず即座に制御を返す。

各言語での定義

#include <windows.h>

// TAPE_ERASE  (x64 8 / x86 8 バイト)
typedef struct TAPE_ERASE {
    ERASE_TAPE_TYPE Type;
    BOOLEAN Immediate;
} TAPE_ERASE;

using System;
using System.Runtime.InteropServices;

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct TAPE_ERASE
{
    public uint Type;
    [MarshalAs(UnmanagedType.U1)] public bool Immediate;
}

Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure TAPE_ERASE
    Public Type As UInteger
    <MarshalAs(UnmanagedType.U1)> Public Immediate As Boolean
End Structure

import ctypes
from ctypes import wintypes

class TAPE_ERASE(ctypes.Structure):
    _fields_ = [
        ("Type", wintypes.DWORD),
        ("Immediate", ctypes.c_byte),
    ]

#[repr(C)]
pub struct TAPE_ERASE {
    pub Type: u32,
    pub Immediate: u8,
}

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

type TAPE_ERASE struct {
	Type uint32
	Immediate byte
}

type
  TAPE_ERASE = record
    Type: DWORD;
    Immediate: ByteBool;
  end;

const TAPE_ERASE = extern struct {
    Type: u32,
    Immediate: u8,
};

type
  TAPE_ERASE {.bycopy.} = object
    Type: uint32
    Immediate: uint8

struct TAPE_ERASE
{
    uint Type;
    ubyte Immediate;
}

HSP用定義

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

; HSP3.7/3.8 は構造体機能が無いため、4byte整数の配列変数で操作します。(x64 レイアウト)
; TAPE_ERASE サイズ: 8 バイト(x64)
dim st, 2    ; 4byte整数×2(構造体サイズ 8 / 4 切り上げ)
; Type : ERASE_TAPE_TYPE (+0, 4byte)  st.0 = 値  /  値 = st.0   (lpoke/lpeek も可)
; Immediate : BOOLEAN (+4, 1byte)  poke st,4,値  /  値 = peek(st,4)
; ※4byte境界の整数は添字 st.N(N=オフセット/4)で読み書き可。それ以外は peek/poke 系を使用。

; IronHSP は NSTRUCT(構造体)をサポート。32bit/64bit どちらでも同じコードで動作します。
#defstruct global TAPE_ERASE
    #field int Type
    #field bool1 Immediate
#endstruct

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

TAPE_ERASE

フィールド

各言語での定義

HSP用 定義

HSP用定義