What can Emacs be? / Hackers Champloo 2019

)BDLFST$IBNQMPP 4BU 8IBUDBO&NBDTCF ٶᅳ౉ !HPOHP;

ࣗݾ঺հ w HJUIVCDPNHPOHP w !HPOHP; w 4NBSU)3 *OD

&NBDTͷ࿩Λ͠·͢

&NBDTͱ͸ w ςΩετΤσΟλͰ͢ w ͬͦ͘͞ެࣜ)1ΛݟͯΈΑ͏

IUUQTXXXHOVPSHTPGUXBSFFNBDT

&NBDT-JTQΛ࢖ͬͯɺઃఆͷΧελϚΠζ΍ ػೳͷ௥Ճɾ֦ு͕Ͱ͖Δ

ϑΝΠϧ໊΍ߦ਺ɺϞʔυͳͲ͕දࣔ͞Ε͍ͯΔ &NBDTͰ͸͓ೃછͷʰϞʔυϥΠϯʱ

ΛྲྀͤΔ͙Β͍ࣗ༝ʹΧελϚΠζՄೳ

࠷৽ ҆ఆ ൛͸

&NBDTʹ͸ ςΩετΤσΟλͷଞʹ ʰผͷ࢟ʱ͕ଘࡏ͢Δ

&NBDTʹ͸ ςΩετΤσΟλͷଞʹ ʰผͷ࢟ʱ͕ଘࡏ͢Δ ☝:FT☝

ݟʹߦ͜͏ɺͦͷʰઌʱΛ

&NBDT͕Ͱ͖Δ͜ͱ &NBDT͕ͳΕΔ΋ͷ &NBDT͕ͳΕΔ΋ͷ ·ͱΊ ͋͐͡Μͩ

w ࠷దɺ࠷ڧͷ&NBDT؀ڥ w ࣗ෼͚ͩͷ&NBDT͸ࣗ෼Ͱݟ͚ͭΔ͔͠ͳ͍  w ଞͷΤσΟλͱͷൺֱ w ࠓ͚ͩ͸&NBDT͚ͩΛݟͯ΄͍͠ ຊൃදͰ͓఻͑͠ͳ͍͜ͱ

&NBDT͕Ͱ͖Δ͜ͱ

&NBDT͸ςΩετΤσΟλͳͷͰ ʰςΩετΛॻ͘✍ʱ ͜ͱΛੜۀͱ͢Δਓʹͱͬͯ ศརͳػೳ͕༻ҙ͞Ε͍ͯ·͢

ศརͳػೳͱ͸ ଞʹ΋͋Δ͚ͲɺࠓճͷςʔϚʹԊͬͨ΍ͭ จࣈ΍എܠʹ৭Λ͚ͭΒΕΔ 5$1 ·ͨ͸6%1 ௨৴͕Մೳ ඇ
ಉظϓϩηεΛىಈͰ͖Δ

ศརͳػೳͱ͸ จࣈ΍എܠʹ৭Λ͚ͭΒΕΔ 5$1 ιέοτ ௨৴͕Մೳ ඇ ಉظϓϩηεΛىಈͰ͖Δ

ศརͳػೳͱ͸ จࣈ΍എܠʹ৭Λ͚ͭΒΕΔ 5$1 ιέοτ ௨৴͕Մೳ ඇ ಉظϓϩηεΛىಈͰ͖Δ ݟ΍͘͢ͳͬͯศར

จࣈ΍എܠʹ৭Λ͚ͭΒΕΔ 2Կ͕ศར "ࢹೝੑ͸݈શͳ৺ͱςΩετΛҭΉ w ςΩετ͕࣋ͭҙຯΛࢹ֮తʹ೺ѲͰ͖Δ w ೴ͷෛ୲ΛݮΒ͢ w ৭͚ͩͰͳ͘ελΠϧ΋มߋՄೳ
w ϘʔϧυɺΠλϦοΫͳͲ

ྫ QIQNPEF

จࣈ΍എܠʹ৭Λ͚ͭΒΕΔ ελΠϧͷมߋ͸ &NBDT-JTQͰ ͔ͳΓࣗ༝ʹ ઃఆͰ͖Δ 0OFNPSFUIJOH

޷͖ͳҐஔʹ޷͖ͳ৭Ͱ ண৭Մೳ

ศརͳػೳͱ͸ จࣈ΍എܠʹ৭Λ͚ͭΒΕΔ 5$1 ιέοτ ௨৴͕Մೳ ඇ ಉظϓϩηεΛىಈͰ͖Δ ੈքதͷσʔλΛ
&NBDT಺Ͱ࢖͑ͯศར

5$1 ιέοτ ௨৴͕Մೳ 2Կ͕ศར "8FCαʔϏε͕&NBDT͔Βར༻Ͱ͖Δ

