语法分析器（syntax analyzer）【Perl实现】

查看正文内容

#!/usr/bin/perluse strict;   # parse.pl - inputs lex, outputs flattened ast
use warnings; # http://www.rosettacode.org/wiki/Compiler/syntax_analyzermy $h = qr/\G\s*\d+\s+\d+\s+/;  # header of each linesub error { die "*** Expected @_ at " . (/\G(.*\n)/ ?$1 =~ s/^\s*(\d+)\s+(\d+)\s+/line $1 character $2 got /r : "EOF\n") }sub want { /$h \Q$_[1]\E.*\n/gcx ? shift : error "'$_[1]'" }local $_ = join '', <>;
print want stmtlist(), 'End_of_input';sub stmtlist{/(?=$h (RightBrace|End_of_input))/gcx and return ";\n";my ($stmt, $stmtlist) = (stmt(), stmtlist());$stmtlist eq ";\n" ? $stmt : "Sequence\n$stmt$stmtlist";}sub stmt{/$h Semicolon\n/gcx ? ";\n" :/$h Identifier \s+ (\w+) \n/gcx ? want("Assign\nIdentifier\t$1\n",'Op_assign') . want expr(0), 'Semicolon' :/$h Keyword_while \n/gcx ? "While\n" . parenexp() . stmt() :/$h Keyword_if \n/gcx ?  "If\n" . parenexp() . "If\n" . stmt() .(/$h Keyword_else \n/gcx ? stmt() : ";\n") :/$h Keyword_print \n/gcx ? want('', 'LeftParen') .want want(printlist(), 'RightParen'), 'Semicolon' :/$h Keyword_putc \n/gcx ? want "Prtc\n" . parenexp() . ";\n", 'Semicolon' :/$h LeftBrace \n/gcx ? want stmtlist(), 'RightBrace' :error 'A STMT';}sub parenexp { want('', 'LeftParen') . want expr(0), 'RightParen' } # (expr)sub printlist{my $ast = /$h String \s+ (".*") \n/gcx ?"Prts\nString\t\t$1\n;\n" : "Prti\n" . expr(0) . ";\n";/$h Comma \n/gcx ? "Sequence\n$ast" . printlist() : $ast;}sub expr               # (sort of EBNF) expr = operand { operator expr }{my $ast =                                        # operand/$h Integer \s+ (\d+) \n/gcx ? "Integer\t\t$1\n" :/$h Identifier \s+ (\w+) \n/gcx ? "Identifier\t$1\n" :/$h LeftParen \n/gcx ? want expr(0), 'RightParen' :/$h Op_(negate|subtract) \n/gcx ? "Negate\n" . expr(8) . ";\n" :/$h Op_not \n/gcx ? "Not\n" . expr(8) . ";\n" :/$h Op_add \n/gcx ? expr(8) :error "A PRIMARY";$ast =                                           # { operator expr }$_[0] <= 7 && /$h Op_multiply \n/gcx ? "Multiply\n$ast" . expr(8) :$_[0] <= 7 && /$h Op_divide \n/gcx ? "Divide\n$ast" . expr(8) :$_[0] <= 7 && /$h Op_mod \n/gcx ? "Mod\n$ast" . expr(8) :$_[0] <= 6 && /$h Op_add \n/gcx ? "Add\n$ast" . expr(7) :$_[0] <= 6 && /$h Op_subtract \n/gcx ? "Subtract\n$ast" . expr(7) :$_[0] == 5 && /(?=$h Op_(less|greater)(equal)? \n)/gcx ? error 'NO ASSOC' :$_[0] <= 5 && /$h Op_lessequal \n/gcx ? "LessEqual\n$ast" . expr(5) :$_[0] <= 5 && /$h Op_less \n/gcx ? "Less\n$ast" . expr(5) :$_[0] <= 5 && /$h Op_greater \n/gcx ? "Greater\n$ast" . expr(5) :$_[0] <= 5 && /$h Op_greaterequal \n/gcx ?  "GreaterEqual\n$ast" . expr(5) :$_[0] == 3 && /(?=$h Op_(not)?equal \n)/gcx ? error 'NO ASSOC' :$_[0] <= 3 && /$h Op_equal \n/gcx ? "Equal\n$ast" . expr(3) :$_[0] <= 3 && /$h Op_notequal \n/gcx ? "NotEqual\n$ast" . expr(3) :$_[0] <= 1 && /$h Op_and \n/gcx ? "And\n$ast" . expr(2) :$_[0] <= 0 && /$h Op_or \n/gcx ? "Or\n$ast" . expr(1) :return $ast while 1;}

