文档章节

Lua1.0 脚本初步印象

晓寒
 晓寒
发布于 2014/08/24 00:12
字数 1237
阅读 376
收藏 5

先来个 hello, world! 看看解释器是否能正常工作:

print("hello, world")
可以正常输出,说明解释器能正常干活。

再看看几个官方自带的测试文件是干什么的:

array.lua

$debug
a = @()
i=0
while i<10 do
 a[i] = i*i
 i=i+1
end
r,v = next(a,nil)
while r ~= nil do
 print ("array["..r.."] = "..v)
 r,v = next(a,r)
end

定义一个数组,设置值并输出。数组的下标从 0 开始,这个和后来的较新的 Lua 版本不一样,在后来的版本里,Lua 数组下标都是从 1 开始的。
文件的头一行的 $debug 这里看不出有什么用,这个用法到 Lua1.1 里就可以看出有什么作用了。到时候再说。
这里用到了 next 函数来遍历数组。

globals.lua

k,v=nextvar(k)
while k do
  print(k)
  k,v=nextvar(k)
end
print(i)

打印全局变量
nextvar 用来返回下一个全局变量
看看全局变量都有哪些:
type, tonumber, next, nextvar, print 在 table.c 中定义
callfunc, execstr, test 在 lua.c 中定义
readfrom, writeto, read, write, execute, remove 在 iolib.c 中定义, io 库函数
strfind, strlen, strsub, strlower, strupper 在 strlib.c 中定义, 字符串库函数
abs, sin, cos, tan, asin, acos, atan, ceil, floor, mod, sqrt, pow, min, max 在 mathlb.c 中定义, 数学库函数。
k 当前的文件中定义,
不知道为什么 v 没有在全局变量中出现。这个应该是 Lua1.0 的一个 bug 吧,这个等到 Lua1.1 时再分析。

save.lua

$debug
function savevar (n,v)
 if v = nil then return end;
 if type(v) = "number" then print(n.."="..v) return end
 if type(v) = "string" then print(n.."='"..v.."'") return end
 if type(v) = "table" then
   if v.__visited__ ~= nil then
     print(n .. "=" .. v.__visited__);
   else
    print(n.."=@()")
    v.__visited__ = n;
    local r,f;
    r,f = next(v,nil);
    while r ~= nil do
      if r ~= "__visited__" then
        if type(r) = 'string' then
          savevar(n.."['"..r.."']",f)
    else
          savevar(n.."["..r.."]",f)
    end
      end
      r,f = next(v,r)
    end
   end
 end
end
function save ()
local n,v
  n,v = nextvar(nil)
  while n ~= nil do 
    savevar(n,v); 
    n,v = nextvar(n)
  end
end
a = 3
x = @{a = 4, b = "name", l=@[4,5,67]}
b = @{t=5}
x.next = b
save()

打印在当前的 lua 代码中定义的全局变量
由于 savevar 中 type(v) 的限定,在 C 代码中定义的全局变量不会被打印,因为它们的 type 是 cfunction。

sort.lua

$debug
function quicksort(r,s)
    if s<=r then return end        -- caso basico da recursao
    local v=x[r]
    local i=r
    local j=s+1
        i=i+1; while x[i]<v do i=i+1 end
        j=j-1; while x[j]>v do j=j-1 end
        x[i],x[j]=x[j],x[i]
    while j>i do            -- separacao
        i=i+1; while x[i]<v do i=i+1 end
        j=j-1; while x[j]>v do j=j-1 end
        x[i],x[j]=x[j],x[i]
    end
    x[i],x[j]=x[j],x[i]        -- undo last swap
    x[j],x[r]=x[r],x[j]
    quicksort(r,j-1)        -- recursao
    quicksort(j+1,s)
end
function sort(a,n)            -- selection sort
 local i=1
 while i<=n do
  local m=i
  local j=i+1
  while j<=n do
   if a[j]<a[m] then m=j end
   j=j+1
  end
 a[i],a[m]=a[m],a[i]            -- swap a[i] and a[m]
 i=i+1
 end
end
function main()
 x=@()
 n=-1
 n=n+1;    x[n]="a"
 n=n+1;    x[n]="waldemar"
 n=n+1;    x[n]="luiz"
 n=n+1;    x[n]="lula"
 n=n+1;    x[n]="peter"
 n=n+1;    x[n]="raquel"
 n=n+1;    x[n]="camilo"
 n=n+1;    x[n]="andre"
 n=n+1;    x[n]="marcelo"
 n=n+1;    x[n]="sedrez"
 n=n+1;    x[n]="z"
-- quicksort(1,n-1)
 print(x[0]..","..x[1]..","..x[2]..","..x[3]..","..x[4]..","..x[5]..","..x[6]..","..x[7]..","..x[8]..","..x[9]..","..x[10])
 sort (x, n-1)
 print(x[0]..","..x[1]..","..x[2]..","..x[3]..","..x[4]..","..x[5]..","..x[6]..","..x[7]..","..x[8]..","..x[9]..","..x[10])
end
main()

快速排序和选择排序

test.lua

