Add Android Export Handler

- exportAndroid handler which initializes new Cordova project

Add a new handler, `exportAndroid`. This takes the source as a
parameter, and performs the same steps that the compile route performs,
and calls `compileIfNeeded`.

After compilation, the `initCordovaProject` function is invoked, which
merely creates a stub cordova project, by making a subprocess call to
the `cordova` executable. At this commit, it does not build the project.

Author: venkat24

codeworld-server/src/AndroidExport.hs

@@ -0,0 +1,37 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+{-
+  Copyright 2017 The CodeWorld Authors. All rights reserved.
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+      http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+-}
+
+module AndroidExport where
+
+import System.Process
+import System.Directory
+import System.FilePath
+
+import Util
+
+initCordovaProject :: BuildMode -> ProgramId ->IO ()
+initCordovaProject mode programId = do
+  putStrLn $ androidRootDir mode
+  checkIfBuildExists <- doesDirectoryExist $ androidRootDir mode </> sourceBase programId
+  case checkIfBuildExists of
+    True  -> do
+      putStrLn "Build Exists"
+    False -> do
+      createDirectory $ androidRootDir mode </> sourceBaseDir programId
+      readProcess "cordova" ["create", (androidRootDir mode </> sourceBase programId)] ""
+      putStrLn "Build Doesn't Exist"

codeworld-server/src/Main.hs

@@ -22,6 +22,7 @@
 module Main where
 
 import           Compile
+import           AndroidExport
 import           Control.Applicative
 import           Control.Monad
 import           Control.Monad.Trans
@@ -120,6 +121,7 @@ site clientId =
       ("shareContent",  shareContentHandler clientId),
       ("moveProject",   moveProjectHandler clientId),
       ("compile",       compileHandler),
+      ("exportAndroid", exportAndroidHandler),
       ("saveXMLhash",   saveXMLHashHandler),
       ("loadXML",       loadXMLHandler),
       ("loadSource",    loadSourceHandler),
@@ -354,6 +356,21 @@ runHandler = do
     modifyResponse $ setContentType "text/javascript"
     serveFile (buildRootDir mode </> targetFile programId)
 
+exportAndroidHandler :: Snap()
+exportAndroidHandler = do
+  mode <- getBuildMode
+  Just source <- getParam "source"
+  let programId = sourceToProgramId source
+      deployId = sourceToDeployId source
+  success <- liftIO $ do
+      ensureProgramDir mode programId
+      B.writeFile (buildRootDir mode </> sourceFile programId) source
+      writeDeployLink mode deployId programId
+      compileIfNeeded mode programId
+  unless success $ modifyResponse $ setResponseCode 500
+  modifyResponse $ setContentType "text/plain"
+  liftIO $ initCordovaProject mode programId
+
 runMessageHandler :: Snap ()
 runMessageHandler = do
     mode <- getBuildMode

codeworld-server/src/Util.hs

@@ -41,8 +41,8 @@ import           System.Posix.Files
 
 import Model
 
-newtype BuildMode = BuildMode String deriving Eq
 newtype ProgramId = ProgramId { unProgramId :: Text } deriving Eq
+newtype BuildMode = BuildMode String deriving Eq
 newtype ProjectId = ProjectId { unProjectId :: Text } deriving Eq
 newtype DeployId  = DeployId  { unDeployId  :: Text } deriving Eq
 newtype DirId     = DirId     { unDirId     :: Text}  deriving Eq
@@ -57,6 +57,9 @@ clientIdPath = "web/clientId.txt"
 buildRootDir :: BuildMode -> FilePath
 buildRootDir (BuildMode m) = "data" </> m </> "user"
 
+androidRootDir :: BuildMode -> FilePath
+androidRootDir (BuildMode m) = "data" </> m </> "android"
+
 shareRootDir :: BuildMode -> FilePath
 shareRootDir (BuildMode m) = "data" </> m </> "share"
 
@@ -66,6 +69,9 @@ projectRootDir (BuildMode m) = "data" </> m </> "projects"
 deployRootDir :: BuildMode -> FilePath
 deployRootDir (BuildMode m) = "data" </> m </> "deploy"
 
+sourceBaseDir :: ProgramId -> FilePath
+sourceBaseDir (ProgramId p) = let s = T.unpack p in take 3 s
+
 sourceBase :: ProgramId -> FilePath
 sourceBase (ProgramId p) = let s = T.unpack p in take 3 s </> s