Initial commit

5 files changed, 164 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..558691a
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+__pycache__
+cert.pem
+key.pem
+out.apk
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..b0386bf
--- /dev/null
+++ b/README.md
@@ -0,0 +1,21 @@
+# DUCK Hy Proof-of-Concept
+
+Proof of concept for creating an Android app with
+[Hy](http://docs.hylang.org/en/stable/) and David Boddie's
+[DUCK](http://www.boddie.org.uk/david/Projects/Python/DUCK/README.html).
+
+## Building
+
+Begin by following the directions listed in the ['Getting
+Started'](http://www.boddie.org.uk/david/Projects/Python/DUCK/Documents/Getting_Started.html)
+section of DUCK's documentation. Now, install the latest version of Hy:
+
+```sh
+$ pip install git+https://github.com/hylang/hy.git
+```
+
+The build script should now work.
+
+```sh
+$ hy build.hy <key file> <certificate file> out.apk
+```
diff --git a/build.hy b/build.hy
new file mode 100644
index 0000000..1737d98
--- /dev/null
+++ b/build.hy
@@ -0,0 +1,78 @@
+#!/usr/bin/env hy
+
+;;; Copyright © 2019 Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org>
+;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 3 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program. If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+(require [hy.contrib.walk [let]])
+
+(import [ast [parse Return]])
+(import [copy [deepcopy]])
+(import [os [getenv]])
+(import [os.path [splitext]])
+(import [sys [argv exit]])
+
+(import [hy.compiler [hy-compile]])
+(import [hy.lex [hy-parse]])
+
+(import DUCK.Serpentine.visitor)
+(import [DUCK.Tools [buildhelper]])
+
+(defn walk-ast [node]
+  (when (and (isinstance node Return)
+             (= node.value.id "None"))
+    (setv node.value.id None))
+  (when (hasattr node "body")
+    (for [child node.body]
+      (walk-ast child))))
+
+(defn my-hy-compile [source]
+  (let [ast (hy-compile (hy-parse source) "<unknown>")]
+    (walk-ast ast)
+    ast))
+
+(defclass HyVisitor [DUCK.Serpentine.visitor.Visitor]
+  (defn load [self file-name &optional [imports None]]
+    (let [imports (or imports {})]
+      (setv self.imports imports)
+      (setv self.file-name- file-name)
+      (try
+        (with [source (open file-name :encoding (.get-coding self file-name))]
+          (setv self.root (if (.endswith file-name ".hy")
+                              (my-hy-compile (.read source))
+                              (parse (.read source)))))
+        (except [err SyntaxError]
+          (.write stderr (.format "In '{}': " file-name))
+          (raise err)))
+      (let [module (.visit self self.root)]
+        (assoc self.imports (first (splitext file-name)) module)
+        (return module)))))
+
+(setv DUCK.Serpentine.visitor.Visitor HyVisitor)
+
+(when (= __name__ "__main__")
+  (let [app-name "HelloHy"
+        package-name "com.example.hellohy"
+        res-files {"drawable" {"ic_launcher" "icon.svg"}}
+        code-file "hello.hy"
+        include-paths []
+        layout None
+        features []
+        permissions []
+        docs-dir (getenv "DOCS_DIR")
+        args (deepcopy argv)]
+    (exit (.main buildhelper __file__ app-name package-name
+                 res-files layout code-file include-paths
+                 features permissions args :docs-dir docs-dir))))
diff --git a/hello.hy b/hello.hy
new file mode 100644
index 0000000..25e3b2d
--- /dev/null
+++ b/hello.hy
@@ -0,0 +1,47 @@
+;; Hello Example
+;; =============
+;;
+;; This is a simple "Hello world!" example, written in Hy.
+;;
+;; We begin by declaring a unique namespace for the package we are creating.
+;; This is typically based on the reversed form of a domain name and should be
+;; unique to this package.
+
+(setv __package__ "com.example.hellohy")
+
+;; We also import the classes that will be needed by the application. Since this
+;; is a simple example, we only need three of them.
+
+(import [android.app [Activity]])
+(import [android.os [Bundle]])
+(import [android.widget [TextView]])
+
+;; We define a class based on the standard Activity class. This represents the
+;; application, and will be used to present a graphical interface to the user.
+;;
+;; The initialisation method simply calls the corresponding method in the base
+;; class. This must be done even if no other code is included in the method.
+
+(defclass HelloActivity [Activity]
+  (defn __init__ [self]
+    (.__init__ Activity self))
+
+  ;; The onCreate method is called when the activity is created by Android. The
+  ;; return type and parameter types expected by the method are declared using
+  ;; the following decorator. Since the parameter types for the onCreate method
+  ;; are defined in the Activity base class, this decorator is not strictly
+  ;; necessary.
+  (with-decorator (args void [Bundle])
+    (defn onCreate [self bundle]
+      (.onCreate Activity self bundle)
+      (setv view (TextView self))
+      (.setText view "Hello world!")
+      (.setContentView self view)
+      (return None))))
+
+;; As with the `__init__` method, we must call the corresponding method in the
+;; base class.
+;;
+;; The user interface for the application is simply a TextView widget that
+;; displays a string of text. The final call ensures that the widget is used as
+;; the main view for the application.
diff --git a/icon.svg b/icon.svg
new file mode 100644
index 0000000..1c57738
--- /dev/null
+++ b/icon.svg
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+
+<svg version="1.1"
+     xmlns="http://www.w3.org/2000/svg"
+     xmlns:xlink="http://www.w3.org/1999/xlink"
+     width="1.5cm" height="1.5cm"
+     viewBox="0 0 100 100">
+
+<circle cx="50" cy="50" r="45" stroke="white" fill="#3399ff" stroke-width="2" />
+<circle cx="50" cy="50" r="25" stroke="white" fill="#33ff99" stroke-width="2" />
+
+</svg>