第22回　FFIを使ã£ã¦ä»–ã®è¨€èªžã®é–¢æ•°ã‚’呼ã³å‡ºã™
Haskellを使ã£ã¦ã‚¢ãƒ—リケーションを作æˆã—よã†ã¨ã™ã‚‹ã¨ï¼Œãƒ©ã‚¤ãƒ–ラリã®æ©Ÿèƒ½ä¸è¶³ã«éé‡ã™ã‚‹ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚ä¸è¶³ã—ã¦ã„ã‚‹ã“ã†ã—ãŸæ©Ÿèƒ½ã®ä¸ã«ã¯ï¼ŒC言語ã§æ›¸ã‹ã‚ŒãŸãƒ©ã‚¤ãƒ–ラリやOSã®APIãªã©ã®åŠ›ã‚’借りãªã‘ã‚Œã°è¨˜è¿°ã§ããªã„ã‚‚ã®ãŒã‚ã‚Šã¾ã™ã€‚ ã“ã®ãŸã‚Haskellã§ã¯ï¼Œç¬¬7回ã§è§¦ã‚ŒãŸã‚ˆã†ã«ï¼Œå®Ÿè¡Œç’°å¢ƒã®å¤–ã«ã‚る他言語ã®ãƒ©ã‚¤ãƒ–ラリを扱ã†ãŸã‚ã«FFIã¨ã„ã†æ©Ÿèƒ½ã‚’用æ„ã—ã¦ã„ã¾ã™ã€‚FFIを使ãˆã°ï¼ŒHaskellã«ã¯ãªã„機能を実装ã§ãã¾ã™ã€‚ 今回ã¯FFIã®åŸºæœ¬çš„ãªä½¿ã„方を説明ã—ã¾ã™ã€‚ FFI使用ã®æœ€åˆã®ä¸€æ© 最åˆã«ï¼ŒFFIを使ã£ãŸã”ãç°¡å˜ãªé–¢æ•°å‘¼ã³å‡ºã—を見ã¦ã¿ã¾ã—ょã†ã€‚以下ã®ã‚ˆã†ãªã‚³ãƒ¼ãƒ‰ã§ï¼ŒHaskellã‹ã‚‰Cã®é–¢æ•°ã‚’呼ã³å‡ºã™ã“ã¨ãŒã§ãã¾ã™ã€‚ {-# LANGUAGE ForeignFunctionInterface #-} module SimpleFFIExample where foreign impor
Haskellã‹ã‚‰Cライブラリを呼ã¶(FFI) - yunomuã®ãƒ–ãƒã‚°
Haskellã®ãªã‚“ã§ã‚‚アリ具åˆã€‚ ライブラリをビルドã—ã¦ã‚‹ã¨ã¡ã‚‡ã„ã¡ã‚‡ã„見ãˆã‚‹FFIã¨ã„ã†æ–‡å—列ã€æ°—ã«ãªã£ã¦èª¿ã¹ã¦ã¿ã‚‹ã¨ã€ForeignFunctionInterfaceã¨ã„ã†ã‚‚ã®ãŒã‚ã£ã¦ã€ã“ã‚Œã¯Haskellã‹ã‚‰Cã®é–¢æ•°ã‚’呼ã³å‡ºã™ãŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ã„ã†ã‹æ‹¡å¼µã‚‰ã—ã„。 Haskellã®ã‚‚ã®ã™ã”ã„ライブラリã®å……実度ã®å½±ã«ã¯ã“ã†ã„ã†ã‚‚ã®ãŒã‚ã£ãŸã‚Šã™ã‚‹ã‚“ã§ã™ã。 ã¨ã„ã†ã“ã¨ã§ã¡ã‚‡ã£ã¨éŠã‚“ã§ã¿ã¾ã—ãŸã€‚ ã ã„ãŸã„ã“ã®è¨˜äº‹ã®ãƒˆãƒ¬ã‚¹ã§ã™ã€‚ 本物ã®ãƒ—ãƒã‚°ãƒ©ãƒžã¯Haskellを使ㆠ- 第22回　FFIを使ã£ã¦ä»–ã®è¨€èªžã®é–¢æ•°ã‚’呼ã³å‡ºã™ï¼šITpro æ—¢å˜ã®ãƒ©ã‚¤ãƒ–ラリを呼㶠上ã®è¨˜äº‹ã«ç¿’ã£ã¦ã€libmã®sinを呼ã³å‡ºã—ã¦ã¿ã¾ã™ã€‚ ã¾ãšã€ä½•ã¯ãªãã¨ã‚‚manã§ã™ã€‚sin(3)ã®manを見るã¨ã€ NAME sin, sinf, sinl - sine function SYNOPSIS #include doubl
Haskellã®æ§‹é€ 体をCã¨åŒæœŸã•ã›ã‚‹ - 椿ã®æ—¥è¨˜
Haskellã®ä»£æ•°çš„データ型ã¨Cã®æ§‹é€ 体を通信ã™ã‚‹ãŸã‚ã«hsc2hsã¨ã„ã†ãƒ„ールを使ã†ã¨ä¾¿åˆ©ã‚‰ã—ã„。次ã®Hogeã¨ã„ã†æ§‹é€ 体ã§ãƒ†ã‚¹ãƒˆã—ã¦ã¿ãŸã€‚ サンプルコード // Types.h struct Hoge { uint32_t field; }; -- Types.hsc {-# LANGUAGE ForeignFunctionInterface #-} #include "Types.h" data Hoge = Hoge { field :: UINT } deriving (Show,Eq) instance Storable Hoge where sizeOf = #size struct Hoge alignment = sizeOf peek (Hoge x) = (#peek struct Hoge, field) x poke ptr (Hoge x) = (#poke
CGI Error
The error was detected while processing this request. Be sure of followings: The CGI script does exist. The permission of CGI script is 755. The Perl path in CGI script is #!/usr/local/bin/perl. CGIスクリプトã®å‘¼ã³å‡ºã—ä¸ã«ã‚¨ãƒ©ãƒ¼ãŒç™ºç”Ÿã—ã¾ã—ãŸã€‚ 下記ã®ç‚¹ã‚’ã”確èªãã ã•ã„。 ・CGIスクリプトãŒå˜åœ¨ã™ã‚‹ã“ã¨ã€‚ ・CGIスクリプトã®ãƒ‘ーミッションãŒ755ã§ã‚ã‚‹ã“ã¨ã€‚ ・CGIスクリプトã®perlã®ãƒ‘ス㌠#!/usr/local/bin/perl ã§ã‚ã‚‹ã“ã¨ã€‚
ãƒã‚¤ãƒ³ã‚¿ã§å€¤ã‚’å—ã‘å–る関数ã®FFI - 椿ã®æ—¥è¨˜
C言語ã¯ã€è¨€èªžã®éƒ½åˆä¸Šã€é–¢æ•°ã¸æ¸¡ã—ãŸã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’用ã„ã¦æˆ»ã‚Šå€¤ã‚’å—ã‘å–ã‚‹ã“ã¨ãŒã—ã°ã—ã°ã‚ã‚Šã¾ã™ã€‚ extern "C" void ReceivePointer( int* p ) { *p = 100; }ã“れをHaskellã§å—ã‘å–ã‚‹ãŸã‚ã«ã€æ¬¡ã®ã‚ˆã†ãªæ‰‹é †ã‚’ã¨ã‚Šã¾ã™ã€‚ allocaã§ã‚¹ã‚¿ãƒƒã‚¯ä¸Šã«ãƒ¡ãƒ¢ãƒªã‚’割り当ã¦ã‚‹ Cã®é–¢æ•°ã¸ãƒã‚¤ãƒ³ã‚¿ã‚’渡ã—ã¦å€¤ã‚’å—ã‘å–ã‚‹ ãƒã‚¤ãƒ³ã‚¿å…ˆã®å€¤ã‚’peek関数ã§å–å¾— (alloca関数ãŒçµ‚ã‚ã‚‹ã®ã§ãƒ¡ãƒ¢ãƒªãŒé–‹æ”¾ã•ã‚Œã‚‹) åž‹ãŒç†è§£ã—ã‚„ã™ããªã‚‹ã‚ˆã†ã«é–¢æ•°ã‚’分割ã—ã¦è¨˜è¿°ã™ã‚‹ã¨ã“ã‚“ãªæ„Ÿã˜ã€‚ {-# LANGUAGE ForeignFunctionInterface #-} import Foreign.Storable import Foreign.Marshal import Foreign.Ptr foreign import ccall "ReceivePointer" c
備忘録　[Haskell]FFI使ã£ã¦C++ãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°ã«å…¥é–€
ã“ã®è¨˜äº‹ã¯Haskell Advent Calendarã®ãŸã‚ã«æ›¸ã„ãŸã‚‚ã®ã§ã™ã€‚ FFIã§Cã®é–¢æ•°ã‚’呼ã³å‡ºã™ã¨ã“ã‚ã¾ã§ã¯ã™ã‚“ãªã‚Šã„ã£ãŸã®ã§ã€æ¬¡C++è¡Œã£ã¦ã¿ã‚ˆã†ï¼ã¨ã—㦠ドãƒãƒžã‚Šã—ãŸã¨ã„ã†å†…容ã§ã™ã€‚ C++ã§ã‚¯ãƒ©ã‚¹ã‚’作æˆã—ã¦ã€ãƒ©ãƒƒãƒ‘ー関数を書ãã€Haskellã‹ã‚‰å‘¼ã³å‡ºã™ã¨ã„ã†æ‰‹é †ã§ã‚„ã£ã¦ã¿ã¾ã™ã€‚ ã¨ã‚Šã‚ãˆãšä½•ã‚‚考ãˆãšã«ä»¥ä¸‹ã®ã‚³ãƒ¼ãƒ‰ã‚’書ãã¾ã—ãŸã€‚ point.h point.cpp wrapper.cpp main.hs /* point.h */ class Point{ public: Point(int, int); int getX(); int getY(); private: int x, y; }; /* point.cpp */ #include "point.h" Point::Point(int x, int y){ this->x = x; this->y = y;
FFI (C++/CLI) - 七誌ã®é–‹ç™ºæ—¥è¨˜
FFIã§C言語を呼ã³å‡ºã›ãŸã®ã§ã€extern "C"ã§ãƒ©ãƒƒãƒ—ã—ãŸ.NET APIを呼ã³å‡ºã›ã‚‹ã‹è©¦ã—ã¾ã—ãŸã€‚Windows Formsã§GUIãŒè¡¨ç¤ºã§ãã¾ã—ãŸã€‚å³ãŒã‚¹ã‚¯ãƒªãƒ¼ãƒ³ã‚·ãƒ§ãƒƒãƒˆã§ã€ä»¥ä¸‹ãŒã‚½ãƒ¼ã‚¹ã§ã™ã€‚ https://gist.github.com/738961 gccã§ã¯C++/CLIを扱ãˆãªã„ãŸã‚ã€DLLã¯Visual C++ 2010 Express Editionã§ä½œæˆã—ã¾ã—ãŸã€‚今回ã¯ãƒ†ã‚¹ãƒˆç›®çš„ã®ãŸã‚ラッパーを自作ã—ã¾ã—ãŸãŒã€hs-dotnetã¨ã„ã†æ±Žç”¨ãƒ©ãƒƒãƒ‘ーãŒå˜åœ¨ã—ã¾ã™ã€‚ id:sirocco:20101026:1288085914 今回ã¯ä½¿ã„ã¾ã›ã‚“ãŒã€Haskellã¨F#を連æºã•ã›ã‚‹ã“ã¨ã‚‚ã§ããã†ã§ã™ã€‚ マーシャリング マãƒãƒ¼ã‚¸ã‚ªãƒ–ジェクトã¯pinã§æ¢ã‚ãªã„ã¨ãƒã‚¤ãƒ³ã‚¿ãŒå–り出ã›ã¾ã›ã‚“。é¢å€’ãªã®ã§ã‚ªãƒ–ジェクトをé…列ã«å…¥ã‚Œã¦ã€ã‚¤ãƒ³ãƒ‡ãƒƒã‚¯ã‚¹ã‚’ãƒãƒ³ãƒ‰ãƒ«ã¨ã—ã¦æ‰±ã†ã“ã¨ã«ã—ã¾ã—ãŸã€‚ã“ã®
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠- ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠以下ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’目処ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—を終了予定ã§ã‚る旨をãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019年末を目処ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æ供を終了ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã“ã®ãŸã³ã€æ£å¼ã«çµ‚了日を決定ã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”確èªãã ã•ã„。 終了日: 2020å¹´1月31æ—¥(金) エクスãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1月31æ—¥(金) 終了日以é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“。日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„。 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„㦠- ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã”利用ã®ã¿ãªã•ã¾ã«ã¯ã”迷惑をãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 追記 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2月28
12.2. Cコードã¸ã®Haskellインタフェースを書ã: hsc2hs
hsc2hsコマンドを使ã†ã¨ã€Cコードã®Haskellãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°ã‚’書ã作æ¥ã‚’一部自動化ã™ã‚‹ã“ã¨ãŒã§ãる。ã“ã®ã‚³ãƒžãƒ³ãƒ‰ã¯ã€ç‰¹åˆ¥ãªæ§‹æ–‡è¦ç´ ã®åŸ‹ã‚è¾¼ã¾ã‚ŒãŸHaskellã®ã‚³ãƒ¼ãƒ‰ã‚’èªã¿ã€Cã®ãƒ˜ãƒƒãƒ€ã‹ã‚‰å¾—ãŸæƒ…å ±ã‚’ä½¿ã£ã¦ã“れらã®è¦ç´ を処ç†ã—ã€æœ¬å½“ã®Haskellファイルを出力ã™ã‚‹ã€‚ã“ã®ç‰¹åˆ¥ãªæ§‹æ–‡è¦ç´ ã¯ã€Haskellã‹ã‚‰Cã®ãƒ‡ãƒ¼ã‚¿ã«ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ã«ã‚ãŸã£ã¦å¿…è¦ãªã“ã¨ã‚’扱ã†ã€‚ hsc2hsã¯Cファイルã¨Cヘッダを出力ã™ã‚‹ã“ã¨ã‚‚ã‚る。Cファイルã«ã¯ã€ãƒ—ãƒã‚°ãƒ©ãƒ ã«ãƒªãƒ³ã‚¯ã™ã¹ãè¿½åŠ ã®C関数ãŒç½®ã‹ã‚Œã€ãƒ˜ãƒƒãƒ€ãƒ•ã‚¡ã‚¤ãƒ«ã¯ã€ãã®HaskellモジュールãŒã‚³ãƒ³ãƒ‘イルã•ã‚Œã¦ã§ãã‚‹Cコードã‹ã‚‰includeã•ã‚Œã‚‹ã‚‚ã®ã§ã‚る。ã“ã®äºŒã¤ã®ãƒ•ã‚¡ã‚¤ãƒ«ã¯#defã¨ã„ã†æ§‹æ–‡è¦ç´ (下記å‚ç…§)ãŒä½¿ã‚ã‚ŒãŸã¨ãã«ä½œã‚‰ã‚Œã‚‹ã€‚ hsc2hsã¯å®Ÿéš›ã«ã¯ç›´æŽ¥Haskellコードを出力ã™ã‚‹ã‚ã‘ã§ã¯ãªã„。å•é¡Œã®ãƒ˜ãƒƒãƒ€ã‚’インクルードã™ã‚‹Cプãƒã‚°ãƒ©ãƒ を作り
Haskellã§GUI #2 FliptItã®æ”¹è‰¯ï¼šFFIã®åˆ©ç”¨ - è½æ›¸ãã€æ™‚々è½å¦
(今回㯠GUI ã¨ã„ã†ã‚ˆã‚Š FFI ãªæ°—ãŒã™ã‚‹ï¼Žã§ã‚‚目的㯠GUI ã ã‹ã‚‰ã„ã„ã‹ï¼Žï¼‰ å‰å›žä½œæˆã—㟠GUI ã® FlipIt を改良ã—ãŸï¼Ž 改良ã¯ä»¥ä¸‹ã®2点 å‘¨æœŸã‚’å¢—åŠ ï¼Ž 解を表示． 周期ã®å¢—åŠ å‰å›žã¯ マスã®å¤‰åŒ–㌠白→黒→白→黒→… ã ã£ãŸãŒï¼Œä»Šå›žã¯ã“ã®å‘¨æœŸã‚’変更ã§ãるよã†ã«ã—ãŸï¼Ž 白→ç°â†’黒→白→ç°â†’黒→… 内部的ã«ã¯ Bool ã®2次元é…列を Int ã®2次元é…列ã«å¤‰æ›´ã—ãŸã ã‘． æç”»ã®è‰²ã‚’å°‘ã—調整ã—ãŸç¨‹åº¦ï¼Ž ãŸã ，解を求ã‚ã‚‹éš›ã«ã‚¬ã‚¦ã‚¹ã®æ¶ˆåŽ»æ³•ã‚’使用ã™ã‚‹ã®ã§ï¼Œå‘¨æœŸã¯ç´ æ•°ã§ãªã„ã¨å•é¡ŒãŒç”Ÿã˜ã‚‹ï¼Ž ã¾ãŸï¼Œå‘¨æœŸãŒå¤§ãã™ãŽã¦ã‚‚，ã‚ã‘ã‚ã‹ã‚ã«ãªã‚‹ã ã‘ãªã®ã§ï¼Œæœ€å¤§å‘¨æœŸã¯7ã«è¨å®šã—ã¦ã„る． 解を表示 ガウスã®æ¶ˆåŽ»æ³•ã‚’ã‚„ã‚‹ã ã‘ã¨ã„ãˆã°ï¼Œãã‚Œã ã‘． ãŸã ，以å‰ã«C++ã§æ›¸ã„ãŸã“ã¨ãŒã‚る． ãã“ã§ï¼Œä»Šå›žã¯ Haskell ã® FFI(Foreign Function Interface) を使ã£ã¦å¤–部
Haskellã®FFIã¯ã¨ã£ã¦ã‚‚ç°¡å˜ - Hatena’s Kitchen
Real World Haskellã®èªæ›¸ãƒ¡ãƒ¢ãŒåœæ»žã—ã¦ã„ã¾ã™ãŒã€èªã‚€æ–¹ã¯åœ°é“ã«é€²ã‚“ã§ã„ã¾ã™ã€‚ 今17ç« ã®FFIã®ã¨ã“ã‚。 FFIã¨ã¯ã€Foreign Function Interfaceã®ç•¥ã§ã€Haskellプãƒã‚°ãƒ©ãƒ ã®ä¸ã§ä»–ã®è¨€èªžã®é–¢æ•°ã‚’èªã‚“ã ã‚Šã€ãã®é€†ã‚’ã—ãŸã‚Šã¨ã„ã£ãŸè©±ã€‚ 本ã®ä¸ã§ã¯ã€Haskellã‹ã‚‰Cã®é–¢æ•°ã‚’呼ã¶è©±ãŒãƒ¡ã‚¤ãƒ³ã§ã™ã€‚ 一èªã—ã‹ã—ã¦ãªãã¦ã€ã¾ã ã‚ã‹ã£ã¦ã„ãªã„ã¨ã“ã‚も多ãã‚ã‚‹ã®ã ã‘ã‚Œã©ã€ä¾‹ãˆã°Cã§æ›¸ã„ãŸHello Worldã‚’Haskellã‹ã‚‰å‘¼ã³å‡ºã™ã®ã¯ã¨ã£ã¦ã‚‚ç°¡å˜ã§ã™ã€‚ 用æ„ã™ã‚‹ãƒ•ã‚¡ã‚¤ãƒ«ã¯3ã¤ã€‚ hello.h #ifndef HELLO_H #define HELLO_H #include <stdio.h> void hello(void); #endif /* HELLO_H */ hello.c #include "hello.h" void hello(vo
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
Foreign.C.Types
Haskell/FFI - Wikibooks, open books for an open world
ã‚‚ã®ãã•å‚™å¿˜éŒ² : Haskellã ã£ã¦ãƒã‚°ã‚‹ã‚ˆãã£ã¦ã„ã†è©±ã—（Ｃ言語ã®é–¢æ•°ã‚’Haskellã§å‘¼ã¶ï¼‰
{{#tags}}- {{label}}
{{/tags}}