今から始める Inline::C 入門

Okinawa.pm #7 で Inline::C を使ったコードを紹介しながらしゃべりました。

- お気に入りのワンライナー
perl -E 'use Inline C => q{ SV*codehex(char*a,char*b){return newSVpvf("I Love %s and %s",a,b);} }; say codehex+Perl=>Go'

- illguts の PDF
https://st.aticpan.org/source/RURBAN/illguts-0.49/illguts.pdf

Transcript

1. ࠓ͔Β࢝ΊΔ
   *OMJOF$
   ೖ໳ PLJOBXBQN
   
2. !DPEFIFY !$PEF)FY w .JDSPTFSWJDFT
   Λ։ൃͯ͠Δ
   w ࠷ۙ͸
   (P
   ࣌ʑ
   1FSM
   w ϋΠαΠ
   0LJOBXBQN
   
3. *OMJOF$
 ࢖ͬͨ͜ͱ͋Γ·͔͢
4. *OMJOF$
   
5. *OMJOF$
   w $
   ݴޠͷ
   $
   w 1FSM
   ͷαϒϧʔνϯΛ
   $
   Ͱॻ͘͜ͱ͕Ͱ͖Δ
   w ΋ͪΖΜ
   $
   ଆͰ
   1FSM
   ͷ
   "1*
   ͷػೳ΋࢖͑Δ
   w εΫϦϓτ্ʹॻ͚ΔͷͰ
   1FSM
   "1*
   ͷ
 ѻ͍ํͷྑ͍ษڧʹͳΔ
6. ͲΜͳ෩ʹॻ͚Δͷʁʁ
7. $BTF
   
9. 
   Ϟδϡʔϧͷϩʔυ
10. 
    Ϟδϡʔϧͷϩʔυ 
    $
    ͷίʔυΛهड़
11. 
    Ϟδϡʔϧͷϩʔυ 
    $
    ͷίʔυΛهड़ 
    ؔ਺ݺͼग़͠
12. γϯϓϧʂʂ
13. $BTF
    
14. 
    QFSM
    F
    VTF
    *OMJOF
    $
    
    R\WPJE
    TBZ \QSJOUG )FMMP
    8PSMEaO ^
    ^
    TBZ
15. ϫϯϥΠφʔͱͯ͠΋ʂʂ
16. ࠓճ঺հ͢Δ΋ͷ w 1FSM
    Ͱ
    $
    Λѻ͏ͨΊʹ
    w 1FSM
    "1*
    Ͱ࢖͏࠷௿ݶͷجຊܕΛཧղ͢Δ
    w ܕͷؔ܎ੑΛ஌Δ
    w $
    ͔Β
    1FSM
    ΁஋Λฦ͢
    w 1FSM
    ͷ஋Λ
    $
    ΁౉͢
    w ܕม׵ͬͯͲ͏΍ͬͯΔͷʁ
17. 1FSM
    ͷܕΛ஌Ζ͏ʂ 1FSM
    Ͱ
    $
    Λѻ͏ͨΊʹ࠷௿ݶඞཁͳܕ
18. 47
    ܕ
