annotate slide.pdf.html @ 18:1fc9d0bd924f default tip

update
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sat, 20 Apr 2019 18:06:35 +0900
parents a176ea5c0264
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
1
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
2
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
3
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
4
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
5
0
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 <!DOCTYPE html>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 <html>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 <head>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 <meta http-equiv="content-type" content="text/html;charset=utf-8">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 <title>Perl6の内部表現</title>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
12 <meta name="generator" content="Slide Show (S9) v4.1.0 on Ruby 2.6.3 (2019-04-16) [x86_64-darwin17]">
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
13 <meta name="author" content="Takahiro Shimizu" >
0
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 <!-- style sheet links -->
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 <link rel="stylesheet" href="s6/themes/screen.css" media="screen">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 <link rel="stylesheet" href="s6/themes/print.css" media="print">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 <link rel="stylesheet" href="s6/themes/blank.css" media="screen,projection">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 <!-- JS -->
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 <script src="s6/js/jquery-1.11.3.min.js"></script>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 <script src="s6/js/jquery.slideshow.js"></script>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 <script src="s6/js/jquery.slideshow.counter.js"></script>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 <script src="s6/js/jquery.slideshow.controls.js"></script>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 <script src="s6/js/jquery.slideshow.footer.js"></script>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 <script src="s6/js/jquery.slideshow.autoplay.js"></script>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
27
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 <!-- prettify -->
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 <link rel="stylesheet" href="scripts/prettify.css">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 <script src="scripts/prettify.js"></script>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
31
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 <style>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 .slide {page-break-after: always;}
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 </style>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
35
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
36
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
37
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
38
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 </head>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 <body>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
41
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 <div class="layout">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 <div id="header"></div>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 <div id="footer">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 <div align="right">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 <img src="s6/images/logo.svg" width="200px">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 </div>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 </div>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 </div>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
50
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 <div class="presentation">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
52
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 <div class='slide cover'>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 <table width="90%" height="90%" border="0" align="center">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 <tr>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 <td>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 <div align="center">
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
58 <h1><font color="#808db5">Perl6の内部表現</font></h1>
0
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 </div>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 </td>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 </tr>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 <tr>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 <td>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 <div align="left">
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
65 Takahiro Shimizu
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
66
0
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 <hr style="color:#ffcc00;background-color:#ffcc00;text-align:left;border:none;width:100%;height:0.2em;">
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 </div>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 </td>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 </tr>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 </table>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 </div>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
73
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
74
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
75 <div class='slide'>
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
76
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
77 <!-- _S9SLIDE_ -->
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
78 <h2 id="このセッションの内容">このセッションの内容</h2>
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
79
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
80 <ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
81 <li>Perl6の主要な実装であるRakudoの内部構造を探ります</li>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
82 <li>Rakudoの内部で利用されているVMや, Perl6のサブセットなどについて探索します</li>
3
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
83 <li>スクリプト言語で主に使われているバイトコードインタプリタの気持ちになります</li>
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
84 </ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
85
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
86
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
87
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
88 </div>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
89
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
90 <div class='slide'>
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
91 <!-- _S9SLIDE_ -->
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
92 <h2 id="内容">内容</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
93 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
94 <li>Perl6とは?</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
95 <li>スクリプト言語処理系の動き</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
96 <li>Perl6の内部構造
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
97 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
98 <li>NQP</li>
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
99 <li>MoarVM
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
100 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
101 <li>NQPとMoarVMのバイトコード対応</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
102 <li>バイトコードインタプリタのC言語実装</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
103 <li>MoarVMの詳細</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
104 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
105 </li>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
106 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
107 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
108 <li>MoarVMのバイトコード実行</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
109 <li>まとめ</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
110 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
111
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
112
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
113
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
114 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
115
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
116 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
117 <!-- _S9SLIDE_ -->
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
118 <h2 id="perl6とは">Perl6とは</h2>
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
119 <ul>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
120 <li>当初Perl5の時期バージョンとして開発されていたプログラミング言語
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
121 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
122 <li>現在は別の言語として開発がそれぞれ進んでいる</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
123 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
124 </li>
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
125 <li>仕様と実装が分離しており, 現在はテストが仕様となっている</li>
18
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
126 <li>実装は歴史上複数存在しているが,主流な実装はRakudo
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
127 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
128 <li>Haskellで実装されたPugs</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
129 <li>Pythonとの共同基板を目指したParrot</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
130 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
131 </li>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
132 <li>言語的にはスクリプト言語であり, 漸進的型付き言語</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
133 <li>動作環境は、独自のVMのMoarVM, JVM、一部JavaScript上で動作する</li>
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
134 </ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
135
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
136 <p><img src="fig/2000px-Camelia.svg.png" alt="" style="width: 31%; height: auto;" /></p>
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
137
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
138
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
139
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
140 </div>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
141
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
142 <div class='slide'>
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
143 <!-- _S9SLIDE_ -->
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
144 <h2 id="現在のperl6">現在のPerl6</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
145
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
146 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
147 <li>現在のバージョンは <code>6.d</code></li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
148 <li><a href="https://perl6.github.io/6pad/">ブラウザ上で実行可能な環境</a>が存在する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
149 <li><a href="https://commaide.com/">IDE</a>が開発されている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
150 <li>WebApplicationFrameworkなども開発されており、 Perl5のモジュールを移行したものがいくつか存在する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
151 <li>日本では趣味のプロダクト以外社会では使用されていない
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
152 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
153 <li>海外では実際に使われているケースも存在する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
154 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
155 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
156 <li>処理速度では一部Perl5に勝っているが、それでも大分遅い</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
157 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
158
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
159
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
160
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
161 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
162
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
163 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
164 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
165 <h2 id="参考perl5のソースコード">[参考]Perl5のソースコード</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
166
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
167 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
168 <li>Perl5時代
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
169 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
170 <li>スカラ、配列、ハッシュの3種類</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
171 <li>それぞれの変数への参照であるリファレンスが使用可能</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
172 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
173 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
174 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
175
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
176 <pre><code class="language-perl">use ustrict;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
177 use warnings;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
178
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
179 my $scalar_value = "hello!";
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
180 print "$scalar_value\n";
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
181
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
182 my @array = (1..10);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
183 print "$array[0]\n";
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
184
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
185 my %hash = ( this_is_key =&gt; "this_is_value");
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
186 print "$hash{this_is_key}\n";
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
187
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
188 my $hash_ref = \%hash;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
189 print "$hash_ref-&gt;{this_is_key}\n";
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
190 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
191
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
192
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
193
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
194 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
195
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
196 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
197 <!-- _S9SLIDE_ -->
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
198 <h2 id="perl6のソースコード概要">Perl6のソースコード概要</h2>
0
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
199
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
200 <ul>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
201 <li>Perl5の文法とは比較的変更が多い
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
202 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
203 <li>雰囲気は似ている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
204 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
205 </li>
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
206 <li>変数がオブジェクトと化した事により, 変数からsayメソッドを呼ぶことが可能</li>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
207 </ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
208
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
209 <pre><code>my $str_value = 'hello world!';
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
210 $str_value.say; # hello world!
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
211 </code></pre>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
212
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
213 <ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
214 <li>Perl5と同様に,変数にはデフォルトでは型がないような振る舞いをする</li>
0
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 </ul>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
216
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
217 <pre><code>my $sample_value = 'hello world!';
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
218 $sample_value.say; # hello world!
0
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
219
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
220 $sample_value = '31';
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
221 $sample_value.say; # 31
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
222
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
223 say($sample_value * 3);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
224 </code></pre>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
225
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
226
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
227
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
228 </div>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
229
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
230 <div class='slide'>
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
231 <!-- _S9SLIDE_ -->
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
232 <h2 id="perl6の言語的な特徴">Perl6の言語的な特徴</h2>
1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
233
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
234 <ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
235 <li>漸進的型付き言語である為, 型を強制することも可能となる</li>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
236 </ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
237
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
238 <pre><code>my Int $int_value = 31;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
239 $int_value = "hello"; # Compile error!
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
240 </code></pre>
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
241
7
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
242 <pre><code>$ perl6 type_invalid.p6
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
243 Type check failed in assignment to $int_value; expected Int but got Str ("hello")
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
244 in block &lt;unit&gt; at type_invalid.p6 line 4
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
245 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
246
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
247
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
248
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
249 </div>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
250
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
251 <div class='slide'>
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
252 <!-- _S9SLIDE_ -->
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
253 <h2 id="perl6の言語的な特徴-1">Perl6の言語的な特徴</h2>
4
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
254
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
255 <ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
256 <li>型を独自に定義することも可能</li>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
257 <li>入力の型によって実行する関数を変える事などができる</li>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
258 </ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
259
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
260 <pre><code class="language-perl6">my subset Fizz of Int where * %% 3;
4
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
261 my subset Buzz of Int where * %% 5;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
262 my subset FizzBuzz of Int where Fizz&amp;Buzz;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
263 my subset Number of Int where none Fizz|Buzz;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
264
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
265 proto sub fizzbuzz ($) { * }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
266 multi sub fizzbuzz (FizzBuzz) { "FuzzBuzz" }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
267 multi sub fizzbuzz (Fizz) { "Fizz" }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
268 multi sub fizzbuzz (Buzz) { "Buzz" }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
269 multi sub fizzbuzz (Number $number) { $number }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
270
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
271 fizzbuzz($_).say for 1..15;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
272 </code></pre>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
273
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
274 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
275 <li>型を利用したFizzBuzz</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
276 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
277
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
278
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
279
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
280 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
281
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
282 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
283 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
284 <h2 id="スクリプト言語">スクリプト言語</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
285 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
286 <li>Perl6は現状コンパイルすることはできない
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
287 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
288 <li>スクリプト言語の分類</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
289 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
290 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
291 <li>現在広く使われているスクリプト言語(Perl,Python,Ruby…)などとPerl6の構成は類似している</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
292 <li>今回はPerl6の実装を追いながら、最近のスクリプト言語処理系の大まかな実装を理解する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
293 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
294
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
295
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
296
7
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
297 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
298
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
299 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
300 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
301 <h2 id="スクリプト言語処理系">スクリプト言語処理系</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
302 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
303 <li>スクリプト言語は入力として与えられたソースコードを、 直接評価せずにバイトコードにコンパイルする形式が主流となっている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
304 <li>その為スクリプト言語の実装は大きく2つで構成されている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
305 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
306 <li>バイトコードに変換するフロントエンド部分</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
307 <li>バイトコードを解釈する仮想機械</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
308 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
309 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
310 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
311
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
312 <p><img src="fig/bytecode_sample_generally_lang.svg" width="80%" /></p>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
313
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
314
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
315
4
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
316 </div>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
317
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
318 <div class='slide'>
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
319 <!-- _S9SLIDE_ -->
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
320 <h2 id="perl6以外のスクリプト言語">Perl6以外のスクリプト言語</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
321
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
322 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
323 <li>現在使われているプロセスVMは言語に組み込まれているものが多い</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
324 <li>JVMやElixirなどのVMは複数の言語で使用されている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
325 <li>Java
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
326 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
327 <li>JVM</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
328 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
329 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
330 <li>Ruby
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
331 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
332 <li>YARV</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
333 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
334 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
335 <li>Python
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
336 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
337 <li>PythonVM</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
338 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
339 </li>
12
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
340 <li>Erlang</li>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
341 <li>Elixir
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
342 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
343 <li>BEAM</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
344 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
345 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
346 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
347
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
348
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
349
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
350 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
351
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
352 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
353 <!-- _S9SLIDE_ -->
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
354 <h2 id="perl6の処理系の構成">Perl6の処理系の構成</h2>
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
355
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
356 <ul>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
357 <li>Perl6の処理系で現在主流なものはRakudoと呼ばれる実装である(歴史上複数存在する)</li>
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
358 <li>Rakudoは3つのレイヤーから構成されている
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
359 <ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
360 <li>Perl6インタプリタ</li>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
361 <li>Perl6インタプリタを記述するPerl6のサブセットNQP</li>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
362 <li>Perl6のバイトコードを解釈するMoarVM</li>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
363 </ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
364 </li>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
365 <li>Perl6/NQPがフロントエンドに相当し、MoarVMがバックエンドに相当する</li>
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
366 </ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
367
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
368
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
369
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
370 </div>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
371
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
372 <div class='slide'>
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
373 <!-- _S9SLIDE_ -->
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
374 <h2 id="rakudoの構成図">Rakudoの構成図</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
375
18
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
376 <p><img src="fig/Rakudo_overview.svg" alt="" /></p>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
377
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
378 <p>(http://brrt-to-the-future.blogspot.com/2015/03/advancing-jit-compiler.html)</p>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
379
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
380
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
381
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
382 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
383
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
384 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
385 <!-- _S9SLIDE_ -->
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
386 <h2 id="perl6とnqp">Perl6とNQP</h2>
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
387
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
388 <ul>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
389 <li>NQP(NotQuitPerl Perl)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
390 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
391 <li>Perl6のサブセット。Perl6っぽい言語</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
392 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
393 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
394 <li>Perl6、 NQP自体がNQPで記述されている</li>
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
395 <li>NQPもNQPで記述されている為、 セルフビルド(自分自身で自分自身をコンパイルする)を行う</li>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
396 <li>NQPはPerl6の文法をベースにしているが、 制約がいくつか存在する</li>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
397 <li>元々はPerl6の主力実装がParrotだった時代に登場
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
398 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
399 <li>文法がアップデートされており、当時の資料は古くなっている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
400 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
401 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
402 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
403
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
404 <pre><code>my $value := "hello!";
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
405 say($value);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
406 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
407
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
408
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
409
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
410 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
411
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
412 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
413 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
414 <h2 id="nqpスクリプト">NQPスクリプト</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
415
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
416 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
417 <li>変数は束縛 <code>:=</code> を使う</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
418 <li>関数の間に空白を入れてはいけない</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
419 <li>再帰呼び出しを使うフィボナッチ数列</li>
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
420 </ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
421
4
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
422 <pre><code>#! nqp
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
423 sub fib($n) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
424 $n &lt; 2 ?? $n !! fib($n-1) + fib($n - 2);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
425 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
426
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
427 my $N := 29;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
428
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
429 my $z := fib($N);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
430
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
431 nqp::say("fib($N) = " ~ fib($N));
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
432 </code></pre>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
433
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
434
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
435
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
436 </div>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
437
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
438 <div class='slide'>
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
439 <!-- _S9SLIDE_ -->
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
440 <h2 id="nqpスクリプトnまでの整数の和">NQPスクリプト(nまでの整数の和)</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
441
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
442 <pre><code class="language-perl6">sub add_test($n){
10
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
443 my $sum := 0;
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
444 while ( $n &gt; 1) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
445 $sum := $sum + $n;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
446 --$n;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
447 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
448 return $sum;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
449 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
450
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
451 say(add_test(10000));
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
452 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
453
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
454
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
455
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
456 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
457
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
458 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
459 <!-- _S9SLIDE_ -->
10
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
460 <h2 id="nqp">NQP</h2>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
461
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
462 <ul>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
463 <li>NQPはPerl6の中で一番レイヤーが低い言語</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
464 <li>その為、 実行するVMのオペコード(処理単位)を使用することができる</li>
10
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
465 <li>NQPオペコードは、 Perl6の内部の抽象構文木でも使用されている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
466 <li>また、 Perl6と同様に型を指定することが可能</li>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
467 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
468
10
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
469 <pre><code class="language-perl6">sub add_test(int $n){
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
470 mu $sum := 0;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
471 while nqp::isgt_i($n,1) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
472 $sum := nqp::add_i($sum,$n);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
473 $n := nqp::sub_i($n,1);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
474 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
475 return $sum;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
476 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
477 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
478
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
479
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
480
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
481 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
482
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
483 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
484 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
485 <h2 id="nqpとmoarvm">NQPとMoarVM</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
486 <ul>
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
487 <li>NQPは実行する際にMoarVM/JVMが必要となる
5
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
488 <ul>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
489 <li>NQPコンパイラが各VMに対応したバイトコードに変換する</li>
3
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
490 </ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
491 </li>
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
492 <li>MoarVMの場合は、MoarVMのバイナリ moar に、 NQPのインタプリタのバイトコードをライブラリや入力として与える</li>
7
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
493 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
494
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
495
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
496
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
497 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
498
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
499 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
500 <!-- _S9SLIDE_ -->
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
501 <h2 id="perl6のvm">Perl6のVM</h2>
7
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
502 <ul>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
503 <li>MoarVM, JVM , JavaScriptが選択可能
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
504 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
505 <li>メインで開発されているのはMoarVMであり、 他のVMは機能が実装されていないものが存在する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
506 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
507 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
508 <li><code>rakudo-star</code> というPerl6のパッケージ環境では、 MoarVMがデフォルトでインストールされる</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
509 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
510
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
511
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
512
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
513 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
514
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
515 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
516 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
517 <h2 id="moarvm">MoarVM</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
518 <ul>
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
519 <li>Metamodel On A Runtime</li>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
520 <li>C言語で記述されているPerl6専用の仮想機械</li>
7
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
521 <li>レジスタマシン
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
522 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
523 <li>型情報を持つレジスタに対しての演算として処理される</li>
9
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
524 <li>Rubyなどはスタックマシンとして実装されている</li>
7
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
525 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
526 </li>
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
527 <li>Unicodeのサポートや、LuaJITなどを利用したJITコンパイルなども可能</li>
7
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
528 <li>Perl6やNQPは、MoarVMに対してライブラリなどを設定して起動する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
529 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
530
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
531
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
532
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
533 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
534
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
535 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
536 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
537 <h2 id="バイトコード">バイトコード</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 6
diff changeset
538 <ul>
3
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
539 <li>Perl6も、Rakudo/NQPはバイトコードに変換され、 バイトコードをVMが実行する</li>
10
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
540 <li>Perl6/NQPはバイトコードにコンパイルすることが可能
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
541 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
542 <li>直接実行することはできない</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
543 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
544 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
545 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
546
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
547 <pre><code>$nqp --target=mbc --output=fib.moarvm fib.nqp
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
548 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
549
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
550
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
551
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
552 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
553
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
554 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
555 <!-- _S9SLIDE_ -->
12
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
556 <h2 id="バイトコード-1">バイトコード</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
557 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
558 <li>バイナリ形式で表現される為、 VMがどのように読み取るかでバイトコードの意味が異なる</li>
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
559 <li>スクリプト言語系のVMは、 VMという名前の通り、 計算機をエミュレートしている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
560 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
561 <li>その為、通常のCPUのストア命令などに相当する命令が実装されている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
562 <li>スクリプト言語は、その命令の実行を繰り返すことでプログラムを評価する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
563 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
564 </li>
12
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
565 <li>スクリプト言語で重要なバイトコード表現は、「仮想機械がどの命令を実行するか」のバイトコード
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
566 <ul>
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
567 <li>CPUに対するアセンブラの数値に対応する</li>
12
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
568 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
569 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
570 <li>どういった構成なのかは仮想機械によって異なる</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
571 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
572
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
573
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
574
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
575 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
576
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
577 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
578 <!-- _S9SLIDE_ -->
10
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
579 <h2 id="バイトコードとmoarvm">バイトコードとMoarVM</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
580
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
581 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
582 <li>MoarVMバイトコードはMoarVMの実行バイナリ <code>moar</code> でディスアセンブルすることが可能</li>
2
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
583 </ul>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
584
10
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
585 <pre><code> annotation: add_test.nqp:1
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
586 00003 const_i64_16 loc_2_int, 0
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
587 00004 hllboxtype_i loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
588 00005 box_i loc_3_obj, loc_2_int, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
589 00006 set loc_1_obj, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
590 label_1:
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
591 00007 decont loc_3_obj, loc_0_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
592 00008 smrt_numify loc_4_num, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
593 00009 const_i64_16 loc_2_int, 1
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
594 00010 coerce_in loc_5_num, loc_2_int
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
595 00011 gt_n loc_2_int, loc_4_num, loc_5_num
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
596 00012 unless_i loc_2_int, label_2(00031)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
597 00013 osrpoint
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
598 annotation: add_test.nqp:3
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
599 00014 decont loc_3_obj, loc_1_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
600 00015 smrt_numify loc_5_num, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
601 00016 decont loc_3_obj, loc_0_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
602 00017 smrt_numify loc_4_num, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
603 00018 add_n loc_4_num, loc_5_num, loc_4_num
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
604 00019 hllboxtype_n loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
605 00020 box_n loc_3_obj, loc_4_num, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
606 00021 set loc_1_obj, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
607 00022 decont loc_3_obj, loc_0_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
608 00023 smrt_numify loc_4_num, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
609 00024 coerce_ni loc_6_int, loc_4_num
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
610 00025 const_i64_16 loc_7_int, 1
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
611 00026 sub_i loc_7_int, loc_6_int, loc_7_int
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
612 00027 hllboxtype_i loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
613 00028 box_i loc_3_obj, loc_7_int, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
614 00029 set loc_0_obj, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
615 00030 goto label_1(00007)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
616 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
617
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
618
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
619
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
620 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
621
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
622 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
623 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
624 <h2 id="nqpとバイトコードの対応">NQPとバイトコードの対応</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
625
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
626 <pre><code>say(add_test(10000));
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
627 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
628
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
629 <pre><code> annotation: add_test.nqp:1
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
630 label_1:
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
631 00020 getlex_no loc_7_obj, '&amp;say'
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
632 00021 decont loc_7_obj, loc_7_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
633 00022 const_s loc_3_str, '&amp;add_test'
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
634 00023 getlexstatic_o loc_8_obj, loc_3_str
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
635 00024 decont loc_8_obj, loc_8_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
636 00025 const_i64_16 loc_5_int, 10000
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
637 00026 prepargs Callsite_1
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
638 00027 arg_i 0, loc_5_int
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
639 00028 invoke_o loc_8_obj, loc_8_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
640 00029 prepargs Callsite_0
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
641 00030 arg_o 0, loc_8_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
642 00031 invoke_v loc_7_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
643 00032 null loc_7_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
644 00033 return_o loc_7_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
645 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
646
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
647 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
648 <li>Perl6の変数は直接実態を参照せず、中身が入っているコンテナを参照するようになっている。</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
649 <li>その為 <code>decont</code> 命令で、コンテナの中身をレジスタに設定する必要がある</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
650 <li><code>const_i64_16</code> などは64bitの数という意味で、 <code>int</code> 型としてレジスタに登録している</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
651 <li><code>prepargs</code> で引数の確認を行い, <code>invoke_o</code> で実際にサブルーチンに移行する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
652 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
653
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
654
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
655
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
656 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
657
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
658 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
659 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
660 <h2 id="nqpとバイトコードの対応-1">NQPとバイトコードの対応</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
661
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
662 <pre><code>my $sum := 0;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
663 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
664
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
665 <pre><code> annotation: add_test.nqp:1
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
666 00003 const_i64_16 loc_2_int, 0
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
667 00004 hllboxtype_i loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
668 00005 box_i loc_3_obj, loc_2_int, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
669 00006 set loc_1_obj, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
670 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
671
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
672 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
673 <li>まず <code>loc_2</code> レジスタをint型の整数0で初期化する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
674 <li>変数 <code>$sum</code> はint型の指定がないので、 obj型で登録しなければならない</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
675 <li>その為, 整数として登録された <code>loc_2</code> から、 obj型に一旦キャストし、 <code>loc_3</code> レジスタに設定したものを、 <code>loc_1</code> レジスタに設定する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
676 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
677
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
678
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
679
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
680 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
681
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
682 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
683 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
684 <h2 id="nqpとバイトコードの対応-2">NQPとバイトコードの対応</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
685
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
686 <pre><code> while ( $n &gt; 1) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
687 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
688
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
689 <pre><code> label_1:
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
690 00007 decont loc_3_obj, loc_0_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
691 00008 smrt_numify loc_4_num, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
692 00009 const_i64_16 loc_2_int, 1
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
693 00010 coerce_in loc_5_num, loc_2_int
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
694 00011 gt_n loc_2_int, loc_4_num, loc_5_num
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
695 00012 unless_i loc_2_int, label_2(00031)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
696 00013 osrpoint
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
697 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
698
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
699 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
700 <li>比較にもint型の指定がない為、 <code>num</code> 型にキャストし、 <code>num</code> 型のレジスタでの大小を比較する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
701 <li>比較命令は <code>gt_n</code> であり、 結果により <code>unless_i</code> 命令で、別のラベルにジャンプする</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
702 </ul>
6
f8f9af788fa7 remove !#SLIDE for use slideshow latest version
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
703
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
704
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
705
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
706 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
707
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
708 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
709 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
710 <h2 id="decode命令">decode命令</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
711
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
712 <pre><code> while ( $n &gt; 1) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
713 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
714
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
715 <pre><code>00007 decont loc_3_obj, loc_0_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
716 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
717
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
718 <p><img src="fig/decont_perl6_loc3.svg" alt="" /></p>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
719
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
720 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
721 <li>変数 <code>$n</code> と 整数 <code>1</code> を大小比較する為、 まず <code>$n</code> から値を取り出す</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
722 <li>とりだした時点では、何の型で使うかは決定していない為、 obj型として判定する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
723 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
724
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
725
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
726
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
727 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
728
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
729 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
730 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
731 <h2 id="smrt_nomify">smrt_nomify</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
732
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
733 <pre><code> while ( $n &gt; 1) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
734 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
735
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
736 <pre><code>00008 smrt_numify loc_4_num, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
737 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
738
17
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
739 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
740 <li><code>smrt_numify</code> はレジスタ上のオブジェクトを、 num型に変換し、 別のレジスタに登録する命令</li>
18
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
741 <li>今回の整数の比較では、 int型の強制がない為、 数値として比較するためにn64型にキャストしている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
742 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
743 <li>numはn64型であり、 64ビットの浮動小数点定数の意味</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
744 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
745 </li>
17
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
746 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
747
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
748 <p><img src="fig/perl6_num_convert.svg" alt="" /></p>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
749
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
750
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
751
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
752 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
753
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
754 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
755 <!-- _S9SLIDE_ -->
18
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
756 <h2 id="const_i64_16とcoerece_in">const_i64_16とcoerece_in</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
757
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
758 <pre><code> while ( $n &gt; 1) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
759 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
760
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
761 <pre><code>00009 const_i64_16 loc_2_int, 1
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
762 00010 coerce_in loc_5_num, loc_2_int
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
763 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
764 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
765 <li>64ビット整数として1をレジスタ <code>loc_2</code> に設定する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
766 <li>その後、 numでの比較のためにキャストし, <code>loc_5</code> レジスタに設定している</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
767 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
768
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
769
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
770
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
771 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
772
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
773 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
774 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
775 <h2 id="比較とif文の判定">比較とif文の判定</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
776
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
777 <pre><code> while ( $n &gt; 1) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
778 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
779
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
780 <pre><code>00011 gt_n loc_2_int, loc_4_num, loc_5_num
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
781 00012 unless_i loc_2_int, label_2(00031)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
782 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
783
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
784 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
785 <li><code>gt_n</code> で <code>loc_4</code> (nが入っている) レジスタと <code>loc_5</code> (1が入っているレジスタ)を比較する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
786 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
787 <li>結果により <code>loc_2</code> レジスタに真偽値がint型で代入される</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
788 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
789 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
790 <li>その結果を <code>unless_i</code> で読み取り、 値が偽であったら <code>label_2(00031)</code> にジャンプする</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
791 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
792
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
793
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
794
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
795 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
796
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
797 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
798 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
799 <h2 id="c言語での実装へ">C言語での実装へ</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
800 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
801 <li>今まではスクリプトレベルでの実装を見てきました</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
802 <li>スクリプトが実行されるVMの実装をCレベルで見ていきましょう</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
803 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
804
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
805
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
806
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
807 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
808
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
809 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
810 <!-- _S9SLIDE_ -->
17
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
811 <h2 id="moarvmのバイトコードインタプリタ部分">MoarVMのバイトコードインタプリタ部分</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
812 <p>MoarVMなどの言語処理系のバイトコードインタプリタは次のことを繰り返している</p>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
813 <ol>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
814 <li>入力されたバイトコード列から命令に対応する部分を読み取る</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
815 <li>読み込んだ数値から、 対応する命令を取得する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
816 <li>命令部分を実行する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
817 <li>バイトコード列を次に進め、繰り返す</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
818 </ol>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
819
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
820 <ul>
18
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
821 <li>この部分の実装は大体次のようなパターンで記述されている</li>
17
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
822 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
823
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
824
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
825
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
826 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
827
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
828 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
829 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
830 <h2 id="巨大なswitch文を使うケース">巨大なswitch文を使うケース</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
831
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
832 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
833 <li>命令に対応するバイトコードを数値に変換できるようにし、 switch-case文で分岐させる</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
834 <li>実行のたびにループで先頭に戻り、次の命令を計算する必要があるので低速</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
835 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
836
18
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
837 <pre><code> while( pc != NULL) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
838 switch(pc){
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
839 case ADD_INSTRUCTION:
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
840 // instruction....
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
841 break;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
842 case SUBD_INSTRUCTION:
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
843 // instruction....
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
844 break;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
845 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
846 }
17
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
847 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
848
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
849
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
850
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
851 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
852
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
853 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
854 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
855 <h2 id="cコンパイラのラベルgotoを使うケース">Cコンパイラのラベルgotoを使うケース</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
856
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
857 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
858 <li>巨大なcase文とループではなく、 次の命令の実行場所に直接jmpで移動する</li>
18
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
859 <li>GCC拡張でサポートしている場合「<code>&amp;&amp;ラベル名</code> 」でラベルのアドレスが取得できる
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
860 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
861 <li>取得したアドレスに対して「goto アドレス」でgoto文でjmpする</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
862 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
863 </li>
17
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
864 <li>次の命令に対応するラベルを取得する必要があるが、 ループする必要がなく高速</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
865 <li>ラベルgotoであり、 Cコンパイラの拡張機能として搭載されている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
866 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
867 <li>gccおよびLLVM/clangには実装されている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
868 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
869 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
870 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
871
18
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
872 <pre><code> static const void *CODES[] = {&amp;&amp;ADD_INSTRUCTION, &amp;&amp;SUB_INSTRCUTION};
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
873
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
874 goto *CODES[pc];
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
875
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
876 ADD_INSTRUCTION:
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
877 // instruction...
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
878 pc++;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
879 goto *CODES[pc];
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
880
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
881 SUB_INSTRUCTION:
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
882 // instruction...
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
883 pc++;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
884 goto *CODES[pc];
17
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
885 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
886
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
887
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
888
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
889 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
890
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
891 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
892 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
893 <h2 id="moarvmでは">MoarVMでは</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
894 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
895 <li>ラベルgotoが利用できる場合は利用する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
896 <li>使えないコンパイラの場合は、 switch文を利用する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
897 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
898 <li>この判断はマクロで処理をしている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
899 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
900 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
901 <li>一般的にはラベルgotoの方が高速である為、他のスクリプト言語でもラベルgotoが使われている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 14
diff changeset
902 </ul>
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
903
18
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
904
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
905
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
906 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
907
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
908 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
909 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
910 <h2 id="moarvmのc言語での実装">MoarVMのC言語での実装</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
911
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
912 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
913 <li><a href="https://github.com/MoarVM/MoarVM">GitHub上にリポジトリ</a>がある</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
914 <li><code>src/core/interp.c</code> がバイトコードインタプリタの実装コード</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
915 <li>この中でマクロを使いつつ、 バイトコードに対応した命令を処理している</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
916 <li><code>MVM_interp_run</code>が実際にバイトコードを解釈している</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
917 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
918
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
919 <pre><code>/* This is the interpreter run loop. We have one of these per thread. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
920 void MVM_interp_run(MVMThreadContext *tc, void (*initial_invoke)(MVMThreadContext *, void *), void *invoke_data) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
921 #if MVM_CGOTO
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
922 #include "oplabels.h"
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
923 #endif
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
924
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
925 /* Points to the place in the bytecode right after the current opcode. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
926 /* See the NEXT_OP macro for making sense of this */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
927 MVMuint8 *cur_op = NULL;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
928
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
929 /* The current frame's bytecode start. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
930 MVMuint8 *bytecode_start = NULL;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
931
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
932 /* Points to the base of the current register set for the frame we
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
933 * are presently in. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
934 MVMRegister *reg_base = NULL;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
935
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
936 /* Points to the current compilation unit. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
937 MVMCompUnit *cu = NULL;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
938
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
939 /* The current call site we're constructing. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
940 MVMCallsite *cur_callsite = NULL;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
941
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
942 /* Stash addresses of current op, register base and SC deref base
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
943 * in the TC; this will be used by anything that needs to switch
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
944 * the current place we're interpreting. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
945 tc-&gt;interp_cur_op = &amp;cur_op;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
946 tc-&gt;interp_bytecode_start = &amp;bytecode_start;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
947 tc-&gt;interp_reg_base = &amp;reg_base;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
948 tc-&gt;interp_cu = &amp;cu;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
949
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
950 /* With everything set up, do the initial invocation (exactly what this does
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
951 * varies depending on if this is starting a new thread or is the top-level
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
952 * program entry point). */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
953 initial_invoke(tc, invoke_data);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
954 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
955
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
956
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
957
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
958 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
959
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
960 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
961 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
962 <h2 id="moarvmのレジスタ構成">MoarVMのレジスタ構成</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
963
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
964 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
965 <li>レジスタはそれぞれの型を共用体のデータ構造で持っている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
966 <li>型名は各命令の接尾辞に対応している</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
967 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
968
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
969 <pre><code>/* Different views of a register. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
970 union MVMRegister {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
971 MVMObject *o;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
972 MVMString *s;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
973 MVMint8 i8;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
974 MVMuint8 u8;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
975 MVMint16 i16;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
976 MVMuint16 u16;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
977 MVMint32 i32;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
978 MVMuint32 u32;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
979 MVMint64 i64;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
980 MVMuint64 u64;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
981 MVMnum32 n32;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
982 MVMnum64 n64;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
983 };
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
984 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
985
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
986
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
987
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
988 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
989
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
990 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
991 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
992 <h2 id="mvm_interp_runの登場人物">MVM_interp_runの登場人物</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
993
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
994 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
995 <li><code>cur_op</code> が読み取るのバイトコード列の先頭ポインタを保存している</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
996 <li><code>op</code> が現在実行する命令の数値が入っている</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
997 <li><code>reg_base</code> がMoarVMのレジスタの集合配列</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
998 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
999
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1000 <pre><code> /* Points to the place in the bytecode right after the current opcode. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1001 /* See the NEXT_OP macro for making sense of this */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1002 MVMuint8 *cur_op = NULL;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1003
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1004 /* The current frame's bytecode start. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1005 MVMuint8 *bytecode_start = NULL;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1006
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1007 /* Points to the base of the current register set for the frame we
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1008 * are presently in. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1009 MVMRegister *reg_base = NULL;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1010 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1011
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1012
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1013
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1014 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1015
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1016 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1017 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1018 <h2 id="mvm_interp_runメインループ">MVM_interp_runメインループ</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1019
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1020 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1021 <li><code>runloop</code>がメインのループで処理を行っている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1022 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1023 <li><code>DISPATCH</code>部分で命令をバイトコード列から取り出している</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1024 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1025 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1026 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1027
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1028 <pre><code> /* Enter runloop. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1029 runloop: {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1030 MVMuint16 op;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1031
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1032 #if MVM_TRACING
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1033 if (tracing_enabled) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1034 char *trace_line;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1035 trace_line = MVM_exception_backtrace_line(tc, tc-&gt;cur_frame, 0, cur_op);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1036 fprintf(stderr, "Op %d%s\n", (int)*((MVMuint16 *)cur_op), trace_line);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1037 /* slow tracing is slow. Feel free to speed it. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1038 MVM_free(trace_line);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1039 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1040 #endif
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1041
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1042 /* The ops should be in the same order here as in the oplist file, so
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1043 * the compiler can can optimise the switch properly. To check if they
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1044 * are in the same order as the oplist use the
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1045 * tools/compare-oplist-interp-order.sh helper script. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1046 DISPATCH(NEXT_OP) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1047 OP(no_op):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1048 goto NEXT;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1049 OP(const_i8):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1050 OP(const_i16):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1051 OP(const_i32):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1052 MVM_exception_throw_adhoc(tc, "const_iX NYI");
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1053 OP(const_i64):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1054 GET_REG(cur_op, 0).i64 = MVM_BC_get_I64(cur_op, 2);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1055 cur_op += 10;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1056 goto NEXT;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1057 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1058
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1059
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1060
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1061 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1062
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1063 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1064 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1065 <h2 id="mvm_interp_runメインループ-1">MVM_interp_runメインループ</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1066
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1067 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1068 <li><code>DISPATCH</code>はマクロになっている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1069 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1070 <li>ラベルgotoが使えるケースはDISPATCHは何も意味を持たない</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1071 <li>使えない場合はswitch文に展開される
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1072 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1073 <li><code>op</code> に実行する命令の数値が格納されているので、 これに応じてswitchで飛ぶ</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1074 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1075 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1076 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1077 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1078 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1079
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1080 <pre><code>#if MVM_CGOTO
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1081 #define DISPATCH(op)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1082 #define OP(name) OP_ ## name
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1083 #define NEXT *LABELS[NEXT_OP]
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1084 #else
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1085 #define DISPATCH(op) switch (op)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1086 #define OP(name) case MVM_OP_ ## name
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1087 #define NEXT runloop
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1088 #endif
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1089 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1090
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1091
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1092
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1093 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1094
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1095 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1096 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1097 <h2 id="mvm_interp_runメインループ-2">MVM_interp_runメインループ</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1098
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1099 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1100 <li><code>OP</code> が命令のスコープを切るマクロとなっている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1101 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1102 <li>gotoが使える場合
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1103 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1104 <li><code>##name</code> に展開され、 それぞれの命令の名前を持つラベルになる</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1105 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1106 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1107 <li>gotoが使えない場合
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1108 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1109 <li>case文に展開される</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1110 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1111 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1112 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1113 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1114 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1115
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1116 <pre><code>#if MVM_CGOTO
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1117 #define DISPATCH(op)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1118 #define OP(name) OP_ ## name
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1119 #define NEXT *LABELS[NEXT_OP]
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1120 #else
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1121 #define DISPATCH(op) switch (op)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1122 #define OP(name) case MVM_OP_ ## name
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1123 #define NEXT runloop
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1124 #endif
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1125 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1126
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1127
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1128
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1129 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1130
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1131 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1132 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1133 <h2 id="mvm_interp_runメインループ-3">MVM_interp_runメインループ</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1134
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1135 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1136 <li>次の命令には <code>NEXT</code> マクロで移動する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1137 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1138 <li>gotoが使える場合
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1139 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1140 <li>次のラベルに対応したアドレスを配列LABELSから取り出しgotoする</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1141 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1142 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1143 <li>gotoが使えない場合
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1144 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1145 <li><code>runloop</code>に対してgotoする(先頭へのループ)</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1146 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1147 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1148 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1149 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1150 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1151
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1152 <pre><code>#if MVM_CGOTO
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1153 #define DISPATCH(op)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1154 #define OP(name) OP_ ## name
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1155 #define NEXT *LABELS[NEXT_OP]
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1156 #else
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1157 #define DISPATCH(op) switch (op)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1158 #define OP(name) case MVM_OP_ ## name
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1159 #define NEXT runloop
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1160 #endif
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1161 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1162
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1163
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1164
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1165 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1166
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1167 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1168 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1169 <h2 id="それぞれの命令の実装">それぞれの命令の実装</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1170
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1171 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1172 <li>マクロ <code>GET_REG</code> でレジスタ情報を取得する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1173 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1174 <li>末尾で型を指定する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1175 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1176 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1177 <li>よしなに処理をした後に、バイトコード列 <code>cur_op</code> をインクリメントする
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1178 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1179 <li>計算機のプログラムカウンタを進めることに対応する</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1180 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1181 </li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1182 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1183
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1184 <pre><code> OP(add_i):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1185 GET_REG(cur_op, 0).i64 = GET_REG(cur_op, 2).i64 + GET_REG(cur_op, 4).i64;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1186 cur_op += 6;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1187 goto NEXT;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1188 OP(sub_i):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1189 GET_REG(cur_op, 0).i64 = GET_REG(cur_op, 2).i64 - GET_REG(cur_op, 4).i64;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1190 cur_op += 6;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1191 goto NEXT;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1192 OP(mul_i):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1193 GET_REG(cur_op, 0).i64 = GET_REG(cur_op, 2).i64 * GET_REG(cur_op, 4).i64;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1194 cur_op += 6;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1195 goto NEXT;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1196 </code></pre>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1197
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1198
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1199
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1200 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1201
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1202 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1203 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1204 <h2 id="本日の展示について">本日の展示について</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1205
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1206 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1207 <li>現在当研究室で開発しているContinuationBasedC(CbC)で一部Perl6の処理系を書いています</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1208 <li>また、 CbCを用いたGearsOSの展示も行っています</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1209 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1210
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1211
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1212
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1213 </div>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1214
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1215 <div class='slide'>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1216 <!-- _S9SLIDE_ -->
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1217 <h2 id="まとめ">まとめ</h2>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1218 <ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1219 <li>Perl6の内部構造に迫りました</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1220 <li>スクリプト言語の中身も通常の計算機と同じような処理をしています</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1221 <li>OSSなので皆さん読んで改造してみましょう!!</li>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1222 </ul>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 17
diff changeset
1223
0
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1224 </div>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1225
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1226
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1227 </div><!-- presentation -->
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1228 </body>
19155754a586 create OSC2019 slide template
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1229 </html>