src/Language/SimpleShell/AST/Statement.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

module Language.SimpleShell.AST.Statement
  ( Statement(..)
  )
where


import Data.Text (Text)

import Language.SimpleShell.AST.Expr (Expr)
import Language.SimpleShell.AST.Name (VarName, ProcedureName)


data Statement
  = Assign VarName Expr
  | Print Expr
  | PrintErr Expr
  | Read
      (Maybe Char)      -- ^ delimiter
      VarName
  | If Expr [Statement] [Statement]
  | While Expr [Statement]
  | RunCommand
      (Maybe VarName)   -- ^ return code
      (Maybe VarName)   -- ^ return value
      (Maybe VarName)   -- ^ stdout
      (Maybe VarName)   -- ^ stderr
      Command
      (Maybe VarName)   -- ^ stdin
  | Return
      Expr              -- ^ return code
      Expr              -- ^ return value
  deriving (Show)


data Command
  = ExtCommand Text
  | ProcedureCall ProcedureName [Expr]
  deriving (Show)