19. 47
    ܕ w 1FSM
    ͰѻΘΕΔ஋͸
    47
    ܕ͔Β೿ੜ͍ͯ͠Δ
    w 1FSM
    ͷجຊܕͷશͯ͸
    47
    ܕ΁ม׵Ͱ͖Δ
    w "7
    )7
    (7
    $7
    37
    ͳͲͳͲ
20. IUUQTTUBUJDQBOPSHTPVSDF363#"/JMMHVUT TWUZQFTQOH
21. ϓϦϛςΟϒͳܕ
22. ϓϦϛςΟϒͳܕ w ϓϦϛςΟϒͳܕ͸
    47
    ͕͍࣋ͬͯΔ
    w εΧϥͳ஋ͷܕΛࢦ͢
    w *7
    /7
    17
    37
23. *7
 NZ
    JW
    
    
24. /7
 NZ
    OW
    
    
25. 17
 NZ
    QW
    
    TUSJOH
26. 37
 NZ
    SW
    aIW
27. ͪͳΈʹ
28. *7
    ʹ
    WPJE
    
    ͷϙΠϯλ΋
 ֨ೲ͢Δ͜ͱ͕Ͱ͖Δʂ
29. ࢀߟʹͳΔϖʔδ w IUUQTTUBUJDQBOPSHTPVSDF363#"/ JMMHVUTJMMHVUTQEG
    w $ʹΑΔ1FSM֦ுೖ໳
 IUUQYTVCUVUHJUIVCJP
30. $
    ͔Β
    1FSM
    ΁஋Λฦ͢ $
    ͔Β
    1FSM
    ΁஋Λฦؔ͢਺Λఆٛ͢Δ
32. JOU
    Λฦ͢ίʔυ
33. DIBS
    Λฦ͢ίʔυ
34. 1FSM
    Ͱड͚औΔ࣌ w $
    ͷੈքͰ͸
    JOU
    ΍
    DIBS
    
    ͷ··
    w 1FSM
    ͷੈք΁஋͕౉Δ࣌ʹܕ͕ม׵͞ΕΔ
    w ม׵͞ΕΔཧ༝ͱͯ͠
    UZQFNBQ
    ͱ͍͏΋ͷ͕
 ؔΘ͖ͬͯ·͕͢͜Ε͸·ͨޙड़
35. 1FSM
    ͷ஋Λ
    $
    ΁౉͢ 1FSM
    ͔Β
    $
    ΁஋Λฦؔ͢਺Λఆٛ͢Δ
36. DIBS
    Λड͚औΔؔ਺
37. JOU
    Λड͚औΔؔ਺
38. $
    Ͱड͚औΔ࣌ w 1FSM
    ͷੈքͰ͸
    47
    ͷ··
    w $
    ͷੈք΁஋͕౉Δ࣌ʹܕ͕ม׵͞ΕΔ
    w ͜͜Ͱ΋ม׵͞ΕΔཧ༝ͱͯ͠
    UZQFNBQ
    ͱ͍ ͏΋ͷ͕ؔΘ͖ͬͯ·͢
39. UZQFNBQ
    ͬͯԿʁ ܕ͕ࣗಈͰม׵͞ΕΔ࢓૊Έ
40. IUUQTHJUIVCDPNJOHZEPUOFUJOMJOFDQNDQFSMCJOEJOHT
41. IUUQTHJUIVCDPN1FSMQFSMCMPCCMFBEMJC&YU6UJMTUZQFNBQ
42. UZQFNBQ w JOU
    ͸
    5@*7
    Ͱఆٛ͞ΕͯΔม׵ͷ࢓૊ΈΛ࢖͏
    w DIBS
    
    ͸
    5@17
    Ͱఆٛ͞Ε͍ͯΔ࢓૊ΈΛ࢖͏
    w */165
    065165
    ʹͦΕͧΕίϯόʔλʔΛఆٛ
    w */165
    
    
    
    
    
    1FSM
    
    $
    ΁ͷίϯόʔλ
    w 065165
    
    $
    
    1FSM
    ΁ͷίϯόʔλ
43. $ perldoc perlxstypemap
44. JOU
    ͷ৔߹ w JOU
    
    
    5@*7
    w */165
    • $var = ($type)SvIV($arg) w 065165
    • sv_setiv($arg, (IV)$var);
45. DIBS
    ͷ৔߹ w DIBS
    
    
    
    5@17
    w */165
    • $var = ($type)SvPV_nolen($arg) w 065165
    • sv_setpv((SV*)$arg, $var);
46. ·ͱΊ
47. ·ͱΊ w *OMJOF$
    Λ࢖ͬͯ
    1FSM
    ͱ΍ΓͱΓ͢Δ؆୯ͳ
 ίʔυΛ࢖ͬͯઆ໌ͨ͠
    w 1FSM
    ʹ΋ܕ͸ଘࡏ͢Δ
    w ݴޠؒͰͷܕม׵๏͸
    UZQFNBQ
    Ͱఆٛ͞ΕͯΔ
    w ୯७ͳ৔߹
    1FSM
    ͷܕΛҙࣝ͢Δඞཁ͸ͳ͍
    w ؆୯ʹॻ͚Δʂʂ