ReadLogRestartArea
関数シグネチャ
// clfsw32.dll
#include <windows.h>
BOOL ReadLogRestartArea(
void* pvMarshal,
void** ppvRestartBuffer,
DWORD* pcbRestartBuffer,
CLS_LSN* plsn,
void** ppvContext,
OVERLAPPED* pOverlapped
);パラメーター
| 名前 | 型 | 方向 | 説明 |
|---|---|---|---|
| pvMarshal | void* | inout | CreateLogMarshallingArea 関数を使用して割り当てられたマーシャリング コンテキストへのポインター。 |
| ppvRestartBuffer | void** | inout | ログ I/O ブロック内の再開データへのポインターを受け取る変数へのポインター。 |
| pcbRestartBuffer | DWORD* | inout | 再開データの量を受け取る変数へのポインター。 |
| plsn | CLS_LSN* | inout | 再開領域のログ シーケンス番号 (LSN) を受け取る CLFS_LSN 構造体へのポインター。 |
| ppvContext | void** | inout | 読み取りが成功したときに、システムが割り当てた読み取りコンテキストへのポインターを受け取る変数へのポインター。 関数が操作の完了を延期する場合、有効な読み取りコンテキスト ポインターと ERROR_IO_PENDING のエラー状態を返します。その他のすべてのエラーでは、読み取りコンテキスト ポインターは NULL になります。関数の延期完了の処理について詳しくは、このトピックの「解説」セクションを参照してください。 要求したすべてのログ レコードを取得した後、クライアントは関連付けられたメモリを解放するために、読み取りコンテキストを TerminateReadLog に渡す必要があります。これを行わないと、メモリ リークが発生します。 Note Common Log File System (CLFS) の読み取りコンテキストはスレッド セーフではありません。複数のスレッドから同時に使用したり、複数の非同期読み取りに同時に渡したりしないでください。
|
| pOverlapped | OVERLAPPED* | inout | 非同期操作に必要な OVERLAPPED 構造体へのポインター。 非同期操作を使用しない場合、このパラメーターは NULL にできます。 |
戻り値の型: BOOL
公式ドキュメント
WriteLogRestartArea のマーシャリング領域に関連付けられたログに対して、正常に書き込まれた最後の再開領域 (restart area) を返します。
戻り値
関数が成功すると、戻り値は 0 以外になります。
関数が失敗すると、戻り値は 0 になります。拡張エラー情報を取得するには、 GetLastError を呼び出します。
次の一覧に、考えられるエラー コードを示します。
解説(Remarks)
CreateLogMarshallingArea で指定したログ ブロック サイズが、完全なログ ブロックを保持するのに十分な大きさでない場合、エラー メッセージ ERROR_LOG_BLOCK_INCOMPLETE が返されます。
通常、ReadLogRestartArea は、クラッシュ後または正常なシャットダウン後のクライアント再開時にのみ使用されます。
ログ内に再開領域が存在しない場合、ReadLogRestartArea はコード ERROR_LOG_NO_RESTART で失敗します。
ReadLogRestartArea がエラー コード ERROR_IO_PENDING で失敗した場合、有効な読み取りコンテキストへのポインターが ppvReadContext パラメーターが指す変数に格納されます。
ログ レコードのコピーを完了するには、クライアントはまず GetOverlappedResult または待機関数のいずれかを呼び出して、オーバーラップ I/O 操作の延期完了と自身の実行を同期させる必要があります。詳しくは、同期およびオーバーラップ入出力を参照してください。
ReadLogRestartArea が非同期で完了した後、要求された再開領域はディスクから読み取られますが、それへの有効なポインターは *ppvRestartBuffer には格納されません。
有効なポインターを取得するには、クライアントは ReadPreviousLogRestartArea を呼び出し、ReadLogRestartArea が返した読み取りコンテキスト ポインターを渡す必要があります。
CLFS の読み取りコンテキストを複数の非同期読み取りに同時に渡してはいけません。渡した場合、関数は ERROR_BUSY で失敗します。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
各言語での呼び出し定義
// clfsw32.dll
#include <windows.h>
BOOL ReadLogRestartArea(
void* pvMarshal,
void** ppvRestartBuffer,
DWORD* pcbRestartBuffer,
CLS_LSN* plsn,
void** ppvContext,
OVERLAPPED* pOverlapped
);[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("clfsw32.dll", SetLastError = true, ExactSpelling = true)]
static extern bool ReadLogRestartArea(
IntPtr pvMarshal, // void* in/out
IntPtr ppvRestartBuffer, // void** in/out
ref uint pcbRestartBuffer, // DWORD* in/out
IntPtr plsn, // CLS_LSN* in/out
IntPtr ppvContext, // void** in/out
IntPtr pOverlapped // OVERLAPPED* in/out
);<DllImport("clfsw32.dll", SetLastError:=True, ExactSpelling:=True)>
Public Shared Function ReadLogRestartArea(
pvMarshal As IntPtr, ' void* in/out
ppvRestartBuffer As IntPtr, ' void** in/out
ByRef pcbRestartBuffer As UInteger, ' DWORD* in/out
plsn As IntPtr, ' CLS_LSN* in/out
ppvContext As IntPtr, ' void** in/out
pOverlapped As IntPtr ' OVERLAPPED* in/out
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function' pvMarshal : void* in/out
' ppvRestartBuffer : void** in/out
' pcbRestartBuffer : DWORD* in/out
' plsn : CLS_LSN* in/out
' ppvContext : void** in/out
' pOverlapped : OVERLAPPED* in/out
Declare PtrSafe Function ReadLogRestartArea Lib "clfsw32" ( _
ByVal pvMarshal As LongPtr, _
ByVal ppvRestartBuffer As LongPtr, _
ByRef pcbRestartBuffer As Long, _
ByVal plsn As LongPtr, _
ByVal ppvContext As LongPtr, _
ByVal pOverlapped As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
ReadLogRestartArea = ctypes.windll.clfsw32.ReadLogRestartArea
ReadLogRestartArea.restype = wintypes.BOOL
ReadLogRestartArea.argtypes = [
ctypes.POINTER(None), # pvMarshal : void* in/out
ctypes.c_void_p, # ppvRestartBuffer : void** in/out
ctypes.POINTER(wintypes.DWORD), # pcbRestartBuffer : DWORD* in/out
ctypes.c_void_p, # plsn : CLS_LSN* in/out
ctypes.c_void_p, # ppvContext : void** in/out
ctypes.c_void_p, # pOverlapped : OVERLAPPED* in/out
]
# GetLastError: use ctypes.GetLastError() (or ctypes.WinDLL(use_last_error=True))require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('clfsw32.dll')
ReadLogRestartArea = Fiddle::Function.new(
lib['ReadLogRestartArea'],
[
Fiddle::TYPE_VOIDP, # pvMarshal : void* in/out
Fiddle::TYPE_VOIDP, # ppvRestartBuffer : void** in/out
Fiddle::TYPE_VOIDP, # pcbRestartBuffer : DWORD* in/out
Fiddle::TYPE_VOIDP, # plsn : CLS_LSN* in/out
Fiddle::TYPE_VOIDP, # ppvContext : void** in/out
Fiddle::TYPE_VOIDP, # pOverlapped : OVERLAPPED* in/out
],
Fiddle::TYPE_INT)#[link(name = "clfsw32")]
extern "system" {
fn ReadLogRestartArea(
pvMarshal: *mut (), // void* in/out
ppvRestartBuffer: *mut *mut (), // void** in/out
pcbRestartBuffer: *mut u32, // DWORD* in/out
plsn: *mut CLS_LSN, // CLS_LSN* in/out
ppvContext: *mut *mut (), // void** in/out
pOverlapped: *mut OVERLAPPED // OVERLAPPED* in/out
) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("clfsw32.dll", SetLastError = true)]
public static extern bool ReadLogRestartArea(IntPtr pvMarshal, IntPtr ppvRestartBuffer, ref uint pcbRestartBuffer, IntPtr plsn, IntPtr ppvContext, IntPtr pOverlapped);
"@
$api = Add-Type -MemberDefinition $sig -Name 'clfsw32_ReadLogRestartArea' -Namespace Win32 -PassThru
# $api::ReadLogRestartArea(pvMarshal, ppvRestartBuffer, pcbRestartBuffer, plsn, ppvContext, pOverlapped)#uselib "clfsw32.dll"
#func global ReadLogRestartArea "ReadLogRestartArea" sptr, sptr, sptr, sptr, sptr, sptr
; ReadLogRestartArea pvMarshal, ppvRestartBuffer, varptr(pcbRestartBuffer), varptr(plsn), ppvContext, varptr(pOverlapped) ; 戻り値は stat
; pvMarshal : void* in/out -> "sptr"
; ppvRestartBuffer : void** in/out -> "sptr"
; pcbRestartBuffer : DWORD* in/out -> "sptr"
; plsn : CLS_LSN* in/out -> "sptr"
; ppvContext : void** in/out -> "sptr"
; pOverlapped : OVERLAPPED* in/out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。#uselib "clfsw32.dll" #cfunc global ReadLogRestartArea "ReadLogRestartArea" sptr, sptr, var, var, sptr, var ; res = ReadLogRestartArea(pvMarshal, ppvRestartBuffer, pcbRestartBuffer, plsn, ppvContext, pOverlapped) ; pvMarshal : void* in/out -> "sptr" ; ppvRestartBuffer : void** in/out -> "sptr" ; pcbRestartBuffer : DWORD* in/out -> "var" ; plsn : CLS_LSN* in/out -> "var" ; ppvContext : void** in/out -> "sptr" ; pOverlapped : OVERLAPPED* in/out -> "var" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "clfsw32.dll" #cfunc global ReadLogRestartArea "ReadLogRestartArea" sptr, sptr, sptr, sptr, sptr, sptr ; res = ReadLogRestartArea(pvMarshal, ppvRestartBuffer, varptr(pcbRestartBuffer), varptr(plsn), ppvContext, varptr(pOverlapped)) ; pvMarshal : void* in/out -> "sptr" ; ppvRestartBuffer : void** in/out -> "sptr" ; pcbRestartBuffer : DWORD* in/out -> "sptr" ; plsn : CLS_LSN* in/out -> "sptr" ; ppvContext : void** in/out -> "sptr" ; pOverlapped : OVERLAPPED* in/out -> "sptr" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
; BOOL ReadLogRestartArea(void* pvMarshal, void** ppvRestartBuffer, DWORD* pcbRestartBuffer, CLS_LSN* plsn, void** ppvContext, OVERLAPPED* pOverlapped) #uselib "clfsw32.dll" #cfunc global ReadLogRestartArea "ReadLogRestartArea" intptr, intptr, var, var, intptr, var ; res = ReadLogRestartArea(pvMarshal, ppvRestartBuffer, pcbRestartBuffer, plsn, ppvContext, pOverlapped) ; pvMarshal : void* in/out -> "intptr" ; ppvRestartBuffer : void** in/out -> "intptr" ; pcbRestartBuffer : DWORD* in/out -> "var" ; plsn : CLS_LSN* in/out -> "var" ; ppvContext : void** in/out -> "intptr" ; pOverlapped : OVERLAPPED* in/out -> "var" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; BOOL ReadLogRestartArea(void* pvMarshal, void** ppvRestartBuffer, DWORD* pcbRestartBuffer, CLS_LSN* plsn, void** ppvContext, OVERLAPPED* pOverlapped) #uselib "clfsw32.dll" #cfunc global ReadLogRestartArea "ReadLogRestartArea" intptr, intptr, intptr, intptr, intptr, intptr ; res = ReadLogRestartArea(pvMarshal, ppvRestartBuffer, varptr(pcbRestartBuffer), varptr(plsn), ppvContext, varptr(pOverlapped)) ; pvMarshal : void* in/out -> "intptr" ; ppvRestartBuffer : void** in/out -> "intptr" ; pcbRestartBuffer : DWORD* in/out -> "intptr" ; plsn : CLS_LSN* in/out -> "intptr" ; ppvContext : void** in/out -> "intptr" ; pOverlapped : OVERLAPPED* in/out -> "intptr" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
clfsw32 = windows.NewLazySystemDLL("clfsw32.dll")
procReadLogRestartArea = clfsw32.NewProc("ReadLogRestartArea")
)
// pvMarshal (void* in/out), ppvRestartBuffer (void** in/out), pcbRestartBuffer (DWORD* in/out), plsn (CLS_LSN* in/out), ppvContext (void** in/out), pOverlapped (OVERLAPPED* in/out)
r1, _, err := procReadLogRestartArea.Call(
uintptr(pvMarshal),
uintptr(ppvRestartBuffer),
uintptr(pcbRestartBuffer),
uintptr(plsn),
uintptr(ppvContext),
uintptr(pOverlapped),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // BOOLfunction ReadLogRestartArea(
pvMarshal: Pointer; // void* in/out
ppvRestartBuffer: Pointer; // void** in/out
pcbRestartBuffer: Pointer; // DWORD* in/out
plsn: Pointer; // CLS_LSN* in/out
ppvContext: Pointer; // void** in/out
pOverlapped: Pointer // OVERLAPPED* in/out
): BOOL; stdcall;
external 'clfsw32.dll' name 'ReadLogRestartArea';result := DllCall("clfsw32\ReadLogRestartArea"
, "Ptr", pvMarshal ; void* in/out
, "Ptr", ppvRestartBuffer ; void** in/out
, "Ptr", pcbRestartBuffer ; DWORD* in/out
, "Ptr", plsn ; CLS_LSN* in/out
, "Ptr", ppvContext ; void** in/out
, "Ptr", pOverlapped ; OVERLAPPED* in/out
, "Int") ; return: BOOL●ReadLogRestartArea(pvMarshal, ppvRestartBuffer, pcbRestartBuffer, plsn, ppvContext, pOverlapped) = DLL("clfsw32.dll", "bool ReadLogRestartArea(void*, void*, void*, void*, void*, void*)")
# 呼び出し: ReadLogRestartArea(pvMarshal, ppvRestartBuffer, pcbRestartBuffer, plsn, ppvContext, pOverlapped)
# pvMarshal : void* in/out -> "void*"
# ppvRestartBuffer : void** in/out -> "void*"
# pcbRestartBuffer : DWORD* in/out -> "void*"
# plsn : CLS_LSN* in/out -> "void*"
# ppvContext : void** in/out -> "void*"
# pOverlapped : OVERLAPPED* in/out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。const std = @import("std");
extern "clfsw32" fn ReadLogRestartArea(
pvMarshal: ?*anyopaque, // void* in/out
ppvRestartBuffer: ?*anyopaque, // void** in/out
pcbRestartBuffer: [*c]u32, // DWORD* in/out
plsn: [*c]CLS_LSN, // CLS_LSN* in/out
ppvContext: ?*anyopaque, // void** in/out
pOverlapped: [*c]OVERLAPPED // OVERLAPPED* in/out
) callconv(std.os.windows.WINAPI) i32;proc ReadLogRestartArea(
pvMarshal: pointer, # void* in/out
ppvRestartBuffer: pointer, # void** in/out
pcbRestartBuffer: ptr uint32, # DWORD* in/out
plsn: ptr CLS_LSN, # CLS_LSN* in/out
ppvContext: pointer, # void** in/out
pOverlapped: ptr OVERLAPPED # OVERLAPPED* in/out
): int32 {.importc: "ReadLogRestartArea", stdcall, dynlib: "clfsw32.dll".}pragma(lib, "clfsw32");
extern(Windows)
int ReadLogRestartArea(
void* pvMarshal, // void* in/out
void** ppvRestartBuffer, // void** in/out
uint* pcbRestartBuffer, // DWORD* in/out
CLS_LSN* plsn, // CLS_LSN* in/out
void** ppvContext, // void** in/out
OVERLAPPED* pOverlapped // OVERLAPPED* in/out
);ccall((:ReadLogRestartArea, "clfsw32.dll"), stdcall, Int32,
(Ptr{Cvoid}, Ptr{Cvoid}, Ptr{UInt32}, Ptr{CLS_LSN}, Ptr{Cvoid}, Ptr{OVERLAPPED}),
pvMarshal, ppvRestartBuffer, pcbRestartBuffer, plsn, ppvContext, pOverlapped)
# pvMarshal : void* in/out -> Ptr{Cvoid}
# ppvRestartBuffer : void** in/out -> Ptr{Cvoid}
# pcbRestartBuffer : DWORD* in/out -> Ptr{UInt32}
# plsn : CLS_LSN* in/out -> Ptr{CLS_LSN}
# ppvContext : void** in/out -> Ptr{Cvoid}
# pOverlapped : OVERLAPPED* in/out -> Ptr{OVERLAPPED}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。local ffi = require("ffi")
ffi.cdef[[
int32_t ReadLogRestartArea(
void* pvMarshal,
void** ppvRestartBuffer,
uint32_t* pcbRestartBuffer,
void* plsn,
void** ppvContext,
void* pOverlapped);
]]
local clfsw32 = ffi.load("clfsw32")
-- clfsw32.ReadLogRestartArea(pvMarshal, ppvRestartBuffer, pcbRestartBuffer, plsn, ppvContext, pOverlapped)
-- pvMarshal : void* in/out
-- ppvRestartBuffer : void** in/out
-- pcbRestartBuffer : DWORD* in/out
-- plsn : CLS_LSN* in/out
-- ppvContext : void** in/out
-- pOverlapped : OVERLAPPED* in/out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。const koffi = require('koffi');
const lib = koffi.load('clfsw32.dll');
const ReadLogRestartArea = lib.func('__stdcall', 'ReadLogRestartArea', 'int32_t', ['void *', 'void *', 'uint32_t *', 'void *', 'void *', 'void *']);
// ReadLogRestartArea(pvMarshal, ppvRestartBuffer, pcbRestartBuffer, plsn, ppvContext, pOverlapped)
// pvMarshal : void* in/out -> 'void *'
// ppvRestartBuffer : void** in/out -> 'void *'
// pcbRestartBuffer : DWORD* in/out -> 'uint32_t *'
// plsn : CLS_LSN* in/out -> 'void *'
// ppvContext : void** in/out -> 'void *'
// pOverlapped : OVERLAPPED* in/out -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("clfsw32.dll", {
ReadLogRestartArea: { parameters: ["pointer", "pointer", "pointer", "pointer", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.ReadLogRestartArea(pvMarshal, ppvRestartBuffer, pcbRestartBuffer, plsn, ppvContext, pOverlapped)
// pvMarshal : void* in/out -> "pointer"
// ppvRestartBuffer : void** in/out -> "pointer"
// pcbRestartBuffer : DWORD* in/out -> "pointer"
// plsn : CLS_LSN* in/out -> "pointer"
// ppvContext : void** in/out -> "pointer"
// pOverlapped : OVERLAPPED* in/out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
int32_t ReadLogRestartArea(
void* pvMarshal,
void** ppvRestartBuffer,
uint32_t* pcbRestartBuffer,
void* plsn,
void** ppvContext,
void* pOverlapped);
C, "clfsw32.dll");
// $ffi->ReadLogRestartArea(pvMarshal, ppvRestartBuffer, pcbRestartBuffer, plsn, ppvContext, pOverlapped);
// pvMarshal : void* in/out
// ppvRestartBuffer : void** in/out
// pcbRestartBuffer : DWORD* in/out
// plsn : CLS_LSN* in/out
// ppvContext : void** in/out
// pOverlapped : OVERLAPPED* in/out
// 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
// WINAPI(stdcall): x64 では呼出規約が統一されるため問題なし。x86 では __stdcall 対応のラッパが必要な場合あり。import com.sun.jna.*;
import com.sun.jna.ptr.*;
import com.sun.jna.win32.StdCallLibrary;
import com.sun.jna.win32.W32APIOptions;
public interface Clfsw32 extends StdCallLibrary {
Clfsw32 INSTANCE = Native.load("clfsw32", Clfsw32.class);
boolean ReadLogRestartArea(
Pointer pvMarshal, // void* in/out
Pointer ppvRestartBuffer, // void** in/out
IntByReference pcbRestartBuffer, // DWORD* in/out
Pointer plsn, // CLS_LSN* in/out
Pointer ppvContext, // void** in/out
Pointer pOverlapped // OVERLAPPED* in/out
);
}@[Link("clfsw32")]
lib Libclfsw32
fun ReadLogRestartArea = ReadLogRestartArea(
pvMarshal : Void*, # void* in/out
ppvRestartBuffer : Void**, # void** in/out
pcbRestartBuffer : UInt32*, # DWORD* in/out
plsn : CLS_LSN*, # CLS_LSN* in/out
ppvContext : Void**, # void** in/out
pOverlapped : OVERLAPPED* # OVERLAPPED* in/out
) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef ReadLogRestartAreaNative = Int32 Function(Pointer<Void>, Pointer<Void>, Pointer<Uint32>, Pointer<Void>, Pointer<Void>, Pointer<Void>);
typedef ReadLogRestartAreaDart = int Function(Pointer<Void>, Pointer<Void>, Pointer<Uint32>, Pointer<Void>, Pointer<Void>, Pointer<Void>);
final ReadLogRestartArea = DynamicLibrary.open('clfsw32.dll')
.lookupFunction<ReadLogRestartAreaNative, ReadLogRestartAreaDart>('ReadLogRestartArea');
// pvMarshal : void* in/out -> Pointer<Void>
// ppvRestartBuffer : void** in/out -> Pointer<Void>
// pcbRestartBuffer : DWORD* in/out -> Pointer<Uint32>
// plsn : CLS_LSN* in/out -> Pointer<Void>
// ppvContext : void** in/out -> Pointer<Void>
// pOverlapped : OVERLAPPED* in/out -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function ReadLogRestartArea(
pvMarshal: Pointer; // void* in/out
ppvRestartBuffer: Pointer; // void** in/out
pcbRestartBuffer: Pointer; // DWORD* in/out
plsn: Pointer; // CLS_LSN* in/out
ppvContext: Pointer; // void** in/out
pOverlapped: Pointer // OVERLAPPED* in/out
): BOOL; stdcall;
external 'clfsw32.dll' name 'ReadLogRestartArea';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "ReadLogRestartArea"
c_ReadLogRestartArea :: Ptr () -> Ptr () -> Ptr Word32 -> Ptr () -> Ptr () -> Ptr () -> IO CInt
-- pvMarshal : void* in/out -> Ptr ()
-- ppvRestartBuffer : void** in/out -> Ptr ()
-- pcbRestartBuffer : DWORD* in/out -> Ptr Word32
-- plsn : CLS_LSN* in/out -> Ptr ()
-- ppvContext : void** in/out -> Ptr ()
-- pOverlapped : OVERLAPPED* in/out -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let readlogrestartarea =
foreign "ReadLogRestartArea"
((ptr void) @-> (ptr void) @-> (ptr uint32_t) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning int32_t)
(* pvMarshal : void* in/out -> (ptr void) *)
(* ppvRestartBuffer : void** in/out -> (ptr void) *)
(* pcbRestartBuffer : DWORD* in/out -> (ptr uint32_t) *)
(* plsn : CLS_LSN* in/out -> (ptr void) *)
(* ppvContext : void** in/out -> (ptr void) *)
(* pOverlapped : OVERLAPPED* in/out -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library clfsw32 (t "clfsw32.dll"))
(cffi:use-foreign-library clfsw32)
(cffi:defcfun ("ReadLogRestartArea" read-log-restart-area :convention :stdcall) :int32
(pv-marshal :pointer) ; void* in/out
(ppv-restart-buffer :pointer) ; void** in/out
(pcb-restart-buffer :pointer) ; DWORD* in/out
(plsn :pointer) ; CLS_LSN* in/out
(ppv-context :pointer) ; void** in/out
(p-overlapped :pointer)) ; OVERLAPPED* in/out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $ReadLogRestartArea = Win32::API::More->new('clfsw32',
'BOOL ReadLogRestartArea(LPVOID pvMarshal, LPVOID ppvRestartBuffer, LPVOID pcbRestartBuffer, LPVOID plsn, LPVOID ppvContext, LPVOID pOverlapped)');
# my $ret = $ReadLogRestartArea->Call($pvMarshal, $ppvRestartBuffer, $pcbRestartBuffer, $plsn, $ppvContext, $pOverlapped);
# pvMarshal : void* in/out -> LPVOID
# ppvRestartBuffer : void** in/out -> LPVOID
# pcbRestartBuffer : DWORD* in/out -> LPVOID
# plsn : CLS_LSN* in/out -> LPVOID
# ppvContext : void** in/out -> LPVOID
# pOverlapped : OVERLAPPED* in/out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。関連項目
- f CreateLogFile — CLFSのログファイルを作成または開く。
- f ReadPreviousLogRestartArea — CLFSログで一つ前のリスタート領域を読み取る。
- f WriteLogRestartArea — CLFSログにリスタート領域を書き込む。