$debug
function somaP (x1,y1,x2,y2)
  return x1+x2, y1+y2
end
function norma (x,y)
  return x*x+y*y
end
function retorno_multiplo ()
 print (norma(somaP(2,3,4,5)))
end

运行这个文件没有什么反应,因为它只有函数定义,没有调用。加个 print 看看:
print(retorno_multiplo ())
很好,可以正常执行并输出。
或者可以在命令行中这个文件后加个 retorno_multiplo 同样会调用到, 因为 Lua1.0 把第一个参数(文件名)之后的参数当作函数调用来处理。

type.lua

$debug
function check (object, class)
 local v = next(object,nil)
 while v ~= nil do
   if class[v] = nil then print("unknown field: " .. v) 
   elseif type(object[v]) ~= class[v].type  
     then print("wrong type for field " .. v)
   end
   v = next(object,v);
 end
 v = next(class,nil);
 while v ~= nil do
   if object[v] = nil then
     if class[v].default ~= nil then
       object[v] = class[v].default
     else print("field "..v.." not initialized")
     end
   end
   v = next(class,v);
 end
end
typetrilha = @{x = @{default = 0, type = "number"},
               y = @{default = 0, type = "number"},
               name = @{type = "string"}
              }
function trilha (t)
  check(t,typetrilha)
end
--t1 = @trilha{ x = 4, name = "3"}
t1 = @{ x = 4, name = "3"}
a = "na".."me"
trilha(t1)
print(a)

关联数组的类型检查以及设置默认值。

总体来看,语法和现在的版本相比差别很大。对于语法相关的部分不过多分析,计划主要分析编译器后端的实现,也就是字节码在虚拟机中的执行部分。当然,前端也没有什么好分析的,Lua1.0 的词法分析和语法分析部分是用工具(Lex 和 Yacc)生成的,看下原始文件就明白了。

© 著作权归作者所有

上一篇: Lua1.0 文件简介
下一篇: Lua1.0 编译准备
晓寒
粉丝 35
博文 119
码字总数 133745
作品 0
海淀
私信 提问
Lua1.0 代码分析 inout.c

inout.c 代码分析 主要看下对于文件的处理 /*** Function to open a file to be input unit.** Return 0 on success or 1 on error.*/int lua_openfile (char *fn){ lua_linenumber = 1; lu......

晓寒
2014/08/28
198
0
Lua1.1 公开发布的第一版

Lua1.1 是官方公开发布的第一版,是事实上的第一版 ,也是最早发布的一版。 代码从这里 www.lua.org/ftp/lua-1.1.tar.gz 下载,事实上在 www.lua.org/versions.html 页面,有所有的可以下下载...

晓寒
2014/09/02
333
1
Lua1.0 代码分析 hash.c

hash.c 代码分析 Lua 中最重要的一个数据结构及相关操作。 主要看下几个对外的接口。 /*** Create a new hash. Return the hash pointer or NULL on error.*/Hash *lua_hashcreate (unsigne...

晓寒
2014/08/30
693
0
Lua1.0 代码分析 opcode.c

opcode.c 代码分析 Lua1.0 虚拟机的实现,语法分析中生成的字节码交给它 luaexecute 来执行。 这个文件的主要部分就是 luaexecute 函数,而它就是很大的 switch case,Lua1.0 中定义的字节码...

晓寒
2014/08/31
473
0
关于lua1.0源码里面yacc的问题

最近在研究lua1.0的c语言源码,发现源码文件中只有lex.yy.c文件, 并没有编译之前的.l文件。如果我想获得.l文件中的内容, 我要怎么做? 可以反编译么 或者说通过lex.yy.c能查找出来原来.l文件...

和平老三
2016/11/28
79
0

没有更多内容

加载失败,请刷新页面

加载更多

PostgreSQL 11.3 locking

rudi
今天
5
0
Mybatis Plus sql注入器

一、继承AbstractMethod /** * @author beth * @data 2019-10-23 20:39 */public class DeleteAllMethod extends AbstractMethod { @Override public MappedStatement injectMap......

一个yuanbeth
今天
10
1
一次写shell脚本的经历记录——特殊字符惹的祸

本文首发于微信公众号“我的小碗汤”,扫码文末二维码即可关注,欢迎一起交流! redis在容器化的过程中,涉及到纵向扩pod实例cpu、内存以及redis实例的maxmemory值,statefulset管理的pod需要...

码农实战
今天
4
0
为什么阿里巴巴Java开发手册中不建议在循环体中使用+进行字符串拼接?

之前在阅读《阿里巴巴Java开发手册》时,发现有一条是关于循环体中字符串拼接的建议,具体内容如下: 那么我们首先来用例子来看看在循环体中用 + 或者用 StringBuilder 进行字符串拼接的效率...

武培轩
今天
8
0
队列-链式(c/c++实现)

队列是在线性表功能稍作修改形成的,在生活中排队是不能插队的吧,先排队先得到对待,慢来得排在最后面,这样来就形成了”先进先出“的队列。作用就是通过伟大的程序员来实现算法解决现实生活...

白客C
今天
81
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部