VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索

用VB+LLVM写一个山寨编译器 第一章 介绍+词法分析器

2023-10-22 22:22| 发布者: acme_pjz| 查看: 5928| 评论: 20|原作者: acme_pjz|来自: 谷歌

摘要: 首先声明,这个不是我原创的,主要是翻译这个 http://www.llvm.org/releases/2.8/docs/tutorial/LangImpl1.html 成VB的而已…… ===介绍=== 欢迎来到“用LLVM写一个山寨编译器”教程。整个教程演示了怎么实现一 ...
首先声明,这个不是我原创的,主要是翻译这个 http://www.llvm.org/releases/2.8/docs/tutorial/LangImpl1.html 成VB的而已……

===介绍===

欢迎来到“用LLVM写一个山寨编译器”教程。整个教程演示了怎么实现一个简单的语言,而且我们将看到这是多么地容易和有趣。(@#%^$^&@#$……剩下的基本上是废话(主要是我懒得译了),大家有兴趣的自己看一下原文吧 ---译者注)

简单介绍一下每章的内容:

第一章、山寨语言的介绍和词法分析器的实现 - 介绍一下我们想让山寨语言能实现的基本功能。为了使代码简单而且便于修改,所有词法分析和语法分析的代码都用C++(被我黑成VB的了 ---译者注)实现,而不用自动词法分析和语法分析生成器……

第二章、语法分析器和抽象语法树(AST)的生成 - 当词法分析器编好之后我们可以讨论语法分析技术和简单的AST生成。我们采用递归下降分析器和算符优先分析器。前两章都没有用到LLVM哟:),就是编译原理的基本内容……

第三章、LLVM IR 中间代码的生成 - 当AST生成之后我们将会看到,生成中间代码是多么的容易

第四章、即时编译器(JIT)和优化器 - 由于很多人对LLVM作为JIT感兴趣,所以我们在这里演示加上几行代码就可以实现JIT功能(VB不能简单地加几行代码就搞定,因为不支持函数指针 ---译者注)

第五章、给语言加上判断和循环语句功能 - 如题,这给我们讨论静态单赋值形式(SSA)和控制流优化的机会

第六章、用户自定义运算符 - 这是愚蠢但是有趣的一章,讨论怎么让用户自定义任意的单目和双目运算符(可以自己设置优先级!)这使得我们语言的很大一部分变成函数……

第七章、变量的支持 - 讨论怎么让用户自定义局部变量,还有赋值运算符……还演示了怎么用LLVM创建SSA形式,事实上你的程序根本不需要手工创建SSA形式!

第八章、结论 - 讨论了怎么继续扩展我们的山寨语言,例如数据类型、全局变量等,还包括垃圾收集器、错误处理、调试、spaghetti stacks(不懂是什么意思 ---译者注)等……

最后我们写了不到700行(这是C++那个,VB的还不懂要写多少行 ---译者注)代码来实现一个语言的编译器,其中包括词法分析器、语法分析器、抽象语法树生成器、代码生成器和JIT编译器,功能还不少吧(就是缺了exe生成器,下次我再研究一下 ---译者注)

关于教程的注记:我们希望你能自己扩展源代码,并且在自己修改代码中找到乐趣。尽情地修改代码吧,编译器不是什么很可怕的东西,写编译器可以是一件很有趣的事情!

补充内容 (2011-11-8 22:02):
后来我真的用VB写了个山寨Basic编译器,看这里http://code.google.com/p/yet-another-fake-basic/ 还有http://www.vbgood.com/thread-107320-1-1.html

相关阅读

发表评论

最新评论

引用 菜鸟学飞 2010-11-19 20:07
O(∩_∩)O哈哈~,沙发是我的啦
菜鸟学飞 于 2011-11-8 14:47 使用 抢沙发 抢夺本帖沙发

补充内容 (2011-11-8 14:48):
居然木人抢沙发  果断抢了~~~
引用 红色狂想 2010-11-19 20:19
抢沙发了,我很期待科学家的编译器!
引用 acme_pjz 2010-11-19 20:52
山寨语言的简单描述

我们这个山寨语言名字叫做“万花筒”(Kaleidoscope,这个名字怎么这么恶心啊 ---译者注)“万花筒”是一个基于过程的语言,允许你定义函数,使用判断语句,数学运算,等等。随着教程的推进,我们会逐渐加入if/then/else支持,循环支持,自定义运算符支持,JIT编译,等等……

