.
+
diff --git a/QuickCheck.hs b/QuickCheck.hs
new file mode 100644
--- /dev/null
+++ b/QuickCheck.hs
@@ -0,0 +1,105 @@
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE KindSignatures #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+{-# LANGUAGE EmptyDataDecls #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE OverlappingInstances #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE PolyKinds #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE StandaloneDeriving #-}
+
+module Main where
+
+import Generics.MultiRec hiding (show)
+import Generics.MultiRec.TH
+import Test.QuickCheck
+import Test.QuickCheck.Random
+import Control.Monad
+import Generics.MultiRec.Transformations.Main
+import Generics.MultiRec.Transformations.MemoTable
+import Criterion.Main
+
+data Tree = Leaf Int | Branch1 Tree Tree | Branch2 Tree Tree | Test [(Tree,Int)]
+ deriving (Show, Ord, Eq)
+
+data TreeAST :: * -> * where
+ Tree :: TreeAST Tree
+
+type instance Ixs TreeAST = '[ Tree ]
+
+data Leaf
+data Branch1
+data Branch2
+data Test
+
+instance Constructor Leaf where
+ conName _ = "Leaf"
+instance Constructor Branch1 where
+ conName _ = "Branch1"
+instance Constructor Branch2 where
+ conName _ = "Branch2"
+instance Constructor Test where
+ conName _ = "Test"
+
+type instance PF TreeAST = (C Leaf (K Int) :+: C Branch1 (I Tree :*: I Tree) :+: C Branch2 (I Tree :*: I Tree) :+: (C Test ([] :.: (I Tree :*: K Int)))) :>: Tree
+
+instance El TreeAST Tree where
+ proof = Tree
+
+instance Fam TreeAST where
+ from Tree (Leaf f0)
+ = Tag (L (C (K f0)))
+ from Tree (Branch1 f0 f1)
+ = Tag (R (L (C ((:*:) ((I . I0) f0) ((I . I0) f1)))))
+ from Tree (Branch2 f0 f1)
+ = Tag (R (R (L (C ((:*:) ((I . I0) f0) ((I . I0) f1))))))
+ from Tree (Test f0)
+ = Tag (R (R (R (C (D [(I . I0) i :*: K t | (i,t) <- f0])))))
+ to Tree (Tag (L (C f0)))
+ = Leaf (unK f0)
+ to Tree (Tag (R (L (C ((:*:) f0 f1)))))
+ = Branch1 ((unI0 . unI) f0) ((unI0 . unI) f1)
+ to Tree (Tag (R (R (L (C ((:*:) f0 f1))))))
+ = Branch2 ((unI0 . unI) f0) ((unI0 . unI) f1)
+ to Tree (Tag (R (R (R (C (D f0))))))
+ = Test [((unI0 . unI) t, i) | t :*: K i <- f0]
+
+-- $(deriveAll ''TreeAST)
+
+-- Straight from the QC manual
+instance Arbitrary Tree where
+ shrink (Leaf v) = map Leaf (shrink v)
+ shrink (Branch1 l r) = [l,r]
+ shrink (Branch2 l r) = [l,r]
+ shrink (Test lst) = concatMap (map fst) (shrink lst)
+ arbitrary = sized tree'
+ where tree' 0 = liftM Leaf arbitrary
+ tree' n | n>0 =
+ oneof [liftM Leaf arbitrary,
+ liftM2 Branch1 subtree subtree,
+ liftM2 Branch2 subtree subtree,
+ liftM Test genLst]
+ where subtree = tree' (n `div` 2)
+ genLst = do m <- choose (1,n)
+ replicateM m (resize (n `div` m) arbitrary)
+
+-- Our diff property
+diffCorrect :: Tree -> Tree -> Bool
+diffCorrect a b = apply Tree a (diff Tree a b) == Just b
+
+main :: IO ()
+main = do
+ putStrLn "Generating testcases"
+ cases <- replicateM 40 (liftM2 (,) (generate arbitrary) (generate arbitrary))
+ putStrLn "Checking correctness"
+ forM_ cases $ \(a,b) -> do
+ when (not $ diffCorrect a b) $ putStrLn "Failed diffCorrect"
+ putStrLn "Benchmarking"
+ defaultMain [
+ bench "MultiRec" $ nf (map (uncurry diffCorrect)) cases
+ ]
diff --git a/README b/README
new file mode 100644
--- /dev/null
+++ b/README
@@ -0,0 +1,24 @@
+A quick guide to the example code
+---------------------------------
+
+All the code compiles with GHC 7.10 RC2. The package itself compiles with 7.8,
+but the pattern synonyms used in the examples require 7.10.
+
+QuickCheck.hs contains an artificial benchmark for the MultiRec code.
+
+In the examples folder there are many other examples. The best way to test these
+is to load each of them in GHCi as follows:
+
+> ghci -iexamples examples\Expr.hs
+
+examples/Expr.hs
+ The Expr example shown in the paper
+
+examples/MultiRec.hs
+ The AST example shown in the paper
+
+examples/Regular.hs
+ Examples using the Regular library
+
+examples/LUA.hs
+ The Lua code example shown in the paper.
diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -1,2 +1,2 @@
-import Distribution.Simple
-main = defaultMain
+import Distribution.Simple
+main = defaultMain
diff --git a/examples/Datatypes.hs b/examples/Datatypes.hs
--- a/examples/Datatypes.hs
+++ b/examples/Datatypes.hs
@@ -1,81 +1,81 @@
-
-module Datatypes (
- Tree (..), exTree1, exTree2, exTree3, exTree4, exTree5,
- List (..), toL, fromL, exLst1, exLst2,
- X (..), exX1, exX2,
- Zig (..), Zag (..), zigzag, zigzag2,
- Expr, prog1, prog2, prog3, prog4, prog5, prog6,
- module Lang
- ) where
-
-import Lang
-import Data.List ( unfoldr )
-
---------------------------------------------------------------------------------
--- Example datatypes
---------------------------------------------------------------------------------
-
---Trees
-data Tree = Leaf Int | Bin Tree Tree deriving (Show, Eq)
-
-exTree1, exTree2, exTree3, exTree4, exTree5 :: Tree
-exTree1 = Bin (Leaf 0) (Leaf 1)
-exTree2 = Bin (Leaf 1) (Leaf 0)
-exTree3 = Bin (Leaf 2) (Leaf 3)
-exTree4 = Bin exTree2 exTree3
-exTree5 = Bin exTree3 exTree4
-
--- Lists
-data List a = Nil | Cons a (List a) deriving (Eq, Show)
-
-toL :: [a] -> List a
-toL = foldr Cons Nil
-
-fromL :: List a -> [a]
-fromL = unfoldr f where
- f Nil = Nothing
- f (Cons h t) = Just (h,t)
-
-exLst1, exLst2 :: List Int
-exLst1 = Cons 1 $ Cons 2 $ Cons 3 $ Cons 4 Nil
-exLst2 = Cons 4 $ Cons 2 $ Cons 3 $ Cons 1 Nil
-
--- Something more exotic
-data X = XA X | XB X | XC X X | XD Int deriving (Show, Eq)
-
-exX1, exX2 :: X
-exX1 = XA (XA (XA (XC (XD 1) (XD 2))))
-exX2 = XA (XB (XA (XA (XB (XC (XD 2) (XD 1))))))
-
--- Mutually recursive
-data Zig = Zig1 Zig | Zig2 Zag | Zig3 deriving (Show, Eq)
-data Zag = Zag1 Zag | Zag2 Zig | Zag3 deriving (Show, Eq)
-
-zigzag :: Zig
-zigzag = Zig1 (Zig2 (Zag2 Zig3))
-
-zigzag2 :: Zig
-zigzag2 = Zig2 (Zag1 (Zag2 Zig3))
-
--- Example from paper (imported from Lang)
-type Expr = AExpr
-
-progFragment1, progFragment2 :: String
-progFragment1 = "a := 1;"
- ++ "b := a + 2;"
- ++ "if b > 3"
- ++ "then a := 2"
- ++ "else b := 1;"
-progFragment2 = "a := 1;"
- ++ "b := a + 2;"
- ++ "if not b > 3"
- ++ "then b := 1"
- ++ "else a := 2;"
-
-prog1, prog2, prog3, prog4, prog5, prog6 :: Stmt
-prog1 = parseString . init . concat . replicate 1 $ progFragment1
-prog2 = parseString . init . concat . replicate 1 $ progFragment2
-prog3 = parseString . init . concat . replicate 4 $ progFragment1
-prog4 = parseString . init . concat . replicate 4 $ progFragment2
-prog5 = parseString . init . concat . replicate 5 $ progFragment1
-prog6 = parseString . init . concat . replicate 5 $ progFragment2
+
+module Datatypes (
+ Tree (..), exTree1, exTree2, exTree3, exTree4, exTree5,
+ List (..), toL, fromL, exLst1, exLst2,
+ X (..), exX1, exX2,
+ Zig (..), Zag (..), zigzag, zigzag2,
+ Expr, prog1, prog2, prog3, prog4, prog5, prog6,
+ module Lang
+ ) where
+
+import Lang
+import Data.List ( unfoldr )
+
+--------------------------------------------------------------------------------
+-- Example datatypes
+--------------------------------------------------------------------------------
+
+--Trees
+data Tree = Leaf Int | Bin Tree Tree deriving (Show, Eq)
+
+exTree1, exTree2, exTree3, exTree4, exTree5 :: Tree
+exTree1 = Bin (Leaf 0) (Leaf 1)
+exTree2 = Bin (Leaf 1) (Leaf 0)
+exTree3 = Bin (Leaf 2) (Leaf 3)
+exTree4 = Bin exTree2 exTree3
+exTree5 = Bin exTree3 exTree4
+
+-- Lists
+data List a = Nil | Cons a (List a) deriving (Eq, Show)
+
+toL :: [a] -> List a
+toL = foldr Cons Nil
+
+fromL :: List a -> [a]
+fromL = unfoldr f where
+ f Nil = Nothing
+ f (Cons h t) = Just (h,t)
+
+exLst1, exLst2 :: List Int
+exLst1 = Cons 1 $ Cons 2 $ Cons 3 $ Cons 4 Nil
+exLst2 = Cons 4 $ Cons 2 $ Cons 3 $ Cons 1 Nil
+
+-- Something more exotic
+data X = XA X | XB X | XC X X | XD Int deriving (Show, Eq)
+
+exX1, exX2 :: X
+exX1 = XA (XA (XA (XC (XD 1) (XD 2))))
+exX2 = XA (XB (XA (XA (XB (XC (XD 2) (XD 1))))))
+
+-- Mutually recursive
+data Zig = Zig1 Zig | Zig2 Zag | Zig3 deriving (Show, Eq)
+data Zag = Zag1 Zag | Zag2 Zig | Zag3 deriving (Show, Eq)
+
+zigzag :: Zig
+zigzag = Zig1 (Zig2 (Zag2 Zig3))
+
+zigzag2 :: Zig
+zigzag2 = Zig2 (Zag1 (Zag2 Zig3))
+
+-- Example from paper (imported from Lang)
+type Expr = AExpr
+
+progFragment1, progFragment2 :: String
+progFragment1 = "a := 1;"
+ ++ "b := a + 2;"
+ ++ "if b > 3"
+ ++ "then a := 2"
+ ++ "else b := 1;"
+progFragment2 = "a := 1;"
+ ++ "b := a + 2;"
+ ++ "if not b > 3"
+ ++ "then b := 1"
+ ++ "else a := 2;"
+
+prog1, prog2, prog3, prog4, prog5, prog6 :: Stmt
+prog1 = parseString . init . concat . replicate 1 $ progFragment1
+prog2 = parseString . init . concat . replicate 1 $ progFragment2
+prog3 = parseString . init . concat . replicate 4 $ progFragment1
+prog4 = parseString . init . concat . replicate 4 $ progFragment2
+prog5 = parseString . init . concat . replicate 5 $ progFragment1
+prog6 = parseString . init . concat . replicate 5 $ progFragment2
diff --git a/examples/Expr.hs b/examples/Expr.hs
new file mode 100644
--- /dev/null
+++ b/examples/Expr.hs
@@ -0,0 +1,58 @@
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE KindSignatures #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+{-# LANGUAGE EmptyDataDecls #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE OverlappingInstances #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE PolyKinds #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE StandaloneDeriving #-}
+{-# LANGUAGE PatternSynonyms #-}
+
+module Main where
+
+import Generics.MultiRec hiding (show)
+import Generics.MultiRec.TH
+import Test.QuickCheck
+import Test.QuickCheck.Random
+import Control.Monad
+import Generics.MultiRec.Transformations.Main
+import Generics.MultiRec.Transformations.MemoTable
+
+data Expr = Var String
+ | Const Int
+ | Neg Expr
+ | Add Expr Expr
+ deriving (Show, Ord, Eq)
+
+data ExprAST :: * -> * where
+ Expr :: ExprAST Expr
+
+type instance Ixs ExprAST = '[ Expr ]
+
+$(deriveAll ''ExprAST)
+
+instance Arbitrary Expr where
+ shrink (Var v) = map Var (shrink v)
+ shrink (Const v) = map Const (shrink v)
+ shrink (Neg l) = [l]
+ shrink (Add l r) = [l,r]
+
+ arbitrary = sized expr'
+ where expr' 0 = oneof [liftM Var arbitrary, liftM Const arbitrary]
+ expr' n | n>0 =
+ oneof [ liftM Var arbitrary
+ , liftM Const arbitrary
+ , liftM Neg (expr' (pred n))
+ , liftM2 Add subtree subtree ]
+ where subtree = expr' (n `div` 2)
+
+expr1, expr2, expr3 :: Expr
+expr1 = Add (Const 1) (Var "a")
+expr2 = Add (Const 1) (Neg (Var "a"))
+expr3 = Add (Var "a") (Const 1)
diff --git a/examples/LUA.hs b/examples/LUA.hs
new file mode 100644
--- /dev/null
+++ b/examples/LUA.hs
@@ -0,0 +1,715 @@
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE KindSignatures #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE StandaloneDeriving #-}
+{-# LANGUAGE CPP #-}
+
+import Control.Monad
+import qualified Language.Lua as LUA -- from language-lua
+import Generics.MultiRec hiding (show)
+import Generics.MultiRec.Transformations.Main
+
+-- From https://github.com/leafo/lapis/commits/629c559094df41694bea0a33a2be75115c544dad/lapis/application.lua
+files :: [FilePath]
+files = ["examples/LUA_project/" ++ f
+ | f <- [ "application.lua." ++ show n | n <- [1..90] ] ]
+
+--------------------------------------------------------------------------------
+-- Main
+--------------------------------------------------------------------------------
+main :: IO ()
+main = do
+ putStrLn "Parsing"
+ psr <- forM files $ LUA.parseFile
+ let ps = [ (p,f) | (Right p,f) <- zip psr files ]
+ putStrLn "Diffing"
+ forM_ (zip ps (tail ps)) $ \((p1,f1),(p2,f2)) -> do
+ putStrLn $ f1 ++ " --> " ++ f2
+ let df = diff Block p1 p2
+ print $ length df
+ print $ apply Block p1 df == Just p2
+
+--------------------------------------------------------------------------------
+-- Multirec instance
+--------------------------------------------------------------------------------
+data AST :: * -> * where
+ Stat :: AST LUA.Stat
+ Exp :: AST LUA.Exp
+ Var :: AST LUA.Var
+ Binop :: AST LUA.Binop
+ Unop :: AST LUA.Unop
+ PrefixExp :: AST LUA.PrefixExp
+ TableField :: AST LUA.TableField
+ Block :: AST LUA.Block
+ FunName :: AST LUA.FunName
+ FunBody :: AST LUA.FunBody
+ FunCall :: AST LUA.FunCall
+ FunArg :: AST LUA.FunArg
+
+deriving instance Ord LUA.Stat
+deriving instance Ord LUA.Exp
+deriving instance Ord LUA.Var
+deriving instance Ord LUA.Binop
+deriving instance Ord LUA.Unop
+deriving instance Ord LUA.PrefixExp
+deriving instance Ord LUA.TableField
+deriving instance Ord LUA.Block
+deriving instance Ord LUA.FunName
+deriving instance Ord LUA.FunBody
+deriving instance Ord LUA.FunCall
+deriving instance Ord LUA.FunArg
+
+
+#if OLD_APPROACH
+instance Transform AST
+
+instance OrdI AST where
+ indexI Stat = 0
+ indexI Exp = 1
+ indexI Var = 2
+ indexI Binop = 3
+ indexI Unop = 4
+ indexI PrefixExp = 5
+ indexI TableField = 6
+ indexI Block = 7
+ indexI FunName = 8
+ indexI FunBody = 9
+ indexI FunCall = 10
+ indexI FunArg = 11
+#else
+type instance Ixs AST = '[ LUA.Stat, LUA.Exp, LUA.Var, LUA.Binop, LUA.Unop, LUA.PrefixExp, LUA.TableField, LUA.Block, LUA.FunName, LUA.FunBody, LUA.FunCall, LUA.FunArg ]
+#endif
+
+-- Automatically generated and manually edited
+data Assign
+data FunCall
+data Label
+data Break
+data Goto
+data Do
+data While
+data Repeat
+data If
+data ForRange
+data ForIn
+data FunAssign
+data LocalFunAssign
+data LocalAssign
+data EmptyStat
+instance Constructor Assign where
+ conName _ = "Assign"
+instance Constructor FunCall where
+ conName _ = "FunCall"
+instance Constructor Label where
+ conName _ = "Label"
+instance Constructor Break where
+ conName _ = "Break"
+instance Constructor Goto where
+ conName _ = "Goto"
+instance Constructor Do where
+ conName _ = "Do"
+instance Constructor While where
+ conName _ = "While"
+instance Constructor Repeat where
+ conName _ = "Repeat"
+instance Constructor If where
+ conName _ = "If"
+instance Constructor ForRange where
+ conName _ = "ForRange"
+instance Constructor ForIn where
+ conName _ = "ForIn"
+instance Constructor FunAssign where
+ conName _ = "FunAssign"
+instance Constructor LocalFunAssign where
+ conName _ = "LocalFunAssign"
+instance Constructor LocalAssign where
+ conName _ = "LocalAssign"
+instance Constructor EmptyStat where
+ conName _ = "EmptyStat"
+data Nil
+data LBool
+data Number
+data LString
+data Vararg
+data EFunDef
+data PrefixExp
+data TableConst
+data Binop
+data Unop
+instance Constructor Nil where
+ conName _ = "Nil"
+instance Constructor LBool where
+ conName _ = "Bool"
+instance Constructor Number where
+ conName _ = "Number"
+instance Constructor LString where
+ conName _ = "String"
+instance Constructor Vararg where
+ conName _ = "Vararg"
+instance Constructor EFunDef where
+ conName _ = "EFunDef"
+instance Constructor PrefixExp where
+ conName _ = "PrefixExp"
+instance Constructor TableConst where
+ conName _ = "TableConst"
+instance Constructor Binop where
+ conName _ = "Binop"
+instance Constructor Unop where
+ conName _ = "Unop"
+data VarName
+data Select
+data SelectName
+instance Constructor VarName where
+ conName _ = "VarName"
+instance Constructor Select where
+ conName _ = "Select"
+instance Constructor SelectName where
+ conName _ = "SelectName"
+data Add
+data Sub
+data Mul
+data Div
+data Exp
+data Mod
+data Concat
+data LT
+data LTE
+data GT
+data GTE
+data EQ
+data NEQ
+data And
+data Or
+instance Constructor Add where
+ conName _ = "Add"
+instance Constructor Sub where
+ conName _ = "Sub"
+instance Constructor Mul where
+ conName _ = "Mul"
+instance Constructor Div where
+ conName _ = "Div"
+instance Constructor Exp where
+ conName _ = "Exp"
+instance Constructor Mod where
+ conName _ = "Mod"
+instance Constructor Concat where
+ conName _ = "Concat"
+instance Constructor LT where
+ conName _ = "LT"
+instance Constructor LTE where
+ conName _ = "LTE"
+instance Constructor GT where
+ conName _ = "GT"
+instance Constructor GTE where
+ conName _ = "GTE"
+instance Constructor EQ where
+ conName _ = "EQ"
+instance Constructor NEQ where
+ conName _ = "NEQ"
+instance Constructor And where
+ conName _ = "And"
+instance Constructor Or where
+ conName _ = "Or"
+data Neg
+data Not
+data Len
+instance Constructor Neg where
+ conName _ = "Neg"
+instance Constructor Not where
+ conName _ = "Not"
+instance Constructor Len where
+ conName _ = "Len"
+data PEVar
+data PEFunCall
+data Paren
+instance Constructor PEVar where
+ conName _ = "PEVar"
+instance Constructor PEFunCall where
+ conName _ = "PEFunCall"
+instance Constructor Paren where
+ conName _ = "Paren"
+data ExpField
+data NamedField
+data Field
+instance Constructor ExpField where
+ conName _ = "ExpField"
+instance Constructor NamedField where
+ conName _ = "NamedField"
+instance Constructor Field where
+ conName _ = "Field"
+data Block
+instance Constructor Block where
+ conName _ = "Block"
+data FunName
+instance Constructor FunName where
+ conName _ = "FunName"
+data FunBody
+instance Constructor FunBody where
+ conName _ = "FunBody"
+data NormalFunCall
+data MethodCall
+instance Constructor NormalFunCall where
+ conName _ = "NormalFunCall"
+instance Constructor MethodCall where
+ conName _ = "MethodCall"
+data Args
+data TableArg
+data StringArg
+instance Constructor Args where
+ conName _ = "Args"
+instance Constructor TableArg where
+ conName _ = "TableArg"
+instance Constructor StringArg where
+ conName _ = "StringArg"
+
+type instance PF AST = (:+:) ((:>:)
+ ((:+:) (C Assign ((:*:) ((:.:) [] (I LUA.Var)) ((:.:) [] (I LUA.Exp))))
+ ((:+:) (C FunCall (I LUA.FunCall))
+ ((:+:) (C Label (K LUA.Name))
+ ((:+:) (C Break U)
+ ((:+:) (C Goto (K LUA.Name))
+ ((:+:) (C Do (I LUA.Block))
+ ((:+:) (C While ((:*:) (I LUA.Exp) (I LUA.Block)))
+ ((:+:) (C Repeat ((:*:) (I LUA.Block) (I LUA.Exp)))
+ ((:+:) (C If ((:*:) ((:.:) [] ((:*:) (I LUA.Exp) (I LUA.Block))) ((:.:) Maybe (I LUA.Block)))) -- Manually changed, is it correct?
+ ((:+:) (C ForRange ((:*:) (K LUA.Name) ((:*:) (I LUA.Exp) ((:*:) (I LUA.Exp) ((:*:) ((:.:) Maybe (I LUA.Exp)) (I LUA.Block))))))
+ ((:+:) (C ForIn ((:*:) ((:.:) [] (K LUA.Name)) ((:*:) ((:.:) [] (I LUA.Exp)) (I LUA.Block))))
+ ((:+:) (C FunAssign ((:*:) (I LUA.FunName) (I LUA.FunBody)))
+ ((:+:) (C LocalFunAssign ((:*:) (K LUA.Name) (I LUA.FunBody)))
+ ((:+:) (C LocalAssign ((:*:) ((:.:) [] (K LUA.Name)) ((:.:) Maybe ((:.:) [] (I LUA.Exp)))))
+ (C EmptyStat U))))))))))))))) LUA.Stat) ((:+:) ((:>:)
+ ((:+:) (C Nil U)
+ ((:+:) (C LBool (K Bool))
+ ((:+:) (C Number (K String))
+ ((:+:) (C LString (K String))
+ ((:+:) (C Vararg U)
+ ((:+:) (C EFunDef (I LUA.FunBody))
+ ((:+:) (C PrefixExp (I LUA.PrefixExp))
+ ((:+:) (C TableConst ((:.:) [] (I LUA.TableField)))
+ ((:+:) (C Binop ((:*:) (I LUA.Binop) ((:*:) (I LUA.Exp) (I LUA.Exp))))
+ (C Unop ((:*:) (I LUA.Unop) (I LUA.Exp)))))))))))) LUA.Exp) ((:+:) ((:>:)
+ ((:+:) (C VarName (K LUA.Name))
+ ((:+:) (C Select ((:*:) (I LUA.PrefixExp) (I LUA.Exp))) (C SelectName ((:*:) (I LUA.PrefixExp) (K LUA.Name))))) LUA.Var) ((:+:) ((:>:)
+ ((:+:) (C Add U)
+ ((:+:) (C Sub U)
+ ((:+:) (C Mul U)
+ ((:+:) (C Div U)
+ ((:+:) (C Exp U)
+ ((:+:) (C Mod U)
+ ((:+:) (C Concat U)
+ ((:+:) (C LT U)
+ ((:+:) (C LTE U)
+ ((:+:) (C GT U)
+ ((:+:) (C GTE U)
+ ((:+:) (C EQ U)
+ ((:+:) (C NEQ U)
+ ((:+:) (C And U) (C Or U))))))))))))))) LUA.Binop)
+ ((:+:) ((:>:)
+ ((:+:) (C Neg U)
+ ((:+:) (C Not U) (C Len U))) LUA.Unop)
+ ((:+:) ((:>:)
+ ((:+:) (C PEVar (I LUA.Var))
+ ((:+:) (C PEFunCall (I LUA.FunCall)) (C Paren (I LUA.Exp)))) LUA.PrefixExp)
+ ((:+:) ((:>:)
+ ((:+:) (C ExpField ((:*:) (I LUA.Exp) (I LUA.Exp)))
+ ((:+:) (C NamedField ((:*:) (K LUA.Name) (I LUA.Exp))) (C Field (I LUA.Exp)))) LUA.TableField)
+ ((:+:) ((:>:) (C Block ((:*:) ((:.:) [] (I LUA.Stat)) ((:.:) Maybe ((:.:) [] (I LUA.Exp))))) LUA.Block)
+ ((:+:) ((:>:) (C FunName ((:*:) (K LUA.Name) ((:*:) ((:.:) [] (K LUA.Name)) ((:.:) Maybe (K LUA.Name))))) LUA.FunName)
+ ((:+:) ((:>:) (C FunBody ((:*:) ((:.:) [] (K LUA.Name)) ((:*:) (K Bool) (I LUA.Block)))) LUA.FunBody)
+ ((:+:) ((:>:)
+ ((:+:) (C NormalFunCall ((:*:) (I LUA.PrefixExp) (I LUA.FunArg))) (C MethodCall ((:*:) (I LUA.PrefixExp) ((:*:) (K LUA.Name) (I LUA.FunArg))))) LUA.FunCall) ((:>:)
+ ((:+:) (C Args ((:.:) [] (I LUA.Exp)))
+ ((:+:) (C TableArg ((:.:) [] (I LUA.TableField))) (C StringArg (K String)))) LUA.FunArg)))))))))))
+
+instance El AST LUA.Stat where
+ proof = Stat
+instance El AST LUA.Exp where
+ proof = Exp
+instance El AST LUA.Var where
+ proof = Var
+instance El AST LUA.Binop where
+ proof = Binop
+instance El AST LUA.Unop where
+ proof = Unop
+instance El AST LUA.PrefixExp where
+ proof = PrefixExp
+instance El AST LUA.TableField where
+ proof = TableField
+instance El AST LUA.Block where
+ proof = Block
+instance El AST LUA.FunName where
+ proof = FunName
+instance El AST LUA.FunBody where
+ proof = FunBody
+instance El AST LUA.FunCall where
+ proof = FunCall
+instance El AST LUA.FunArg where
+ proof = FunArg
+instance Fam AST where
+ from Stat (LUA.Assign f0 f1)
+ = L (Tag
+ (L (C ((:*:)
+ ((D . (fmap (I . I0))) f0) ((D . (fmap (I . I0))) f1)))))
+ from Stat (LUA.FunCall f0)
+ = L (Tag (R (L (C ((I . I0) f0)))))
+ from Stat (LUA.Label f0) = L (Tag (R (R (L (C (K f0))))))
+ from Stat LUA.Break = L (Tag (R (R (R (L (C U))))))
+ from Stat (LUA.Goto f0) = L (Tag (R (R (R (R (L (C (K f0))))))))
+ from Stat (LUA.Do f0)
+ = L (Tag (R (R (R (R (R (L (C ((I . I0) f0)))))))))
+ from Stat (LUA.While f0 f1)
+ = L (Tag
+ (R (R (R (R (R (R (L (C ((:*:)
+ ((I . I0) f0) ((I . I0) f1)))))))))))
+ from Stat (LUA.Repeat f0 f1)
+ = L (Tag
+ (R (R (R (R (R (R (R (L (C ((:*:)
+ ((I . I0) f0) ((I . I0) f1))))))))))))
+ from Stat (LUA.If f0 f1)
+ = L (Tag
+ (R (R (R (R (R (R (R (R (L (C ((:*:)
+ (D [((I . I0) e :*: (I . I0) b) | (e, b) <- f0])
+ ((D . (fmap (I . I0))) f1)))))))))))))
+ from Stat (LUA.ForRange f0 f1 f2 f3 f4)
+ = L (Tag
+ (R (R (R (R (R (R (R (R (R (L (C ((:*:)
+ (K f0)
+ ((:*:)
+ ((I . I0) f1)
+ ((:*:)
+ ((I . I0) f2)
+ ((:*:)
+ ((D . (fmap (I . I0))) f3)
+ ((I . I0) f4)))))))))))))))))
+ from Stat (LUA.ForIn f0 f1 f2)
+ = L (Tag
+ (R (R (R (R (R (R (R (R (R (R (L (C ((:*:)
+ ((D . (fmap K)) f0)
+ ((:*:)
+ ((D . (fmap (I . I0))) f1)
+ ((I . I0) f2))))))))))))))))
+ from Stat (LUA.FunAssign f0 f1)
+ = L (Tag
+ (R (R (R (R (R (R (R (R (R (R (R (L (C ((:*:)
+ ((I . I0) f0) ((I . I0) f1))))))))))))))))
+ from Stat (LUA.LocalFunAssign f0 f1)
+ = L (Tag
+ (R (R (R (R (R (R (R (R (R (R (R (R (L (C ((:*:)
+ (K f0) ((I . I0) f1)))))))))))))))))
+ from Stat (LUA.LocalAssign f0 f1)
+ = L (Tag
+ (R (R (R (R (R (R (R (R (R (R (R (R (R (L (C ((:*:)
+ ((D . (fmap K)) f0)
+ ((D . (fmap (D . (fmap (I . I0)))))
+ f1))))))))))))))))))
+ from Stat LUA.EmptyStat
+ = L (Tag
+ (R (R (R (R (R (R (R (R (R (R (R (R (R (R (C U))))))))))))))))
+ from Exp LUA.Nil = R (L (Tag (L (C U))))
+ from Exp (LUA.Bool f0) = R (L (Tag (R (L (C (K f0))))))
+ from Exp (LUA.Number f0) = R (L (Tag (R (R (L (C (K f0)))))))
+ from Exp (LUA.String f0) = R (L (Tag (R (R (R (L (C (K f0))))))))
+ from Exp LUA.Vararg = R (L (Tag (R (R (R (R (L (C U))))))))
+ from Exp (LUA.EFunDef f0)
+ = R (L (Tag (R (R (R (R (R (L (C ((I . I0) f0))))))))))
+ from Exp (LUA.PrefixExp f0)
+ = R (L (Tag (R (R (R (R (R (R (L (C ((I . I0) f0)))))))))))
+ from Exp (LUA.TableConst f0)
+ = R (L (Tag
+ (R (R (R (R (R (R (R (L (C ((D . (fmap (I . I0))) f0))))))))))))
+ from Exp (LUA.Binop f0 f1 f2)
+ = R (L (Tag
+ (R (R (R (R (R (R (R (R (L (C ((:*:)
+ ((I . I0) f0)
+ ((:*:) ((I . I0) f1) ((I . I0) f2)))))))))))))))
+ from Exp (LUA.Unop f0 f1)
+ = R (L (Tag
+ (R (R (R (R (R (R (R (R (R (C ((:*:)
+ ((I . I0) f0) ((I . I0) f1))))))))))))))
+ from Var (LUA.VarName f0) = R (R (L (Tag (L (C (K f0))))))
+ from Var (LUA.Select f0 f1)
+ = R (R (L (Tag (R (L (C ((:*:) ((I . I0) f0) ((I . I0) f1))))))))
+ from Var (LUA.SelectName f0 f1)
+ = R (R (L (Tag (R (R (C ((:*:) ((I . I0) f0) (K f1))))))))
+ from Binop LUA.Add = R (R (R (L (Tag (L (C U))))))
+ from Binop LUA.Sub = R (R (R (L (Tag (R (L (C U)))))))
+ from Binop LUA.Mul = R (R (R (L (Tag (R (R (L (C U))))))))
+ from Binop LUA.Div = R (R (R (L (Tag (R (R (R (L (C U)))))))))
+ from Binop LUA.Exp
+ = R (R (R (L (Tag (R (R (R (R (L (C U))))))))))
+ from Binop LUA.Mod = R (R (R (L (Tag (R (R (R (R (R (L (C U)))))))))))
+ from Binop LUA.Concat
+ = R (R (R (L (Tag (R (R (R (R (R (R (L (C U))))))))))))
+ from Binop LUA.LT
+ = R (R (R (L (Tag (R (R (R (R (R (R (R (L (C U)))))))))))))
+ from Binop LUA.LTE
+ = R (R (R (L (Tag (R (R (R (R (R (R (R (R (L (C U))))))))))))))
+ from Binop LUA.GT
+ = R (R (R (L (Tag (R (R (R (R (R (R (R (R (R (L (C U)))))))))))))))
+ from Binop LUA.GTE
+ = R (R (R (L (Tag
+ (R (R (R (R (R (R (R (R (R (R (L (C U))))))))))))))))
+ from Binop LUA.EQ
+ = R (R (R (L (Tag
+ (R (R (R (R (R (R (R (R (R (R (R (L (C U)))))))))))))))))
+ from Binop LUA.NEQ
+ = R (R (R (L (Tag
+ (R (R (R (R (R (R (R (R (R (R (R (R (L (C U))))))))))))))))))
+ from Binop LUA.And
+ = R (R (R (L (Tag
+ (R (R (R (R (R (R (R (R (R (R (R (R (R (L (C U)))))))))))))))))))
+ from Binop LUA.Or
+ = R (R (R (L (Tag
+ (R (R (R (R (R (R (R (R (R (R (R (R (R (R (C U)))))))))))))))))))
+ from Unop LUA.Neg = R (R (R (R (L (Tag (L (C U)))))))
+ from Unop LUA.Not = R (R (R (R (L (Tag (R (L (C U))))))))
+ from Unop LUA.Len = R (R (R (R (L (Tag (R (R (C U))))))))
+ from PrefixExp (LUA.PEVar f0)
+ = R (R (R (R (R (L (Tag (L (C ((I . I0) f0)))))))))
+ from PrefixExp (LUA.PEFunCall f0)
+ = R (R (R (R (R (L (Tag (R (L (C ((I . I0) f0))))))))))
+ from PrefixExp (LUA.Paren f0)
+ = R (R (R (R (R (L (Tag (R (R (C ((I . I0) f0))))))))))
+ from TableField (LUA.ExpField f0 f1)
+ = R (R (R (R (R (R (L (Tag
+ (L (C ((:*:) ((I . I0) f0) ((I . I0) f1)))))))))))
+ from TableField (LUA.NamedField f0 f1)
+ = R (R (R (R (R (R (L (Tag
+ (R (L (C ((:*:) (K f0) ((I . I0) f1))))))))))))
+ from TableField (LUA.Field f0)
+ = R (R (R (R (R (R (L (Tag (R (R (C ((I . I0) f0)))))))))))
+ from Block (LUA.Block f0 f1)
+ = R (R (R (R (R (R (R (L (Tag
+ (C ((:*:)
+ ((D . (fmap (I . I0))) f0)
+ ((D . (fmap (D . (fmap (I . I0))))) f1)))))))))))
+ from FunName (LUA.FunName f0 f1 f2)
+ = R (R (R (R (R (R (R (R (L (Tag
+ (C ((:*:)
+ (K f0)
+ ((:*:)
+ ((D . (fmap K)) f1) ((D . (fmap K)) f2)))))))))))))
+ from FunBody (LUA.FunBody f0 f1 f2)
+ = R (R (R (R (R (R (R (R (R (L (Tag
+ (C ((:*:)
+ ((D . (fmap K)) f0)
+ ((:*:) (K f1) ((I . I0) f2))))))))))))))
+ from FunCall (LUA.NormalFunCall f0 f1)
+ = R (R (R (R (R (R (R (R (R (R (L (Tag
+ (L (C ((:*:) ((I . I0) f0) ((I . I0) f1)))))))))))))))
+ from FunCall (LUA.MethodCall f0 f1 f2)
+ = R (R (R (R (R (R (R (R (R (R (L (Tag
+ (R (C ((:*:)
+ ((I . I0) f0)
+ ((:*:) (K f1) ((I . I0) f2))))))))))))))))
+ from FunArg (LUA.Args f0)
+ = R (R (R (R (R (R (R (R (R (R (R (Tag
+ (L (C ((D . (fmap (I . I0))) f0))))))))))))))
+ from FunArg (LUA.TableArg f0)
+ = R (R (R (R (R (R (R (R (R (R (R (Tag
+ (R (L (C ((D . (fmap (I . I0))) f0)))))))))))))))
+ from FunArg (LUA.StringArg f0)
+ = R (R (R (R (R (R (R (R (R (R (R (Tag
+ (R (R (C (K f0)))))))))))))))
+ to Stat (L (Tag (L (C ((:*:) f0 f1)))))
+ = LUA.Assign
+ (((fmap (unI0 . unI)) . unD) f0) (((fmap (unI0 . unI)) . unD) f1)
+ to Stat (L (Tag (R (L (C f0)))))
+ = LUA.FunCall ((unI0 . unI) f0)
+ to Stat (L (Tag (R (R (L (C f0)))))) = LUA.Label (unK f0)
+ to Stat (L (Tag (R (R (R (L (C U))))))) = LUA.Break
+ to Stat (L (Tag (R (R (R (R (L (C f0)))))))) = LUA.Goto (unK f0)
+ to Stat (L (Tag (R (R (R (R (R (L (C f0)))))))))
+ = LUA.Do ((unI0 . unI) f0)
+ to Stat (L (Tag (R (R (R (R (R (R (L (C ((:*:) f0 f1)))))))))))
+ = LUA.While ((unI0 . unI) f0) ((unI0 . unI) f1)
+ to Stat (L (Tag (R (R (R (R (R (R (R (L (C ((:*:) f0 f1))))))))))))
+ = LUA.Repeat ((unI0 . unI) f0) ((unI0 . unI) f1)
+ to
+ Stat
+ (L (Tag (R (R (R (R (R (R (R (R (L (C ((:*:) f0 f1)))))))))))))
+ = LUA.If
+ [((unI0 . unI) e, (unI0 . unI) b) | (e :*: b) <- unD f0]
+ (((fmap (unI0 . unI)) . unD) f1)
+ to
+ Stat
+ (L (Tag (R (R (R (R (R (R (R (R (R (L (C ((:*:) f0
+ ((:*:) f1
+ ((:*:) f2
+ ((:*:) f3 f4)))))))))))))))))
+ = LUA.ForRange
+ (unK f0)
+ ((unI0 . unI) f1)
+ ((unI0 . unI) f2)
+ (((fmap (unI0 . unI)) . unD) f3)
+ ((unI0 . unI) f4)
+ to
+ Stat
+ (L (Tag (R (R (R (R (R (R (R (R (R (R (L (C ((:*:) f0
+ ((:*:) f1 f2))))))))))))))))
+ = LUA.ForIn
+ (((fmap unK) . unD) f0)
+ (((fmap (unI0 . unI)) . unD) f1)
+ ((unI0 . unI) f2)
+ to
+ Stat
+ (L (Tag (R (R (R (R (R (R (R (R (R (R (R (L (C ((:*:) f0
+ f1))))))))))))))))
+ = LUA.FunAssign ((unI0 . unI) f0) ((unI0 . unI) f1)
+ to
+ Stat
+ (L (Tag (R (R (R (R (R (R (R (R (R (R (R (R (L (C ((:*:) f0
+ f1)))))))))))))))))
+ = LUA.LocalFunAssign (unK f0) ((unI0 . unI) f1)
+ to
+ Stat
+ (L (Tag (R (R (R (R (R (R (R (R (R (R (R (R (R (L (C ((:*:) f0
+ f1))))))))))))))))))
+ = LUA.LocalAssign
+ (((fmap unK) . unD) f0)
+ (((fmap ((fmap (unI0 . unI)) . unD)) . unD) f1)
+ to
+ Stat
+ (L (Tag (R (R (R (R (R (R (R (R (R (R (R (R (R (R (C U)))))))))))))))))
+ = LUA.EmptyStat
+ to Exp (R (L (Tag (L (C U))))) = LUA.Nil
+ to Exp (R (L (Tag (R (L (C f0)))))) = LUA.Bool (unK f0)
+ to Exp (R (L (Tag (R (R (L (C f0))))))) = LUA.Number (unK f0)
+ to Exp (R (L (Tag (R (R (R (L (C f0)))))))) = LUA.String (unK f0)
+ to Exp (R (L (Tag (R (R (R (R (L (C U))))))))) = LUA.Vararg
+ to Exp (R (L (Tag (R (R (R (R (R (L (C f0))))))))))
+ = LUA.EFunDef ((unI0 . unI) f0)
+ to Exp (R (L (Tag (R (R (R (R (R (R (L (C f0)))))))))))
+ = LUA.PrefixExp ((unI0 . unI) f0)
+ to Exp (R (L (Tag (R (R (R (R (R (R (R (L (C f0))))))))))))
+ = LUA.TableConst (((fmap (unI0 . unI)) . unD) f0)
+ to
+ Exp
+ (R (L (Tag (R (R (R (R (R (R (R (R (L (C ((:*:) f0
+ ((:*:) f1 f2)))))))))))))))
+ = LUA.Binop
+ ((unI0 . unI) f0) ((unI0 . unI) f1) ((unI0 . unI) f2)
+ to
+ Exp
+ (R (L (Tag (R (R (R (R (R (R (R (R (R (C ((:*:) f0 f1))))))))))))))
+ = LUA.Unop ((unI0 . unI) f0) ((unI0 . unI) f1)
+ to Var (R (R (L (Tag (L (C f0)))))) = LUA.VarName (unK f0)
+ to Var (R (R (L (Tag (R (L (C ((:*:) f0 f1))))))))
+ = LUA.Select ((unI0 . unI) f0) ((unI0 . unI) f1)
+ to Var (R (R (L (Tag (R (R (C ((:*:) f0 f1))))))))
+ = LUA.SelectName ((unI0 . unI) f0) (unK f1)
+ to Binop (R (R (R (L (Tag (L (C U))))))) = LUA.Add
+ to Binop (R (R (R (L (Tag (R (L (C U)))))))) = LUA.Sub
+ to Binop (R (R (R (L (Tag (R (R (L (C U))))))))) = LUA.Mul
+ to Binop (R (R (R (L (Tag (R (R (R (L (C U)))))))))) = LUA.Div
+ to Binop (R (R (R (L (Tag (R (R (R (R (L (C U)))))))))))
+ = LUA.Exp
+ to Binop (R (R (R (L (Tag (R (R (R (R (R (L (C U)))))))))))) = LUA.Mod
+ to Binop (R (R (R (L (Tag (R (R (R (R (R (R (L (C U)))))))))))))
+ = LUA.Concat
+ to
+ Binop
+ (R (R (R (L (Tag (R (R (R (R (R (R (R (L (C U))))))))))))))
+ = LUA.LT
+ to
+ Binop
+ (R (R (R (L (Tag (R (R (R (R (R (R (R (R (L (C U)))))))))))))))
+ = LUA.LTE
+ to
+ Binop
+ (R (R (R (L (Tag (R (R (R (R (R (R (R (R (R (L (C U))))))))))))))))
+ = LUA.GT
+ to
+ Binop
+ (R (R (R (L (Tag (R (R (R (R (R (R (R (R (R (R (L (C U)))))))))))))))))
+ = LUA.GTE
+ to
+ Binop
+ (R (R (R (L (Tag (R (R (R (R (R (R (R (R (R (R (R (L (C U))))))))))))))))))
+ = LUA.EQ
+ to
+ Binop
+ (R (R (R (L (Tag (R (R (R (R (R (R (R (R (R (R (R (R (L (C U)))))))))))))))))))
+ = LUA.NEQ
+ to
+ Binop
+ (R (R (R (L (Tag (R (R (R (R (R (R (R (R (R (R (R (R (R (L (C U))))))))))))))))))))
+ = LUA.And
+ to
+ Binop
+ (R (R (R (L (Tag (R (R (R (R (R (R (R (R (R (R (R (R (R (R (C U))))))))))))))))))))
+ = LUA.Or
+ to Unop (R (R (R (R (L (Tag (L (C U)))))))) = LUA.Neg
+ to Unop (R (R (R (R (L (Tag (R (L (C U))))))))) = LUA.Not
+ to Unop (R (R (R (R (L (Tag (R (R (C U))))))))) = LUA.Len
+ to PrefixExp (R (R (R (R (R (L (Tag (L (C f0)))))))))
+ = LUA.PEVar ((unI0 . unI) f0)
+ to PrefixExp (R (R (R (R (R (L (Tag (R (L (C f0))))))))))
+ = LUA.PEFunCall ((unI0 . unI) f0)
+ to PrefixExp (R (R (R (R (R (L (Tag (R (R (C f0))))))))))
+ = LUA.Paren ((unI0 . unI) f0)
+ to
+ TableField
+ (R (R (R (R (R (R (L (Tag (L (C ((:*:) f0 f1)))))))))))
+ = LUA.ExpField ((unI0 . unI) f0) ((unI0 . unI) f1)
+ to
+ TableField
+ (R (R (R (R (R (R (L (Tag (R (L (C ((:*:) f0 f1))))))))))))
+ = LUA.NamedField (unK f0) ((unI0 . unI) f1)
+ to TableField (R (R (R (R (R (R (L (Tag (R (R (C f0)))))))))))
+ = LUA.Field ((unI0 . unI) f0)
+ to Block (R (R (R (R (R (R (R (L (Tag (C ((:*:) f0 f1)))))))))))
+ = LUA.Block
+ (((fmap (unI0 . unI)) . unD) f0)
+ (((fmap ((fmap (unI0 . unI)) . unD)) . unD) f1)
+ to
+ FunName
+ (R (R (R (R (R (R (R (R (L (Tag (C ((:*:) f0
+ ((:*:) f1 f2)))))))))))))
+ = LUA.FunName
+ (unK f0) (((fmap unK) . unD) f1) (((fmap unK) . unD) f2)
+ to
+ FunBody
+ (R (R (R (R (R (R (R (R (R (L (Tag (C ((:*:) f0
+ ((:*:) f1 f2))))))))))))))
+ = LUA.FunBody
+ (((fmap unK) . unD) f0) (unK f1) ((unI0 . unI) f2)
+ to
+ FunCall
+ (R (R (R (R (R (R (R (R (R (R (L (Tag (L (C ((:*:) f0
+ f1)))))))))))))))
+ = LUA.NormalFunCall ((unI0 . unI) f0) ((unI0 . unI) f1)
+ to
+ FunCall
+ (R (R (R (R (R (R (R (R (R (R (L (Tag (R (C ((:*:) f0
+ ((:*:) f1 f2))))))))))))))))
+ = LUA.MethodCall ((unI0 . unI) f0) (unK f1) ((unI0 . unI) f2)
+ to
+ FunArg
+ (R (R (R (R (R (R (R (R (R (R (R (Tag (L (C f0))))))))))))))
+ = LUA.Args (((fmap (unI0 . unI)) . unD) f0)
+ to
+ FunArg
+ (R (R (R (R (R (R (R (R (R (R (R (Tag (R (L (C f0)))))))))))))))
+ = LUA.TableArg (((fmap (unI0 . unI)) . unD) f0)
+ to
+ FunArg
+ (R (R (R (R (R (R (R (R (R (R (R (Tag (R (R (C f0)))))))))))))))
+ = LUA.StringArg (unK f0)
+
+instance EqS AST where
+ eqS Stat Stat = Just Refl
+ eqS Exp Exp = Just Refl
+ eqS Var Var = Just Refl
+ eqS Binop Binop = Just Refl
+ eqS Unop Unop = Just Refl
+ eqS PrefixExp PrefixExp = Just Refl
+ eqS TableField TableField = Just Refl
+ eqS Block Block = Just Refl
+ eqS FunName FunName = Just Refl
+ eqS FunBody FunBody = Just Refl
+ eqS FunCall FunCall = Just Refl
+ eqS FunArg FunArg = Just Refl
+ eqS _ _ = Nothing
diff --git a/examples/LUA_project/application.lua.1 b/examples/LUA_project/application.lua.1
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.1
@@ -0,0 +1,733 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local lapis_config = require("lapis.config")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local increment_perf
+do
+ local _obj_0 = require("lapis.nginx.context")
+ increment_perf = _obj_0.increment_perf
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local insert
+do
+ local _obj_0 = table
+ insert = _obj_0.insert
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-Type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-Type"] = ct
+ end
+ end
+ if not self.res.headers["Content-Type"] then
+ self.res.headers["Content-Type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ return ""
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ local config = lapis_config.get()
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local start_time
+ if config.measure_performance then
+ ngx.update_time()
+ start_time = ngx.now()
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ if start_time then
+ ngx.update_time()
+ increment_perf("view_time", ngx.now() - start_time)
+ end
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local start_time
+ if config.measure_performance then
+ ngx.update_time()
+ start_time = ngx.now()
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ if start_time then
+ ngx.update_time()
+ increment_perf("layout_time", ngx.now() - start_time)
+ end
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ do
+ local extra = self.app.cookie_attributes(self, k, v)
+ if extra then
+ cookie = cookie .. ("; " .. extra)
+ end
+ end
+ self.res:add_header("Set-Cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ if type(fn) == "function" then
+ return fn(self)
+ end
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.ordered_routes = self.ordered_routes or { }
+ local key
+ if route_name then
+ local tuple = self.ordered_routes[route_name]
+ do
+ local old_path = tuple and tuple[next(tuple)]
+ if old_path then
+ if old_path ~= path then
+ error("named route mismatch (" .. tostring(old_path) .. " != " .. tostring(path) .. ")")
+ end
+ end
+ end
+ if tuple then
+ key = tuple
+ else
+ tuple = {
+ [route_name] = path
+ }
+ self.ordered_routes[route_name] = tuple
+ key = tuple
+ end
+ else
+ key = path
+ end
+ if not (self[key]) then
+ insert(self.ordered_routes, key)
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ do
+ local ordered = self.ordered_routes
+ if ordered then
+ for _index_0 = 1, #ordered do
+ local path = ordered[_index_0]
+ add_route(path, self[path])
+ end
+ else
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ local config = lapis_config.get()
+ if config._name == "test" then
+ local param_dump = logger.flatten_params(self.url_params)
+ r.res:add_header("X-Lapis-Error", "true")
+ r:write({
+ status = 500,
+ json = {
+ status = "[" .. tostring(r.req.cmd_mth) .. "] " .. tostring(r.req.cmd_url) .. " " .. tostring(param_dump),
+ err = err,
+ trace = trace
+ }
+ })
+ else
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ end
+ r:render()
+ logger.request(r)
+ return r
+ end,
+ cookie_attributes = function(self, name, value)
+ return "Path=/; HttpOnly"
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg, ...)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing, msg, ...
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.10 b/examples/LUA_project/application.lua.10
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.10
@@ -0,0 +1,655 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ return fn(self)
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg, ...)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing, msg, ...
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.11 b/examples/LUA_project/application.lua.11
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.11
@@ -0,0 +1,655 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ return fn(self)
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.12 b/examples/LUA_project/application.lua.12
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.12
@@ -0,0 +1,652 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ return fn(self)
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.13 b/examples/LUA_project/application.lua.13
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.13
@@ -0,0 +1,649 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ return fn(self)
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.14 b/examples/LUA_project/application.lua.14
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.14
@@ -0,0 +1,645 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.15 b/examples/LUA_project/application.lua.15
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.15
@@ -0,0 +1,659 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.16 b/examples/LUA_project/application.lua.16
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.16
@@ -0,0 +1,659 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.17 b/examples/LUA_project/application.lua.17
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.17
@@ -0,0 +1,659 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json") then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.18 b/examples/LUA_project/application.lua.18
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.18
@@ -0,0 +1,659 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if content_type:lower() == "application/json" then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.19 b/examples/LUA_project/application.lua.19
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.19
@@ -0,0 +1,655 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json_safe = require("cjson.safe")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if content_type:lower() == "application/json" then
+ local obj, err = json_safe.decode(ngx.req.get_body_data())
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.2 b/examples/LUA_project/application.lua.2
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.2
@@ -0,0 +1,724 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local lapis_config = require("lapis.config")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local increment_perf
+do
+ local _obj_0 = require("lapis.nginx.context")
+ increment_perf = _obj_0.increment_perf
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local insert
+do
+ local _obj_0 = table
+ insert = _obj_0.insert
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-Type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-Type"] = ct
+ end
+ end
+ if not self.res.headers["Content-Type"] then
+ self.res.headers["Content-Type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ return ""
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ local config = lapis_config.get()
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local start_time
+ if config.measure_performance then
+ ngx.update_time()
+ start_time = ngx.now()
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ if start_time then
+ ngx.update_time()
+ increment_perf("view_time", ngx.now() - start_time)
+ end
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ do
+ local extra = self.app.cookie_attributes(self, k, v)
+ if extra then
+ cookie = cookie .. ("; " .. extra)
+ end
+ end
+ self.res:add_header("Set-Cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ if type(fn) == "function" then
+ return fn(self)
+ end
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.ordered_routes = self.ordered_routes or { }
+ local key
+ if route_name then
+ local tuple = self.ordered_routes[route_name]
+ do
+ local old_path = tuple and tuple[next(tuple)]
+ if old_path then
+ if old_path ~= path then
+ error("named route mismatch (" .. tostring(old_path) .. " != " .. tostring(path) .. ")")
+ end
+ end
+ end
+ if tuple then
+ key = tuple
+ else
+ tuple = {
+ [route_name] = path
+ }
+ self.ordered_routes[route_name] = tuple
+ key = tuple
+ end
+ else
+ key = path
+ end
+ if not (self[key]) then
+ insert(self.ordered_routes, key)
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ do
+ local ordered = self.ordered_routes
+ if ordered then
+ for _index_0 = 1, #ordered do
+ local path = ordered[_index_0]
+ add_route(path, self[path])
+ end
+ else
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ local config = lapis_config.get()
+ if config._name == "test" then
+ local param_dump = logger.flatten_params(self.url_params)
+ r.res:add_header("X-Lapis-Error", "true")
+ r:write({
+ status = 500,
+ json = {
+ status = "[" .. tostring(r.req.cmd_mth) .. "] " .. tostring(r.req.cmd_url) .. " " .. tostring(param_dump),
+ err = err,
+ trace = trace
+ }
+ })
+ else
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ end
+ r:render()
+ logger.request(r)
+ return r
+ end,
+ cookie_attributes = function(self, name, value)
+ return "Path=/; HttpOnly"
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg, ...)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing, msg, ...
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.20 b/examples/LUA_project/application.lua.20
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.20
@@ -0,0 +1,597 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json_safe = require("cjson.safe")
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if content_type:lower() == "application/json" then
+ local obj, err = json_safe.decode(ngx.req.get_body_data())
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.21 b/examples/LUA_project/application.lua.21
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.21
@@ -0,0 +1,578 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.22 b/examples/LUA_project/application.lua.22
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.22
@@ -0,0 +1,580 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = error_response or fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.23 b/examples/LUA_project/application.lua.23
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.23
@@ -0,0 +1,580 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.24 b/examples/LUA_project/application.lua.24
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.24
@@ -0,0 +1,575 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.25 b/examples/LUA_project/application.lua.25
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.25
@@ -0,0 +1,564 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.26 b/examples/LUA_project/application.lua.26
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.26
@@ -0,0 +1,561 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.27 b/examples/LUA_project/application.lua.27
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.27
@@ -0,0 +1,545 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.28 b/examples/LUA_project/application.lua.28
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.28
@@ -0,0 +1,545 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_routes
+ add_routes = function(cls)
+ do
+ local parent = cls.__parent
+ if parent then
+ add_routes(parent)
+ end
+ end
+ for path, handler in pairs(cls.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.29 b/examples/LUA_project/application.lua.29
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.29
@@ -0,0 +1,559 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts
+ do
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ parts = _accum_0
+ end
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ for _index_0 = 1, #extra do
+ local p = extra[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_routes
+ add_routes = function(cls)
+ do
+ local parent = cls.__parent
+ if parent then
+ add_routes(parent)
+ end
+ end
+ for path, handler in pairs(cls.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.3 b/examples/LUA_project/application.lua.3
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.3
@@ -0,0 +1,708 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local insert
+do
+ local _obj_0 = table
+ insert = _obj_0.insert
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-Type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-Type"] = ct
+ end
+ end
+ if not self.res.headers["Content-Type"] then
+ self.res.headers["Content-Type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ return ""
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ do
+ local extra = self.app.cookie_attributes(self, k, v)
+ if extra then
+ cookie = cookie .. ("; " .. extra)
+ end
+ end
+ self.res:add_header("Set-Cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ if type(fn) == "function" then
+ return fn(self)
+ end
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.ordered_routes = self.ordered_routes or { }
+ local key
+ if route_name then
+ local tuple = self.ordered_routes[route_name]
+ do
+ local old_path = tuple and tuple[next(tuple)]
+ if old_path then
+ if old_path ~= path then
+ error("named route mismatch (" .. tostring(old_path) .. " != " .. tostring(path) .. ")")
+ end
+ end
+ end
+ if tuple then
+ key = tuple
+ else
+ tuple = {
+ [route_name] = path
+ }
+ self.ordered_routes[route_name] = tuple
+ key = tuple
+ end
+ else
+ key = path
+ end
+ if not (self[key]) then
+ insert(self.ordered_routes, key)
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ do
+ local ordered = self.ordered_routes
+ if ordered then
+ for _index_0 = 1, #ordered do
+ local path = ordered[_index_0]
+ add_route(path, self[path])
+ end
+ else
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ local config = require("lapis.config").get()
+ if config._name == "test" then
+ local param_dump = logger.flatten_params(self.url_params)
+ r.res:add_header("X-Lapis-Error", "true")
+ r:write({
+ status = 500,
+ json = {
+ status = "[" .. tostring(r.req.cmd_mth) .. "] " .. tostring(r.req.cmd_url) .. " " .. tostring(param_dump),
+ err = err,
+ trace = trace
+ }
+ })
+ else
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ end
+ r:render()
+ logger.request(r)
+ return r
+ end,
+ cookie_attributes = function(self, name, value)
+ return "Path=/; HttpOnly"
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg, ...)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing, msg, ...
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.30 b/examples/LUA_project/application.lua.30
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.30
@@ -0,0 +1,546 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts
+ do
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ parts = _accum_0
+ end
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ for _index_0 = 1, #extra do
+ local p = extra[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.31 b/examples/LUA_project/application.lua.31
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.31
@@ -0,0 +1,546 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts
+ do
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ parts = _accum_0
+ end
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ for _index_0 = 1, #extra do
+ local p = extra[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.32 b/examples/LUA_project/application.lua.32
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.32
@@ -0,0 +1,556 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts
+ do
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ parts = _accum_0
+ end
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ for _index_0 = 1, #extra do
+ local p = extra[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.33 b/examples/LUA_project/application.lua.33
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.33
@@ -0,0 +1,558 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts
+ do
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ parts = _accum_0
+ end
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ for _index_0 = 1, #extra do
+ local p = extra[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.34 b/examples/LUA_project/application.lua.34
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.34
@@ -0,0 +1,570 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts
+ do
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ parts = _accum_0
+ end
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ for _index_0 = 1, #extra do
+ local p = extra[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.35 b/examples/LUA_project/application.lua.35
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.35
@@ -0,0 +1,600 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ local _list_0 = before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.36 b/examples/LUA_project/application.lua.36
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.36
@@ -0,0 +1,600 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ local _list_0 = before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.37 b/examples/LUA_project/application.lua.37
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.37
@@ -0,0 +1,600 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local capture_errors, capture_errors_json
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ local _list_0 = before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.38 b/examples/LUA_project/application.lua.38
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.38
@@ -0,0 +1,589 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ local _list_0 = before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.39 b/examples/LUA_project/application.lua.39
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.39
@@ -0,0 +1,575 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ local _list_0 = before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.4 b/examples/LUA_project/application.lua.4
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.4
@@ -0,0 +1,706 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local insert
+do
+ local _obj_0 = table
+ insert = _obj_0.insert
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-Type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-Type"] = ct
+ end
+ end
+ if not self.res.headers["Content-Type"] then
+ self.res.headers["Content-Type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ return ""
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ do
+ local extra = self.app.cookie_attributes(self, k, v)
+ if extra then
+ cookie = cookie .. ("; " .. extra)
+ end
+ end
+ self.res:add_header("Set-Cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ if type(fn) == "function" then
+ return fn(self)
+ end
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.ordered_routes = self.ordered_routes or { }
+ local key
+ if route_name then
+ local tuple = self.ordered_routes[route_name]
+ do
+ local old_path = tuple and tuple[next(tuple)]
+ if old_path then
+ if old_path ~= path then
+ error("named route mismatch (" .. tostring(old_path) .. " != " .. tostring(path) .. ")")
+ end
+ end
+ end
+ if tuple then
+ key = tuple
+ else
+ tuple = {
+ [route_name] = path
+ }
+ self.ordered_routes[route_name] = tuple
+ key = tuple
+ end
+ else
+ key = path
+ end
+ if not (self[key]) then
+ insert(self.ordered_routes, key)
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ do
+ local ordered = self.ordered_routes
+ if ordered then
+ for _index_0 = 1, #ordered do
+ local path = ordered[_index_0]
+ add_route(path, self[path])
+ end
+ else
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ local config = require("lapis.config").get()
+ if config._name == "test" then
+ r.res:add_header("X-Lapis-Error", "true")
+ r:write({
+ status = 500,
+ json = {
+ err = err,
+ trace = trace
+ }
+ })
+ else
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ end
+ r:render()
+ logger.request(r)
+ return r
+ end,
+ cookie_attributes = function(self, name, value)
+ return "Path=/; HttpOnly"
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg, ...)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing, msg, ...
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.40 b/examples/LUA_project/application.lua.40
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.40
@@ -0,0 +1,575 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ if not (#parts > 0) then
+ return
+ end
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ local _list_0 = before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.41 b/examples/LUA_project/application.lua.41
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.41
@@ -0,0 +1,572 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ local _list_0 = before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.42 b/examples/LUA_project/application.lua.42
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.42
@@ -0,0 +1,577 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ local _list_0 = before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.43 b/examples/LUA_project/application.lua.43
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.43
@@ -0,0 +1,554 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ into[path] = action
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ into[path] = action
+ end
+ end
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.44 b/examples/LUA_project/application.lua.44
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.44
@@ -0,0 +1,527 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.45 b/examples/LUA_project/application.lua.45
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.45
@@ -0,0 +1,527 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local widget = self.options.render
+ if widget then
+ if widget == true then
+ widget = self.route_name
+ end
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ end
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.46 b/examples/LUA_project/application.lua.46
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.46
@@ -0,0 +1,525 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.47 b/examples/LUA_project/application.lua.47
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.47
@@ -0,0 +1,525 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path:match("^%a+:") then
+ return path
+ end
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.48 b/examples/LUA_project/application.lua.48
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.48
@@ -0,0 +1,522 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.49 b/examples/LUA_project/application.lua.49
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.49
@@ -0,0 +1,520 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json, build_url
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url = _table_0.parse_cookie_string, _table_0.to_json, _table_0.build_url
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ do
+ local old_query = parsed.query
+ if old_query then
+ parsed.query = old_query .. "&" .. query
+ else
+ parsed.query = query
+ end
+ end
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.5 b/examples/LUA_project/application.lua.5
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.5
@@ -0,0 +1,694 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local insert
+do
+ local _obj_0 = table
+ insert = _obj_0.insert
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-Type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-Type"] = ct
+ end
+ end
+ if not self.res.headers["Content-Type"] then
+ self.res.headers["Content-Type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ return ""
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ do
+ local extra = self.app.cookie_attributes(self, k, v)
+ if extra then
+ cookie = cookie .. ("; " .. extra)
+ end
+ end
+ self.res:add_header("Set-Cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ if type(fn) == "function" then
+ return fn(self)
+ end
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.ordered_routes = self.ordered_routes or { }
+ local key
+ if route_name then
+ local tuple = self.ordered_routes[route_name]
+ do
+ local old_path = tuple and tuple[next(tuple)]
+ if old_path then
+ if old_path ~= path then
+ error("named route mismatch (" .. tostring(old_path) .. " != " .. tostring(path) .. ")")
+ end
+ end
+ end
+ if tuple then
+ key = tuple
+ else
+ tuple = {
+ [route_name] = path
+ }
+ self.ordered_routes[route_name] = tuple
+ key = tuple
+ end
+ else
+ key = path
+ end
+ if not (self[key]) then
+ insert(self.ordered_routes, key)
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ do
+ local ordered = self.ordered_routes
+ if ordered then
+ for _index_0 = 1, #ordered do
+ local path = ordered[_index_0]
+ add_route(path, self[path])
+ end
+ else
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end,
+ cookie_attributes = function(self, name, value)
+ return "Path=/; HttpOnly"
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg, ...)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing, msg, ...
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.50 b/examples/LUA_project/application.lua.50
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.50
@@ -0,0 +1,516 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json = _table_0.parse_cookie_string, _table_0.to_json
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.51 b/examples/LUA_project/application.lua.51
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.51
@@ -0,0 +1,516 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json = _table_0.parse_cookie_string, _table_0.to_json
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params())
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.52 b/examples/LUA_project/application.lua.52
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.52
@@ -0,0 +1,514 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json = _table_0.parse_cookie_string, _table_0.to_json
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params())
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ do
+ local extra = self.app.cookie_attributes
+ if extra then
+ i = i + 3
+ local _list_0 = extra
+ for _index_0 = 1, #_list_0 do
+ local p = _list_0[_index_0]
+ parts[i] = p
+ i = i + 1
+ end
+ end
+ end
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.53 b/examples/LUA_project/application.lua.53
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.53
@@ -0,0 +1,502 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json = _table_0.parse_cookie_string, _table_0.to_json
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params())
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.54 b/examples/LUA_project/application.lua.54
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.54
@@ -0,0 +1,502 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json = _table_0.parse_cookie_string, _table_0.to_json
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params())
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace)
+ local r = Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.app.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.55 b/examples/LUA_project/application.lua.55
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.55
@@ -0,0 +1,498 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json = _table_0.parse_cookie_string, _table_0.to_json
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params())
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return self.app:handle_404()
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.56 b/examples/LUA_project/application.lua.56
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.56
@@ -0,0 +1,495 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string, to_json
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string, to_json = _table_0.parse_cookie_string, _table_0.to_json
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params())
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.57 b/examples/LUA_project/application.lua.57
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.57
@@ -0,0 +1,496 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params())
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.58 b/examples/LUA_project/application.lua.58
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.58
@@ -0,0 +1,495 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params())
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.59 b/examples/LUA_project/application.lua.59
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.59
@@ -0,0 +1,495 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ url = self.options.redirect_to
+ if url then
+ if url:match("^/") then
+ url = self:build_url(url)
+ end
+ self.res:add_header("Location", url)
+ self.res.status = 302
+ end
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params())
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.6 b/examples/LUA_project/application.lua.6
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.6
@@ -0,0 +1,692 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local insert
+do
+ local _obj_0 = table
+ insert = _obj_0.insert
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-Type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-Type"] = ct
+ end
+ end
+ if not self.res.headers["Content-Type"] then
+ self.res.headers["Content-Type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ return ""
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-Cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ if type(fn) == "function" then
+ return fn(self)
+ end
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.ordered_routes = self.ordered_routes or { }
+ local key
+ if route_name then
+ local tuple = self.ordered_routes[route_name]
+ do
+ local old_path = tuple and tuple[next(tuple)]
+ if old_path then
+ if old_path ~= path then
+ error("named route mismatch (" .. tostring(old_path) .. " != " .. tostring(path) .. ")")
+ end
+ end
+ end
+ if tuple then
+ key = tuple
+ else
+ tuple = {
+ [route_name] = path
+ }
+ self.ordered_routes[route_name] = tuple
+ key = tuple
+ end
+ else
+ key = path
+ end
+ if not (self[key]) then
+ insert(self.ordered_routes, key)
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ do
+ local ordered = self.ordered_routes
+ if ordered then
+ for _index_0 = 1, #ordered do
+ local path = ordered[_index_0]
+ add_route(path, self[path])
+ end
+ else
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ end
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg, ...)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing, msg, ...
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.60 b/examples/LUA_project/application.lua.60
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.60
@@ -0,0 +1,486 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params())
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.61 b/examples/LUA_project/application.lua.61
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.61
@@ -0,0 +1,482 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.62 b/examples/LUA_project/application.lua.62
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.62
@@ -0,0 +1,481 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ if query then
+ path = _path
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.63 b/examples/LUA_project/application.lua.63
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.63
@@ -0,0 +1,480 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path then
+ local query
+ path, query = path:match("(.-)%?(.*)")
+ if query then
+ parsed.query = query
+ end
+ if not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.64 b/examples/LUA_project/application.lua.64
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.64
@@ -0,0 +1,473 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ local i = #parts
+ parts[i + 1] = "Path=/"
+ parts[i + 2] = "HttpOnly"
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.65 b/examples/LUA_project/application.lua.65
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.65
@@ -0,0 +1,470 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ local layout = layout_cls({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.66 b/examples/LUA_project/application.lua.66
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.66
@@ -0,0 +1,463 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.67 b/examples/LUA_project/application.lua.67
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.67
@@ -0,0 +1,457 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.68 b/examples/LUA_project/application.lua.68
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.68
@@ -0,0 +1,453 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.69 b/examples/LUA_project/application.lua.69
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.69
@@ -0,0 +1,436 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.7 b/examples/LUA_project/application.lua.7
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.7
@@ -0,0 +1,658 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-Type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-Type"] = ct
+ end
+ end
+ if not self.res.headers["Content-Type"] then
+ self.res.headers["Content-Type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ return ""
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-Cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ if type(fn) == "function" then
+ return fn(self)
+ end
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg, ...)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing, msg, ...
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.70 b/examples/LUA_project/application.lua.70
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.70
@@ -0,0 +1,436 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 1
+ for k, v in pairs(self.cookies) do
+ _accum_0[_len_0] = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ _len_0 = _len_0 + 1
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.71 b/examples/LUA_project/application.lua.71
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.71
@@ -0,0 +1,439 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+local capture_errors
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local capture_errors_json
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.72 b/examples/LUA_project/application.lua.72
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.72
@@ -0,0 +1,421 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local capture_errors
+capture_errors = function(fn)
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return {
+ render = true
+ }
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.73 b/examples/LUA_project/application.lua.73
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.73
@@ -0,0 +1,417 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ before(self)
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local capture_errors
+capture_errors = function(fn)
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ self.errors = {
+ unpack(out, 2)
+ }
+ return {
+ render = true
+ }
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ coroutine.yield(msg)
+ end
+ return thing
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield(msg)
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.74 b/examples/LUA_project/application.lua.74
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.74
@@ -0,0 +1,411 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+local capture_errors
+capture_errors = function(fn)
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ self.errors = {
+ unpack(out, 2)
+ }
+ return {
+ render = true
+ }
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+local assert_error
+assert_error = function(thing, msg)
+ if not (thing) then
+ coroutine.yield(msg)
+ end
+ return thing
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield(msg)
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.75 b/examples/LUA_project/application.lua.75
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.75
@@ -0,0 +1,375 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ r:write(handler({ }, nil, "default_route", r))
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.cmd_url:match("./$") then
+ local stripped = self.req.cmd_url:match("^(.+)/+$")
+ return {
+ redirect_to = stripped,
+ status = 301
+ }
+ else
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.76 b/examples/LUA_project/application.lua.76
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.76
@@ -0,0 +1,358 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ end
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.77 b/examples/LUA_project/application.lua.77
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.77
@@ -0,0 +1,357 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace
+ local success = xpcall((function()
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ local r = Request(self, req, res)
+ r:write({
+ status = 500,
+ layout = false,
+ self.error_page({
+ staus = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ end
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.78 b/examples/LUA_project/application.lua.78
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.78
@@ -0,0 +1,331 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.views.layout"),
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.79 b/examples/LUA_project/application.lua.79
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.79
@@ -0,0 +1,331 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.8 b/examples/LUA_project/application.lua.8
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.8
@@ -0,0 +1,658 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ return ""
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ if type(fn) == "function" then
+ return fn(self)
+ end
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg, ...)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing, msg, ...
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.80 b/examples/LUA_project/application.lua.80
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.80
@@ -0,0 +1,330 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ view:include_helper(self)
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.81 b/examples/LUA_project/application.lua.81
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.81
@@ -0,0 +1,345 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local widget = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ local view = widget(self.options.locals)
+ if not (self.options.locals) then
+ for k, v in pairs(self) do
+ local _continue_0 = false
+ repeat
+ if k == "buffer" or k == "options" then
+ _continue_0 = true
+ break
+ end
+ view[k] = v
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ self:write(view)
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.82 b/examples/LUA_project/application.lua.82
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.82
@@ -0,0 +1,328 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ do
+ local rpath = self.options.render
+ if rpath then
+ if rpath == true then
+ rpath = self.route_name
+ end
+ local view = require(tostring(self.app.views_prefix) .. "." .. tostring(rpath))
+ self:write(view(self.options.locals or self))
+ end
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ views_prefix = "views",
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.83 b/examples/LUA_project/application.lua.83
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.83
@@ -0,0 +1,317 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local session = require("lapis.session")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local auto_table
+auto_table = function(fn)
+ return setmetatable({ }, {
+ __index = function(self, name)
+ local result = fn()
+ setmetatable(self, {
+ __index = result
+ })
+ return result[name]
+ end
+ })
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = auto_table(function()
+ return session.get_session(self)
+ end)
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.84 b/examples/LUA_project/application.lua.84
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.84
@@ -0,0 +1,306 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local parse_cookie_string
+do
+ local _table_0 = require("lapis.util")
+ parse_cookie_string = _table_0.parse_cookie_string
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ self:write_cookies()
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ local parts = (function()
+ local _accum_0 = { }
+ local _len_0 = 0
+ for k, v in pairs(self.cookies) do
+ local _value_0 = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v))
+ if _value_0 ~= nil then
+ _len_0 = _len_0 + 1
+ _accum_0[_len_0] = _value_0
+ end
+ end
+ return _accum_0
+ end)()
+ return self.res:add_header("Set-cookie", table.concat(parts, "; "))
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = setmetatable({ }, {
+ __index = function(tbl, name)
+ local parsed = parse_cookie_string(self.req.headers.cookie)
+ setmetatable(self.cookies, {
+ __index = parsed
+ })
+ return parsed[name]
+ end
+ })
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.85 b/examples/LUA_project/application.lua.85
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.85
@@ -0,0 +1,276 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+local respond_to
+respond_to = function(tbl)
+ return function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to
+}
diff --git a/examples/LUA_project/application.lua.86 b/examples/LUA_project/application.lua.86
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.86
@@ -0,0 +1,264 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ before_filters = { },
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ filter(r)
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.before_filter = function(self, fn)
+ return table.insert(self.before_filters, fn)
+ end
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+return {
+ Request = Request,
+ Application = Application
+}
diff --git a/examples/LUA_project/application.lua.87 b/examples/LUA_project/application.lua.87
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.87
@@ -0,0 +1,254 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local json = require("cjson")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if self.options.json then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = json.encode(self.options.json)
+ return
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+return {
+ Request = Request,
+ Application = Application
+}
diff --git a/examples/LUA_project/application.lua.88 b/examples/LUA_project/application.lua.88
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.88
@@ -0,0 +1,248 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.options.redirect_to then
+ self.res:add_header("Location", self:build_url(self.options.redirect_to))
+ self.res.status = 302
+ end
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ build_url = function(self, path, options)
+ local parsed = (function()
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ return _tbl_0
+ end)()
+ parsed.authority = nil
+ if path and not path:match("^/") then
+ path = "/" .. tostring(path)
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return url.build(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write:", tostring(thing))
+ end
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+return {
+ Request = Request,
+ Application = Application
+}
diff --git a/examples/LUA_project/application.lua.89 b/examples/LUA_project/application.lua.89
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.89
@@ -0,0 +1,211 @@
+local logger = require("lapis.logging")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ write = function(self, thing)
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ return table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ return self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ return nil
+ else
+ return error("Don't know how to write:", tostring(thing))
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+return {
+ Request = Request,
+ Application = Application
+}
diff --git a/examples/LUA_project/application.lua.9 b/examples/LUA_project/application.lua.9
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.9
@@ -0,0 +1,656 @@
+local logger = require("lapis.logging")
+local url = require("socket.url")
+local session = require("lapis.session")
+local Router
+do
+ local _obj_0 = require("lapis.router")
+ Router = _obj_0.Router
+end
+local html_writer
+do
+ local _obj_0 = require("lapis.html")
+ html_writer = _obj_0.html_writer
+end
+local parse_cookie_string, to_json, build_url, auto_table
+do
+ local _obj_0 = require("lapis.util")
+ parse_cookie_string, to_json, build_url, auto_table = _obj_0.parse_cookie_string, _obj_0.to_json, _obj_0.build_url, _obj_0.auto_table
+end
+local json = require("cjson")
+local capture_errors, capture_errors_json, respond_to
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local run_before_filter
+run_before_filter = function(filter, r)
+ local _write = r.write
+ local written = false
+ r.write = function(...)
+ written = true
+ return _write(...)
+ end
+ filter(r)
+ r.write = nil
+ return written
+end
+local Request
+do
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ do
+ local front = k:match("^([^%[]+)%[")
+ if front then
+ local curr = self.params
+ for match in k:gmatch("%[(.-)%]") do
+ local new = curr[front]
+ if new == nil then
+ new = { }
+ curr[front] = new
+ end
+ curr = new
+ front = match
+ end
+ curr[front] = v
+ else
+ self.params[k] = v
+ end
+ end
+ end
+ end,
+ render = function(self, opts)
+ if opts == nil then
+ opts = false
+ end
+ if opts then
+ self.options = opts
+ end
+ session.write_session(self)
+ self:write_cookies()
+ if self.options.status then
+ self.res.status = self.options.status
+ end
+ do
+ local obj = self.options.json
+ if obj then
+ self.res.headers["Content-type"] = "application/json"
+ self.res.content = to_json(obj)
+ return
+ end
+ end
+ do
+ local ct = self.options.content_type
+ if ct then
+ self.res.headers["Content-type"] = ct
+ end
+ end
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ do
+ local redirect_url = self.options.redirect_to
+ if redirect_url then
+ if redirect_url:match("^/") then
+ redirect_url = self:build_url(redirect_url)
+ end
+ self.res:add_header("Location", redirect_url)
+ self.res.status = self.res.status or 302
+ return ""
+ end
+ end
+ local has_layout = self.app.layout and set_and_truthy(self.options.layout, true)
+ if has_layout then
+ self.layout_opts = {
+ inner = nil
+ }
+ end
+ local widget = self.options.render
+ if widget == true then
+ widget = self.route_name
+ end
+ if widget then
+ if type(widget) == "string" then
+ widget = require(tostring(self.app.views_prefix) .. "." .. tostring(widget))
+ end
+ local view = widget(self.options.locals)
+ if self.layout_opts then
+ self.layout_opts.view_widget = view
+ end
+ view:include_helper(self)
+ self:write(view)
+ end
+ if has_layout then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout_path = self.options.layout
+ local layout_cls
+ if type(layout_path) == "string" then
+ layout_cls = require(tostring(self.app.views_prefix) .. "." .. tostring(layout_path))
+ else
+ layout_cls = self.app.layout
+ end
+ self.layout_opts.inner = self.layout_opts.inner or function()
+ return raw(inner)
+ end
+ local layout = layout_cls(self.layout_opts)
+ layout:include_helper(self)
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, first, ...)
+ if type(first) == "table" then
+ return self.app.router:url_for(first:url_params(self, ...))
+ else
+ return self.app.router:url_for(first, ...)
+ end
+ end,
+ build_url = function(self, path, options)
+ if path and path:match("^%a+:") then
+ return path
+ end
+ local parsed
+ do
+ local _tbl_0 = { }
+ for k, v in pairs(self.req.parsed_url) do
+ _tbl_0[k] = v
+ end
+ parsed = _tbl_0
+ end
+ parsed.query = nil
+ if path then
+ local _path, query = path:match("^(.-)%?(.*)$")
+ path = _path or path
+ parsed.query = query
+ end
+ parsed.path = path
+ if parsed.port == "80" then
+ parsed.port = nil
+ end
+ if options then
+ for k, v in pairs(options) do
+ parsed[k] = v
+ end
+ end
+ return build_url(parsed)
+ end,
+ write = function(self, ...)
+ local _list_0 = {
+ ...
+ }
+ for _index_0 = 1, #_list_0 do
+ local thing = _list_0[_index_0]
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ local _ = nil
+ else
+ error("Don't know how to write: (" .. tostring(t) .. ") " .. tostring(thing))
+ end
+ end
+ end,
+ write_cookies = function(self)
+ if not (next(self.cookies)) then
+ return
+ end
+ local extra = self.app.cookie_attributes
+ if extra then
+ extra = "; " .. table.concat(self.app.cookie_attributes, "; ")
+ end
+ for k, v in pairs(self.cookies) do
+ local cookie = tostring(url.escape(k)) .. "=" .. tostring(url.escape(v)) .. "; Path=/; HttpOnly"
+ if extra then
+ cookie = cookie .. extra
+ end
+ self.res:add_header("Set-cookie", cookie)
+ end
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ self.cookies = auto_table(function()
+ return parse_cookie_string(self.req.headers.cookie)
+ end)
+ self.session = session.lazy_session(self)
+ end,
+ __base = _base_0,
+ __name = "Request"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ Request = _class_0
+end
+local Application
+do
+ local _base_0 = {
+ Request = Request,
+ layout = require("lapis.views.layout"),
+ error_page = require("lapis.views.error"),
+ views_prefix = "views",
+ enable = function(self, feature)
+ local fn = require("lapis.features." .. tostring(feature))
+ return fn(self)
+ end,
+ match = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ local key
+ if route_name then
+ key = {
+ [route_name] = path
+ }
+ else
+ key = path
+ end
+ self[key] = handler
+ self.router = nil
+ return handler
+ end,
+ build_router = function(self)
+ self.router = Router()
+ self.router.default_route = function(self)
+ return false
+ end
+ local add_route
+ add_route = function(path, handler)
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ return self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ local add_routes
+ add_routes = function(cls)
+ for path, handler in pairs(cls.__base) do
+ add_route(path, handler)
+ end
+ for path, handler in pairs(self) do
+ add_route(path, handler)
+ end
+ do
+ local parent = cls.__parent
+ if parent then
+ return add_routes(parent)
+ end
+ end
+ end
+ return add_routes(self.__class)
+ end,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(r.req.params_get, "GET")
+ _with_0:add_params(r.req.params_post, "POST")
+ _with_0:add_params(params, "url_params")
+ if self.before_filters then
+ local _list_0 = self.before_filters
+ for _index_0 = 1, #_list_0 do
+ local filter = _list_0[_index_0]
+ if run_before_filter(filter, r) then
+ return r
+ end
+ end
+ end
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local err, trace, r
+ local success = xpcall((function()
+ r = self.Request(self, req, res)
+ if not (self.router:resolve(req.parsed_url.path, r)) then
+ local handler = self:wrap_handler(self.default_route)
+ handler({ }, nil, "default_route", r)
+ end
+ r:render()
+ return logger.request(r)
+ end), function(_err)
+ err = _err
+ trace = debug.traceback("", 2)
+ end)
+ if not (success) then
+ self.handle_error(r, err, trace)
+ end
+ return res
+ end,
+ serve = function(self) end,
+ default_route = function(self)
+ if self.req.parsed_url.path:match("./$") then
+ local stripped = self.req.parsed_url.path:match("^(.+)/+$")
+ return {
+ redirect_to = self:build_url(stripped, {
+ query = self.req.parsed_url.query
+ }),
+ status = 301
+ }
+ else
+ return self.app.handle_404(self)
+ end
+ end,
+ handle_404 = function(self)
+ return error("Failed to find route: " .. tostring(self.req.cmd_url))
+ end,
+ handle_error = function(self, err, trace, error_page)
+ if error_page == nil then
+ error_page = self.app.error_page
+ end
+ local r = self.app.Request(self, self.req, self.res)
+ r:write({
+ status = 500,
+ layout = false,
+ content_type = "text/html",
+ error_page({
+ status = 500,
+ err = err,
+ trace = trace
+ })
+ })
+ r:render()
+ logger.request(r)
+ return r
+ end
+ }
+ _base_0.__index = _base_0
+ local _class_0 = setmetatable({
+ __init = function(self)
+ return self:build_router()
+ end,
+ __base = _base_0,
+ __name = "Application"
+ }, {
+ __index = _base_0,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ local self = _class_0
+ self.find_action = function(self, name)
+ self._named_route_cache = self._named_route_cache or { }
+ local route = self._named_route_cache[name]
+ if not (route) then
+ for app_route in pairs(self.__base) do
+ if type(app_route) == "table" then
+ local app_route_name = next(app_route)
+ self._named_route_cache[app_route_name] = app_route
+ if app_route_name == name then
+ route = app_route
+ end
+ end
+ end
+ end
+ return route and self[route], route
+ end
+ local _list_0 = {
+ "get",
+ "post",
+ "delete",
+ "put"
+ }
+ for _index_0 = 1, #_list_0 do
+ local meth = _list_0[_index_0]
+ local upper_meth = meth:upper()
+ self.__base[meth] = function(self, route_name, path, handler)
+ if handler == nil then
+ handler = path
+ path = route_name
+ route_name = nil
+ end
+ self.responders = self.responders or { }
+ local existing = self.responders[route_name or path]
+ local tbl = {
+ [upper_meth] = handler
+ }
+ if existing then
+ setmetatable(tbl, {
+ __index = function(self, key)
+ if key:match("%u") then
+ return existing
+ end
+ end
+ })
+ end
+ local responder = respond_to(tbl)
+ self.responders[route_name or path] = responder
+ return self:match(route_name, path, responder)
+ end
+ end
+ self.before_filter = function(self, fn)
+ self.__base.before_filters = self.__base.before_filters or { }
+ return table.insert(self.before_filters, fn)
+ end
+ self.include = function(self, other_app, opts, into)
+ if into == nil then
+ into = self.__base
+ end
+ if type(other_app) == "string" then
+ other_app = require(other_app)
+ end
+ local path_prefix = opts and opts.path or other_app.path
+ local name_prefix = opts and opts.name or other_app.name
+ for path, action in pairs(other_app.__base) do
+ local _continue_0 = false
+ repeat
+ local t = type(path)
+ if t == "table" then
+ if path_prefix then
+ local name = next(path)
+ path[name] = path_prefix .. path[name]
+ end
+ if name_prefix then
+ local name = next(path)
+ path[name_prefix .. name] = path[name]
+ path[name] = nil
+ end
+ elseif t == "string" and path:match("^/") then
+ if path_prefix then
+ path = path_prefix .. path
+ end
+ else
+ _continue_0 = true
+ break
+ end
+ do
+ local before_filters = other_app.before_filters
+ if before_filters then
+ local fn = action
+ action = function(r)
+ for _index_0 = 1, #before_filters do
+ local filter = before_filters[_index_0]
+ if run_before_filter(filter, r) then
+ return
+ end
+ end
+ return fn(r)
+ end
+ end
+ end
+ into[path] = action
+ _continue_0 = true
+ until true
+ if not _continue_0 then
+ break
+ end
+ end
+ end
+ Application = _class_0
+end
+do
+ local default_head
+ default_head = function()
+ return {
+ layout = false
+ }
+ end
+ respond_to = function(tbl)
+ if not (tbl.HEAD) then
+ tbl.HEAD = default_head
+ end
+ local out
+ out = function(self)
+ local fn = tbl[self.req.cmd_mth]
+ if fn then
+ do
+ local before = tbl.before
+ if before then
+ if run_before_filter(before, self) then
+ return
+ end
+ end
+ end
+ return fn(self)
+ else
+ return error("don't know how to respond to " .. tostring(self.req.cmd_mth))
+ end
+ end
+ do
+ local error_response = tbl.on_error
+ if error_response then
+ out = capture_errors(out, error_response)
+ end
+ end
+ return out, tbl
+ end
+end
+local default_error_response
+default_error_response = function()
+ return {
+ render = true
+ }
+end
+capture_errors = function(fn, error_response)
+ if error_response == nil then
+ error_response = default_error_response
+ end
+ if type(fn) == "table" then
+ error_response = fn.on_error or error_response
+ fn = fn[1]
+ end
+ return function(self, ...)
+ local co = coroutine.create(fn)
+ local out = {
+ coroutine.resume(co, self)
+ }
+ if not (out[1]) then
+ error(debug.traceback(co, out[2]))
+ end
+ if coroutine.status(co) == "suspended" then
+ if out[2] == "error" then
+ self.errors = out[3]
+ return error_response(self)
+ else
+ return error("Unknown yield")
+ end
+ else
+ return unpack(out, 2)
+ end
+ end
+end
+capture_errors_json = function(fn)
+ return capture_errors(fn, function(self)
+ return {
+ json = {
+ errors = self.errors
+ }
+ }
+ end)
+end
+local yield_error
+yield_error = function(msg)
+ return coroutine.yield("error", {
+ msg
+ })
+end
+local assert_error
+assert_error = function(thing, msg, ...)
+ if not (thing) then
+ yield_error(msg)
+ end
+ return thing, msg, ...
+end
+local json_params
+json_params = function(fn)
+ return function(self, ...)
+ do
+ local content_type = self.req.headers["content-type"]
+ if content_type then
+ if string.find(content_type:lower(), "application/json", nil, true) then
+ local obj
+ pcall(function()
+ local err
+ obj, err = json.decode(ngx.req.get_body_data())
+ end)
+ if obj then
+ self:add_params(obj, "json")
+ end
+ end
+ end
+ end
+ return fn(self, ...)
+ end
+end
+return {
+ Request = Request,
+ Application = Application,
+ respond_to = respond_to,
+ capture_errors = capture_errors,
+ capture_errors_json = capture_errors_json,
+ json_params = json_params,
+ assert_error = assert_error,
+ yield_error = yield_error
+}
diff --git a/examples/LUA_project/application.lua.90 b/examples/LUA_project/application.lua.90
new file mode 100644
--- /dev/null
+++ b/examples/LUA_project/application.lua.90
@@ -0,0 +1,209 @@
+local logger = require("lapis.logging")
+local Router
+do
+ local _table_0 = require("lapis.router")
+ Router = _table_0.Router
+end
+local html_writer
+do
+ local _table_0 = require("lapis.html")
+ html_writer = _table_0.html_writer
+end
+local set_and_truthy
+set_and_truthy = function(val, default)
+ if default == nil then
+ default = true
+ end
+ if val == nil then
+ return default
+ end
+ return val
+end
+local Request
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ add_params = function(self, params, name)
+ self[name] = params
+ for k, v in pairs(params) do
+ self.params[k] = v
+ end
+ end,
+ render = function(self)
+ if not self.res.headers["Content-type"] then
+ self.res.headers["Content-type"] = "text/html"
+ end
+ if self.app.layout and set_and_truthy(self.options.layout, true) then
+ local inner = self.buffer
+ self.buffer = { }
+ local layout = self.app.layout({
+ inner = function()
+ return raw(inner)
+ end
+ })
+ layout:render(self.buffer)
+ end
+ if next(self.buffer) then
+ local content = table.concat(self.buffer)
+ if self.res.content then
+ self.res.content = self.res.content .. content
+ else
+ self.res.content = content
+ end
+ end
+ end,
+ html = function(self, fn)
+ return html_writer(fn)
+ end,
+ url_for = function(self, ...)
+ return self.app.router:url_for(...)
+ end,
+ write = function(self, thing)
+ local t = type(thing)
+ if t == "table" then
+ local mt = getmetatable(thing)
+ if mt and mt.__call then
+ t = "function"
+ end
+ end
+ local _exp_0 = t
+ if "string" == _exp_0 then
+ return table.insert(self.buffer, thing)
+ elseif "table" == _exp_0 then
+ for k, v in pairs(thing) do
+ if type(k) == "string" then
+ self.options[k] = v
+ else
+ self:write(v)
+ end
+ end
+ elseif "function" == _exp_0 then
+ return self:write(thing(self.buffer))
+ elseif "nil" == _exp_0 then
+ return nil
+ else
+ return error("Don't know how to write:", tostring(thing))
+ end
+ end,
+ _debug = function(self)
+ self.buffer = {
+ "",
+ "req:",
+ "",
+ moon.dump(self.req),
+ "
",
+ "res:",
+ "",
+ moon.dump(self.res),
+ "
",
+ ""
+ }
+ end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self, app, req, res)
+ self.app, self.req, self.res = app, req, res
+ self.buffer = { }
+ self.params = { }
+ self.options = { }
+ end,
+ __base = _base_0,
+ __name = "Request",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Request = _class_0
+end
+local Application
+do
+ local _parent_0 = nil
+ local _base_0 = {
+ layout = require("lapis.layout").Default,
+ wrap_handler = function(self, handler)
+ return function(params, path, name, r)
+ do
+ local _with_0 = r
+ _with_0.route_name = name
+ _with_0:add_params(params, "url_params")
+ _with_0:write(handler(r))
+ return _with_0
+ end
+ end
+ end,
+ dispatch = function(self, req, res)
+ local r = Request(self, req, res)
+ self.router:resolve(req.parsed_url.path, r)
+ r:render()
+ logger.request(r)
+ return res
+ end,
+ serve = function(self) end
+ }
+ _base_0.__index = _base_0
+ if _parent_0 then
+ setmetatable(_base_0, _parent_0.__base)
+ end
+ local _class_0 = setmetatable({
+ __init = function(self)
+ self.router = Router()
+ do
+ local _with_0 = require("lapis.server")
+ self.__class.__base["/static/*"] = _with_0.make_static_handler("static")
+ self.__class.__base["/favicon.ico"] = _with_0.serve_from_static()
+ end
+ for path, handler in pairs(self.__class.__base) do
+ local t = type(path)
+ if t == "table" or t == "string" and path:match("^/") then
+ self.router:add_route(path, self:wrap_handler(handler))
+ end
+ end
+ end,
+ __base = _base_0,
+ __name = "Application",
+ __parent = _parent_0
+ }, {
+ __index = function(cls, name)
+ local val = rawget(_base_0, name)
+ if val == nil and _parent_0 then
+ return _parent_0[name]
+ else
+ return val
+ end
+ end,
+ __call = function(cls, ...)
+ local _self_0 = setmetatable({}, _base_0)
+ cls.__init(_self_0, ...)
+ return _self_0
+ end
+ })
+ _base_0.__class = _class_0
+ if _parent_0 and _parent_0.__inherited then
+ _parent_0.__inherited(_parent_0, _class_0)
+ end
+ Application = _class_0
+end
+return {
+ Request = Request,
+ Application = Application
+}
diff --git a/examples/Lang.lhs b/examples/Lang.lhs
--- a/examples/Lang.lhs
+++ b/examples/Lang.lhs
@@ -1,368 +1,368 @@
-Source: http://www.haskell.org/haskellwiki/Parsing_a_simple_imperative_language
-
-This tutorial will present how to parse a subset of a simple imperative
-programming language called WHILE (introduced in a book
-"Principles of Program Analysis" by Nielson, Nielson and Hankin). It includes
-only a few statements and basic boolean/arithmetic expressions, which makes it
-a nice material for a tutorial.
-
-== Imports ==
-
-First let's specify the name of the module:
-
-
-
-> module Lang where
-
-
-
-And then import the necessary libraries:
-
-
-
-> import System.IO
-> import Control.Monad
-> import Text.ParserCombinators.Parsec
-> import Text.ParserCombinators.Parsec.Expr
-> import Text.ParserCombinators.Parsec.Language
-> import qualified Text.ParserCombinators.Parsec.Token as Token
-
-
-
-== The language ==
-
-The grammar for expressions is defined as follows:
-
-
-
-''a'' ::= ''x'' | ''n'' | - ''a'' | ''a'' ''opa'' ''a''
-
-''b'' ::= true | false | not ''b'' | ''b'' ''opb'' ''b'' | ''a'' ''opr'' ''a''
-
-''opa'' ::= + | - | * | /
-
-''opb'' ::= and | or
-
-''opr'' ::= > | <
-
-
-
-Note that we have three groups of operators - arithmetic, booloan and
-relational ones.
-
-And now the definition of statements:
-
-
-
-''S'' ::= x := ''a'' | skip | ''S1''; ''S2'' | ''( S )'' | if ''b'' then ''S1'' else ''S2'' | while ''b'' do ''S''
-
-
-
-We probably want to parse that into some internal representation of the
-language (abstract syntax tree). Therefore we need to define the data
-structures for the expressions and statements.
-
-== Data structures ==
-
-We need to take care of boolean and arithmetic expressions and the
-appropriate operators. First let's look at the boolean expressions:
-
-
-
-> data BExpr = BConst Bool
-> | Not BExpr
-> | And BExpr BExpr
-> | Greater AExpr AExpr
-> deriving (Show, Eq)
-
-
-
-Now we define the types for arithmetic expressions:
-
-
-
-> data AExpr = Var String
-> | Const Integer
-> | Neg AExpr
-> | Add AExpr AExpr
-> deriving (Show, Eq)
-
-
-
-Finally let's take care of the statements:
-
-
-
-> data Stmt = Seq [Stmt]
-> | Assign String AExpr
-> | If BExpr Stmt Stmt
-> | While BExpr Stmt
-> | Skip
-> deriving (Show, Eq)
-
-
-
-== Lexer ==
-
-Having all the data structures we can go on with writing the code to do actual
-parsing. First of all we create the language definition using Haskell's record
-syntax and the constructor emptyDef (from
-Text.ParserCombinators.Parsec.Language):
-
-
-
-> languageDef =
-> emptyDef { Token.commentStart = "/*"
-> , Token.commentEnd = "*/"
-> , Token.commentLine = "//"
-> , Token.identStart = letter
-> , Token.identLetter = alphaNum
-> , Token.reservedNames = [ "if"
-> , "then"
-> , "else"
-> , "while"
-> , "do"
-> , "skip"
-> , "true"
-> , "false"
-> , "not"
-> , "and"
-> , "or"
-> ]
-> , Token.reservedOpNames = ["+", "-", "*", "/", ":="
-> , "<", ">", "and", "or", "not"
-> ]
-> }
-
-
-
-This creates a language definition that accepts the C-style comments, requires
-that the identifiers start with a letter, and end with alphanumeric
-characters. Moreover there is a number of reserved names, that cannot be used
-by the identifiers.
-
-Having the above definition we can create a lexer:
-
-
-
-> lexer = Token.makeTokenParser languageDef
-
-
-
-lexer contains a number of lexical parsers, that we can us to parse
-identifiers, reserved words/operations, etc. Now we can select/extract them in
-the following way:
-
-
-
-> identifier = Token.identifier lexer -- parses an identifier
-> reserved = Token.reserved lexer -- parses a reserved name
-> reservedOp = Token.reservedOp lexer -- parses an operator
-> parens = Token.parens lexer -- parses surrounding parenthesis:
-> -- parens p
-> -- takes care of the parenthesis and
-> -- uses p to parse what's inside them
-> integer = Token.integer lexer -- parses an integer
-> semi = Token.semi lexer -- parses a semicolon
-> whiteSpace = Token.whiteSpace lexer -- parses whitespace
-
-
-
-This isn't really necessary, but should make the code much more readable (also
-this is the reason why we used the qualified import of
-Text.ParserCombinators.Parsec.Token). Now we can use them to
-parse the source code at the token level. One of the nice features of these
-parsers is that they take care of all whitespace after the tokens.
-
-== Main parser ==
-
-As already mentioned a program in this language is simply a statement, so the
-main parser should basically only parse a statement. But remember to take care of
-initial whitespace - our parsers only get rid of whitespace after the tokens!
-
-
-
-> whileParser :: Parser Stmt
-> whileParser = whiteSpace >> statement
-
-
-
-Now because any statement might be actually a sequence of statements separated
-by semicolon, we use sepBy1 to parse at least one statement. The
-result is a list of statements. We also allow grouping statements by the
-parenthesis, which is useful, for instance, in the while loop.
-
-
-
-> statement :: Parser Stmt
-> statement = parens statement
-> <|> sequenceOfStmt
-
-> sequenceOfStmt =
-> do list <- (sepBy1 statement' semi)
-> -- If there's only one statement return it without using Seq.
-> return $ if length list == 1 then head list else Seq list
-
-
-
-Now a single statement is quite simple, it's either an if conditional, a while
-loop, an assignment or simply a skip statement. We use <|> to
-express choice. So a <|> b will first try parser a
-and if it fails (but without actually consuming any input) then parser
-b will be used. Note: this means that the order is important.
-
-
-
-> statement' :: Parser Stmt
-> statement' = ifStmt
-> <|> whileStmt
-> <|> skipStmt
-> <|> assignStmt
-
-
-
-If you have a parser that might fail after consuming some input, and you still
-want to try the next parser, you should look into try combinator.
-For instance try p <|> q will try parsing with p and
-if it fails, even after consuming the input, the q parser will be
-used as if nothing has been consumed by p.
-
-Now let's define the parsers for all the possible statements. This is quite
-straightforward as we just use the parsers from the lexer and then use all the
-necessary information to create appropriate data structures.
-
-
-
-> ifStmt :: Parser Stmt
-> ifStmt =
-> do reserved "if"
-> cond <- bExpression
-> reserved "then"
-> stmt1 <- statement
-> reserved "else"
-> stmt2 <- statement
-> return $ If cond stmt1 stmt2
-
-> whileStmt :: Parser Stmt
-> whileStmt =
-> do reserved "while"
-> cond <- bExpression
-> reserved "do"
-> stmt <- statement
-> return $ While cond stmt
-
-> assignStmt :: Parser Stmt
-> assignStmt =
-> do var <- identifier
-> reservedOp ":="
-> expr <- aExpression
-> return $ Assign var expr
-
-> skipStmt :: Parser Stmt
-> skipStmt = reserved "skip" >> return Skip
-
-
-
-== Expressions ==
-
-What's left is to parse the expressions. Fortunately Parsec provides a very
-easy way to do that. Let's define the arithmetic and boolean expressions:
-
-
-
-> aExpression :: Parser AExpr
-> aExpression = buildExpressionParser aOperators aTerm
-
-> bExpression :: Parser BExpr
-> bExpression = buildExpressionParser bOperators bTerm
-
-
-
-Now we have to define the lists with operator precedence, associativity and
-what constructors to use in each case.
-
-
-
-> aOperators = [ [Prefix (reservedOp "-" >> return (Neg )) ]
-> , [Infix (reservedOp "+" >> return (Add )) AssocLeft]
-> ]
-
-> bOperators = [ [Prefix (reservedOp "not" >> return (Not )) ]
-> , [Infix (reservedOp "and" >> return (And )) AssocLeft]
-> ]
-
-
-
-In case of Prefix operators it is enough to specify which one should be parsed
-and what is the associated data constructor. Infix operators are defined
-similarly, but it's necessary to add information about associativity. Note
-that the operator precedence depends only on the order of the elements in the
-list.
-
-Finally we have to define the terms. In case of arithmetic expressions, it is
-quite simple:
-
-
-
-> aTerm = parens aExpression
-> <|> liftM Var identifier
-> <|> liftM Const integer
-
-
-
-However, the term in a boolean expression is a bit more tricky. In this case,
-a term can also be an expression with relational operator consisting of
-arithmetic expressions.
-
-
-
-> bTerm = parens bExpression
-> <|> (reserved "true" >> return (BConst True ))
-> <|> (reserved "false" >> return (BConst False))
-> <|> rExpression
-
-
-
-Therefore we have to define a parser for relational expressions:
-
-
-
-> rExpression =
-> do a1 <- aExpression
-> op <- reservedOp ">"
-> a2 <- aExpression
-> return $ Greater a1 a2
-
-
-
-And that's it. We have a quite simple parser able to parse a few statements and
-arithmetic/boolean expressions.
-
-== Notes ==
-
-If you want to experiment with the parser inside ghci, these functions might be
-handy:
-
-
-
-> parseString :: String -> Stmt
-> parseString str =
-> case parse whileParser "" str of
-> Left e -> error $ show e
-> Right r -> r
-
-> parseFile :: String -> IO Stmt
-> parseFile file =
-> do program <- readFile file
-> case parse whileParser "" program of
-> Left e -> print e >> fail "parse error"
-> Right r -> return r
-
-
-
-Now you can simply load the module in ghci and then do
-ast <- parseFile "" to parse a file and get the
-result if parsing was successful. If you already have a string with
-the program, you can use parseString.
-
+Source: http://www.haskell.org/haskellwiki/Parsing_a_simple_imperative_language
+
+This tutorial will present how to parse a subset of a simple imperative
+programming language called WHILE (introduced in a book
+"Principles of Program Analysis" by Nielson, Nielson and Hankin). It includes
+only a few statements and basic boolean/arithmetic expressions, which makes it
+a nice material for a tutorial.
+
+== Imports ==
+
+First let's specify the name of the module:
+
+
+
+> module Lang where
+
+
+
+And then import the necessary libraries:
+
+
+
+> import System.IO
+> import Control.Monad
+> import Text.ParserCombinators.Parsec
+> import Text.ParserCombinators.Parsec.Expr
+> import Text.ParserCombinators.Parsec.Language
+> import qualified Text.ParserCombinators.Parsec.Token as Token
+
+
+
+== The language ==
+
+The grammar for expressions is defined as follows:
+
+
+
+''a'' ::= ''x'' | ''n'' | - ''a'' | ''a'' ''opa'' ''a''
+
+''b'' ::= true | false | not ''b'' | ''b'' ''opb'' ''b'' | ''a'' ''opr'' ''a''
+
+''opa'' ::= + | - | * | /
+
+''opb'' ::= and | or
+
+''opr'' ::= > | <
+
+
+
+Note that we have three groups of operators - arithmetic, booloan and
+relational ones.
+
+And now the definition of statements:
+
+
+
+''S'' ::= x := ''a'' | skip | ''S1''; ''S2'' | ''( S )'' | if ''b'' then ''S1'' else ''S2'' | while ''b'' do ''S''
+
+
+
+We probably want to parse that into some internal representation of the
+language (abstract syntax tree). Therefore we need to define the data
+structures for the expressions and statements.
+
+== Data structures ==
+
+We need to take care of boolean and arithmetic expressions and the
+appropriate operators. First let's look at the boolean expressions:
+
+
+
+> data BExpr = BConst Bool
+> | Not BExpr
+> | And BExpr BExpr
+> | Greater AExpr AExpr
+> deriving (Show, Eq)
+
+
+
+Now we define the types for arithmetic expressions:
+
+
+
+> data AExpr = Var String
+> | Const Integer
+> | Neg AExpr
+> | Add AExpr AExpr
+> deriving (Show, Eq)
+
+
+
+Finally let's take care of the statements:
+
+
+
+> data Stmt = Seq [Stmt]
+> | Assign String AExpr
+> | If BExpr Stmt Stmt
+> | While BExpr Stmt
+> | Skip
+> deriving (Show, Eq)
+
+
+
+== Lexer ==
+
+Having all the data structures we can go on with writing the code to do actual
+parsing. First of all we create the language definition using Haskell's record
+syntax and the constructor emptyDef (from
+Text.ParserCombinators.Parsec.Language):
+
+
+
+> languageDef =
+> emptyDef { Token.commentStart = "/*"
+> , Token.commentEnd = "*/"
+> , Token.commentLine = "//"
+> , Token.identStart = letter
+> , Token.identLetter = alphaNum
+> , Token.reservedNames = [ "if"
+> , "then"
+> , "else"
+> , "while"
+> , "do"
+> , "skip"
+> , "true"
+> , "false"
+> , "not"
+> , "and"
+> , "or"
+> ]
+> , Token.reservedOpNames = ["+", "-", "*", "/", ":="
+> , "<", ">", "and", "or", "not"
+> ]
+> }
+
+
+
+This creates a language definition that accepts the C-style comments, requires
+that the identifiers start with a letter, and end with alphanumeric
+characters. Moreover there is a number of reserved names, that cannot be used
+by the identifiers.
+
+Having the above definition we can create a lexer:
+
+
+
+> lexer = Token.makeTokenParser languageDef
+
+
+
+lexer contains a number of lexical parsers, that we can us to parse
+identifiers, reserved words/operations, etc. Now we can select/extract them in
+the following way:
+
+
+
+> identifier = Token.identifier lexer -- parses an identifier
+> reserved = Token.reserved lexer -- parses a reserved name
+> reservedOp = Token.reservedOp lexer -- parses an operator
+> parens = Token.parens lexer -- parses surrounding parenthesis:
+> -- parens p
+> -- takes care of the parenthesis and
+> -- uses p to parse what's inside them
+> integer = Token.integer lexer -- parses an integer
+> semi = Token.semi lexer -- parses a semicolon
+> whiteSpace = Token.whiteSpace lexer -- parses whitespace
+
+
+
+This isn't really necessary, but should make the code much more readable (also
+this is the reason why we used the qualified import of
+Text.ParserCombinators.Parsec.Token). Now we can use them to
+parse the source code at the token level. One of the nice features of these
+parsers is that they take care of all whitespace after the tokens.
+
+== Main parser ==
+
+As already mentioned a program in this language is simply a statement, so the
+main parser should basically only parse a statement. But remember to take care of
+initial whitespace - our parsers only get rid of whitespace after the tokens!
+
+
+
+> whileParser :: Parser Stmt
+> whileParser = whiteSpace >> statement
+
+
+
+Now because any statement might be actually a sequence of statements separated
+by semicolon, we use sepBy1 to parse at least one statement. The
+result is a list of statements. We also allow grouping statements by the
+parenthesis, which is useful, for instance, in the while loop.
+
+
+
+> statement :: Parser Stmt
+> statement = parens statement
+> <|> sequenceOfStmt
+
+> sequenceOfStmt =
+> do list <- (sepBy1 statement' semi)
+> -- If there's only one statement return it without using Seq.
+> return $ if length list == 1 then head list else Seq list
+
+
+
+Now a single statement is quite simple, it's either an if conditional, a while
+loop, an assignment or simply a skip statement. We use <|> to
+express choice. So a <|> b will first try parser a
+and if it fails (but without actually consuming any input) then parser
+b will be used. Note: this means that the order is important.
+
+
+
+> statement' :: Parser Stmt
+> statement' = ifStmt
+> <|> whileStmt
+> <|> skipStmt
+> <|> assignStmt
+
+
+
+If you have a parser that might fail after consuming some input, and you still
+want to try the next parser, you should look into try combinator.
+For instance try p <|> q will try parsing with p and
+if it fails, even after consuming the input, the q parser will be
+used as if nothing has been consumed by p.
+
+Now let's define the parsers for all the possible statements. This is quite
+straightforward as we just use the parsers from the lexer and then use all the
+necessary information to create appropriate data structures.
+
+
+
+> ifStmt :: Parser Stmt
+> ifStmt =
+> do reserved "if"
+> cond <- bExpression
+> reserved "then"
+> stmt1 <- statement
+> reserved "else"
+> stmt2 <- statement
+> return $ If cond stmt1 stmt2
+
+> whileStmt :: Parser Stmt
+> whileStmt =
+> do reserved "while"
+> cond <- bExpression
+> reserved "do"
+> stmt <- statement
+> return $ While cond stmt
+
+> assignStmt :: Parser Stmt
+> assignStmt =
+> do var <- identifier
+> reservedOp ":="
+> expr <- aExpression
+> return $ Assign var expr
+
+> skipStmt :: Parser Stmt
+> skipStmt = reserved "skip" >> return Skip
+
+
+
+== Expressions ==
+
+What's left is to parse the expressions. Fortunately Parsec provides a very
+easy way to do that. Let's define the arithmetic and boolean expressions:
+
+
+
+> aExpression :: Parser AExpr
+> aExpression = buildExpressionParser aOperators aTerm
+
+> bExpression :: Parser BExpr
+> bExpression = buildExpressionParser bOperators bTerm
+
+
+
+Now we have to define the lists with operator precedence, associativity and
+what constructors to use in each case.
+
+
+
+> aOperators = [ [Prefix (reservedOp "-" >> return (Neg )) ]
+> , [Infix (reservedOp "+" >> return (Add )) AssocLeft]
+> ]
+
+> bOperators = [ [Prefix (reservedOp "not" >> return (Not )) ]
+> , [Infix (reservedOp "and" >> return (And )) AssocLeft]
+> ]
+
+
+
+In case of Prefix operators it is enough to specify which one should be parsed
+and what is the associated data constructor. Infix operators are defined
+similarly, but it's necessary to add information about associativity. Note
+that the operator precedence depends only on the order of the elements in the
+list.
+
+Finally we have to define the terms. In case of arithmetic expressions, it is
+quite simple:
+
+
+
+> aTerm = parens aExpression
+> <|> liftM Var identifier
+> <|> liftM Const integer
+
+
+
+However, the term in a boolean expression is a bit more tricky. In this case,
+a term can also be an expression with relational operator consisting of
+arithmetic expressions.
+
+
+
+> bTerm = parens bExpression
+> <|> (reserved "true" >> return (BConst True ))
+> <|> (reserved "false" >> return (BConst False))
+> <|> rExpression
+
+
+
+Therefore we have to define a parser for relational expressions:
+
+
+
+> rExpression =
+> do a1 <- aExpression
+> op <- reservedOp ">"
+> a2 <- aExpression
+> return $ Greater a1 a2
+
+
+
+And that's it. We have a quite simple parser able to parse a few statements and
+arithmetic/boolean expressions.
+
+== Notes ==
+
+If you want to experiment with the parser inside ghci, these functions might be
+handy:
+
+
+
+> parseString :: String -> Stmt
+> parseString str =
+> case parse whileParser "" str of
+> Left e -> error $ show e
+> Right r -> r
+
+> parseFile :: String -> IO Stmt
+> parseFile file =
+> do program <- readFile file
+> case parse whileParser "" program of
+> Left e -> print e >> fail "parse error"
+> Right r -> return r
+
+
+
+Now you can simply load the module in ghci and then do
+ast <- parseFile "" to parse a file and get the
+result if parsing was successful. If you already have a string with
+the program, you can use parseString.
+
[[Category:How to]]
diff --git a/examples/MultiRec.hs b/examples/MultiRec.hs
--- a/examples/MultiRec.hs
+++ b/examples/MultiRec.hs
@@ -1,129 +1,120 @@
-{-# LANGUAGE GADTs #-}
-{-# LANGUAGE KindSignatures #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE TypeOperators #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-{-# LANGUAGE EmptyDataDecls #-}
-{-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DataKinds #-}
-{-# LANGUAGE PolyKinds #-}
-{-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE StandaloneDeriving #-}
-
-module MultiRec where
-
-import Datatypes
-import Generics.MultiRec.Any
-import Generics.MultiRec.Transformations.RewriteRules as RR
-import Generics.MultiRec.Transformations.ZipperState
-import Generics.MultiRec.Transformations.Explicit as Ex
-import Generics.MultiRec.Transformations.TH
-import Generics.MultiRec.Rewriting
-import Generics.MultiRec.Zipper
-
-import Generics.MultiRec hiding (show)
-import Generics.MultiRec.TH
-
-import Control.Monad ( (>=>) )
-
---------------------------------------------------------------------------------
--- Multirec representations for the example datatypes
---------------------------------------------------------------------------------
-data TreeAST :: * -> * where
- Tree :: TreeAST Tree
-
-$(deriveAll ''TreeAST)
-
-data ListAST :: * -> * -> * where
- List :: ListAST a (List a)
-
-$(deriveAll ''ListAST)
-
-data XAST :: * -> * where
- X :: XAST X
-
-$(deriveAll ''XAST)
-
-data ZigZag :: * -> * where
- Zig :: ZigZag Zig
- Zag :: ZigZag Zag
-
-$(deriveAll ''ZigZag)
-
-data AST i where
- BExpr :: AST BExpr
- AExpr :: AST AExpr
- Stmt :: AST Stmt
-
-$(deriveAll ''AST)
-
---------------------------------------------------------------------------------
--- Rewrite rules solution
---------------------------------------------------------------------------------
-instance RR.Transform AST
-
--- Now we can simply do the above transformation in a nice way!
-rr = RR.apply [insert (down >=> right >=> right) change] Stmt prog1 == Just prog2
- where
- change = rule $ \e a b -> If e a b :~> If (Not e) b a
-
--- The same one in two steps, which illustrates that rules can be of different
--- types
-rr2 = RR.apply [ insert (down >=> right >=> right) swap
- , insert down addNot] Stmt prog1 == Just prog2
- where
- swap :: Rule AST Stmt
- swap = rule $ \e a b -> If e a b :~> If e b a
- addNot :: Rule AST BExpr
- addNot = rule $ \e -> e :~> Not e
-
---------------------------------------------------------------------------------
--- Zipper with state
---------------------------------------------------------------------------------
-zs = navigate Stmt prog1 $ do
- downMonad >> rightMonad >> rightMonad
- -- Swap
- l <- downMonad >> rightMonad
- r <- rightMonad
- updateMonad (\p _ -> matchAny p l)
- leftMonad
- updateMonad (\p _ -> matchAny p r)
- -- Add the not
- leftMonad
- updateMonad (\p e -> case p of
- BExpr -> Just (Not e)
- _ -> Nothing)
-
---------------------------------------------------------------------------------
--- Explicit
---------------------------------------------------------------------------------
-instance Ex.Transform AST
-
--- Ordering index of AST as AExpr < BExpr < Stmt
-instance OrdI AST where
- indexI AExpr = 0
- indexI BExpr = 1
- indexI Stmt = 2
-
-$(deriveRefRep ''AST (postfix "EH"))
-deriving instance Show AExprEH
-deriving instance Show BExprEH
-deriving instance Show StmtEH
-
--- Show existentials
-instance Show (NiceInsert AST) where
- show (NiceInsert AExpr x l) = "NiceInsert AExpr " ++ show x ++ " (" ++ show l ++ ")"
- show (NiceInsert BExpr x l) = "NiceInsert BExpr " ++ show x ++ " (" ++ show l ++ ")"
- show (NiceInsert Stmt x l) = "NiceInsert Stmt " ++ show x ++ " (" ++ show l ++ ")"
-
--- Actual example
-{- This prints: (note the different reference types here)
- [ NiceInsert BExpr [2,0] (NotEH (RefBExpr [2,0]))
- , NiceInsert Stmt [2,1] (RefStmt [2,2])
- , NiceInsert Stmt [2,2] (RefStmt [2,1]) ]
--}
-expl1 = print $ toNiceTransformation $ diff Stmt prog1 prog2
-expl2 = print $ toNiceTransformation $ diff Stmt prog3 prog4
-expl3 = print $ toNiceTransformation $ diff Stmt prog5 prog6
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE KindSignatures #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+{-# LANGUAGE EmptyDataDecls #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE PolyKinds #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE StandaloneDeriving #-}
+{-# LANGUAGE PatternSynonyms #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE RankNTypes #-}
+
+module MultiRec where
+
+import Datatypes
+import Generics.MultiRec.Transformations.Main
+import Generics.MultiRec.Transformations.Path
+
+import Generics.MultiRec hiding ( show )
+import Generics.MultiRec.TH
+
+import Control.Monad ( (>=>) )
+
+--------------------------------------------------------------------------------
+-- Multirec representations for the example datatypes
+--------------------------------------------------------------------------------
+data TreeAST :: * -> * where
+ Tree :: TreeAST Tree
+
+$(deriveAll ''TreeAST)
+
+data ListAST :: * -> * -> * where
+ List :: ListAST a (List a)
+
+$(deriveAll ''ListAST)
+
+data XAST :: * -> * where
+ X :: XAST X
+
+$(deriveAll ''XAST)
+
+data ZigZag :: * -> * where
+ Zig :: ZigZag Zig
+ Zag :: ZigZag Zag
+
+$(deriveAll ''ZigZag)
+
+data AST i where
+ BExpr :: AST BExpr
+ AExpr :: AST AExpr
+ Stmt :: AST Stmt
+
+$(deriveAll ''AST)
+
+--------------------------------------------------------------------------------
+-- Examples
+--------------------------------------------------------------------------------
+
+type instance Ixs AST = '[ AExpr, BExpr, Stmt ]
+
+deriving instance Ord AExpr
+deriving instance Ord BExpr
+deriving instance Ord Stmt
+
+test1 :: Transformation AST Stmt
+test1 = diff Stmt prog1 prog2
+
+-- Constructor pattern synonyms
+pattern Ref' :: Path phi ix top -> HWithRef phi top ix
+pattern Ref' x = HIn (Ref x)
+
+pattern Const' :: forall top. Integer -> HWithRef AST top AExpr
+pattern Const' i = HIn (InR (R (L (Tag (R (L (C (K i))))))))
+
+pattern BConst' :: forall top. Bool -> HWithRef AST top BExpr
+pattern BConst' b = HIn (InR (L (Tag (L (C (K b))))))
+
+pattern And' :: forall top. HWithRef AST top BExpr -> HWithRef AST top BExpr
+ -> HWithRef AST top BExpr
+pattern And' b1 b2 = HIn (InR (L (Tag (R (R (L (C (I b1 :*: I b2))))))))
+
+pattern GT' :: forall top. HWithRef AST top AExpr -> HWithRef AST top AExpr
+ -> HWithRef AST top BExpr
+pattern GT' a1 a2 = HIn (InR (L (Tag (R (R (R (C (I a1 :*: I a2))))))))
+
+test2 :: HWithRef AST top BExpr
+test2 = BConst' True
+
+test3 :: HWithRef AST top BExpr
+test3 = And' test2 test2
+
+-- test6 :: HWithRef AST BExpr BExpr
+-- test6 = And' (GT' (Ref' test7) (Const' 2)) (Ref' test4)
+
+-- Path pattern synonyms
+pattern End = Empty
+pattern Not_0 p = Push BExpr (CL (CTag (CR (CL (CC CId))))) p
+
+pattern GT_0 :: Path AST top AExpr -> Path AST top BExpr
+pattern GT_0 p = Push AExpr (CL (CTag (CR (CR (CR (CC (C1 CId (I (K0 ()))))))))) p
+
+pattern Neg_0 :: Path AST top AExpr -> Path AST top AExpr
+pattern Neg_0 p = Push AExpr (CR (CL (CTag (CR (CR (CL (CC CId))))))) p
+
+test4 :: Path AST BExpr BExpr
+test4 = Not_0 (Not_0 End)
+
+test5 :: Path AST AExpr BExpr
+test5 = Not_0 (GT_0 End)
+
+test7 :: Path AST AExpr AExpr
+test7 = Neg_0 End
+
+--
+testPrgm = diff Stmt prog1 prog2
diff --git a/examples/Regular.hs b/examples/Regular.hs
--- a/examples/Regular.hs
+++ b/examples/Regular.hs
@@ -1,212 +1,118 @@
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE TypeOperators #-}
-{-# LANGUAGE StandaloneDeriving #-}
-{-# LANGUAGE EmptyDataDecls #-}
-module Regular where
-
-import Datatypes
-import Generics.Regular hiding (right)
-import Generics.Regular.Transformations.Explicit as Ex
-import Generics.Regular.Transformations.RewriteRules as RR
-import Generics.Regular.Zipper
-import Generics.Regular.Transformations.ZipperState
-import Generics.Regular.Transformations.TH
-
-import Control.Monad ( (>=>) )
-import Generics.Regular.Rewriting hiding (left, right)
-import Data.Maybe (fromJust)
-
---------------------------------------------------------------------------------
--- Regular representations for the example datatypes
---------------------------------------------------------------------------------
---Trees
-$(deriveAll ''Tree "PFTree")
-type instance PF Tree = PFTree
-
--- Lists
-$(deriveAll ''List "PFL")
-type instance PF (List a) = PFL a
-
--- Something more exotic
-$(deriveAll ''X "PFX")
-type instance PF X = PFX
-
--- Example for paper (do manual instance to avoid C's)
-type instance PF Expr = K String :+: K Integer :+: I :+: I :*: I
-
-instance Regular Expr where
- from (Var s) = L (K s)
- from (Const i) = R (L (K i))
- from (Neg e) = R (R (L (I e)))
- from (Add e1 e2) = R (R (R (I e1 :*: I e2)))
-
- to (L (K s)) = Var s
- to (R (L (K i))) = Const i
- to (R (R (L (I e)))) = Neg e
- to (R (R (R (I e1 :*: I e2)))) = Add e1 e2
-
-
---------------------------------------------------------------------------------
--- Examples for the paper
---------------------------------------------------------------------------------
--- Some example values
-expr1 :: Expr
-expr1 = Add (Const 1) (Var "a")
-
-expr2 :: Expr
-expr2 = Add (Const 1) (Neg (Var "a"))
-
-expr3 :: Expr
-expr3 = Add (Var "a") (Const 1)
-
-instance RR.Transform Expr
-instance Ex.Transform Expr
-
-instance Show (Fix (WithRef Expr)) where
- show (In (Ref p)) = "Ref " ++ show p
-
--- Insertion (expr1 => expr2)
-rewriteRulesIns :: Maybe Expr
-rewriteRulesIns = RR.apply [(down >=> right, rule1)] expr1
- where rule1 :: Rule Expr
- rule1 = rule $ \x -> x :~> Neg x
-
-zipperStateIns :: Maybe Expr
-zipperStateIns = navigate expr1 $ do
- downMonad >> rightMonad
- updateMonad Neg
-
-explicitIns :: Maybe Expr
-explicitIns = Ex.apply addNeg expr1
- where addNeg :: Ex.Transformation Expr
- addNeg = [ ([1], In . InR . R . R . L . I . In $ Ref [1]) ]
-
--- Deletion (expr2 => expr1)
-
-rewriteRulesDel :: Maybe Expr
-rewriteRulesDel = RR.apply [(down >=> right, rule2)] expr2
- where rule2 :: Rule Expr
- rule2 = rule $ \x -> Neg x :~> x
-
-zipperStateDel :: Maybe Expr
-zipperStateDel = navigate expr2 $ do
- r <- downMonad >> rightMonad >> downMonad
- upMonad
- updateMonad (const r)
-
-explicitDel :: Maybe Expr
-explicitDel = Ex.apply delNeg expr2
- where delNeg :: Ex.Transformation Expr
- delNeg = [ ([1], In (Ref [1,0])) ]
-
--- Swapping (expr1 => expr3)
-rewriteRulesSwap :: Maybe Expr
-rewriteRulesSwap = RR.apply [(return, rule3)] expr1
- where rule3 :: Rule Expr
- rule3 = rule $ \l r -> Add l r :~> Add r l
-
-zipperStateSwap :: Maybe Expr
-zipperStateSwap = navigate expr1 $ do
- l <- downMonad
- r <- rightMonad
- updateMonad (const l)
- leftMonad
- updateMonad (const r)
-
-explicitSwap :: Maybe Expr
-explicitSwap = Ex.apply swap' expr1
- where swap' :: Ex.Transformation Expr
- swap' = [ ([0], In $ Ref [1])
- , ([1], In $ Ref [0])]
-
--- Rotation
-rotate1 = Add (Var "a") (Add (Var "b") (Var "c"))
-rotate2 = Add (Add (Var "a") (Var "b")) (Var "c")
-rotate = diff rotate1 rotate2
-
---------------------------------------------------------------------------------
--- Other RewriteRules examples
---------------------------------------------------------------------------------
-instance RR.Transform Tree
-instance RR.Transform X
-
--- Test swapping two subtrees. Note the nice syntax!
-swap :: Rule Tree
-swap = rule $ \t1 t2 -> Bin t1 t2 :~> Bin t2 t1
-
-t1 = RR.apply [(return , swap)] exTree4
-t2 = RR.apply [(down , swap)] exTree4
-t3 = RR.apply [(down >=> right, swap)] exTree4
-t4 = RR.apply [(down >=> right, swap), (return, swap)] exTree4 -- == id
-
--- A tricky example
-ruleSwapC, ruleAddB :: Rule X
-ruleSwapC = rule $ \x y -> XC x y :~> XC y x
-ruleAddB = rule $ \x -> XA x :~> XA (XB x)
-
-t6 = RR.apply [(down >=> down >=> down, ruleSwapC)] exX1
-t7 = RR.apply [(down >=> down, ruleAddB)] (fromJust t6)
-t8 = RR.apply [(return, ruleAddB)] (fromJust t7)
-t9 = t8 == Just exX2 -- True
-
---------------------------------------------------------------------------------
--- Other ZipperState examples
---------------------------------------------------------------------------------
--- An example using a zipper with state
-t5 = navigate exTree4 $
- do downMonad >> downMonad
- saveMonad
- upMonad >> rightMonad >> downMonad >> rightMonad
- saveMonad
- x1 <- loadMonad
- updateMonad (const x1)
- upMonad >> leftMonad >> downMonad
- x2 <- loadMonad
- updateMonad (const x2)
-
---------------------------------------------------------------------------------
--- A nicer interface for Expr, could be generated using Template Haskell
---------------------------------------------------------------------------------
-data ExprEH
- = VarEH String
- | ConstEH Integer
- | NegEH ExprEH
- | AddEH ExprEH ExprEH
- | RefEH Path
- deriving Show
-
-instance HasRef Expr where
- type RefRep Expr = ExprEH
-
- toRef (Ref p) = RefEH p
- toRef (InR (L (K s))) = VarEH s
- toRef (InR (R (L (K i)))) = ConstEH i
- toRef (InR (R (R (L (I e))))) = NegEH e
- toRef (InR (R (R (R (I e1 :*: I e2))))) = AddEH e1 e2
-
- fromRef (RefEH p) = Ref p
- fromRef (VarEH s) = InR (L (K s))
- fromRef (ConstEH i) = InR (R (L (K i)))
- fromRef (NegEH e) = InR (R (R (L (I e))))
- fromRef (AddEH e1 e2) = InR (R (R (R (I e1 :*: I e2))))
-
-
-$(deriveRefRep ''Tree (postfix "EH"))
-deriving instance Show TreeEH
-
--- Test
-instance Ex.Transform Tree
-treeSwapNice :: Maybe Tree
-treeSwapNice = Ex.apply (fromNiceTransformation swap) exTree1
- where swap = [([0],RefTree [1]),([1],RefTree [0])]
-
-treeDiff :: Ex.NiceTransformation Tree
-treeDiff = toNiceTransformation $ Ex.diff exTree3 exTree5
-
-explicitInsNice :: Maybe Expr
-explicitInsNice = Ex.apply (fromNiceTransformation addNeg) expr1
- where addNeg :: NiceTransformation Expr
- addNeg = [ ([1], NegEH (RefEH [1])) ]
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE StandaloneDeriving #-}
+{-# LANGUAGE EmptyDataDecls #-}
+{-# LANGUAGE PatternSynonyms #-}
+
+module Regular where
+
+import Datatypes
+import Generics.Regular hiding (right)
+import Generics.Regular.Transformations.Main
+import Generics.Regular.Zipper
+
+import Control.Monad ( (>=>) )
+import Data.Maybe (fromJust)
+
+--------------------------------------------------------------------------------
+-- Regular representations for the example datatypes
+--------------------------------------------------------------------------------
+--Trees
+$(deriveAll ''Tree "PFTree")
+type instance PF Tree = PFTree
+
+-- Lists
+$(deriveAll ''List "PFL")
+type instance PF (List a) = PFL a
+
+-- Something more exotic
+$(deriveAll ''X "PFX")
+type instance PF X = PFX
+
+-- Example for paper
+$(deriveAll ''AExpr "PFExpr")
+type instance PF Expr = PFExpr
+
+deriving instance Ord AExpr
+
+-- Datatype patterns
+pattern Var' x = In (InR (L (C (K x))))
+pattern Const' x = In (InR (R (L (C (K x)))))
+pattern Neg' x = In (InR (R (R (L (C (I x))))))
+pattern Add' x y = In (InR (R (R (R (C (I x :*: I y))))))
+
+pattern Ref' x = In (Ref x)
+
+-- Path patterns
+pattern End = []
+pattern Neg_0 x = CR (CR (CL (CC CId))) : x
+pattern Add_0 x = CR (CR (CR (CC (C1 CId (I ()))))) : x
+pattern Add_1 x = CR (CR (CR (CC (C2 (I ()) CId)))) : x
+
+{-
+type instance PF Expr = K String :+: K Integer :+: I :+: I :*: I
+
+instance Regular Expr where
+ from (Var s) = L (K s)
+ from (Const i) = R (L (K i))
+ from (Neg e) = R (R (L (I e)))
+ from (Add e1 e2) = R (R (R (I e1 :*: I e2)))
+
+ to (L (K s)) = Var s
+ to (R (L (K i))) = Const i
+ to (R (R (L (I e)))) = Neg e
+ to (R (R (R (I e1 :*: I e2)))) = Add e1 e2
+-}
+
+--------------------------------------------------------------------------------
+-- Examples for the paper
+--------------------------------------------------------------------------------
+instance Transform Expr
+
+-- Some example values
+expr1 :: Expr
+expr1 = Add (Const 1) (Var "a")
+
+expr2 :: Expr
+expr2 = Add (Const 1) (Neg (Var "a"))
+
+expr3 :: Expr
+expr3 = Add (Var "a") (Const 1)
+
+explicitIns :: Maybe Expr
+explicitIns = apply addNeg expr1
+ where addNeg :: Transformation Expr
+ addNeg = diff expr1 expr2
+
+-- Testing the nicer notation for paths and expressions with references
+test1 :: Fix (WithRef Expr)
+test1 = Neg' (Ref' test2)
+
+test2 :: Path Expr
+test2 = Add_1 End
+
+test3 :: Transformation Expr
+test3 = [(test2, test1)]
+
+test4 :: Bool
+test4 = show test3 == show (diff expr1 expr2)
+
+-- Deletion (expr2 => expr1)
+explicitDel :: Maybe Expr
+explicitDel = apply delNeg expr2
+ where delNeg :: Transformation Expr
+ delNeg = diff expr2 expr1 --[ ([1], In (Ref [1,0])) ]
+
+-- Swapping (expr1 => expr3)
+explicitSwap :: Maybe Expr
+explicitSwap = apply swap' expr1
+ where swap' :: Transformation Expr
+ swap' = diff expr1 expr3 -- [ ([0], In $ Ref [1]), ([1], In $ Ref [0])]
+
+-- Rotation
+rotate1 = Add (Var "a") (Add (Var "b") (Var "c"))
+rotate2 = Add (Add (Var "a") (Var "b")) (Var "c")
+rotate = diff rotate1 rotate2
diff --git a/transformations.cabal b/transformations.cabal
--- a/transformations.cabal
+++ b/transformations.cabal
@@ -1,57 +1,144 @@
-name: transformations
-version: 0.1.1.0
-synopsis: Generic representation of tree transformations
-description:
- This library is based on ideas described in the paper:
- .
- * Jeroen Bransen and Jose Pedro Magalhaes.
- /Generic Representations of Tree Transformations/.
- WGP'13.
-
-
-license: GPL-3
-license-file: LICENSE
-author: Jeroen Bransen and Jose Pedro Magalhaes
-maintainer: generics@haskell.org
--- copyright:
-category: Language
-build-type: Simple
-cabal-version: >=1.8
-
-
-extra-source-files: examples/Datatypes.hs
- examples/Lang.lhs
- examples/Regular.hs
- examples/MultiRec.hs
-
-library
- exposed-modules:
- -- Regular part
- Generics.Regular.Zipper,
- Generics.Regular.Functions.GOrd,
- Generics.Regular.Transformations.Explicit,
- Generics.Regular.Transformations.TH,
- Generics.Regular.Transformations.RewriteRules,
- Generics.Regular.Transformations.ZipperState,
-
- -- MultiRec implementation
- Generics.MultiRec.Any,
- Generics.MultiRec.Ord,
- Generics.MultiRec.Transformations.ZipperState,
- Generics.MultiRec.Transformations.RewriteRules,
- Generics.MultiRec.Transformations.Explicit,
- Generics.MultiRec.Transformations.TH,
-
- -- Rewriting library for MultiRec
- Generics.MultiRec.HZip,
- Generics.MultiRec.LR,
- Generics.MultiRec.Rewriting,
- Generics.MultiRec.Rewriting.Machinery,
- Generics.MultiRec.Rewriting.Rules
-
- -- other-modules:
- build-depends: base >= 4 && < 5, mtl >= 2.1,
- regular >= 0.3, rewriting >= 0.2,
- multirec >= 0.7.3, zipper >= 0.4.2,
- parsec >= 3.1, containers >= 0.1,
- template-haskell >= 2.7
+name: transformations
+version: 0.2.0.0
+synopsis: Generic representation of tree transformations
+description:
+ This library is based on ideas described in the paper:
+ .
+ * Jeroen Bransen and Jose Pedro Magalhaes.
+ /Generic Representations of Tree Transformations/.
+
+
+license: GPL-3
+license-file: LICENSE
+author: Jeroen Bransen and Jose Pedro Magalhaes
+maintainer: generics@haskell.org
+-- copyright:
+category: Language
+build-type: Simple
+cabal-version: >=1.8
+
+extra-source-files: README
+ QuickCheck.hs
+ examples/Datatypes.hs
+ examples/Expr.hs
+ examples/Lang.lhs
+ examples/Regular.hs
+ examples/MultiRec.hs
+ examples/LUA.hs
+ examples/LUA_project/application.lua.1
+ examples/LUA_project/application.lua.2
+ examples/LUA_project/application.lua.3
+ examples/LUA_project/application.lua.4
+ examples/LUA_project/application.lua.5
+ examples/LUA_project/application.lua.6
+ examples/LUA_project/application.lua.7
+ examples/LUA_project/application.lua.8
+ examples/LUA_project/application.lua.9
+ examples/LUA_project/application.lua.10
+ examples/LUA_project/application.lua.11
+ examples/LUA_project/application.lua.12
+ examples/LUA_project/application.lua.13
+ examples/LUA_project/application.lua.14
+ examples/LUA_project/application.lua.15
+ examples/LUA_project/application.lua.16
+ examples/LUA_project/application.lua.17
+ examples/LUA_project/application.lua.18
+ examples/LUA_project/application.lua.19
+ examples/LUA_project/application.lua.20
+ examples/LUA_project/application.lua.21
+ examples/LUA_project/application.lua.22
+ examples/LUA_project/application.lua.23
+ examples/LUA_project/application.lua.24
+ examples/LUA_project/application.lua.25
+ examples/LUA_project/application.lua.26
+ examples/LUA_project/application.lua.27
+ examples/LUA_project/application.lua.28
+ examples/LUA_project/application.lua.29
+ examples/LUA_project/application.lua.30
+ examples/LUA_project/application.lua.31
+ examples/LUA_project/application.lua.32
+ examples/LUA_project/application.lua.33
+ examples/LUA_project/application.lua.34
+ examples/LUA_project/application.lua.35
+ examples/LUA_project/application.lua.36
+ examples/LUA_project/application.lua.37
+ examples/LUA_project/application.lua.38
+ examples/LUA_project/application.lua.39
+ examples/LUA_project/application.lua.40
+ examples/LUA_project/application.lua.41
+ examples/LUA_project/application.lua.42
+ examples/LUA_project/application.lua.43
+ examples/LUA_project/application.lua.44
+ examples/LUA_project/application.lua.45
+ examples/LUA_project/application.lua.46
+ examples/LUA_project/application.lua.47
+ examples/LUA_project/application.lua.48
+ examples/LUA_project/application.lua.49
+ examples/LUA_project/application.lua.50
+ examples/LUA_project/application.lua.51
+ examples/LUA_project/application.lua.52
+ examples/LUA_project/application.lua.53
+ examples/LUA_project/application.lua.54
+ examples/LUA_project/application.lua.55
+ examples/LUA_project/application.lua.56
+ examples/LUA_project/application.lua.57
+ examples/LUA_project/application.lua.58
+ examples/LUA_project/application.lua.59
+ examples/LUA_project/application.lua.60
+ examples/LUA_project/application.lua.61
+ examples/LUA_project/application.lua.62
+ examples/LUA_project/application.lua.63
+ examples/LUA_project/application.lua.64
+ examples/LUA_project/application.lua.65
+ examples/LUA_project/application.lua.66
+ examples/LUA_project/application.lua.67
+ examples/LUA_project/application.lua.68
+ examples/LUA_project/application.lua.69
+ examples/LUA_project/application.lua.70
+ examples/LUA_project/application.lua.71
+ examples/LUA_project/application.lua.72
+ examples/LUA_project/application.lua.73
+ examples/LUA_project/application.lua.74
+ examples/LUA_project/application.lua.75
+ examples/LUA_project/application.lua.76
+ examples/LUA_project/application.lua.77
+ examples/LUA_project/application.lua.78
+ examples/LUA_project/application.lua.79
+ examples/LUA_project/application.lua.80
+ examples/LUA_project/application.lua.81
+ examples/LUA_project/application.lua.82
+ examples/LUA_project/application.lua.83
+ examples/LUA_project/application.lua.84
+ examples/LUA_project/application.lua.85
+ examples/LUA_project/application.lua.86
+ examples/LUA_project/application.lua.87
+ examples/LUA_project/application.lua.88
+ examples/LUA_project/application.lua.89
+ examples/LUA_project/application.lua.90
+
+library
+ exposed-modules: Generics.MultiRec.ShallowEq,
+ Generics.MultiRec.Zipper,
+ Generics.MultiRec.CountIs,
+
+ Generics.MultiRec.Transformations.Main,
+ Generics.MultiRec.Transformations.Path,
+ Generics.MultiRec.Transformations.MemoTable,
+ Generics.MultiRec.Transformations.Children,
+ Generics.MultiRec.Transformations.ZipChildren
+
+ Generics.Regular.Zipper
+ Generics.Regular.Functions.GOrd
+ Generics.Regular.Transformations.Main
+
+ build-depends: base >= 4.7 && < 5, mtl >= 2.1, regular >= 0.3.4.4,
+ multirec >= 0.7.3, containers >= 0.1,
+ template-haskell >= 2.9
+
+executable Benchmark
+ main-is: QuickCheck.hs
+
+ build-depends: base >= 4.7 && < 5, mtl >= 2.1,
+ multirec >= 0.7.3,
+ parsec >= 3.1, containers >= 0.1,
+ criterion >= 1, QuickCheck >= 2.7