ScriptTextOut

// USP10.dll
#include <windows.h>

HRESULT ScriptTextOut(
    HDC hdc,
    void** psc,
    INT x,
    INT y,
    DWORD fuOptions,
    const RECT* lprc,   // optional
    const SCRIPT_ANALYSIS* psa,
    LPCWSTR pwcReserved,   // optional
    INT iReserved,   // optional
    const WORD* pwGlyphs,
    INT cGlyphs,
    const INT* piAdvance,
    const INT* piJustify,   // optional
    const GOFFSET* pGoffset
);

<DllImport("USP10.dll", ExactSpelling:=True)>
Public Shared Function ScriptTextOut(
    hdc As IntPtr,   ' HDC
    psc As IntPtr,   ' void** in/out
    x As Integer,   ' INT
    y As Integer,   ' INT
    fuOptions As UInteger,   ' DWORD
    lprc As IntPtr,   ' RECT* optional
    psa As IntPtr,   ' SCRIPT_ANALYSIS*
    <MarshalAs(UnmanagedType.LPWStr)> pwcReserved As String,   ' LPCWSTR optional
    iReserved As Integer,   ' INT optional
    ByRef pwGlyphs As UShort,   ' WORD*
    cGlyphs As Integer,   ' INT
    ByRef piAdvance As Integer,   ' INT*
    piJustify As IntPtr,   ' INT* optional
    pGoffset As IntPtr   ' GOFFSET*
) As Integer
End Function