输出：

Sequence
Assign
Identifier      count
Integer         1
While
Less
Identifier      count
Integer         10
Sequence
Sequence
Prts
String          "count is: "
;
Sequence
Prti
Identifier      count
;
Prts
String          "\n"
;
Assign
Identifier      count
Add
Identifier      count
Integer         1

语法分析器（syntax analyzer）【Perl实现】相关推荐

编译器之语法分析器（syntax analyzer）
语法分析器根据语法将标记流(来自词法分析器)转换为语法树. 任务描述从"词法分析器" 中获取输出,并根据以下语法将其转换为抽象语法树(AST).输出应为扁平格式. 程序应从文件和 ...
《编译原理》实验报告——基于YACC的TINY语法分析器的构建
一.实验要求运用YACC,针对TINY语言,构造一个语法分析器.给出实验方案,实施并描述结果. 二.实验方案 (1)设计基于LEX的TINY词法分析器 (2)设计基于YACC的TINY语法分析器 ( ...
java实现语法分析器_200 行 JS 代码,带你实现代码编译器
一.前言对于前端同学来说,编译器可能适合神奇的魔盒 ,表面普通,但常常给我们惊喜. 编译器,顾名思义,用来编译,编译什么呢?当然是编译代码咯 . 其实我们也经常接触到编译器的使用场景: React ...
递归下降语法分析器的构建_一文了解函数式查询优化器Spark SQL Catalyst
大数据技术与架构点击右侧关注,大数据开发领域最强公众号! 暴走大数据点击右侧关注,暴走大数据!记录一下个人对sparkSql的catalyst这个函数式的可扩展的查询优化器的理解,目录如下: 0. O ...
编译器入门语法分析器 java_从零开始写个编译器吧 - Parser 语法分析器
Parser(语法分析器)的编写相对于 Tokenizer (词法分析器)要复杂得多,因此,在编写之前可能也会铺垫得更多一些.当然,本系列旨在"写出"一个编译器,所以理论方面只会简 ...
编译原理——实验叁——基于YACC的TINY语法分析器的构建
一. 实验要求运用YACC,针对TINY语言,构造一个语法分析器.给出实验方案,实施并描述结果. 二. 实验方案 (1)设计基于YACC的TINY词法分析器 (2)设计基于LEX的TINY语法分析器 ...
编译原理——实验叁预习报告——基于YACC的TINY语法分析器的构建
一.实验目的: 运用YACC,针对给定的文法,构造一个语法分析器.给出实验方案,实施并描述结果. 二.实验预习提示 1.表达:针对5.5节中的calculator文法,设计输入和输出 2.观察:观察p ...
Vczh Library++ 语法分析器开发指南
Vczh Library++ 语法分析器开发指南陈梓瀚前言在日常的开发工作中我们总是时不时需要写一些语法分析器.语法分析器不一定指的是一门语言的编译器前端,也有可能仅仅是一个自己设计格式的配置文 ...
自己动手开发编译器（十）miniSharp语法分析器
经过前面四篇的铺垫,我们终于拥有了编写语法分析器的强大工具,现在可以正式开发一门编程语言的语法分析器了.我们先来定义miniSharp的语法规则,然后根据LL文法的特点进行一些调整,最后借助解析器组合 ...
编译原理c++基于LR分析表编写语法分析器
具体要求已知文法G[E]: E->E+T | T T->(E) | id | id[E] //其中E,T为非终结符,其余符号为终结符 (1)为该文法建立LR分析表.//通过构造项目集规范 ...

语法分析器（syntax analyzer）【Perl实现】

语法分析器（syntax analyzer）【Perl实现】相关推荐

最新文章

热门文章