因为我们想使得事情保持简单,“万花筒”语言的唯一数据类型是64位浮点数,就是C里面的double(VB里面的Double)。所以“万花筒”里面的每个值都是双精度的,而且不需要声明数据类型。这使得“万花筒”语言的语法很简单举个例子,下面的代码是算斐波那契数的:
# Compute the x'th fibonacci number.
def fib(x)
  if x < 3 then
    1
  else
    fib(x-1)+fib(x-2)

# This expression will compute the 40th number.
fib(40)

我们还让“万花筒”语言能直接调用C的库函数(LLVM JIT使得这件事变成平凡的)。这意味着在使用一个函数之前,你能用“extern”关键字来声明这个函数(这在递归中也是要用到的)。举个例子:
extern sin(arg);
extern cos(arg);
extern atan2(arg1 arg2);

atan2(sin(.4), cos(42))

第六章中有一个更有趣的例子,是用来显示曼德勃罗集的……

接下来就是词法分析器的实现了……
引用 download 2010-11-19 20:55
太好了,我也正在研究这个...
比较喜欢第四章...JIT
引用 acme_pjz 2010-11-19 21:00
先在VB里面实现一些C/C++的内部函数

新建一个窗体,放入Text1,Text2,全部设置为多行文本框,Text1.Locked=True;新建一个Command1,Default=True,标题设置成“输入”或者别的什么新建一个模块,定义全局变量m_bEOF As Boolean,m_sInputBuffer As String,m_nInputPos As Long……

在窗体里面设置Command1_Click成m_sInputBuffer = m_sInputBuffer + Text2.Text + vbCrLf:Text2.Text = "",相当于把Text2的内容加到输入缓冲区里面,然后清空Text2的内容……把Form_QueryUnload或者Form_Unload设置成OnDestroy,这个函数我们稍后定义……

在模块里面定义全局函数OnDestroy,只有一句话,m_bEOF = True,表示程序退出了,标准输入完蛋了……

定义常量Public Const EOF As Long = -1,把VB内置的EOF给覆盖掉反正我们用不到……