' hdc : HDC
' psc : void** in/out
' x : INT
' y : INT
' fuOptions : DWORD
' lprc : RECT* optional
' psa : SCRIPT_ANALYSIS*
' pwcReserved : LPCWSTR optional
' iReserved : INT optional
' pwGlyphs : WORD*
' cGlyphs : INT
' piAdvance : INT*
' piJustify : INT* optional
' pGoffset : GOFFSET*
Declare PtrSafe Function ScriptTextOut Lib "usp10" ( _
    ByVal hdc As LongPtr, _
    ByVal psc As LongPtr, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal fuOptions As Long, _
    ByVal lprc As LongPtr, _
    ByVal psa As LongPtr, _
    ByVal pwcReserved As LongPtr, _
    ByVal iReserved As Long, _
    ByRef pwGlyphs As Integer, _
    ByVal cGlyphs As Long, _
    ByRef piAdvance As Long, _
    ByVal piJustify As LongPtr, _
    ByVal pGoffset As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

ScriptTextOut = ctypes.windll.usp10.ScriptTextOut
ScriptTextOut.restype = ctypes.c_int
ScriptTextOut.argtypes = [
    wintypes.HANDLE,  # hdc : HDC
    ctypes.c_void_p,  # psc : void** in/out
    ctypes.c_int,  # x : INT
    ctypes.c_int,  # y : INT
    wintypes.DWORD,  # fuOptions : DWORD
    ctypes.c_void_p,  # lprc : RECT* optional
    ctypes.c_void_p,  # psa : SCRIPT_ANALYSIS*
    wintypes.LPCWSTR,  # pwcReserved : LPCWSTR optional
    ctypes.c_int,  # iReserved : INT optional
    ctypes.POINTER(ctypes.c_ushort),  # pwGlyphs : WORD*
    ctypes.c_int,  # cGlyphs : INT
    ctypes.POINTER(ctypes.c_int),  # piAdvance : INT*
    ctypes.POINTER(ctypes.c_int),  # piJustify : INT* optional
    ctypes.c_void_p,  # pGoffset : GOFFSET*
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('USP10.dll')
ScriptTextOut = Fiddle::Function.new(
  lib['ScriptTextOut'],
  [
    Fiddle::TYPE_VOIDP,  # hdc : HDC
    Fiddle::TYPE_VOIDP,  # psc : void** in/out
    Fiddle::TYPE_INT,  # x : INT
    Fiddle::TYPE_INT,  # y : INT
    -Fiddle::TYPE_INT,  # fuOptions : DWORD
    Fiddle::TYPE_VOIDP,  # lprc : RECT* optional
    Fiddle::TYPE_VOIDP,  # psa : SCRIPT_ANALYSIS*
    Fiddle::TYPE_VOIDP,  # pwcReserved : LPCWSTR optional
    Fiddle::TYPE_INT,  # iReserved : INT optional
    Fiddle::TYPE_VOIDP,  # pwGlyphs : WORD*
    Fiddle::TYPE_INT,  # cGlyphs : INT
    Fiddle::TYPE_VOIDP,  # piAdvance : INT*
    Fiddle::TYPE_VOIDP,  # piJustify : INT* optional
    Fiddle::TYPE_VOIDP,  # pGoffset : GOFFSET*
  ],
  Fiddle::TYPE_INT)

#[link(name = "usp10")]
extern "system" {
    fn ScriptTextOut(
        hdc: *mut core::ffi::c_void,  // HDC
        psc: *mut *mut (),  // void** in/out
        x: i32,  // INT
        y: i32,  // INT
        fuOptions: u32,  // DWORD
        lprc: *const RECT,  // RECT* optional
        psa: *const SCRIPT_ANALYSIS,  // SCRIPT_ANALYSIS*
        pwcReserved: *const u16,  // LPCWSTR optional
        iReserved: i32,  // INT optional
        pwGlyphs: *const u16,  // WORD*
        cGlyphs: i32,  // INT
        piAdvance: *const i32,  // INT*
        piJustify: *const i32,  // INT* optional
        pGoffset: *const GOFFSET  // GOFFSET*
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("USP10.dll")]
public static extern int ScriptTextOut(IntPtr hdc, IntPtr psc, int x, int y, uint fuOptions, IntPtr lprc, IntPtr psa, [MarshalAs(UnmanagedType.LPWStr)] string pwcReserved, int iReserved, ref ushort pwGlyphs, int cGlyphs, ref int piAdvance, IntPtr piJustify, IntPtr pGoffset);
"@
$api = Add-Type -MemberDefinition $sig -Name 'USP10_ScriptTextOut' -Namespace Win32 -PassThru
# $api::ScriptTextOut(hdc, psc, x, y, fuOptions, lprc, psa, pwcReserved, iReserved, pwGlyphs, cGlyphs, piAdvance, piJustify, pGoffset)

#uselib "USP10.dll"
#func global ScriptTextOut "ScriptTextOut" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; ScriptTextOut hdc, psc, x, y, fuOptions, varptr(lprc), varptr(psa), pwcReserved, iReserved, varptr(pwGlyphs), cGlyphs, varptr(piAdvance), varptr(piJustify), varptr(pGoffset)   ; 戻り値は stat
; hdc : HDC -> "sptr"
; psc : void** in/out -> "sptr"
; x : INT -> "sptr"
; y : INT -> "sptr"
; fuOptions : DWORD -> "sptr"
; lprc : RECT* optional -> "sptr"
; psa : SCRIPT_ANALYSIS* -> "sptr"
; pwcReserved : LPCWSTR optional -> "sptr"
; iReserved : INT optional -> "sptr"
; pwGlyphs : WORD* -> "sptr"
; cGlyphs : INT -> "sptr"
; piAdvance : INT* -> "sptr"
; piJustify : INT* optional -> "sptr"
; pGoffset : GOFFSET* -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	usp10 = windows.NewLazySystemDLL("USP10.dll")
	procScriptTextOut = usp10.NewProc("ScriptTextOut")
)

// hdc (HDC), psc (void** in/out), x (INT), y (INT), fuOptions (DWORD), lprc (RECT* optional), psa (SCRIPT_ANALYSIS*), pwcReserved (LPCWSTR optional), iReserved (INT optional), pwGlyphs (WORD*), cGlyphs (INT), piAdvance (INT*), piJustify (INT* optional), pGoffset (GOFFSET*)
r1, _, err := procScriptTextOut.Call(
	uintptr(hdc),
	uintptr(psc),
	uintptr(x),
	uintptr(y),
	uintptr(fuOptions),
	uintptr(lprc),
	uintptr(psa),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(pwcReserved))),
	uintptr(iReserved),
	uintptr(pwGlyphs),
	uintptr(cGlyphs),
	uintptr(piAdvance),
	uintptr(piJustify),
	uintptr(pGoffset),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT

function ScriptTextOut(
  hdc: THandle;   // HDC
  psc: Pointer;   // void** in/out
  x: Integer;   // INT
  y: Integer;   // INT
  fuOptions: DWORD;   // DWORD
  lprc: Pointer;   // RECT* optional
  psa: Pointer;   // SCRIPT_ANALYSIS*
  pwcReserved: PWideChar;   // LPCWSTR optional
  iReserved: Integer;   // INT optional
  pwGlyphs: Pointer;   // WORD*
  cGlyphs: Integer;   // INT
  piAdvance: Pointer;   // INT*
  piJustify: Pointer;   // INT* optional
  pGoffset: Pointer   // GOFFSET*
): Integer; stdcall;
  external 'USP10.dll' name 'ScriptTextOut';

result := DllCall("USP10\ScriptTextOut"
    , "Ptr", hdc   ; HDC
    , "Ptr", psc   ; void** in/out
    , "Int", x   ; INT
    , "Int", y   ; INT
    , "UInt", fuOptions   ; DWORD
    , "Ptr", lprc   ; RECT* optional
    , "Ptr", psa   ; SCRIPT_ANALYSIS*
    , "WStr", pwcReserved   ; LPCWSTR optional
    , "Int", iReserved   ; INT optional
    , "Ptr", pwGlyphs   ; WORD*
    , "Int", cGlyphs   ; INT
    , "Ptr", piAdvance   ; INT*
    , "Ptr", piJustify   ; INT* optional
    , "Ptr", pGoffset   ; GOFFSET*
    , "Int")   ; return: HRESULT

●ScriptTextOut(hdc, psc, x, y, fuOptions, lprc, psa, pwcReserved, iReserved, pwGlyphs, cGlyphs, piAdvance, piJustify, pGoffset) = DLL("USP10.dll", "int ScriptTextOut(void*, void*, int, int, dword, void*, void*, char*, int, void*, int, void*, void*, void*)")
# 呼び出し: ScriptTextOut(hdc, psc, x, y, fuOptions, lprc, psa, pwcReserved, iReserved, pwGlyphs, cGlyphs, piAdvance, piJustify, pGoffset)
# hdc : HDC -> "void*"
# psc : void** in/out -> "void*"
# x : INT -> "int"
# y : INT -> "int"
# fuOptions : DWORD -> "dword"
# lprc : RECT* optional -> "void*"
# psa : SCRIPT_ANALYSIS* -> "void*"
# pwcReserved : LPCWSTR optional -> "char*"
# iReserved : INT optional -> "int"
# pwGlyphs : WORD* -> "void*"
# cGlyphs : INT -> "int"
# piAdvance : INT* -> "void*"
# piJustify : INT* optional -> "void*"
# pGoffset : GOFFSET* -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。

const std = @import("std");

extern "usp10" fn ScriptTextOut(
    hdc: ?*anyopaque, // HDC
    psc: ?*anyopaque, // void** in/out
    x: i32, // INT
    y: i32, // INT
    fuOptions: u32, // DWORD
    lprc: [*c]RECT, // RECT* optional
    psa: [*c]SCRIPT_ANALYSIS, // SCRIPT_ANALYSIS*
    pwcReserved: [*c]const u16, // LPCWSTR optional
    iReserved: i32, // INT optional
    pwGlyphs: [*c]u16, // WORD*
    cGlyphs: i32, // INT
    piAdvance: [*c]i32, // INT*
    piJustify: [*c]i32, // INT* optional
    pGoffset: [*c]GOFFSET // GOFFSET*
) callconv(std.os.windows.WINAPI) i32;

proc ScriptTextOut(
    hdc: pointer,  # HDC
    psc: pointer,  # void** in/out
    x: int32,  # INT
    y: int32,  # INT
    fuOptions: uint32,  # DWORD
    lprc: ptr RECT,  # RECT* optional
    psa: ptr SCRIPT_ANALYSIS,  # SCRIPT_ANALYSIS*
    pwcReserved: WideCString,  # LPCWSTR optional
    iReserved: int32,  # INT optional
    pwGlyphs: ptr uint16,  # WORD*
    cGlyphs: int32,  # INT
    piAdvance: ptr int32,  # INT*
    piJustify: ptr int32,  # INT* optional
    pGoffset: ptr GOFFSET  # GOFFSET*
): int32 {.importc: "ScriptTextOut", stdcall, dynlib: "USP10.dll".}

pragma(lib, "usp10");
extern(Windows)
int ScriptTextOut(
    void* hdc,   // HDC
    void** psc,   // void** in/out
    int x,   // INT
    int y,   // INT
    uint fuOptions,   // DWORD
    RECT* lprc,   // RECT* optional
    SCRIPT_ANALYSIS* psa,   // SCRIPT_ANALYSIS*
    const(wchar)* pwcReserved,   // LPCWSTR optional
    int iReserved,   // INT optional
    ushort* pwGlyphs,   // WORD*
    int cGlyphs,   // INT
    int* piAdvance,   // INT*
    int* piJustify,   // INT* optional
    GOFFSET* pGoffset   // GOFFSET*
);

ccall((:ScriptTextOut, "USP10.dll"), stdcall, Int32,
      (Ptr{Cvoid}, Ptr{Cvoid}, Int32, Int32, UInt32, Ptr{RECT}, Ptr{SCRIPT_ANALYSIS}, Cwstring, Int32, Ptr{UInt16}, Int32, Ptr{Int32}, Ptr{Int32}, Ptr{GOFFSET}),
      hdc, psc, x, y, fuOptions, lprc, psa, pwcReserved, iReserved, pwGlyphs, cGlyphs, piAdvance, piJustify, pGoffset)
# hdc : HDC -> Ptr{Cvoid}
# psc : void** in/out -> Ptr{Cvoid}
# x : INT -> Int32
# y : INT -> Int32
# fuOptions : DWORD -> UInt32
# lprc : RECT* optional -> Ptr{RECT}
# psa : SCRIPT_ANALYSIS* -> Ptr{SCRIPT_ANALYSIS}
# pwcReserved : LPCWSTR optional -> Cwstring
# iReserved : INT optional -> Int32
# pwGlyphs : WORD* -> Ptr{UInt16}
# cGlyphs : INT -> Int32
# piAdvance : INT* -> Ptr{Int32}
# piJustify : INT* optional -> Ptr{Int32}
# pGoffset : GOFFSET* -> Ptr{GOFFSET}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。

local ffi = require("ffi")
ffi.cdef[[
int32_t ScriptTextOut(
    void* hdc,
    void** psc,
    int32_t x,
    int32_t y,
    uint32_t fuOptions,
    void* lprc,
    void* psa,
    const uint16_t* pwcReserved,
    int32_t iReserved,
    uint16_t* pwGlyphs,
    int32_t cGlyphs,
    int32_t* piAdvance,
    int32_t* piJustify,
    void* pGoffset);
]]
local usp10 = ffi.load("usp10")
-- usp10.ScriptTextOut(hdc, psc, x, y, fuOptions, lprc, psa, pwcReserved, iReserved, pwGlyphs, cGlyphs, piAdvance, piJustify, pGoffset)
-- hdc : HDC
-- psc : void** in/out
-- x : INT
-- y : INT
-- fuOptions : DWORD
-- lprc : RECT* optional
-- psa : SCRIPT_ANALYSIS*
-- pwcReserved : LPCWSTR optional
-- iReserved : INT optional
-- pwGlyphs : WORD*
-- cGlyphs : INT
-- piAdvance : INT*
-- piJustify : INT* optional
-- pGoffset : GOFFSET*
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。

const koffi = require('koffi');
const lib = koffi.load('USP10.dll');
const ScriptTextOut = lib.func('__stdcall', 'ScriptTextOut', 'int32_t', ['void *', 'void *', 'int32_t', 'int32_t', 'uint32_t', 'void *', 'void *', 'str16', 'int32_t', 'uint16_t *', 'int32_t', 'int32_t *', 'int32_t *', 'void *']);
// ScriptTextOut(hdc, psc, x, y, fuOptions, lprc, psa, pwcReserved, iReserved, pwGlyphs, cGlyphs, piAdvance, piJustify, pGoffset)
// hdc : HDC -> 'void *'
// psc : void** in/out -> 'void *'
// x : INT -> 'int32_t'
// y : INT -> 'int32_t'
// fuOptions : DWORD -> 'uint32_t'
// lprc : RECT* optional -> 'void *'
// psa : SCRIPT_ANALYSIS* -> 'void *'
// pwcReserved : LPCWSTR optional -> 'str16'
// iReserved : INT optional -> 'int32_t'
// pwGlyphs : WORD* -> 'uint16_t *'
// cGlyphs : INT -> 'int32_t'
// piAdvance : INT* -> 'int32_t *'
// piJustify : INT* optional -> 'int32_t *'
// pGoffset : GOFFSET* -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。

const lib = Deno.dlopen("USP10.dll", {
  ScriptTextOut: { parameters: ["pointer", "pointer", "i32", "i32", "u32", "pointer", "pointer", "buffer", "i32", "pointer", "i32", "pointer", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.ScriptTextOut(hdc, psc, x, y, fuOptions, lprc, psa, pwcReserved, iReserved, pwGlyphs, cGlyphs, piAdvance, piJustify, pGoffset)
// hdc : HDC -> "pointer"
// psc : void** in/out -> "pointer"
// x : INT -> "i32"
// y : INT -> "i32"
// fuOptions : DWORD -> "u32"
// lprc : RECT* optional -> "pointer"
// psa : SCRIPT_ANALYSIS* -> "pointer"
// pwcReserved : LPCWSTR optional -> "buffer"
// iReserved : INT optional -> "i32"
// pwGlyphs : WORD* -> "pointer"
// cGlyphs : INT -> "i32"
// piAdvance : INT* -> "pointer"
// piJustify : INT* optional -> "pointer"
// pGoffset : GOFFSET* -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。

<?php
$ffi = FFI::cdef(<<<C
int32_t ScriptTextOut(
    void* hdc,
    void** psc,
    int32_t x,
    int32_t y,
    uint32_t fuOptions,
    void* lprc,
    void* psa,
    const uint16_t* pwcReserved,
    int32_t iReserved,
    uint16_t* pwGlyphs,
    int32_t cGlyphs,
    int32_t* piAdvance,
    int32_t* piJustify,
    void* pGoffset);
C, "USP10.dll");
// $ffi->ScriptTextOut(hdc, psc, x, y, fuOptions, lprc, psa, pwcReserved, iReserved, pwGlyphs, cGlyphs, piAdvance, piJustify, pGoffset);
// hdc : HDC
// psc : void** in/out
// x : INT
// y : INT
// fuOptions : DWORD
// lprc : RECT* optional
// psa : SCRIPT_ANALYSIS*
// pwcReserved : LPCWSTR optional
// iReserved : INT optional
// pwGlyphs : WORD*
// cGlyphs : INT
// piAdvance : INT*
// piJustify : INT* optional
// pGoffset : GOFFSET*
// 構造体/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 Usp10 extends StdCallLibrary {
    Usp10 INSTANCE = Native.load("usp10", Usp10.class);
    int ScriptTextOut(
        Pointer hdc,   // HDC
        Pointer psc,   // void** in/out
        int x,   // INT
        int y,   // INT
        int fuOptions,   // DWORD
        Pointer lprc,   // RECT* optional
        Pointer psa,   // SCRIPT_ANALYSIS*
        WString pwcReserved,   // LPCWSTR optional
        int iReserved,   // INT optional
        ShortByReference pwGlyphs,   // WORD*
        int cGlyphs,   // INT
        IntByReference piAdvance,   // INT*
        IntByReference piJustify,   // INT* optional
        Pointer pGoffset   // GOFFSET*
    );
}

@[Link("usp10")]
lib LibUSP10
  fun ScriptTextOut = ScriptTextOut(
    hdc : Void*,   # HDC
    psc : Void**,   # void** in/out
    x : Int32,   # INT
    y : Int32,   # INT
    fuOptions : UInt32,   # DWORD
    lprc : RECT*,   # RECT* optional
    psa : SCRIPT_ANALYSIS*,   # SCRIPT_ANALYSIS*
    pwcReserved : UInt16*,   # LPCWSTR optional
    iReserved : Int32,   # INT optional
    pwGlyphs : UInt16*,   # WORD*
    cGlyphs : Int32,   # INT
    piAdvance : Int32*,   # INT*
    piJustify : Int32*,   # INT* optional
    pGoffset : GOFFSET*   # GOFFSET*
  ) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。

import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef ScriptTextOutNative = Int32 Function(Pointer<Void>, Pointer<Void>, Int32, Int32, Uint32, Pointer<Void>, Pointer<Void>, Pointer<Utf16>, Int32, Pointer<Uint16>, Int32, Pointer<Int32>, Pointer<Int32>, Pointer<Void>);
typedef ScriptTextOutDart = int Function(Pointer<Void>, Pointer<Void>, int, int, int, Pointer<Void>, Pointer<Void>, Pointer<Utf16>, int, Pointer<Uint16>, int, Pointer<Int32>, Pointer<Int32>, Pointer<Void>);
final ScriptTextOut = DynamicLibrary.open('USP10.dll')
    .lookupFunction<ScriptTextOutNative, ScriptTextOutDart>('ScriptTextOut');
// hdc : HDC -> Pointer<Void>
// psc : void** in/out -> Pointer<Void>
// x : INT -> Int32
// y : INT -> Int32
// fuOptions : DWORD -> Uint32
// lprc : RECT* optional -> Pointer<Void>
// psa : SCRIPT_ANALYSIS* -> Pointer<Void>
// pwcReserved : LPCWSTR optional -> Pointer<Utf16>
// iReserved : INT optional -> Int32
// pwGlyphs : WORD* -> Pointer<Uint16>
// cGlyphs : INT -> Int32
// piAdvance : INT* -> Pointer<Int32>
// piJustify : INT* optional -> Pointer<Int32>
// pGoffset : GOFFSET* -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。

{$mode objfpc}{$H+}
function ScriptTextOut(
  hdc: THandle;   // HDC
  psc: Pointer;   // void** in/out
  x: Integer;   // INT
  y: Integer;   // INT
  fuOptions: DWORD;   // DWORD
  lprc: Pointer;   // RECT* optional
  psa: Pointer;   // SCRIPT_ANALYSIS*
  pwcReserved: PWideChar;   // LPCWSTR optional
  iReserved: Integer;   // INT optional
  pwGlyphs: Pointer;   // WORD*
  cGlyphs: Integer;   // INT
  piAdvance: Pointer;   // INT*
  piJustify: Pointer;   // INT* optional
  pGoffset: Pointer   // GOFFSET*
): Integer; stdcall;
  external 'USP10.dll' name 'ScriptTextOut';

import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "ScriptTextOut"
  c_ScriptTextOut :: Ptr () -> Ptr () -> Int32 -> Int32 -> Word32 -> Ptr () -> Ptr () -> CWString -> Int32 -> Ptr Word16 -> Int32 -> Ptr Int32 -> Ptr Int32 -> Ptr () -> IO Int32
-- hdc : HDC -> Ptr ()
-- psc : void** in/out -> Ptr ()
-- x : INT -> Int32
-- y : INT -> Int32
-- fuOptions : DWORD -> Word32
-- lprc : RECT* optional -> Ptr ()
-- psa : SCRIPT_ANALYSIS* -> Ptr ()
-- pwcReserved : LPCWSTR optional -> CWString
-- iReserved : INT optional -> Int32
-- pwGlyphs : WORD* -> Ptr Word16
-- cGlyphs : INT -> Int32
-- piAdvance : INT* -> Ptr Int32
-- piJustify : INT* optional -> Ptr Int32
-- pGoffset : GOFFSET* -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。

open Ctypes
open Foreign

let scripttextout =
  foreign "ScriptTextOut"
    ((ptr void) @-> (ptr void) @-> int32_t @-> int32_t @-> uint32_t @-> (ptr void) @-> (ptr void) @-> (ptr uint16_t) @-> int32_t @-> (ptr uint16_t) @-> int32_t @-> (ptr int32_t) @-> (ptr int32_t) @-> (ptr void) @-> returning int32_t)
(* hdc : HDC -> (ptr void) *)
(* psc : void** in/out -> (ptr void) *)
(* x : INT -> int32_t *)
(* y : INT -> int32_t *)
(* fuOptions : DWORD -> uint32_t *)
(* lprc : RECT* optional -> (ptr void) *)
(* psa : SCRIPT_ANALYSIS* -> (ptr void) *)
(* pwcReserved : LPCWSTR optional -> (ptr uint16_t) *)
(* iReserved : INT optional -> int32_t *)
(* pwGlyphs : WORD* -> (ptr uint16_t) *)
(* cGlyphs : INT -> int32_t *)
(* piAdvance : INT* -> (ptr int32_t) *)
(* piJustify : INT* optional -> (ptr int32_t) *)
(* pGoffset : GOFFSET* -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)

(cffi:define-foreign-library usp10 (t "USP10.dll"))
(cffi:use-foreign-library usp10)

(cffi:defcfun ("ScriptTextOut" script-text-out :convention :stdcall) :int32
  (hdc :pointer)   ; HDC
  (psc :pointer)   ; void** in/out
  (x :int32)   ; INT
  (y :int32)   ; INT
  (fu-options :uint32)   ; DWORD
  (lprc :pointer)   ; RECT* optional
  (psa :pointer)   ; SCRIPT_ANALYSIS*
  (pwc-reserved (:string :encoding :utf-16le))   ; LPCWSTR optional
  (i-reserved :int32)   ; INT optional
  (pw-glyphs :pointer)   ; WORD*
  (c-glyphs :int32)   ; INT
  (pi-advance :pointer)   ; INT*
  (pi-justify :pointer)   ; INT* optional
  (p-goffset :pointer))   ; GOFFSET*
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。

use Win32::API;
my $ScriptTextOut = Win32::API::More->new('USP10',
    'int ScriptTextOut(HANDLE hdc, LPVOID psc, int x, int y, DWORD fuOptions, LPVOID lprc, LPVOID psa, LPCWSTR pwcReserved, int iReserved, LPVOID pwGlyphs, int cGlyphs, LPVOID piAdvance, LPVOID piJustify, LPVOID pGoffset)');
# my $ret = $ScriptTextOut->Call($hdc, $psc, $x, $y, $fuOptions, $lprc, $psa, $pwcReserved, $iReserved, $pwGlyphs, $cGlyphs, $piAdvance, $piJustify, $pGoffset);
# hdc : HDC -> HANDLE
# psc : void** in/out -> LPVOID
# x : INT -> int
# y : INT -> int
# fuOptions : DWORD -> DWORD
# lprc : RECT* optional -> LPVOID
# psa : SCRIPT_ANALYSIS* -> LPVOID
# pwcReserved : LPCWSTR optional -> LPCWSTR
# iReserved : INT optional -> int
# pwGlyphs : WORD* -> LPVOID
# cGlyphs : INT -> int
# piAdvance : INT* -> LPVOID
# piJustify : INT* optional -> LPVOID
# pGoffset : GOFFSET* -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。