[Obsolete] Add Android Export feature

android-resources/config.xml

@@ -0,0 +1,27 @@
+<?xml version='1.0' encoding='utf-8'?>
+<widget id="io.cordova.hellocordova" version="1.0.0" xmlns="http://www.w3.org/ns/widgets" xmlns:cdv="http://cordova.apache.org/ns/1.0">
+    <name>CodeWorld App</name>
+    <description>
+        CodeWorld App
+    </description>
+    <author href="https://code.world">
+        CodeWorld
+    </author>
+    <content src="index.html" />
+    <access origin="*" />
+    <allow-intent href="http://*/*" />
+    <allow-intent href="https://*/*" />
+    <allow-intent href="tel:*" />
+    <allow-intent href="sms:*" />
+    <allow-intent href="mailto:*" />
+    <allow-intent href="geo:*" />
+    <platform name="android">
+        <allow-intent href="market:*" />
+        <icon density="mdpi" src="res/icon/android/mipmap-mdpi/codeworld.png" />
+        <icon density="hdpi" src="res/icon/android/mipmap-hdpi/codeworld.png" />
+        <icon density="xhdpi" src="res/icon/android/mipmap-xhdpi/codeworld.png" />
+        <icon density="xxhdpi" src="res/icon/android/mipmap-xxhdpi/codeworld.png" />
+        <icon density="xxxhdpi" src="res/icon/android/mipmap-xxxhdpi/codeworld.png" />
+    </platform>
+    <plugin name="cordova-plugin-whitelist" spec="^1.3.2" />
+</widget>

android-resources/www/css/index.css

