Language.GLSL.BitCode

Documentation

assemble :: BitsStmt -> Word64

toInt :: B -> Word64

type BitsStmt = ((B, B), (BitsType, B, BitsExpr))

encodeStmt :: Maybe ConstExprs -> Stmt a -> [BitsStmt]

encodeLocalDecl :: Maybe ConstExprs -> LocalDecl -> (BitsType, B, BitsExpr)

type BitsType = ((B, B), (B, B))

2 bits encode the type, then 2 bits encode the vec/mat size.

encodeType :: Type -> BitsType

encodeVecSize :: Int -> Int -> (B, B)

encodeEmit :: Maybe ConstExprs -> Emit -> (B, BitsExpr)

type BitsExpr = ((B, B), BitsFunName, BitsExprAtom, BitsExprAtom)

encodeExpr :: Maybe ConstExprs -> Expr -> BitsExpr

encodeArgs :: FunName -> [ExprAtom] -> (BitsExprAtom, BitsExprAtom)

Implements special encodings for functions with more than 2 args.

encodeUnaryOp :: UnaryOp -> (B, B)

type BitsBinaryOp = (B, B, B, B)

4 bits encode the binary operator.

encodeBinaryOp :: BinaryOp -> BitsBinaryOp

type BitsFunName = (B, B, B, B, B)

5 bits encode the function name for FunCallExpr.

encodeFunName :: FunName -> BitsFunName

encodeExprAtomType :: ExprAtom -> (B, B, B)

ExprAtom type is encoded in 3 bits.

type BitsExprAtom = ((B, B, B), ((B, B), (B, B)))

encodeExprAtom :: ExprAtom -> BitsExprAtom

encodeSwizzle :: Swizzle -> (B, B)

parse :: Text -> Either String (GLSL ())

main :: IO ()