Programming in Lua

  function class(clsName, super)
      if clsName==nil then
          print("Error: className is nil")
      end
      if _G[clsName] then
          print("Error: class eixst. className = " .. clsName)
      end

      function invoke_ctor(class, obj, ...)
          if class~=nil then
              invoke_ctor(rawget(class,"super"), obj, ...)
              if type(rawget(class,"ctor"))=="function" then
                  class.ctor(obj, ...)
              end
          end
      end
      function get_func(class, key)
          if class~=nil then
              if type(rawget(class,key))=="function" then
                  return class[key]
              else
                  return get_func(rawget(class,"super"), key)
              end
          end
          print("Error: not exist member func -> " .. key)
          return nil
      end

      local cls = {}
      cls.super = super
      cls.__index = function (tbl, key)
          return get_func(cls, key)
      end
      setmetatable(cls,cls)
      cls.new = function (...)
          local obj = {}
          setmetatable(obj, cls)
          invoke_ctor(cls, obj, ...)
          return obj
      end
      return cls
  end

  -- 错误的写法：
  -- 当 svrData.IsLeader == false 而 role.data.IsLeader == true 时，下面的代码不会更新 role.data.IsLeader 的值为 false
  if rawget(svrData,"IsLeader") then
      role.data.IsLeader = svrData.IsLeader
  end
  -- 正确的写法：
  if rawget(svrData,"IsLeader")~=nil then
      role.data.IsLeader = svrData.IsLeader
  end
  -- 最好的写法：
  -- 这样即使 svrData[k] == nil 也可以对 role.data[k]进行赋值
  for k,v in pairs(svrData) do
      role.data[k] = v
  end

local lpeg = require "lpeg"

local C, P, R, S, V = lpeg.C, lpeg.P, lpeg.R, lpeg.S, lpeg.V

-- P匹配字符串 从头开始找,返回第一次找到的位置+1
print(lpeg.match(P'a', 'abc'))    -- 2
print(lpeg.match(P'b', 'abc'))    -- nil
print(lpeg.match(P'ab', 'abc'))   -- 3
print(lpeg.match(P'a', 'aaa'))    -- 2
print(lpeg.match(P'ab', 'abab'))  -- 3

local lpeg = require "lpeg"

local C, P, R, S, V = lpeg.C, lpeg.P, lpeg.R, lpeg.S, lpeg.V

-- R匹配范围,09代表0~9,AZ同理,也是从头开始找
print(lpeg.match(R'az', 'abc'))  -- 2
print(lpeg.match(R'aZ', 'abc'))  -- nil
print(lpeg.match(R'AZ', 'abc'))  -- nil
print(lpeg.match(R'Az', 'abc'))  -- 2
print(lpeg.match(R'az', '0abc')) -- nil

local lpeg = require "lpeg"

local C, P, R, S, V = lpeg.C, lpeg.P, lpeg.R, lpeg.S, lpeg.V

-- S集合匹配 从头开始 若字符串包含集合内元素,匹配成功(ps:那岂不是匹配成功就一定是2,后面再看)
print(lpeg.match(S'abc', 'abc')) -- 2
print(lpeg.match(S'bc',  'abc')) -- nil
print(lpeg.match(S'1a',  'abc')) -- 2

local lpeg = require "lpeg"

local C, P, R, S, V = lpeg.C, lpeg.P, lpeg.R, lpeg.S, lpeg.V

-- +代表or(或)
-- P'a' + P'b'^1 代表开头是a 或 开头至少1个b
local a_1b = P'a' + P'b'^1
print(match(a_1b, 'ab')) --2
print(match(a_1b, 'bb')) --3
print(match(a_1b, 'bc')) --2

-- 不匹配patt2，匹配patt1
lpeg.match(S'abcd'-S'ab',  'cd') -- 	2
lpeg.match(S'abcd'-S'ab',  'ab') -- 	nil

-- 等价于 "" - patt
lpeg.match(-S'ab',  'ab') -- 	nil
lpeg.match(-S'ab',  'cd') -- 	1

-- 匹配patt，匹配成功不消耗输入
lpeg.match(#P'ab',  'ab') -- 	1
lpeg.match(#P'ab',  'cd') -- 	nil

local lpeg = require "lpeg"

local C, P, R, S, V = lpeg.C, lpeg.P, lpeg.R, lpeg.S, lpeg.V

-- *代表 连接
-- P'a'*P'b'^0代表开头是a且后面跟至少0个b
print(match(P'a'*P'b'^0, 'aab')) --2
print(match(P'a'*P'b'^1, 'aab')) --nil
print(match(P'a'*P'b'^1, 'abab'))--3
print(match(P'a'^0*P'b', 'aab')) --4
print(match(P'a'^1*P'b', 'aab')) --4

local lpeg = require "lpeg"

local C, P, R, S, V = lpeg.C, lpeg.P, lpeg.R, lpeg.S, lpeg.V

-- ^n代表至少匹配n次 ^-n代表至多匹配n次
print(lpeg.match(P'a'^1,   'aaaa'))	--5
print(lpeg.match(P'a'^4,   'aaaa'))	--5
print(lpeg.match(P'a'^5,   'aaaa'))	--nil
print(lpeg.match(P'aa'^2,  'aaaa'))	--5
print(lpeg.match(P'ab'^2,  'ababc'))	--5
print(lpeg.match(P'ab'^-1, 'ababc'))   --3

local lpeg = require "lpeg"

lpeg.match(R'az'^1 * -1,  'hello ')    --	nil
lpeg.match(R'az'^1 * -1,  'hello')     --	6
lpeg.match(R'az'^1 * -P(1),  'hello')  --	6

--开头是\r\n 或 \r 或 \n
P'\r\n' + S'\r\n'

lpeg.match(S'helloworld'^1 * -1,  'hello'))  	     -- 6
lpeg.match(S'helloworld'^1 * -1,  'helloX')) 	     -- nil
lpeg.match(S'helloworld'^1 * -P(1),  'Xhello'))    --	nil
lpeg.match(S'helloworld'^1 * -P(1),  'Xhello', 2)) --	7

digit = R'09' -- 一个数字
digits = digit^1 -- 任意整数

-- maybe(p)  可能有p
function maybe(p) return p^-1 end

digits = R'09'^1
sign = maybe(S'+-')
dot = '.'
exp = S'eE'
-- 浮点数 = 正负号 + 整数 + 小数 + 科学计数法
float = sign * digits * maybe(dot*digits) * maybe(exp*mpm*digits)

print(match(C(float),'3.1415926'))	--3.1415926
print(match(C(float),'3.14.15'))	--3.14
print(match(C(float),'3.14e-3'))	--3.14e-3