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