`
libudi
  • 浏览: 35828 次
  • 性别: Icon_minigender_1
  • 来自: 郑州
社区版块
存档分类
最新评论

Lysee 的语法定义

阅读更多
很高兴今天能发布这个声明:

经过不懈努力,Lysee于今晨8:30释出1.1.0.5511版本,新版本初步实现了语法定义,帮助Lysee又向前“挪了”一步!

首先向Scheme/Lisp、Haskell、Perl、Python还有其它语言表示一下尊敬:

syntax void thanks(%(you) AND %(he))
{
  = "thanks!", you, "and", he;
}

thanks "scheme/lisp" AND "haskell, python, perl and others";


syntax”是为Lysee新定义的关键字,用于向语法分析器提示有必要在后续的代码中检测并使用新定义的语法。

用“syntax”定义的语法只是一个再普通不过的函数,下面是前面定义的“thanks”语法的伪代码:

public variant main(variant ARGS)
{
     PUSH_FUNC main::thanks //==> 将函数thanks压栈
     PUSH_STR scheme/lisp
     PUSH_STR "haskell, python, perl and others"
     CALL [3]
     POP
     RETURN
}

syntax void thanks(%(you) AND %(he)) //==> public void thanks(variant you he)
{
     PUSH_STR thanks!
     PUSH_VARB you
     PUSH_STR and
     PUSH_VARB he
     PRINT [4]
}


原理:

编译器将函数定义中%(ID)%{ID}格式中的标识符登记为variant类型的参数,其它符号作为占位符被抛掉。

%(ID) - 表示直接计算%(ID)所在位置的表达式,仅将结果传递给新函数。
%{ID} - 表示在编译时将%{ID}对应位置上的表达式转换为闭包。

下面定义一个略微复杂的语法,实现Pascal中的repeat ... until循环:

// 定义 repeat .. until 语法

syntax void repeat(%(STATEMENT) until %{FALSE})
{
  do { STATEMENT() } while (not FALSE());
}

// 使用

int guess, magic = 5;
repeat { 
  guess = sys::random(10);
  = guess, eol;
} until (guess == magic);
 
// 输出

7
0
3
4
2
5



看到这儿,研究FP的朋友们应该可以会心的笑了,看看下面的伪代码就更清楚了

public variant main(variant ARGS)
{
     VARB guess: int
     VARB magic: int
     PUSH_INT 5
     SAVE_TO magic
     POP
     PUSH_FUNC main::repeat //==> repeat ... until
     PUSH_SUBF main::main.1 //==> STATEMENT
     PUSH_SUBF main::main.2 //==> FALSE
     CALL [3]
     POP
     RETURN
}

public variant main.1() //==> STATEMENT
{
     PUSH_FUNC sys::random
     PUSH_INT 10
     CALL [2]
     SAVE_TO guess
     POP
     PUSH_VARB guess
     PUSH EOL
     PRINT [2]
     RETURN
}

public variant main.2() //==> FALSE
{
     PUSH_VARB guess
     PUSH_VARB magic
     CALC ==
     RETURN [1]
}

syntax void repeat(%(STATEMENT) until %{FALSE})
{
0000:PUSH_VARB STATEMENT //==> main.1
     CALL [1]
     POP
     PUSH_VARB FALSE //==> main.2
     CALL [1]
     CALC NOT
     JMPT 0000: POP
}


再举一个常见的for_each语法定义,真是很简单:

syntax void for_each(%(LIST): %(PROC)) // 要求LIST必须支持each操作
{
  LIST.each(PROC);
}

// 调用

for_each strlist("hello\nworld\n!"): {|string item| = item, eol}; 

// 输出

hello
world
!


语法定义扎根在函数闭包上,怎么优化函数闭包的生成、使用和释放,如何节省系统资源仍然还是个大问题。

总结一下:语法定义是个好东西,但使用的代价可能不菲,特别是过分滥用时会破坏我们已有的代码。
  • setup.rar (1.6 MB)
  • 描述: Lysee 1.1.0.5513精简版安装程序
  • 下载次数: 2
分享到:
评论
3 楼 libudi 2007-09-28  
下面这段代码是Lysee编译器在发现需要引用新语法时的处理代码:

procedure TLiParser.ParseExpr_syntax(Expr: TList; EndSyms: TLiSymbols; Syntax: TLiSyntax);
var
  index, count: integer;
  rec: PLiSyntaxRec;
  ask: PLiToken;
begin
  ask := CloneSym(FLast);
  ask^.Sym := syID;
  ask^.Val := Syntax.FullName; //==> 压入语法定义函数
  Expr.Add(ask);
  
  count := Syntax.SynRecCount;
  index := 0;
  while index < count do
  begin
    rec := Syntax.SynRec[index];
    if rec^.si_type = simSymbol then //==> 解析并跳过战位符
    begin
      SymTestNext([rec^.si_symb]);
      if rec^.si_symb = syID then
        if FLast^.Val <> rec^.si_text then //==> 标识符区分大小写
          Error.SymUnexpected(Self);
    end
    else
    if rec^.si_type = simValue then //==> 直接求值表达式,结果压栈
    begin
      Inc(index);
      if index < count then
      begin
        rec := Syntax.SynRec[index];
        ParseExpr(Expr, [rec^.si_symb], false);
      end
      else ParseExpr(Expr, EndSyms, false);
    end
    else
    if rec^.si_type = simParcel then //==> 生成闭包后压入栈
    begin
      Inc(index);
      if index < count then
      begin
        rec := Syntax.SynRec[index];
        ParseClosure(KT_VARIANT, '', [rec^.si_symb], rec^.si_text);
      end
      else ParseClosure(KT_VARIANT, '', EndSyms, '');
    end;
    Inc(index);
  end;
  
  ask := CloneSym(FLast);
  ask^.Sym := syAsk; //==> 压入调用参数
  ask^.VParamCount := Syntax.ParamCount + 1;
  Expr.Add(ask);
  
  if Syntax.LastSynRec^.si_type = simSymbol then // adjust FLast
    SymTestNext(EndSyms);
end;


函数针对前面提到的三种对象进行分别的处理,目标都是调整好堆栈的状态。

在什么时候激发编译器应用新的语法定义要比单纯的解析语法声明过程和上面的堆栈调整过程要复杂的多,代码很难在整体上贴出,抱歉!
2 楼 libudi 2007-09-28  
下面这段代码是Lysee编译器遇到syntax关键字后的解析代码:

type
  TLiSyntaxItem = (simSymbol, simValue, simParcel);
  RLiSyntaxRec = packed record
    si_type: TLiSyntaxItem;
    si_symb: TLiSymbol;
    si_text: string;      // set when si_symb is syID
  end;
  PLiSyntaxRec = ^RLiSyntaxRec;

function TLiSyntax.AddSynRec(Item: TLiSyntaxItem; Sym: TLiSymbol; const Text: string): integer;
var
  si: PLiSyntaxRec;
begin
  GetMem(si, sizeof(RLiSyntaxRec));
  FillChar(si^, sizeof(RLiSyntaxRec), 0);
  si^.si_type := Item;
  si^.si_symb := Sym;
  si^.si_text := Text;
  Result := FItems.Add(si);
  if Item <> simSymbol then
    AddParam(Text, KT_VARIANT);
end;

procedure TLiParser.ParseSyntax;
var
  syntax: TLiSyntax;
  clss: TLiClass;
  last: TLiSyntaxItem;
begin
  // 1. parse result type
  ParseVarType(clss, false);

  // 2. parse syntax name
  SymGotoNext;
  if not IsPureID(FLast) then
    Error.WrongIDName(Self);
  if FPage.Declared(FLast.Val) then
    Error.Redeclared(Self);

  // 3. create syntax object
  syntax := TLiSyntax.Create(FLast^.Val, FPage);
  syntax.FPos := FLast^.Pos;
  syntax.ResultType := clss; //==> 语法块的返回值类型

  // 4. parse parametres
  SymTestNext([syLParen]); //==> 开始参数解析
  SymGotoNext;
  if FLast^.Sym = syRParen then
    Error.SymUnexpected(Self);

  last := simSymbol; //==> 缺省为占位符
  repeat
    if FLast^.Sym in [syGetValue] then
      Error.SymUnexpected(Self);
      
    if FLast^.Sym = syID then
      if not IsPureId(FLast) then
        Error.SymUnexpected(Self);
        
    if FLast^.Sym <> syMod then
    begin
      last := simSymbol;
      syntax.AddSynRec(last, FLast^.Sym, FLast^.Val);  //==> 登记占位符
    end
    else
    case PeekNextSym of
      syLBlock: if last = simSymbol then //==> 要求必须被占位符间隔
                begin
                  SymGotoNext;
                  SymTestNextPureID;
                  if (syntax.Name = FLast^.Val)
                    or not syntax.CanDeclare(FLast^.Val) then
                      Error.Redeclared(Self);
                  last := simParcel;
                  syntax.AddSynRec(last, syID, FLast^.Val); //==> 登记函数闭包
                  SymTestNext([syRBlock]);
                end
                else Error.SymUnexpected(Self);
      syLParen: if last = simSymbol then // 要求必须被占位符间隔
                begin
                  SymGotoNext;
                  SymTestNextPureID;
                  if (syntax.Name = FLast^.Val)
                    or not syntax.CanDeclare(FLast^.Val) then
                      Error.Redeclared(Self);
                  last := simValue;
                  syntax.AddSynRec(last, syID, FLast^.Val); //==> 登记表达式
                  SymTestNext([syRParen]);
                end
                else Error.SymUnexpected(Self);
      else      begin
                  last := simSymbol;
                  syntax.AddSynRec(last, FLast^.Sym, FLast^.Val);
                end;
    end;
    SymGotoNext;
  until (FLast^.Sym = syRParen) and (PeekNextSym = syLBlock);

  SymGotoNext;
  FCurFunc := syntax;
  ParseBlock; //==> 语法函数主体
end;


从上面的代码可以看出,语法定义需要处理三种不同的对象:

1、占位符  :在Scheme/Lisp中称为关键字,主要用于分隔相临的参数(代码块)
2、表达式  :在语法块外即计算求值的代码块,通常用作流程控制条件。
3、函数闭包:执行具体语句的代码块,是实现语法功能的主体
1 楼 libudi 2007-09-28  
Lysee的语法定义使用了一种非常懒(lazy)的算法,希望感兴趣的朋友能谈谈自己对语法定义的理解,不拘束于具体语言,无论是编译层面还是外在的语法层面,互相交流促进一下

相关推荐

    delphi使用lysee脚本的例子(windows下)

    学习这个例子可以帮助初学者了解如何在Lysee中定义变量、函数、类以及控制结构。 3. **开源代码分析**:例子提供的开源代码是学习的好资源。通过阅读和理解代码,你可以看到如何在Delphi中创建和调用Lysee脚本,...

    lysee303_304_bin_x86_64_Src_developing.rar

    lysee是一种支持面向对象编程(语法类似c/c++和java)的轻量级脚本引擎,能够非常简便的嵌入到使用delphi开发的程序中并控制程序的运行。 lysee的内核是用delphi6.0开发的,以动态连接库的形式对外发布,配套的接口...

    TCodeEdit 0.6.0

    TCodeEdit是本人为Lysee编写的语法加亮代码编辑器,使用纯Pascal开发,当前版本支持Pascal、Lysee、C/C++和Java的代码编写,项目代码托管在GitHub(https://github.com/lysee/TCodeEdit.git)。TCodeEdit在Lazarus中...

    为Delphi应用增加脚本支持(ZT)

    在IT行业中,为应用程序添加脚本支持是一种常见的增强软件功能和灵活性的方式。Delphi作为一款强大的Windows应用程序开发工具,提供了丰富的功能和库,使得开发者能够为自己的应用集成脚本引擎,使得用户或开发者...

    基于Qt开发的截图工具- 支持全屏截图, 支持自定义截图,支持捕获窗口截图,支持固定大小窗口截图,颜色拾取,图片编辑

    基于Qt开发的截图工具.zip 截图工具(QScreenShot) Qt编写的一款截图工具。 特点 - 支持全屏截图 - 支持自定义截图 - 支持捕获窗口截图 - 支持固定大小窗口截图 - 颜色拾取 - 图片编辑 - 图片上传到wordpress 环境 Qt6.2 QtCreate 8

    毕业设计&课设_ 校园活动管理系统,优化校园活动组织流程,涵盖多方面功能模块的便捷平台.zip

    该资源内项目源码是个人的课程设计、毕业设计,代码都测试ok,都是运行成功后才上传资源,答辩评审平均分达到96分,放心下载使用! ## 项目备注 1、该资源内项目代码都经过严格测试运行成功才上传的,请放心下载使用! 2、本项目适合计算机相关专业(如计科、人工智能、通信工程、自动化、电子信息等)的在校学生、老师或者企业员工下载学习,也适合小白学习进阶,当然也可作为毕设项目、课程设计、作业、项目初期立项演示等。 3、如果基础还行,也可在此代码基础上进行修改,以实现其他功能,也可用于毕设、课设、作业等。 下载后请首先打开README.md文件(如有),仅供学习参考, 切勿用于商业用途。

    毕业设计基于ASP.NET技术的班级展示网站构建(源代码+论文).zip

    基于ASP.NET技术的班级展示网站构建资源,是一套针对教育机构或学生团体,旨在通过ASP.NET框架开发班级风采展示平台的指导资料或教程。此资源详细介绍了如何利用ASP.NET的强大功能,快速搭建一个功能完善、界面友好的在线班级展示平台。 该资源涵盖了从需求分析、数据库设计、前端页面制作到后端逻辑实现的全过程。通过实例演示,指导用户如何设置班级信息、学生风采展示、活动公告、图片上传与浏览等核心功能模块。同时,结合ASP.NET的MVC架构,实现了前后端分离,提高了代码的可维护性和可扩展性。 此外,该资源还提供了丰富的代码示例和注释,帮助开发者深入理解ASP.NET框架的工作原理,掌握如何运用其强大的数据库操作、用户认证与授权等特性。对于初学者来说,这是一份难得的入门教程;而对于有一定经验的开发者,则是一份提升技能的参考资料。 总之,基于ASP.NET技术的班级展示网站构建资源,是教育机构和学生团体实现班级风采在线展示的理想选择,也是开发者学习ASP.NET框架应用的宝贵资源。

    基于springboot的流浪动物管理系统源码数据库文档.zip

    基于springboot的流浪动物管理系统源码数据库文档.zip

    基于springboot+vue的实践性教学系统源码数据库文档.zip

    基于springboot+vue的实践性教学系统源码数据库文档.zip

    基于Python+Django家居全屋定制系统源码数据库文档.zip

    基于Python+Django家居全屋定制系统源码数据库文档.zip

    Umi-OCR-main.zip

    Umi-OCR-main.zip

    基于springboot复兴村医疗管理系统源码数据库文档.zip

    基于springboot复兴村医疗管理系统源码数据库文档.zip

    基于springboot二手物品交易系统源码数据库文档.zip

    基于springboot二手物品交易系统源码数据库文档.zip

    2024年西安外事学院数学建模校赛题目.zip

    2024年西安外事学院数学建模校赛题目.zip

    基于springboot医疗废物管理系统源码数据库文档.zip

    基于springboot医疗废物管理系统源码数据库文档.zip

    colormaps.ipynb

    GEE训练教程

    Spring Boot设计实战:从入门到精通的语言教程、实战案例与项目资源

    内容概要:本文详细介绍了Spring Boot的设计和应用,涵盖了从基本概念到高级用法的全方位教学。首先通过环境搭建、首个项目创建、核心概念解析等步骤帮助读者快速上手。接着阐述了Spring Boot的设计原则与最佳实践,强调代码整洁和系统可维护性。最后,提供了两个实战案例:构建简单的RESTful API和电商网站后台管理系统,涉及项目结构、依赖配置、数据库设计、实体类与控制器的创建等内容,指导读者进行真实项目的开发。 适合人群:适合初学者到中级开发者的Java开发人员,尤其是对企业级应用开发感兴趣的人士。 使用场景及目标:①帮助开发者全面掌握Spring Boot的基本用法及其设计理念;②提供实用的实战案例和资源,使读者能够在实际项目中熟练应用Spring Boot技术。 阅读建议:跟随文章提供的步骤逐步操作,并结合实际开发需求灵活运用所学知识。建议多动手练习,加强对Spring Boot的理解和掌握。

    毕业设计&课设_基于 SSM 的城市公交查询系统,含多种信息及数据库脚本.zip

    该资源内项目源码是个人的课程设计、毕业设计,代码都测试ok,都是运行成功后才上传资源,答辩评审平均分达到96分,放心下载使用! ## 项目备注 1、该资源内项目代码都经过严格测试运行成功才上传的,请放心下载使用! 2、本项目适合计算机相关专业(如计科、人工智能、通信工程、自动化、电子信息等)的在校学生、老师或者企业员工下载学习,也适合小白学习进阶,当然也可作为毕设项目、课程设计、作业、项目初期立项演示等。 3、如果基础还行,也可在此代码基础上进行修改,以实现其他功能,也可用于毕设、课设、作业等。 下载后请首先打开README.md文件(如有),仅供学习参考, 切勿用于商业用途。

    课程考试系统设计与开发:从理论到实践的全方位指南

    内容概要:本文详细介绍了一个课程考试系统的设计与开发过程,涵盖语言教程、实战案例和项目资源。主要内容包括:选择Java作为开发语言,详细讲解Java基础语法和Web开发基础;实战案例包括用户管理、课程管理和考试管理模块的实现;提供了项目结构、数据库设计和依赖管理的详细示例。 适合人群:适用于初学者和有一定经验的开发者,希望通过实际项目掌握课程考试系统的设计与开发。 使用场景及目标:帮助学习者全面提升从理论到实践的能力,最终能够独立完成一个完整的课程考试系统。无论是学习编程基础还是进阶实战,本文都提供了全面的指导。 其他说明:项目涉及多个关键技术和知识点,如Servlet、JSP、JDBC、MVC模式等,有助于深入理解和应用这些技术。此外,还包括项目部署和运行的具体步骤,方便学习者快速搭建和测试系统。

    《伯牙鼓琴》教学课件.pptx

    《伯牙鼓琴》教学课件.pptx

Global site tag (gtag.js) - Google Analytics