From 661fe4e5b0998aa119dbc41339afbe198bab5b96 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Fri, 13 Mar 2015 20:05:22 +0100
Subject: [PATCH] lua-platform-info: add support for ar71xx-nand target

---
 libs/lua-platform-info/Makefile               |  2 +-
 .../files/ar71xx/nand/platform_info.lua       | 37 +++++++++++++++++++
 2 files changed, 38 insertions(+), 1 deletion(-)
 create mode 100644 libs/lua-platform-info/files/ar71xx/nand/platform_info.lua

diff --git a/libs/lua-platform-info/Makefile b/libs/lua-platform-info/Makefile
index 22280d4..0d95047 100644
--- a/libs/lua-platform-info/Makefile
+++ b/libs/lua-platform-info/Makefile
@@ -12,7 +12,7 @@ define Package/lua-platform-info
   SECTION:=libs
   CATEGORY:=Libraries
   TITLE:=Lua hardware platform information library
-  DEPENDS:=+lua @(TARGET_ar71xx_generic||TARGET_mpc85xx_generic||TARGET_x86_generic||TARGET_x86_kvm_guest||TARGET_ramips_rt305x)
+  DEPENDS:=+lua @(TARGET_ar71xx_generic||TARGET_ar71xx_nand||TARGET_mpc85xx_generic||TARGET_x86_generic||TARGET_x86_kvm_guest||TARGET_ramips_rt305x)
 endef
 
 define Package/lua-platform-info/description
diff --git a/libs/lua-platform-info/files/ar71xx/nand/platform_info.lua b/libs/lua-platform-info/files/ar71xx/nand/platform_info.lua
new file mode 100644
index 0000000..5a6b23e
--- /dev/null
+++ b/libs/lua-platform-info/files/ar71xx/nand/platform_info.lua
@@ -0,0 +1,37 @@
+local function read_line(file)
+  local f = io.open(file)
+  local ret = f:read('*line')
+  f:close()
+  return ret
+end
+
+local board_name = read_line('/tmp/sysinfo/board_name')
+local model = read_line('/tmp/sysinfo/model')
+
+module 'platform_info'
+
+
+-- The OpenWrt target
+function get_target()
+   return 'ar71xx'
+end
+
+-- The OpenWrt subtarget or nil
+function get_subtarget()
+   return 'nand'
+end
+
+-- The board name
+function get_board_name()
+   return board_name
+end
+
+-- The model name
+function get_model()
+   return model
+end
+
+-- The image name for sysupgrades
+function get_image_name()
+   return (model:lower():gsub('[^%w%.%+]+', '-'):gsub('%.+', '.'):gsub('[%-%.]*%-[%-%.]*', '-'):gsub('%-+$', ''))
+end