@@ -0,0 +1,105 @@
+* {
+    -webkit-tap-highlight-color: rgba(0,0,0,0); /* make transparent link selection, adjust last value opacity 0 to 1.0 */
+}
+
+body {
+    -webkit-touch-callout: none;                /* prevent callout to copy image, etc when tap to hold */
+    -webkit-text-size-adjust: none;             /* prevent webkit from resizing text to fit */
+    -webkit-user-select: none;                  /* prevent copy paste, to allow, change 'none' to 'text' */
+    background-color:#E4E4E4;
+    background-image:linear-gradient(top, #A7A7A7 0%, #E4E4E4 51%);
+    background-image:-webkit-linear-gradient(top, #A7A7A7 0%, #E4E4E4 51%);
+    background-image:-ms-linear-gradient(top, #A7A7A7 0%, #E4E4E4 51%);
+    background-image:-webkit-gradient(
+        linear,
+        left top,
+        left bottom,
+        color-stop(0, #A7A7A7),
+        color-stop(0.51, #E4E4E4)
+    );
+    background-attachment:fixed;
+    font-family:'HelveticaNeue-Light', 'HelveticaNeue', Helvetica, Arial, sans-serif;
+    font-size:12px;
+    height:100%;
+    margin:0px;
+    padding:0px;
+    text-transform:uppercase;
+    width:100%;
+}
+
+/* Portrait layout (default) */
+.app {
+    position:absolute;             /* position in the center of the screen */
+    left:50%;
+    top:30%;
+    height:50px;                   /* text area height */
+    width:225px;                   /* text area width */
+    text-align:center;
+}
+
+canvas {
+    position: relative;
+    left: -50%;
+    top: -50%;
+}
+
+.app-inner {
+    position: relative;
+    left: -50%;
+    top: -50%;
+}
+
+/* Landscape layout (with min-width) */
+@media screen and (min-aspect-ratio: 1/1) and (min-width:400px) {
+    .app {
+        background-position:left center;
+        padding:75px 0px 75px 170px;  /* padding-top + padding-bottom + text area = image height */
+        margin:-90px 0px 0px -198px;  /* offset vertical: half of image height */
+                                      /* offset horizontal: half of image width and text area width */
+    }
+}
+
+h1 {
+    font-size:24px;
+    font-weight:normal;
+    margin:0px;
+    overflow:visible;
+    padding:0px;
+    text-align:center;
+}
+
+.event {
+    border-radius:4px;
+    -webkit-border-radius:4px;
+    color:#FFFFFF;
+    font-size:12px;
+    margin:0px 30px;
+    padding:2px 0px;
+}
+
+.event.listening {
+    background-color:#333333;
+    display:block;
+}
+
+.event.received {
+    background-color:#4B946A;
+    display:none;
+}
+
+@keyframes fade {
+    from { opacity: 1.0; }
+    50% { opacity: 0.4; }
+    to { opacity: 1.0; }
+}
+
+@-webkit-keyframes fade {
+    from { opacity: 1.0; }
+    50% { opacity: 0.4; }
+    to { opacity: 1.0; }
+}
+
+.blink {
+    animation:fade 3000ms infinite;
+    -webkit-animation:fade 3000ms infinite;
+}

android-resources/www/index.html

@@ -0,0 +1,99 @@
+<!DOCTYPE html>
+<html>
+  <script src="https://cdn.polyfill.io/v2/polyfill.min.js?features=default,Array.prototype.find,Number.isFinite,Number.isInteger,console,console.log,document.head,performance.now"></script>
+  <head>
+    <title>CodeWorld</title>
+    <style type="text/css">
+      * { margin: 0; overflow: hidden }
+      #screen {
+          cursor: default;
+          width: 100vw;
+          height: 100vw;
+          max-height: 100vh;
+          max-width: 100vh;
+      }
+    </style>
+  </head>
+  <body style="text-align: center">
+    <canvas id="screen"></canvas>
+  </body>
+  <script type="text/javascript">
+    function addMessage(err, str) {
+      if (window.parent && window.parent.addToMessage) {
+        var message = window.parent.addToMessage(str);
+
+        if (err) {
+          var message = window.parent.document.getElementById('message');
+          message.classList.add('error');
+        }
+      } else {
+        console.log(str);
+      }
+    }
+
+    function showCanvas() {
+      if (!window.parent) {
+        return;
+      }
+
+      var runner = window.parent.document.getElementById('runner');
+      if (!runner) {
+        return;
+      }
+
+      runner.style.display = '';
+      runner.focus();
+      runner.contentWindow.focus();
+    }
+
+    function start() {
+      h$base_writeStdout = function(fd, fdo, buf, buf_offset, n, c) {
+        addMessage(false, h$decodeUtf8(buf, n, buf_offset));
+        c(n);
+      };
+      h$base_writeStderr = function(fd, fdo, buf, buf_offset, n, c) {
+        addMessage(false, h$decodeUtf8(buf, n, buf_offset));
+        c(n);
+      };
+      h$log = function() {
+        var s = '';
+        for(var i=0;i<arguments.length;i++) { s = s + arguments[i]; }
+        addMessage(false, s+'\n');
+      };
+      h$errorMsg = function(str) {
+        for(var i=1;i<arguments.length;i++) {
+          str = str.replace(/%s/, arguments[i]);
+        }
+        addMessage(true, '\n' + str);
+      };
+      h$base_stdout_fd.write = h$base_writeStdout;
+      h$base_stderr_fd.write = h$base_writeStderr;
+
+      h$run(h$mainZCZCMainzimain);
+    }
+
+    function reportRuntimeError(err, str) {
+      if (window.parent.addToMessage) {
+        var message = window.parent.addToMessage('\n' + str);
+
+        if (err) {
+          var message = window.parent.document.getElementById('message');
+          message.classList.add('error');
+        }
+      } else {
+        console.log(str);
+      }
+    }
+
+    var loadScript = document.createElement('script');
+    loadScript.setAttribute('type', 'text/javascript');
+    loadScript.setAttribute('src', 'js/runjs.js');
+    loadScript.onload = function() {
+      start();
+    };
+    document.head.appendChild(loadScript);
+  </script>
+
+</html>
+
+

base.sh

@@ -19,6 +19,14 @@ export PATH=$BUILD/bin:$PATH
 export LANG=${LANG:-C.UTF-8}
 export PREFIX=$BUILD
 
+export ANDROID_HOME=$BUILD/Android/Sdk
+export PATH=$BUILD/Android/Sdk/tools:$PATH
+export PATH=$BUILD/Android/Sdk/platform-tools:$PATH
+export PATH=$BUILD/Android/Sdk/tools/bin:$PATH
+export PATH=$BUILD/Android/Sdk/tools/lib:$PATH
+
+export PATH=$BUILD/Cordova/node_modules/cordova/bin:$PATH
+
 function run {
   OLD_PWD=$PWD
   cd $1
@@ -38,3 +46,4 @@ function run {
 function cabal_install {
   cabal install --force-reinstalls --global --prefix=$BUILD $@
 }
+

build.sh

@@ -18,6 +18,9 @@ cwd=$(pwd)
 
 source base.sh
 
+# Create Cordova template
+run ./android-template cordova build android
+
 run .  cabal update
 
 # Install the codeworld-base and codeworld-api packages
@@ -53,3 +56,4 @@ run .  cabal_install ./codeworld-server \
 
 # Build the JavaScript client code for FunBlocks, the block-based UI.
 run .  cabal_install --ghcjs ./funblocks-client
+

codeworld-server/codeworld-server.cabal

@@ -21,6 +21,7 @@ Executable codeworld-server
     base64-bytestring,
     bytestring,
     codeworld-compiler,
+    containers,
     cryptonite,
     data-default,
     directory,
@@ -35,6 +36,8 @@ Executable codeworld-server
     regex-tdfa,
     snap-core,
     snap-server,
+    strict,
+    tagsoup,
     temporary,
     text,
     unix

codeworld-server/src/AndroidExport.hs

@@ -0,0 +1,83 @@
+{-# 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           Data.Maybe
+import qualified Data.Map as M
+import           System.Process
+import           System.Directory
+import           System.FilePath
+import qualified System.IO.Strict as ST
+import           Text.HTML.TagSoup
+
+import Util
+
+buildAndroid :: BuildMode -> ProgramId -> AppProps -> IO ()
+buildAndroid mode programId appProps = do
+  let appName = fromJust $ M.lookup "appName" appProps
+  initCordovaProject mode programId
+  copySource mode programId
+  setAppName mode programId appName
+  buildApk mode programId
+  return ()
+
+initCordovaProject :: BuildMode -> ProgramId -> IO ()
+initCordovaProject mode programId = do
+  let rootDir = androidRootDir mode
+  checkIfRootExists <- doesDirectoryExist rootDir
+  if not checkIfRootExists
+     then do
+       createDirectory $ androidRootDir mode
+     else return ()
+  let buildDir = androidBuildDir mode programId
+  checkIfBuildExists <- doesDirectoryExist buildDir
+  if not checkIfBuildExists
+    then do
+      checkIfParentExists <- doesDirectoryExist $ androidRootDir mode </> sourceParent programId
+      if not checkIfParentExists
+        then do
+          createDirectory $ androidRootDir mode </> sourceParent programId
+          copyDirIfExists "android-template" (androidRootDir mode </> sourceBase programId)
+        else return ()
+    else return ()
+
+copySource :: BuildMode -> ProgramId -> IO ()
+copySource mode programId =
+  copyFile
+    (buildRootDir mode </> targetFile programId)
+    (androidBuildDir mode programId </> "www" </> "js" </> "runjs.js")
+
+setAppName :: BuildMode -> ProgramId -> String -> IO ()
+setAppName mode programId appName = do
+  let configFileName = androidBuildDir mode programId </> "config.xml"
+  configContents <- ST.readFile configFileName
+  let tagSoup = parseTags configContents
+  let newNameTag = [TagOpen "name" [], TagText appName]
+  writeFile configFileName (renderTags $ newSoup tagSoup newNameTag)
+    where newSoup soup insertTag = takeWhile nameId soup
+                                ++ insertTag
+                                ++ drop 2 (dropWhile nameId soup)
+          nameId = (~/= ("<name>"::String))
+
+buildApk :: BuildMode -> ProgramId -> IO ()
+buildApk mode programId = do
+  currwd <- getCurrentDirectory
+  setCurrentDirectory $ androidBuildDir mode programId
+  readProcess "cordova" ["build", "android"] ""
+  setCurrentDirectory currwd