%input% %output%

Author: Seng-Jik

src/Language/PipeScript/Interpreter/Context.hs

@@ -34,7 +34,7 @@ import Language.PipeScript.Parser
 import Path
 import System.Environment (getEnv, getEnvironment)
 import Data.List ( groupBy, sortBy )
-import Path.IO (getCurrentDir)
+import Path.IO (getCurrentDir, AnyPath (makeRelative))
 import Data.Maybe (fromMaybe)
 
 data Value
@@ -59,7 +59,7 @@ instance Show Value where
   show (ValList x) = show x
   show ValUnit = show ()
 
-value2Str :: Value -> String 
+value2Str :: Value -> String
 value2Str (ValInt x) = show x
 value2Str (ValStr x) = x
 value2Str (ValSymbol x) = x
@@ -79,10 +79,10 @@ data Task = Task
     operationName :: String,
     arguments :: [Value],
     context :: Context
-  } 
+  }
 
 instance Eq Task where
-  a == b = 
+  a == b =
     inputFiles a == inputFiles b &&
     outputFiles a == outputFiles b &&
     dirty a == dirty b &&
@@ -188,6 +188,16 @@ getVariable (Variable (Identifier "cd")) = do
   rel <- scriptDir . curScript <$> get
   cd <- getCurrentDir
   return $ ValStr $ toFilePath $ cd </> rel
+getVariable (Variable (Identifier "input")) = do
+  t <- curTask <$> get
+  cd <- currentWorkAbsDir
+  files <- liftIO $ mapM (makeRelative cd) $ maybe [] inputFiles t
+  return $ ValList $ ValStr . toFilePath <$> files
+getVariable (Variable (Identifier "output")) = do
+  t <- curTask <$> get
+  cd <- currentWorkAbsDir
+  files <- liftIO $ mapM (makeRelative cd) $ maybe [] outputFiles t
+  return $ ValList $ ValStr . toFilePath <$> files
 getVariable v = do
   vars <- variables <$> get
   case vars !? v of
@@ -196,6 +206,7 @@ getVariable v = do
   where
     (Variable (Identifier vn)) = v
 
+
 getVariables :: Interpreter [(Variable, Value)]
 getVariables = toList . variables <$> get
 

src/Language/PipeScript/Interpreter/Eval.hs

@@ -128,9 +128,10 @@ runCommand command args = do
 
 evalApplyExpr :: Expression -> [Expression] -> Interpreter Value
 evalApplyExpr (IdentifierExpr (Identifier "set")) [VariableExpr var, expr] = do
-  val <- evalExpr expr
-  setVariable var val
-  return ValUnit
+  case var of Variable (Identifier "inputs") -> evalError "%inputs% is a read-only variable."
+              Variable (Identifier "outputs") -> evalError "%outputs% is a read-only variable."
+              Variable (Identifier "cd") -> evalError "%cd% is a read-only variable."
+              Variable _ -> evalExpr expr >>= setVariable var >> return ValUnit
 evalApplyExpr (IdentifierExpr (Identifier "set")) _ =
   evalError "Set function must has a variable argument and an expression argument."
 evalApplyExpr (IdentifierExpr (Identifier i)) args = do