Julia Juno Jupyter part1 [無断転載禁止]©2ch.net (745ﾚｽ)
Julia Juno Jupyter part1 [無断転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1455271513/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
11: デフォルトの名無しさん [sage] 2016/02/13(土) 10:22:27.58 ID:3L3e3K/U ccall(:printf, Void, (Ptr{Cchar}, Ptr{Cchar}), "%s", ccall((:curl_version, :libcurl), Ptr{Cchar}, ())) err = ccall((:MessageBoxW, :user32), stdcall, UInt, (Ptr{UInt}, Ptr{Cwchar_t}, Ptr{Cwchar_t}, UInt), 0, Array{UInt16,1}([0x304C,0x3063,0xFF01,0]), Array{UInt16,1}([0x306C,0x308B,0x307D,0]), 0) Array{UInt16,1}のところはArray{Cwchar_t}とかVector{Cwchar_t}とも書ける err = ccall((:MessageBoxW, :user32), stdcall, UInt, (Ptr{UInt}, Ptr{Cwchar_t}, Ptr{Cwchar_t}, UInt), 0, Vector{Cwchar_t}([0x304C,0x3063,0xFF01,0]), Array{Cwchar_t}([0x306C,0x308B,0x307D,0]), 0) これでいいね loadは省けるけど毎回loadと解放してくれてるんだろうか http://mevius.5ch.net/test/read.cgi/tech/1455271513/11
25: デフォルトの名無しさん [sage] 2016/02/15(月) 11:19:37.91 ID:TvNTryet >>11 julia> ccall((:curl_version, :libcurl), Ptr{Cchar}, ()) Ptr{Int8} @0x6b29c060 julia> @sprintf "%s" ccall((:curl_version, :libcurl), Ptr{Cchar}, ()) "Ptr{Int8} @0x6b29c060" んーこれも期待した動作と違うなぁ。 http://mevius.5ch.net/test/read.cgi/tech/1455271513/25
49: デフォルトの名無しさん [sage] 2016/02/19(金) 13:47:52.38 ID:5RH0Tfsb >>11 ccall((:MessageBoxW, :user32), stdcall, UInt, (Ptr{Void}, Ptr{Cwchar_t}, Ptr{Cwchar_t}, UInt), C_NULL, [0x304C,0x3063,0xFF01,0x0000], [0x306C,0x308B,0x307D,0x0000], 0) この方が良くね？ http://mevius.5ch.net/test/read.cgi/tech/1455271513/49
97: デフォルトの名無しさん [sage] 2016/07/22(金) 11:45:49.87 ID:f6dSUOKk >>7-11 >>25 >>28 >>30-32 定義はmacro使うと楽 macro c(restype, fnc, argtypes) local args = [symbol("a", n) for n in 1:length(argtypes.args)] quote $(esc(fnc))($(args...)) = ccall($(string(fnc)), $restype, $argtypes, $(args...)) end end @c UInt32 printf (Ptr{Cchar},) @c UInt32 printf (Ptr{Cchar}, UInt32,) printf(pointer(Array{UInt8,1}([65,66,0,67,68,0,0]))) printf("%s\n", pointer(Array{UInt8,1}([65,66,0,67,68,0,0]))) macro m(lib, restype, fnc, argtypes) local args = [symbol("a", n) for n in 1:length(argtypes.args)] quote $(esc(fnc))($(args...)) = ccall(($(string(fnc)), $(Expr(:quote, lib))), $restype, $argtypes, $(args...)) end end @m libcurl Cint curl_free (Ptr{Void},) @m libcurl Ptr{Cchar} curl_getenv (Ptr{Cchar},) @m libcurl Ptr{Cchar} curl_version () v = curl_getenv("TZ") printf(v) curl_free(v) printf(curl_version()) http://mevius.5ch.net/test/read.cgi/tech/1455271513/97
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.022s