pflua-test.lua

#!/usr/bin/env luajit

local optimize = require "pf.optimize".optimize
local pp = require "pf.utils".pp

local expanded_src = [[
{ "if",
  { "true" },
  { "if",
    { "!=",
      { "int32",
        { "uint32",
          "len" } },
      0 },
    { "if",
      { "!=",
        "len",
        0 },
      { "if",
        { "!=",
          "len",
          0 },
        { "if",
          { "!=",
            "len",
            0 },
          { "<",
            { "-",
              { "/",
                "len",
                { "int32",
                  { "uint32",
                    "len" } } },
              { "/",
                { "/",
                  { "int32",
                    { "/",
                      "len",
                      "len" } },
                  "len" },
                "len" } },
            2147483647,
            5 },
          { "fail" } },
        { "fail" } },
      { "fail" } },
    { "fail" } },
  { "true" } }
]]

local expanded = loadstring("return " .. expanded_src)()
print("EXPANDED")
pp(expanded)
print("OPTIMIZED")
pp(optimize(expanded))