写如下的脏代码,让VB也能用char类型(这是我上星期想出来的馊主意

  1. Public Enum enumVBChar
  2.   ["\0"] = 0
  3.   ["\t"] = 9
  4.   ["\n"] = 10
  5.   ["\r"] = 13
  6.   [" "] = 32
  7.   ["!"] = 33
  8.   ["""] = 34
  9.   ["#"] = 35
  10.   ["$"] = 36
  11.   ["%"] = 37
  12.   ["&"] = 38
  13.   ["'"] = 39
  14.   ["("] = 40
  15.   [")"] = 41
  16.   ["*"] = 42
  17.   ["+"] = 43
  18.   [","] = 44
  19.   ["-"] = 45
  20.   ["."] = 46
  21.   ["/"] = 47
  22.   ["0"] = 48
  23.   ["1"] = 49
  24.   ["2"] = 50
  25.   ["3"] = 51
  26.   ["4"] = 52
  27.   ["5"] = 53
  28.   ["6"] = 54
  29.   ["7"] = 55
  30.   ["8"] = 56
  31.   ["9"] = 57
  32.   [":"] = 58
  33.   [";"] = 59
  34.   ["<"] = 60
  35.   ["="] = 61
  36.   [">"] = 62
  37.   ["?"] = 63
  38.   ["@"] = 64
  39.   ["a"] = 65
  40.   ["b"] = 66
  41.   ["c"] = 67
  42.   ["d"] = 68
  43.   ["e"] = 69
  44.   ["f"] = 70
  45.   ["g"] = 71
  46.   ["h"] = 72
  47.   ["i"] = 73
  48.   ["j"] = 74
  49.   ["k"] = 75
  50.   ["l"] = 76
  51.   ["m"] = 77
  52.   ["n"] = 78
  53.   ["o"] = 79
  54.   ["p"] = 80
  55.   ["q"] = 81
  56.   ["r"] = 82
  57.   ["s"] = 83
  58.   ["t"] = 84
  59.   ["u"] = 85
  60.   ["v"] = 86
  61.   ["w"] = 87
  62.   ["x"] = 88
  63.   ["y"] = 89
  64.   ["z"] = 90
  65.   ["lll"] = 91
  66.   [""] = 92
  67.   ["rrr"] = 93
  68.   ["^"] = 94
  69.   ["_"] = 95
  70.   ["`"] = 96
  71.   ["aa"] = 97
  72.   ["bb"] = 98
  73.   ["cc"] = 99
  74.   ["dd"] = 100
  75.   ["ee"] = 101
  76.   ["ff"] = 102
  77.   ["gg"] = 103
  78.   ["hh"] = 104
  79.   ["ii"] = 105
  80.   ["jj"] = 106
  81.   ["kk"] = 107
  82.   ["ll"] = 108
  83.   ["mm"] = 109
  84.   ["nn"] = 110
  85.   ["oo"] = 111
  86.   ["pp"] = 112
  87.   ["qq"] = 113
  88.   ["rr"] = 114
  89.   ["ss"] = 115
  90.   ["tt"] = 116
  91.   ["uu"] = 117
  92.   ["vv"] = 118
  93.   ["ww"] = 119
  94.   ["xx"] = 120
  95.   ["yy"] = 121
  96.   ["zz"] = 122
  97.   ["{"] = 123
  98.   ["|"] = 124
  99.   ["}"] = 125
  100.   ["~"] = 126
  101. End Enum
复制代码
引用 acme_pjz 2010-11-19 21:08
先实现一下getchar函数:

  1.     Public Function getchar() As Long
  2.     Do
  3.      If m_bEOF Then
  4.       getchar = EOF
  5.       Exit Do
  6.      Else
  7.       If m_nInputPos < Len(m_sInputBuffer) Then
  8.        m_nInputPos = m_nInputPos + 1
  9.        getchar = AscW(Mid(m_sInputBuffer, m_nInputPos, 1)) And &HFFFF&
  10.        Exit Do
  11.       Else
  12.        If m_nInputPos > 0 Then
  13.         m_nInputPos = 0
  14.         m_sInputBuffer = ""
  15.        End If
  16.        Sleep 10
  17.        DoEvents
  18.       End If
  19.      End If
  20.     Loop
  21.     End Function
复制代码
API Sleep的声明自己补上哈……getchar的主要工作原理就是个死循环,先看看m_bEOF(完蛋了没有?),如果完蛋了直接返回-1……否则看看输入缓冲区读完了没有,如果没有读完就读一个字符,返回(注意AscW主要是为了Unicode支持,不过用Asc,甚至AscB也无所谓)……如果读完了就死循环吧,Sleep 10+DoEvents直到输入东西或者退出为止……If m_nInputPos > 0没什么用,删掉也无所谓,主要就是省得疯狂清空字符串而已……
引用 acme_pjz 2010-11-19 21:10
接下来是几个判断函数,用过C的人都知道:
  1. Public Function isspace(ByVal c As Long) As Boolean
  2. isspace = c = [" "] Or c = ["\t"] Or c = ["\r"] Or c = ["\n"]
  3. End Function

  4. Public Function isdigit(ByVal c As Long) As Boolean
  5. isdigit = c >= ["0"] And c <= ["9"]
  6. End Function

  7. Public Function isalpha(ByVal c As Long) As Boolean
  8. isalpha = (c >= ["a"] And c <= ["z"]) Or (c >= ["aa"] And c <= ["zz"])
  9. End Function

  10. Public Function isalnum(ByVal c As Long) As Boolean
  11. isalnum = (c >= ["0"] And c <= ["9"]) Or (c >= ["a"] And c <= ["z"]) Or (c >= ["aa"] And c <= ["zz"])
  12. End Function

  13. Public Function isascii(ByVal c As Long) As Boolean
  14. isascii = c >= [" "] And c <= ["~"]
  15. End Function
复制代码
引用 acme_pjz 2010-11-19 21:58
接下来正式开始

===词法分析器===

当实现一种语言的时候,第一件需要做的事就是处理一个文本文件,然后识别出里面说什么。经典的办法是使用“词法分析器”来把输入拆分成一些“标记”(Tokens)。每个Token包含一个代码表明这是什么类型的(数值,字符串,关键字……),还有一些可选的数据,例如一个数字的数值等。首先我们定义几种最简单的可能性:

  1. '// The lexer returns tokens [0-255] if it is an unknown character, otherwise one
  2. '// of these for known things.
  3. Public Enum enumToken
  4.   tok_eof = -1
  5.   tok_def = -2
  6.   tok_extern = -3
  7.   tok_identifier = -4
  8.   tok_number = -5
  9. End Enum

  10. Public IdentifierStr As String '  // Filled in if tok_identifier
  11. Public NumVal As Double '         // Filled in if tok_number
复制代码
每个Token或者是枚举enumToken里面的类型,或者是其他的“未知”字符,通过字符的ASCII返回。如果是关键字,IdentifierStr变量将会保存关键字的名字,如果是数值,则NumVal会保存当前值。说明:为了简单起见,我们用全局变量来保存这些信息,但是在真正的编译器程序中这样做可绝对不是好主意

词法分析器的实现就一个函数gettok。每调用一次,就会返回从标准输入进来的下一个Token。代码:

  1. '/// gettok - Return the next token from standard input.
  2. Public Function gettok() As Long
  3. Static LastChar As Long
  4. Dim ret As Long
  5. '///
  6. gettok_start:
  7. '///
  8. If LastChar = 0 Then LastChar = [" "]
  9. '// Skip any whitespace.
  10. Do While isspace(LastChar)
  11.   LastChar = getchar
  12. Loop
复制代码
gettok函数会调用getchar,一次读取一个字符,并保存读取的字符到LastChar,但是并没有对这个字符进行处理。第一件事情是忽略掉相邻两个Token之间的空格。

下一件事情是看看输入的是不是关键字:

  1. If isalpha(LastChar) Then '// identifier: [a-zA-Z][a-zA-Z0-9]*
  2.   IdentifierStr = ChrW(LastChar)
  3.   Do
  4.    LastChar = getchar
  5.    If Not isalnum(LastChar) Then Exit Do
  6.    IdentifierStr = IdentifierStr + ChrW(LastChar)
  7.   Loop
  8.   Select Case IdentifierStr
  9.   Case "def": ret = tok_def
  10.   Case "extern": ret = tok_extern
  11.   Case Else: ret = tok_identifier
  12.   End Select
  13.   gettok = ret
  14.   Exit Function
  15. End If
复制代码
注意,关键字的内容保存在全局变量IdentifierStr中。数值的处理也类似:

  1. If isdigit(LastChar) Or LastChar = ["."] Then '// Number: [0-9.]+
  2.   Dim NumStr As String
  3.   Do
  4.    NumStr = NumStr + ChrW(LastChar)
  5.    LastChar = getchar
  6.   Loop While isdigit(LastChar) Or LastChar = ["."]
  7.   NumVal = Val(NumStr)
  8.   gettok = tok_number
  9.   Exit Function
  10. End If
复制代码
这个代码很简单吧……就是有严重的Bug:当输入的不是数字的时候也会错误识别,例如“1.23.45.67”,识别成1.23(更严重的是这个代码不支持科学计数法 ---译者注)请自行修正这些错误下面是注释的处理:

  1. If LastChar = ["#"] Then
  2.   '// Comment until end of line.
  3.   Do
  4.    LastChar = getchar
  5.   Loop While LastChar <> EOF And LastChar <> ["\r"] And LastChar <> ["\n"]
  6.   If LastChar <> EOF Then GoTo gettok_start
  7. End If
复制代码
处理方法是跳过输入的字符,直到换行符为止,然后读取下一个Token(原来这里是用递归的,我觉得递归占资源太多就改成GoTo了 ---译者注)最后是处理不属于上面的所有情况:如果输入不符合上面的情况,则或者是+,-这样的运算符,或者是文件尾(EOF)(还有中文 ---译者注)。代码是:

  1. '// Check for end of file.  Don't eat the EOF.
  2. If LastChar = EOF Then
  3.   gettok = tok_eof
  4.   Exit Function
  5. End If
  6. '// Otherwise, just return the character as its ascii value.
  7. gettok = LastChar
  8. LastChar = getchar
  9. End Function
复制代码
到此为止,我们已经完成了“万花筒”语言的最简单的词法分析器。接下来我们要写一个语法分析器和抽象语法树(AST)构建器(见下一章)。
引用 acme_pjz 2010-11-19 22:00
本帖最后由 acme_pjz 于 2010-11-19 22:06 编辑

为了测试一下这段代码,我们写一个简单的测试程序:

  1. Public Sub Main()
  2. Dim c As Long
  3. Form1.Show
  4. Do
  5.   c = gettok
  6.   If c = EOF Then Exit Do
  7.   Debug.Print c;
  8. Loop
  9. End Sub
复制代码
把启动项目设置成Sub Main,然后运行程序……

输入测试代码:(注意,由于Command1.Default=True,所以不能直接输入,只能Ctrl+C Ctrl+V)

  1. # Compute the x'th fibonacci number.
  2. def fib(x)
  3.   if x < 3 then
  4.     1
  5.   else
  6.     fib(x-1)+fib(x-2)

  7. # This expression will compute the 40th number.
  8. fib(40)
复制代码
输出:
-2 -4  40 -4  41 -4 -4  60 -5 -4 -5 -4 -4  40 -4  45 -5  41  43 -4  40 -4  45 -5  41 -4  40 -5  41

对照一下,看看输出是什么意思?

附带工程文件:
引用 download 2010-11-19 22:18
搬凳子等第四章...
引用 JuncoJet 2010-11-19 22:31
好复杂压…… 有鸭梨
引用 acme_pjz 2010-11-19 23:37
第一章到此结束,有什么想法、意见和建议的欢迎提出……
引用 inat 2010-11-20 00:17
本帖最后由 inat 于 2010-11-20 00:19 编辑

太强了,跟着学习,少个模块,mdLLVM.bas
引用 acme_pjz 2010-11-20 11:07
13# inat

那个第一章不需要(第二章也不需要)
引用 acme_pjz 2010-11-20 11:13
To 244326867:

你看不懂扣我的分干什么啊……
引用 download 2010-11-20 12:41
To 244326867:

你看不懂扣我的分干什么啊……
acme_pjz 发表于 2010-11-20 11:13


看来不能发太难的,否则看不懂被扣分就惨了
引用 acme_pjz 2011-4-8 20:11
挖一个坟……搞了半天忘记介绍LLVM是干什么的了,下面是百度百科的山寨介绍:

  先来说说LLVM的历史。2000年LLVM开始开发,2005年Apple雇了Chris Lattner,LLVM也相当于成了Apple的官方支持的编译器。Apple已经将它用在OpenCL的流水线优化,Xcode已经能使用llvm-gcc编译代码。可以说05年之前LLVM一直都是学术界的东西,05年之后用于工业界.而这篇文章写在04年.本博最近听过一个关于LLVM的讨论会,会中有资深人士提到LLVM现在越来越像一个普通的编译器。说这番话的意思是,我们可以从这篇文章里找到LLVM的架构设计和早期的一些实现思想,但请不要迷信LLVM现在有多么神奇,每个架构都会有它的优缺点。

  LLVM 是 Illinois 大学发起的一个开源项目,它到底是什么呢?从字面上看,它是一个虚机系统,然而这又和之前为大家所熟知的 JVM 以及 .net Runtime 这样的虚机不同,它提供了一套中立的中间代码和编译基础设施,并围绕这些设施提供了一套全新的编译策略(使得优化能够在编译、连接、运行环境执行过程中,以及安装之后以有效的方式进行)和其他一些非常有意思的功能。

  为什么这个项目很重要呢?对于普通的开发人员来说,LLVM计划提供了越来越多的可以使用、编译器以外的其他工具。例如代码静态检查工具 LLVM/Clang Static Analyzer,是一个 Clang 的子项目,能够使用同样的 Makefile 生成 HTML 格式的分析报告;而对关注编译技术的开发人员来说,LLVM提供了很多优点:

  现代化的设计:LLVM的设计是高度模块化的,使得其代码更为清晰和便于排查问题所在。 语言无关的中间代码:这使得透过LLVM能够将不同的语言相互连结起来;另一方面,这也使得LLVM能够紧密地与IDE交互和集成。另一方面,发布中间代码而非目标代码能够在目标系统上更好地发挥其潜能而又不伤害可调试性(i.e. 在目标系统上针对本机的硬件环境产生目标代码,但又能够直接通过中间代码来进行行级调试) 作为工具和函数库:使用LLVM提供的工具可以比较容易地实现新的编程语言的优化编译器或VM,或为现有的编程语言引入一些更好的优化/调试特性。


另外前两天LLVM出新版本2.9了,我下载回来又编译了一次,而且这次附带clang,也就是说可以直接用VB调用clang编译C/C++/ObjectiveC源代码……不过现在我还没有搞出DLL版本呢,只有一个命令行的clang.exe……

补充内容 (2012-5-11 23:05):
LLVM 2.9数个月前已经搞定了,在山寨编译器Yet Another Fake Basic里面下载,倒是LLVM 3.0 (还有3.1) DLL没搞定
引用 shanhan 2012-5-11 16:17
标记一下,用VB+LLVM写一个山寨编译器总目
引用 ywbab751109 2013-5-2 22:07
这里[ http://my.oschina.net/shinn/blog?catalog=255729&p=2 ]有介绍LLVM的博客,希望对楼主有点用哈.....
要是真能搞个Basic山寨编译器就是好啊....非常支持楼主....最好集合论坛各人的力量搞一个开源项目团队,可以的话算我一份哈....

查看全部评论(20)

相关分类

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-11-13 22:57

VB爱好者乐园(VBGood)
返回顶部