5$1 ιέοτ ௨৴͕Մೳ Α͘໨ʹ͢ΔϓϥάΠϯ w (PPHMF຋༁΍DPEJDΛ࢖ͬͯ຋༁͍ͨ͠ w HPPHMFUSBOTMBUFFM FNBDTDPEJDFM w
5XJUUFSͰπΠʔτͨ͠ΓGBWͬͨΓ w UXJUUFSJOHNPEF w ϝʔϧಡΜͩΓ w .FX

5$1 ιέοτ ௨৴͕Մೳ w ͜ͷؔ਺Λ࢖ͬͯΈ·͢ w VSMSFUSJFWFTZODISPOPVTMZ63- w ࢦఆͨ͠63-ʹ(&5ϦΫΤετΛૹΓɺϨεϙϯεΛऔಘ 
w ͓ࢼ͠8FCαʔϏε w JGDPOpHJP w ΞΫηε͖ͯͨ͠ਓ ͜ͷ৔߹ࣗ෼ࣗ਎ ͷ(MPCBM*1"EESFTTͱ͔ɺ 6TFS"HFOUͱ͔ࠃίʔυͱ͔Λදࣔͯ͘͠ΕΔ ศར ࢼ͠ʹ΍ͬͯΈ·͠ΐ͏

5$1 ιέοτ ௨৴͕Մೳ ߋʹࡉ͔͍ઃఆͰ௨৴Λ։͖͍ͨ࣌͸ NBLFOFUXPSLQSPDFTTΛ࢖͏ w 6%1Λ࢖͑ͨΓ w ૹ৴͚ͩͰͳ͘ड৴΋ՄೳͱͳͬͨΓ 0OFNPSFUIJOH

ศརͳػೳͱ͸ จࣈ΍എܠʹ৭Λ͚ͭΒΕΔ 5$1 ιέοτ ௨৴͕Մೳ ඇ ಉظϓϩηεΛىಈͰ͖Δ ·͡ศར

ඇ ಉظϓϩηεΛىಈͰ͖Δ 2Կ͕ศར "ͭ·ΓԿͰ΋Ͱ͖Δ Լه͸ྫ

ඇ ಉظϓϩηεΛىಈͰ͖Δ ԿͰ΋ྫ w ιʔείʔυ੔ܗπʔϧΛىಈ͠ɺࠓ։͍͍ͯΔϑΝΠ ϧ៉ྷʹͯ͠΋Β͏ w HPGNU (P
w SVGP 3VCZ w ෳࡶͳ)551ϦΫΤετΛඞཁͱ͢Δ8FCαʔϏε͸ɺઐ ༻ͷΫϥΠΞϯτϥΠϒϥϦ͕͋Δ͸ͣͳͷͰɺϓϩηεىಈ͠ ͯͦͷ݁Ռ͚ͩΛ&NBDTͰνΣοΫ͢Δ

ඇ ಉظϓϩηεΛىಈͰ͖Δ ⏯ಉظϓϩηεͷىಈํ๏ ͍͔ͭ͋͘Δ w DBMMQSPDFTT w ࢦఆͨ͠ίϚϯυΛ࣮ߦ
w TIFMMDPNNBOE w ࢦఆͨ͠ίϚϯυΛγΣϧΛ௨࣮ͯ͠ߦ w ͭ·Γlczͱ͔lzͱ͔࢖͑Δʂ

ඇ ಉظϓϩηεΛىಈͰ͖Δ 2DBMMQSPDFTTͰ࣌ؒͷ͔͔ΔϓϩηεΛ ىಈͨ͠Β&NBDT͕ݻ·ͬͯ͠·ͬͨ "&NBDT͸γϯάϧεϨουͳͷͰ 5ISFBEͷ࣮૷͕ਐΜͰ͍Δͱ͍͏࿩΋ௌ͖·͕͢ɺࠓճ͸ׂѪ 0OFNPSFUIJOH

ඇ ಉظϓϩηεΛىಈͰ͖Δ ΋ͪΖΜඇಉظϓϩηε΋ىಈͰ͖Δ w TUBSUQSPDFTTΛ࢖ͬͨΓ w DBMMQSPDFTTͷඇಉظ൛Έ͍ͨͳౕ w TIFMMDPNNBOEͰίϚϯυʹΛ͚ͭͨΓ
w DBMMQSPDFTTͰ࣮ߦ͢ΔίϚϯυ͸σʔϞϯͱ͠ ͯىಈ͢Δ෺ʹݶఆͨ͠Γ 0OFNPSFUIJOH

&NBDT͕Ͱ͖Δ͜ͱ͕Θ͔ͬͨͱ͜ΖͰ

&NBDT͕ͳΕΔ΋ͷ

ԿʹͳΕΔͷ ͭ໨͸͜Ε

ԿʹͳΕΔͷ ϝσΟΞϓϨΠϠʔʹͳΕΔ ͭ໨͸͜Ε

"QQMF57͍࣋ͬͯ·͔͢ ಥવͰ͕͢ Ҿ༻ݩIUUQTXXXBQQMFDPNKQTIPQCVZUWBQQMFUWIEHC $PQZSJHIU"QQMF*OD"MMSJHIUTSFTFSWFE

"JS1MBZ࢖͍ͬͯ·͔͢ ͲͪΒ͔ͱ͍͏ͱ ۼԬढ़೭ #"/%"*/".$0&OUFSUBJONFOU*OD #/&*ʗ130+&$5J.!4 #/&*ʗ130+&$5$*/%&3&--"SJHI

"JS1MBZͱ͸ l"JS1MBZΛ࢖͑͹ɺϏσΦɺࣸਅɺԻָͳͲΛɺ "QQMF੡σόΠε͔Β͋ͳͨͷ"QQMF57ɺ ͓ؾʹೖΓͷεϐʔΧʔɺਓؾͷεϚʔτςϨϏʹ ετϦʔϛϯάͰ͖·͢ɻz Ҿ༻ݩIUUQTXXXBQQMFDPNKQBJSQMBZ $PQZSJHIU"QQMF*OD"MMSJHIUTSFTFSWFE ۼԬढ़೭ #"/%"*/".$0&OUFSUBJONFOU*OD #/&*ʗ130+&$5J.!4
#/&*ʗ130+&$5$*/%&3&--"SJHI

w ͓खܰ w "JS1MBZରԠػث͸ଟ͍ "JS1MBZศར ۼԬढ़೭ #"/%"*/".$0&OUFSUBJONFOU*OD #/&*ʗ130+&$5J.!4 #/&*ʗ130+&$5$*/%&3&--"SJHI

"JS1MBZ͸ศརʂͦ͏ࢥ͍ͬͯͨ͋Δ೔

IUUQTOUPHJUIVCJP"JS1MBZIUNM

“ This document describes these protocols, as implemented in Apple
TV software version 5.0, iOS 5.1 and iTunes 10.6. They are based on well-known standard networking protocols such as Multicast DNS, HTTP, RTSP, RTP or NTP, with custom extensions. “

"JS1MBZ4FSWFS1SPUPDPM 1045QMBZ ▶7JEFPͷ࠶ੜ 1045TUPQ ⏹7JEFPͷఀࢭ 1045SBUF ࠶ੜ଎౓ͷมߋ 165QIPUP ը૾ͷදࣔ ಈը΍ը૾ͷ੍ޚ͸)5513FRVFTUͰՄೳ

ʮ)5513FRVFTUͰૢ࡞Ͱ͖ΔΜͩͳʯ

&NBDTͷ͜ͱΛࢥ͍ग़ͯ͠ΈΑ͏

&NBDT͸ιέοτ௨৴͕Մೳ "JS1MBZ͸͘͝Ұൠతͳωοτ ϫʔΫϓϩτίϧͰձ࿩͕Մೳ

✨"JSQMBZCJOEJOHTUP&NBDT w IUUQTHJUIVCDPNHPOHPBJSQMBZFM ⚙ओͳػೳ w -"/಺ʹ͋Δ"JS1MBZػثΛݕࡧͰ͖Δ w Πϯλʔωοτ্ʹ͋Δը૾΍ಈըΛࢦఆͨ͠ "JS1MBZػثͰ࠶ੜͰ͖Δ &NBDT͔Β"JS1MBZΛ৮Ε·ͨ͠

&NBDT͔Β"JS1MBZΛ৮Ε·ͨ͠ 6TBHF SFRVJSFBJSQMBZ BJSQMBZEFWJDFCSPXTF lz "JS1MBZαʔόͷ৘ใ BJSQMBZJNBHFWJFX6TFSTHPOHP%FTLUPQBQQMFUWKQH
BJSQMBZWJEFPQMBZIUUQTFYBNQMFDPNFNBDTNW

BJSQMBZFM͕΍͍ͬͯΔ͜ͱ -"/಺ʹ͋Δ"JS1MBZαʔό ػث Λௐࠪ͠ɺ*1 ΞυϨεΛήοτ Ͱݟ͚ͭͨ"JS1MBZαʔόʹ޲͚ͯʮ͜͜ʹஔ͍ ͯ͋ΔಈըϑΝΠϧΛ࠶ੜͯ͘͠ΕΑͳʯͱૹ৴
͋ͱ͸"JS1MBZαʔόଆͰউखʹ࠶ੜ։࢝

͋ͱ͸"JS1MBZαʔόଆͰউखʹ࠶ੜ։࢝ N%/4ͱ͍͏࢓૊ΈΛ࢖͍ͬͯ͘Α

N%/4 NVMUJDBTU%/4 “ In computer networking, the multicast DNS (mDNS)
protocol resolves host names to IP addresses within small networks that do not include a local name server. “ Ҿ༻ݩIUUQTFOXJLJQFEJBPSHXJLJ.VMUJDBTU@%/4

N%/4 NVMUJDBTU%/4

N%/4 NVMUJDBTU%/4 (let ((process (make-network-process :name "mdns" :coding 'binary :buffer
(current-buffer) :host "224.0.0.251" :service 5353 :type 'datagram)) (send-text (dns-write `((id ,(random 65000)) (opcode query) (queries (("_airplay._tcp.local" (type PTR)))))))) (process-send-string process send-text)) ࢀߟ: LAN ಺ͷ AppleTV ͷ IP ΞυϨεΛऔಘ͢Δ Emacs Lisp http://gongo.hatenablog.com/entry/2013/01/17/004306

͋ͱ͸"JS1MBZαʔόଆͰউखʹ࠶ੜ։࢝

ϝσΟΞϑΝΠϧͷ৔ॴΛڭ͑Δ

ϝσΟΞϑΝΠϧͷ৔ॴΛڭ͑Δ 1045QMBZ)551 $POUFOU-FOHUI $POUFOU5ZQFUFYUQBSBNFUFST $POUFOU-PDBUJPOIUUQFYBNQMFDPNFNBDTNW 4UBSU1PTJUJPO

ϝσΟΞϑΝΠϧͷ৔ॴΛڭ͑Δ 1045QMBZ)551 $POUFOU-FOHUI $POUFOU5ZQFUFYUQBSBNFUFST $POUFOU-PDBUJPOIUUQFYBNQMFDPNFNBDTNW 4UBSU1PTJUJPO ʮ։࢝ҐஔΛͷҐஔʹࢦఆʯͷҙ

ʮखݩͷ1$ʹ͋ΔϜʔϏʔϑΝΠϧΛ ɹɹ"QQMF57Ͱ࠶ੜͯ͠΄͍͠ͷ͚ͩͲ ɹɹ͍͍ͪͪΠϯλʔωοτʹ্͛Δͷ͸େมͩʯ ʮ͏ʔΜɺϜʔϏʔσʔλΛ)5513FTQPOTFͰ ɹɹฦͯ͋͛͠Ε͹͍͍͚͔ͩͩΒ ɹɹϩʔΧϧͰαʔόΛཱͯΕ͹ͳΜͱ͔ʯ ศར͚ͩͲʜ෺଍Γͳ͍

ʮ͔ͤͬؔ͘਺Λͭݺͼग़͚ͩ͢Ͱ࠶ੜ ɹɹͰ͖Δͷʹࣄલʹ)551αʔόΛཱͯͯ ɹɹͦ͜ʹϑΝΠϧΛஔ͍ͯʔͱ͍͏ͷ͸ ɹɹΊΜͲ͍͔͘͞ͳʯ ʮͦ͏ͩͳʔͦ͏ͩΑͶʔʯ ศར͚ͩͲʜ෺଍Γͳ͍

ʮɻɻɻʯ

ʮʂʂʯ

✌੔͍·ͨ͠

w &NBDT-JTQͰهड़͞Εͨ  8FCαʔό TJNQMFIUUQEFM Λ֦ு w "JS1MBZαʔό͔ΒͷϦΫΤετΛॲཧ͢Δ͚ͩ w BJSQMBZFMͰ࠶ੜΛ࢝ΊΔλΠϛϯάͰ  ඇಉظϓϩηεͰىಈ͢Δ
BJSQMBZWJEFPTFSWFSFM HPOHPBJSQMBZFMʹಉࠝ

2Ͳ͏ͯ͠ඇಉظͰىಈ͢Δͷ

2Ͳ͏ͯ͠ඇಉظͰىಈ͢Δͷ "&NBDT͔ͩΒͶ

࠶ੜ ഑৴ ͢ΔϑΝΠϧʹΑͬͯ͸ ɹҰ౓ͷ௨৴Ͱѻ͏σʔλྔ͕ଟ͘ ɹ͕͔͔࣌ؒΔ⏱  ௨৴ʹूத͍ͯ͠Δؒɺ&NBDT͸  ɹΩʔೖྗΛड͚͚ͭͳ͘ ʹ͘͘ ͳΔͷͰɺ  ɹ·ͱ΋ʹ&NBDT͕ૢ࡞Ͱ͖ͳ͍

"JS1MBZͱͷ΍ΓͱΓ͚ͩΛ͢Δ &NBDTϓϩηε͕͋Ε͹ྑ͍͡ΌΜ

BJSQMBZWJEFPQMBZ ʹϩʔΧϧϑΝΠϧύε͕౉͞ΕΔͱ  BJSQMBZWJEFPTFSWFSFMΛ&NBDTͷEBFNPONPEFͰىಈ TJNQMFIUUQEΛ࢖ͬͯɺͰࢦఆͨ͠ϑΝΠϧΛTFSWF͢ΔΑ͏ͳ  8FCαʔόΛىಈ ىಈͨ͠8FCαʔόͷ*1ΞυϨεͱϙʔτ൪߸Λ࢖͍ɺ  BJSQMBZFM͕"JS1MBZػثʹʮl\JQBEES^\QPSU^zͰ഑৴ͯ͠ΔಈըΛ࠶ੜͯ͠ʯͱ 
1045ϦΫΤετΛૹΔ ϦΫΤετΛड͚ͱͬͨ"JS1MBZػث͕BJSQMBZWJEFPTFSWFSʹΞΫηε͢Δ BJSQMBZWJEFPTFSWFS͕͍͍ײ͡ʹσʔλΛฦͯ͋͛͠Δ ࠶ੜΛఀࢭ͢ΔλΠϛϯάͰɺىಈͨ͠BJSQMBZWJEFPTFSWFS΋ఀࢭ͢Δ BJSQMBZFM BJSQMBZWJEFPTFSWFSFM ࣍ͷεϥΠυ͔ΒਤͰઆ໌͠·͢➡

ͬͪ͜ͷ&NBDT͸Ҿ͖ଓ͖ૢ࡞Մೳ

ԿʹͳΕΔͷ ϝσΟΞϓϨΠϠʔʹͳΕΔ ͭ໨͸͜Εͷ·ͱΊ

ԿʹͳΕΔͷ ϝσΟΞϓϨΠϠʔʹͳΕΔ͠ ɹϝσΟΞαʔόʹ΋ͳΕΔ ͭ໨͸͜Εͷ·ͱΊ

&NBDT͕ͳΕΔ΋ͷ

ԿʹͳΕΔͷ ͭ໨͸͜Ε

ԿʹͳΕΔͷ ήʔϜػʹͳΕΔ ͭ໨͸͜Ε

ϑΝϛϦʔίϯϐϡʔλ͝ଘ஌Ͱ͔͢ ಥવͰ͕͢ Ҿ༻ݩIUUQTKBXJLJQFEJBPSHXJLJϑΝϛϦʔίϯϐϡʔλ

&NBDTͰಈ͘७౓&NBDT-JTQͷ ϑΝϛϦʔίϯϐϡʔλͷΤϛϡϨʔλ Λ։ൃͨ͠࿩Λ͠·͢ IUUQTHJUIVCDPNHPOHPFNBDTOFT ݁࿦͔Βݴ͏ͱ

FNBDTOFT·ͰͷಓͷΓ

w $16 .04ͷΧελϜ൛ ͷ໋ྩηο τ͸ެ։͞Ε͍ͯΔ w IUUQPCFMJTLNFVLSFGFSFODFIUNM w ղઆهࣄ΍ςετ༻30.΋ଟ਺͋Δ w
IUUQTXJLJOFTEFWDPNXJOEFYQIQ&NVMBUPS@UFTUT ϑΝϛίϯ/JOUFOEP&OUFSUBJONFOU4ZTUFN Ҏ߱/&4

ʮϓϩάϥϛϯάݴޠͰ/&4ͷΤϛϡϨʔλΛ࡞੒͢Δʯ͸ ࡢࠓ௝͘͠ͳ͍ίϯςϯπ Լه΋΄ΜͷҰྫ w 3VCZ੡ w IUUQTHJUIVCDPNNBNFPQUDBSSPU w 1)1੡
w IUUQTHJUIVCDPNIBTFHBXBUPNPLJQIQUFSNJOBMOFTFNVMBUPS w (P੡ w IUUQTHJUIVCDPNGPHMFNBOOFT ˡ೥લ ࢓༷͕͋ΔͳΒ࠶ݱͰ͖ΔΑͶ

ʮϫγ΋΍ͬͯΈ͍͚ͨͲɺ ɹɹ΋͸΍ग़ਚͯͯ͘͠ࠓߋײ͋Δͳʯ ʮͦΕʹͳΜ͔ͩΜͩͰ೉ͦ͠͏ͩʯ ਺೥લͷ๻

ͦΜͳ͋Δ೥݄

Ҿ༻ݩCVJMEFSTDPO IUUQTCVJMEFSTDPOJPUPLZPTFTTJPOBBCDFECG

ʮΊͬͪΌΘ͔Γ΍͍͢ Θ͔Βͳ͍ ʯ ʮ΋͏Ұ౓ࢿྉಡΈ௚ͯ͠ΈΔ͔ʯ ൃදݟͨ͋ͱͷ๻

ʮ/&4͸ҎԼͷσόΠεͰߏ੒͞Ε͍ͯΔʯ ;Ή;Ήɻɻɻ

ʮ/&4͸ҎԼͷσόΠεͰߏ੒͞Ε͍ͯΔʯ w Χηοτ w $16 w 116 1JDUVSF1SPDFTTJOH6OJU w
3". w ίϯτϩʔϥ ;Ή;Ήɻɻɻ

w Χηοτ w $16 w 116 w 3". w ίϯτϩʔϥ
Χηοτ಺ͷ30.ʹࠁ·Ε͍ͯΔ ΩϟϥΫλʔ΍എܠσʔλΛಡΈࠐΉ ϑΥʔϚοτ͸ܾ·͍ͬͯΔ ʮɻɻɻɻɻʯ

ʮɻɻɻɻɻɻʯ ໋ྩηοτΛݸ࣮ͣͭ૷͍ͯ͘͠ جຊతʹ࿦ཧԋࢉ͕Ͱ͖Ε͹ྑ͍

ʮɻɻɻɻɻɻɻʯ ͬ͘͟Γݴ͑͹ը໘ʹ৭͚͍ͭͯ͘ɻ ೚ҙͷҐஔʹ೚ҙͷ৭Λ

ʮɻɻɻɻɻɻɻɻʯ ϝϞϦۭؒΈ͍ͨͳ΋ͷͩ ༷ʑͳܭࢉ݁ՌΛอ؅Ͱ͖Ε͹0,

ʮɻɻɻɻɻɻɻɻɻʯ "ͱ͔#ͱ͔ेࣈͱ͔ ͱʹ͔͘ೖྗ൑ఆͰ͖Ε͹ྑ͍ͷͩΖ͏

ʮɻɻɻɻɻɻɻɻɻɻʯ w Χηοτ w $16 w 116 w 3". w
ίϯτϩʔϥ

ʮʂʂʂʂʂʂʂʂʂʂʂʯ

✌&NBDTͰͰ͖Δ͡ΌΜ

७౓&NBDT-JTQ/&4&NVMBUPS IUUQTHJUIVCDPNHPOHPFNBDTOFT վΊͯ঺հ ֤σόΠεΛͲͷΑ͏ʹͯ͠&NBDTͰ࣮ݱͯ͠ ͍Δ͔ɺ۷ΓԼ͍͖͛ͯ·͢

ΧηοτͷऔΓѻ͍ OFTDBSUSJEHFFM

Χηοτ͔Βٵ͍ग़ͨ͠30.Πϝʔδ͸ J/&4ͱݺ͹ΕΔϑΝΠϧϑΥʔϚοτͰ ߏ੒͞Ε͍ͯΔ IUUQTXJLJOFTEFWDPNXJOEFYQIQ*/&4 ΧηοτͷऔΓѻ͍

Χηοτ͔Βٵ͍ग़ͨ͠30.Πϝʔδ͸ J/&4ͱݺ͹ΕΔϑΝΠϧϑΥʔϚοτͰ ߏ੒͞Ε͍ͯΔ IUUQTXJLJOFTEFWDPNXJOEFYQIQ*/&4 ✂ϑΥʔϚοτܾ·͍ͬͯΔͳΒ ܾΊଧͪͰσʔλநग़Ͱ͖ΔΑͶʂʂ ΧηοτͷऔΓѻ͍

* ϑΝΠϧͷϔομ৘ใΛऔಘ ** ☝ϔομ৘ใ͔Βɺ৭σʔλ΍  ΩϟϥΫλʔύλʔϯͷҐஔΛಛఆ ***⛏͋ͱ͸ͻͨ͢ΒSFBE͍ͯ͘͠ ΧηοτͷऔΓѻ͍

* ϑΝΠϧͷϔομ৘ใΛऔಘ ** ☝ϔομ৘ใ͔Βɺ৭σʔλ΍  ΩϟϥΫλʔύλʔϯͷҐஔΛಛఆ ***⛏͋ͱ͸ͻͨ͢ΒSFBE͍ͯ͘͠ (defconst nes/cartridge-ines-header-spec '((constant vec
4 u8) (size-of-prg-rom u8) (size-of-chr-rom u8) (flags6 u8) (flags7 u8) (size-of-prg-ram u8) (flags9 u8) (flags10 u8) (zero-pad vec 5 u8))) (bindat-unpack nes/cartridge-ines-header-spec (encode-coding-string rom-data 'raw-text)) ΧηοτͷऔΓѻ͍

* ϑΝΠϧͷϔομ৘ใΛऔಘ ** ☝ϔομ৘ใ͔Βɺ৭σʔλ΍  ΩϟϥΫλʔύλʔϯͷҐஔΛಛఆ ***⛏͋ͱ͸ͻͨ͢ΒSFBE͍ͯ͘͠ ΧηοτͷऔΓѻ͍

$16ͷΤϛϡϨʔτ OFTDQVFM

ͷ໋ྩҰཡ $16ͷΤϛϡϨʔτ ද "%$ "/% "4- #$$ #$4 #&2 #*5
#.* #/& #1- #3, #7$ #74 $-$ $-% $-* $-7 $.1 $19 $1: %&$ %&9 %&: &03 */$ */9 */: +.1 +43 -%" -%9 -%: -43 /01 03" 1)" 1)1 1-" 1-1 30- 303 35* 354 4#$ 4&$ 4&% 4&* 45" 459 45: 5"9 5": 549 59" 594 5:"

ͷ໋ྩҰཡ ද "%$ "/% "4- #$$ #$4 #&2 #*5 #.*
#/& #1- #3, #7$ #74 $-$ $-% $-* $-7 $.1 $19 $1: %&$ %&9 %&: &03 */$ */9 */: +.1 +43 -%" -%9 -%: -43 /01 03" 1)" 1)1 1-" 1-1 30- 303 35* 354 4#$ 4&$ 4&% 4&* 45" 459 45: 5"9 5": 549 59" 594 5:" ✍ͻͨ͢Βॻ͍͍͔ͯ͘͠Ͷ͑ $16ͷΤϛϡϨʔτ

$16ͷΤϛϡϨʔτ (logand #b0101 #b1100) ;; AND => #b0100 (logior #b0101
#b1100) ;; OR => #b1101 (logxor #b0101 #b1100) ;; XOR => #b1001 ;; Emacs Lisp ʹ͸ඪ४Ͱແ͔ͬͨͷͰࣗ࡞ (logbitp 0 #b1010) ;; => nil (logbitp 1 #b1010) ;; => t (logbitp 2 #b1010) ;; => nil FNBDTOFTͰΑ͘࢖ͬͨϏοτԋࢉؔ਺

(defun nes/instruction-dex (c _address _mode) "Decrement X Register" (let* ((register
(nes/cpu->register c)) (data (logand (1- (nes/cpu-register->idx-x register)) #xff))) (setf (nes/cpu-register->idx-x register) data) (nes/instruction--set-zero-and-negative-flags register data))) (defun nes/instruction-dey (c _address _mode) "Decrement Y Register" (let* ((register (nes/cpu->register c)) (data (logand (1- (nes/cpu-register->idx-y register)) #xff))) (setf (nes/cpu-register->idx-y register) data) (nes/instruction--set-zero-and-negative-flags register data))) (defun nes/instruction-adc (c addr-or-data mode) "Add with Carry" (let* ((register (nes/cpu->register c)) (data (if (eq mode :immediate) addr-or-data (nes/cpu-read c addr-or-data))) (acc (nes/cpu-register->acc register)) (result (+ acc data (if (nes/cpu-register->sr-carry register) 1 0)))) (nes/instruction--set-zero-and-negative-flags register result) (setf (nes/cpu-register->sr-carry register) (> result #xff)) (setf (nes/cpu-register->sr-overflow register) (and (not (nes--logbitp 7 (logxor acc data))) (nes--logbitp 7 (logxor acc result)))) (setf (nes/cpu-register->acc register) (logand result #xFF)))) ͻͨ͢ΒϏοτԋࢉ $16ͷΤϛϡϨʔτ

116ͷΤϛϡϨʔτ OFTQQVFM

FNBDTOFTʹ͓͚Δը໘ͱ͸ ͢ͳΘͪ&NBDT όοϑΝ Ͱ͋Δ 116ͷΤϛϡϨʔτ

FNBDTOFTʹ͓͚Δը໘ͱ͸ ͢ͳΘͪ&NBDT όοϑΝ Ͱ͋Δ &NBDTͳΒͰ͖Δ 116ͷΤϛϡϨʔτ

FNBDTOFTͰ͸HBNFHSJEFMΛ࢖༻ lHBNFHSJEFMMJCSBSZGPSJNQMFNFOUJOHHSJECBTFEHBNFTPO&NBDTz &NBDTʹඪ४Ͱଘࡏ͢ΔϥΠϒϥϦ 116ͷΤϛϡϨʔτ

FNBDTOFTͰ͸HBNFHSJEFMΛ࢖༻ lHBNFHSJEFMMJCSBSZGPSJNQMFNFOUJOHHSJECBTFEHBNFTPO&NBDTz &NBDTʹඪ४Ͱଘࡏ͢ΔϥΠϒϥϦ IUUQHPOHPIBUFOBCMPHDPNFOUSZ 116ͷΤϛϡϨʔτ

FNBDTOFTͰ͸HBNFHSJEFMΛ࢖༻ lHBNFHSJEFMMJCSBSZGPSJNQMFNFOUJOHHSJECBTFEHBNFTPO&NBDTz &NBDTʹඪ४Ͱଘࡏ͢ΔϥΠϒϥϦ ͳΜ͔͍͍ײ͡ʹ ৭͚ͭΕͯศར IUUQHPOHPIBUFOBCMPHDPNFOUSZ 116ͷΤϛϡϨʔτ

3".ͷΤϛϡϨʔτ

3".ͷΤϛϡϨʔτ WJEFPSBN NBLFWFDUPSY ͜Ε͚ͩ

ΩʔϘʔυͷΤϛϡϨʔτ OFTLFZCPBSEFM

&NBDT͸ςΩετΤσΟλͳͷͰɺ ΋ͪΖΜΩʔόΠϯυઃఆ͸Մೳ ΩʔϘʔυͷΤϛϡϨʔτ

&NBDT͸ςΩετΤσΟλͳͷͰɺ ΋ͪΖΜΩʔόΠϯυઃఆ͸Մೳ ΩʔϘʔυͷΤϛϡϨʔτ ྫ$USM YˠKͰTLLNPEF͕ىಈ͢Δ HMPCBMTFULFZ LCE$YK TLLNPEF

ΩʔϘʔυͷΤϛϡϨʔτ ;; w Λԡ͢ͱ্ɺs Λԡ͢ͱԼ (defvar nes/keypad:up (kbd "w")) (defvar
nes/keypad:down (kbd “s")) ;; CPU ʹରͯ͠ʮ্(4)͕ԡ͞Εͨͧʯͱ఻͑Δ key binding (define-key map nes/keypad:up (lambda () (interactive) (nes/keypad-check k 4))) ;; CPU ʹରͯ͠ʮԼ(5)͕ԡ͞Εͨͧʯͱ఻͑Δ key binding (define-key map nes/keypad:down (lambda () (interactive) (nes/keypad-check k 5)))

४උ͸੔͍·ͨ͠

͍Α͍Αಈ͔͍ͯͧ͘͠ʔ ςετ༻30.Λಈ͔ͯ͠ΈΔ צ σόοά͢Δ ͱΛ܁Γฦ͢ ̋̋Λಈ͔ͯ͠ΈΔ

ΤϛϡϨʔλʔ༻ͷ30.͕๛෋ w OFTUFTUOFT ඞਢڃ w ༷ʑͳ$16໋ྩΛ࣮ߦ w ͜ΕΛύε͢Δ͜ͱ͔Β࢝·Δ w
QBMFUUFOFT ͜͜Ͱࠞཚ͢Δ w ΧϥʔύϨοτΈ͍ͨͳͷΛදࣔͯ͠ΈΔ༻ w ͜͜Ͱ่Ε͕ൃੜ్ͯ͠ํʹ͘ΕΔ IUUQTXJLJOFTEFWDPNXJOEFYQIQ&NVMBUPS@UFTUT

໨νΣοΫ ָ͍͠ ·ͨը໘ ่ΕͯΔ΍Μ͚

σόοάͷखॱ ςετ30.Λ࣮ߦ➡ಈ͔ͳ͍ ଞͷΤϛϡϨʔλͰಈ͔ͯ͠ΈΔ➡ಈ͘ ͷιʔείʔυΛಡΉ ࢀߟʹ͢Δ
ʹ໭Δ㽉

IUUQTHJUIVCDPNHPOHPFNBDTOFTQVMM

Ͱ͖͚ͨͲɺ·ͩ·ͩ໰୊͋Γ ·ͣ஗͍ ͖ͬ͞ͷౕɺഒ଎ νϥ͖ͭ΋ͪΐͬͱؾʹͳΔ

Ͱ͖͚ͨͲɺ·ͩ·ͩ໰୊͋Γ ·ͣ஗͍ ͖ͬ͞ͷౕɺഒ଎ νϥ͖ͭ΋ͪΐͬͱؾʹͳΔ ɹɹɹɹɹ͍͔ͭղܾ͢ΔͰ͠ΐ͏

ԿʹͳΕΔͷ ήʔϜػʹͳΕΔ ͭ໨͸͜Εͷ·ͱΊ ࠷ۙήʔϜϘʔΠ൛΋ݟ͚ͭ·ͨ͠ IUUQTHJUIVCDPNWSFF[FFCPZ

w ιέοτ௨৴ͱϓϩηεىಈ͕  ͋Ε͹େ఍ͷ͜ͱ͸Ͱ͖Δ w &NBDTͷࣗ༝͞ͱ૊߹ΘͤΔ͜ͱͰ  ςΩετΤσΟλͷ࿮Λ௒͑ͨ͜ͱ͕  ࣮ݱͰ͖Δ ·ͱΊ

·ͱΊ ͋ͳͨͷྗͰɺ&NBDTͷதʹ຾Δ ·ͩݟ͵ʰԿ͔ʱΛ࡞ͬͯΈ·ͤΜ͔

w &NBDTͰಈ͘/&4ΤϛϡϨʔλΛ࡞͍ͬͯΔ࿩ w IUUQHPOHPIBUFOBCMPHDPNFOUSZ w .FSSZ$ISJTUNBTJO&NBDT w IUUQHPOHPIBUFOBCMPHDPNFOUSZ w &NBDTͷNPEFMJOFʹण͕࢘ྲྀΕΔ೔
w IUUQHPOHPIBUFOBCMPHDPNFOUSZ w &NBDTͱ"QQMF57ͷՍ͚ڮͱͳΔBJSQMBZFM w IUUQHPOHPIBUFOBCMPHDPNFOUSZ ͓ΘΓ

What can Emacs be? / Hackers Champloo 2019

What can Emacs be? / Hackers Champloo 2019

More Decks by Wataru MIYAGUNI

Other Decks in Technology

Featured

Transcript