`
libudi
  • 浏览: 35766 次
  • 性别: 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应用程序开发工具,提供了丰富的功能和库,使得开发者能够为自己的应用集成脚本引擎,使得用户或开发者...

    友价免签约支付接口插件最新版

    友价免签约支付接口插件最新版

    基于java的微信小程序跳蚤市场设计与实现答辩PPT.pptx

    基于java的微信小程序跳蚤市场设计与实现答辩PPT.pptx

    java程序员面试求职指南

    程序员面试求职指南 程序员简历制作指南 面试常见词汇扫盲 项目经验指南

    akima-2019.1.1-cp34-cp34m-win32.whl.rar

    python whl离线安装包 pip安装失败可以尝试使用whl离线安装包安装 第一步 下载whl文件,注意需要与python版本配套 python版本号、32位64位、arm或amd64均有区别 第二步 使用pip install XXXXX.whl 命令安装,如果whl路径不在cmd窗口当前目录下,需要带上路径 WHL文件是以Wheel格式保存的Python安装包, Wheel是Python发行版的标准内置包格式。 在本质上是一个压缩包,WHL文件中包含了Python安装的py文件和元数据,以及经过编译的pyd文件, 这样就使得它可以在不具备编译环境的条件下,安装适合自己python版本的库文件。 如果要查看WHL文件的内容,可以把.whl后缀名改成.zip,使用解压软件(如WinRAR、WinZIP)解压打开即可查看。 为什么会用到whl文件来安装python库文件呢? 在python的使用过程中,我们免不了要经常通过pip来安装自己所需要的包, 大部分的包基本都能正常安装,但是总会遇到有那么一些包因为各种各样的问题导致安装不了的。 这时我们就可以通过尝试去Python安装包大全中(whl包下载)下载whl包来安装解决问题。

    aiohttp-3.8.1-cp311-cp311-win32.whl.rar

    python whl离线安装包 pip安装失败可以尝试使用whl离线安装包安装 第一步 下载whl文件,注意需要与python版本配套 python版本号、32位64位、arm或amd64均有区别 第二步 使用pip install XXXXX.whl 命令安装,如果whl路径不在cmd窗口当前目录下,需要带上路径 WHL文件是以Wheel格式保存的Python安装包, Wheel是Python发行版的标准内置包格式。 在本质上是一个压缩包,WHL文件中包含了Python安装的py文件和元数据,以及经过编译的pyd文件, 这样就使得它可以在不具备编译环境的条件下,安装适合自己python版本的库文件。 如果要查看WHL文件的内容,可以把.whl后缀名改成.zip,使用解压软件(如WinRAR、WinZIP)解压打开即可查看。 为什么会用到whl文件来安装python库文件呢? 在python的使用过程中,我们免不了要经常通过pip来安装自己所需要的包, 大部分的包基本都能正常安装,但是总会遇到有那么一些包因为各种各样的问题导致安装不了的。 这时我们就可以通过尝试去Python安装包大全中(whl包下载)下载whl包来安装解决问题。

    JSP基于SSM旅游景点预订html5网站毕业源码案例设计.zip

    JSP基于SSM旅游景点预订html5网站毕业源码案例设计 1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 6、可私信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 6、可私信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 6、可私信博主看论文后选择购买源代码。

    open3d-0.15.2-cp38-cp38-win-amd64.whl

    open3d-0.15.2-cp38-cp38-win_amd64.whl open3d cuda的python包 import open3d as o3d print(o3d.cuda.Device().is_cuda_available() )# 检查是否支持CUDA

    【python毕业设计】基于Python的可视化学习系统(完整前后端源码).zip

    环境说明: 开发语言:Python 框架:django Python版本:python3.7.7 数据库:mysql 5.7+ 数据库工具:Navicat11 开发软件:PyCharm

    aicspylibczi-2.7.6-cp36-cp36m-win_amd64.whl.rar

    python whl离线安装包 pip安装失败可以尝试使用whl离线安装包安装 第一步 下载whl文件,注意需要与python版本配套 python版本号、32位64位、arm或amd64均有区别 第二步 使用pip install XXXXX.whl 命令安装,如果whl路径不在cmd窗口当前目录下,需要带上路径 WHL文件是以Wheel格式保存的Python安装包, Wheel是Python发行版的标准内置包格式。 在本质上是一个压缩包,WHL文件中包含了Python安装的py文件和元数据,以及经过编译的pyd文件, 这样就使得它可以在不具备编译环境的条件下,安装适合自己python版本的库文件。 如果要查看WHL文件的内容,可以把.whl后缀名改成.zip,使用解压软件(如WinRAR、WinZIP)解压打开即可查看。 为什么会用到whl文件来安装python库文件呢? 在python的使用过程中,我们免不了要经常通过pip来安装自己所需要的包, 大部分的包基本都能正常安装,但是总会遇到有那么一些包因为各种各样的问题导致安装不了的。 这时我们就可以通过尝试去Python安装包大全中(whl包下载)下载whl包来安装解决问题。

    宠物综合服务平台 SSM毕业设计 附带论文.zip

    宠物综合服务平台 SSM毕业设计 附带论文 启动教程:https://www.bilibili.com/video/BV1GK1iYyE2B

    使用Java实现一个游戏引擎.zip

    本资源提供了一个使用Java语言实现的完整游戏引擎示例,旨在帮助开发者学习和理解游戏引擎的基本架构和核心功能。该资源包含了从图形渲染、物理模拟到用户输入处理等多个模块的实现代码,以及相关的文档和注释,便于开发者进行学习和研究。通过本资源,你可以深入了解如何利用Java语言构建一个可扩展的游戏引擎框架,包括场景管理、实体组件系统(ECS)的设计,以及如何集成第三方库来增强游戏引擎的功能。此外,资源中还提供了一些简单的游戏示例,帮助你快速上手并实践所学知识。请注意,本资源是一个学习资源,适合有一定编程基础并对游戏开发感兴趣的开发者使用。通过研究和分析这些代码,你将能够更好地掌握游戏引擎的开发技巧,为未来的项目打下坚实的基础。

    astropy-4.0.3-cp36-cp36m-win_amd64.whl.rar

    python whl离线安装包 pip安装失败可以尝试使用whl离线安装包安装 第一步 下载whl文件,注意需要与python版本配套 python版本号、32位64位、arm或amd64均有区别 第二步 使用pip install XXXXX.whl 命令安装,如果whl路径不在cmd窗口当前目录下,需要带上路径 WHL文件是以Wheel格式保存的Python安装包, Wheel是Python发行版的标准内置包格式。 在本质上是一个压缩包,WHL文件中包含了Python安装的py文件和元数据,以及经过编译的pyd文件, 这样就使得它可以在不具备编译环境的条件下,安装适合自己python版本的库文件。 如果要查看WHL文件的内容,可以把.whl后缀名改成.zip,使用解压软件(如WinRAR、WinZIP)解压打开即可查看。 为什么会用到whl文件来安装python库文件呢? 在python的使用过程中,我们免不了要经常通过pip来安装自己所需要的包, 大部分的包基本都能正常安装,但是总会遇到有那么一些包因为各种各样的问题导致安装不了的。 这时我们就可以通过尝试去Python安装包大全中(whl包下载)下载whl包来安装解决问题。

    青大校园预点餐系统 SSM毕业设计 附带论文.zip

    青大校园预点餐系统 SSM毕业设计 附带论文 启动教程:https://www.bilibili.com/video/BV1GK1iYyE2B

    arctic-1.67.1-cp37-cp37m-win_amd64.whl.rar

    python whl离线安装包 pip安装失败可以尝试使用whl离线安装包安装 第一步 下载whl文件,注意需要与python版本配套 python版本号、32位64位、arm或amd64均有区别 第二步 使用pip install XXXXX.whl 命令安装,如果whl路径不在cmd窗口当前目录下,需要带上路径 WHL文件是以Wheel格式保存的Python安装包, Wheel是Python发行版的标准内置包格式。 在本质上是一个压缩包,WHL文件中包含了Python安装的py文件和元数据,以及经过编译的pyd文件, 这样就使得它可以在不具备编译环境的条件下,安装适合自己python版本的库文件。 如果要查看WHL文件的内容,可以把.whl后缀名改成.zip,使用解压软件(如WinRAR、WinZIP)解压打开即可查看。 为什么会用到whl文件来安装python库文件呢? 在python的使用过程中,我们免不了要经常通过pip来安装自己所需要的包, 大部分的包基本都能正常安装,但是总会遇到有那么一些包因为各种各样的问题导致安装不了的。 这时我们就可以通过尝试去Python安装包大全中(whl包下载)下载whl包来安装解决问题。

    aggdraw-1.3.11-cp27-cp27m-win_amd64.whl.rar

    python whl离线安装包 pip安装失败可以尝试使用whl离线安装包安装 第一步 下载whl文件,注意需要与python版本配套 python版本号、32位64位、arm或amd64均有区别 第二步 使用pip install XXXXX.whl 命令安装,如果whl路径不在cmd窗口当前目录下,需要带上路径 WHL文件是以Wheel格式保存的Python安装包, Wheel是Python发行版的标准内置包格式。 在本质上是一个压缩包,WHL文件中包含了Python安装的py文件和元数据,以及经过编译的pyd文件, 这样就使得它可以在不具备编译环境的条件下,安装适合自己python版本的库文件。 如果要查看WHL文件的内容,可以把.whl后缀名改成.zip,使用解压软件(如WinRAR、WinZIP)解压打开即可查看。 为什么会用到whl文件来安装python库文件呢? 在python的使用过程中,我们免不了要经常通过pip来安装自己所需要的包, 大部分的包基本都能正常安装,但是总会遇到有那么一些包因为各种各样的问题导致安装不了的。 这时我们就可以通过尝试去Python安装包大全中(whl包下载)下载whl包来安装解决问题。

    基于java的微信小程序健身房私教预约系统答辩PPT.pptx

    基于java的微信小程序健身房私教预约系统答辩PPT.pptx

Global site tag (gtag.js) - Google Analytics