Adding LUA tutorials: lua_calls_C1 - lua_calls_C5

Adding blinker demo: lua_blink_led

lua/examples/lua_blink_led/Makefile

@@ -0,0 +1,27 @@
+CC        = mipsel-openwrt-linux-gcc
+CXX       = mipsel-openwrt-linux-g++
+OPENWRT_BUILD_DIR = /home/cain/Embedded/ingenic/sakc/build/openwrt-xburst/staging_dir/target-mipsel_uClibc-0.9.30.1
+INCLUDE   = -I. -I$(OPENWRT_BUILD_DIR)/usr/include/
+WARNINGS  = -Wcast-align -Wpacked -Wpadded -Wall 
+CCFLAGS   = ${INCLUDE} ${DEBUG} ${WARNINGS} -std=c99 -fPIC
+LDFLAGS   = -L$(OPENWRT_BUILD_DIR)/usr/lib -llua -ldl
+DEBUG     = -O3 -g0
+NANO_PATH = root@192.168.254.101:
+TARGET    = sram_gpio_lib
+
+COMMON_SOURCES = jz47xx_gpio.c jz47xx_mmap.c sram_gpio_wrap.c
+COMMON_OBJECTS = $(COMMON_SOURCES:.c=.o)
+
+
+$(TARGET): $(COMMON_OBJECTS)
+	$(CC)  $(CCFLAGS) $(LDFLAGS) -shared  $(COMMON_OBJECTS) -o  $(TARGET).so
+
+.c.o:
+	$(CC) -c $(CCFLAGS) $< -o $@
+
+
+upload: $(TARGET)
+	scp $(TARGET).so test_gpio.lua $(NANO_PATH)
+	
+clean:
+	rm -f *.o $(TARGET).so

lua/examples/lua_blink_led/jz47xx_gpio.c

@@ -0,0 +1,122 @@
+/*
+  JZ47xx GPIO at userspace
+
+  Copyright (C) 2010      Andres Calderon andres.calderon@emqbit.com
+                                 
+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 2 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, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+#include <jz47xx_gpio.h>
+#include <jz47xx_mmap.h>
+
+
+#define JZ_GPIO_BASE 0x10010000
+
+int
+jz_gpio_as_output (JZ_PIO * pio, unsigned int o)
+{
+  pio->PXFUNC = (1 << (o));
+  pio->PXSELC = (1 << (o));
+  pio->PXDIRS = (1 << (o));
+  return 0;
+}
+
+void
+jz_gpio_as_input (JZ_PIO * pio, unsigned int o)
+{
+  pio->PXFUNC = (1 << (o));
+  pio->PXSELC = (1 << (o));
+  pio->PXDIRC = (1 << (o));
+}
+
+void
+jz_gpio_as_irq (JZ_PIO * pio, unsigned int o)
+{
+  pio->PXFUNC = (1 << (o));
+  pio->PXSELS = (1 << (o));
+  pio->PXDIRC = (1 << (o));
+}
+
+int
+jz_gpio_set_pin (JZ_PIO * pio, unsigned int o)
+{
+  pio->PXDATS = (1 << (o));
+  return 0;
+}
+
+int
+jz_gpio_clear_pin (JZ_PIO * pio, unsigned int o)
+{
+  pio->PXDATC = (1 << (o));
+  return 0;
+}
+
+void
+jz_gpio_out (JZ_PIO * pio, unsigned int o, unsigned int val)
+{
+  if (val == 0)
+    pio->PXDATC = (1 << (o));
+  else
+    pio->PXDATS = (1 << (o));
+}
+
+unsigned int
+jz_gpio_get_pin (JZ_PIO * pio, unsigned int o)
+{
+  return (pio->PXPIN & (1 << o)) ? 1 : 0;
+}
+
+int
+jz_gpio_as_func (JZ_PIO * pio, unsigned int o, int func)
+{
+  switch (func)
+    {
+    case 0:
+      pio->PXFUNS = (1 << o);
+      pio->PXTRGC = (1 << o);
+      pio->PXSELC = (1 << o);
+      pio->PXPES  = (1 << o);
+      return 1;
+
+    case 1:
+      pio->PXFUNS = (1 << o);
+      pio->PXTRGC = (1 << o);
+      pio->PXSELS = (1 << o);
+      pio->PXPES  = (1 << o);
+      return 1;
+
+    case 2:
+      pio->PXFUNS = (1 << o);
+      pio->PXTRGS = (1 << o);
+      pio->PXSELC = (1 << o);
+      pio->PXPES  = (1 << o);
+      return 1;
+    }
+  return 0;
+}
+
+JZ_PIO *
+jz_gpio_map (int port)
+{
+  JZ_PIO *pio;
+
+  pio = (JZ_PIO *) jz_mmap (JZ_GPIO_BASE);
+  pio = (JZ_PIO *) ((unsigned int) pio + port * 0x100);
+
+  return pio;
+}

lua/examples/lua_blink_led/jz47xx_gpio.h

@@ -0,0 +1,84 @@
+/*
+  JZ47xx GPIO at userspace
+
+  Copyright (C) 2010      Andres Calderon andres.calderon@emqbit.com
+                                 
+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 2 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, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
+
+#ifndef __jz47xx_gpio_h__
+#define __jz47xx_gpio_h__
+
+#define	JZ_GPIO_PORT_A 0
+#define	JZ_GPIO_PORT_B 1
+#define	JZ_GPIO_PORT_C 2
+#define	JZ_GPIO_PORT_D 3
+
+typedef volatile unsigned int JZ_REG;   /* Hardware register definition */
+
+typedef struct _JZ_PIO
+{
+  JZ_REG PXPIN;                 /* PIN Level Register */
+  JZ_REG Reserved0;
+  JZ_REG Reserved1;
+  JZ_REG Reserved2;
+  JZ_REG PXDAT;                 /* Port Data Register */
+  JZ_REG PXDATS;                /* Port Data Set Register */
+  JZ_REG PXDATC;                /* Port Data Clear Register */
+  JZ_REG Reserved3;
+  JZ_REG PXIM;                  /* Interrupt Mask Register */
+  JZ_REG PXIMS;                 /* Interrupt Mask Set Reg */
+  JZ_REG PXIMC;                 /* Interrupt Mask Clear Reg */
+  JZ_REG Reserved4;
+  JZ_REG PXPE;                  /* Pull Enable Register */
+  JZ_REG PXPES;                 /* Pull Enable Set Reg. */
+  JZ_REG PXPEC;                 /* Pull Enable Clear Reg. */
+  JZ_REG Reserved5;
+  JZ_REG PXFUN;                 /* Function Register */
+  JZ_REG PXFUNS;                /* Function Set Register */
+  JZ_REG PXFUNC;                /* Function Clear Register */
+  JZ_REG Reserved6;
+  JZ_REG PXSEL;                 /* Select Register */
+  JZ_REG PXSELS;                /* Select Set Register */
+  JZ_REG PXSELC;                /* Select Clear Register */
+  JZ_REG Reserved7;
+  JZ_REG PXDIR;                 /* Direction Register */
+  JZ_REG PXDIRS;                /* Direction Set Register */
+  JZ_REG PXDIRC;                /* Direction Clear Register */
+  JZ_REG Reserved8;
+  JZ_REG PXTRG;                 /* Trigger Register */
+  JZ_REG PXTRGS;                /* Trigger Set Register */
+  JZ_REG PXTRGC;                /* Trigger Set Register */
+  JZ_REG Reserved9;
+  JZ_REG PXFLG;                 /* Port Flag Register */
+  JZ_REG PXFLGC;                /* Port Flag clear Register */
+} JZ_PIO, *PJZ_PIO;
+
+int jz_gpio_as_output (JZ_PIO * pio, unsigned int o);
+
+void jz_gpio_as_input (JZ_PIO * pio, unsigned int o);
+
+int jz_gpio_set_pin (JZ_PIO * pio, unsigned int o);
+
+int jz_gpio_clear_pin (JZ_PIO * pio, unsigned int o);
+
+void jz_gpio_out (JZ_PIO * pio, unsigned int o, unsigned int val);
+
+unsigned int jz_gpio_get_pin (JZ_PIO * pio, unsigned int o);
+
+int jz_gpio_as_func (JZ_PIO * pio, unsigned int o, int func);
+
+JZ_PIO *jz_gpio_map (int port);
+
+#endif

lua/examples/lua_blink_led/jz47xx_mmap.c

@@ -0,0 +1,64 @@
+/*
+ * JZ47xx GPIO lines
+ *
+ * Written 2010 by Andres Calderon andres.calderon@emqbit.com
+ */
+
+#include <stdio.h>
+#include <sys/mman.h>
+#include <fcntl.h>
+#include <stdlib.h>
+#include <termios.h>
+#include <unistd.h>
+
+#include <jz47xx_mmap.h>
+
+
+void *
+jz_mmap (off_t address)
+{
+  int fd;
+
+  void *pio;
+
+  if ((fd = open ("/dev/mem", O_RDWR | O_SYNC)) == -1)
+    {
+      fprintf (stderr, "Cannot open /dev/mem.\n");
+      return 0;
+    }
+
+  pio = (void *) mmap (0, getpagesize (), PROT_READ | PROT_WRITE, MAP_SHARED, fd, address);
+
+  if (pio == (void *) -1)
+    {
+      fprintf (stderr, "Cannot mmap.\n");
+      return 0;
+    }
+
+  return pio;
+}
+
+void *
+jz_fpga_map (off_t address)
+{
+  int fd;
+
+  void *fpga;
+
+  if ((fd = open ("/dev/mem", O_RDWR | O_SYNC)) == -1)
+    {
+      fprintf (stderr, "Cannot open /dev/mem.\n");
+      return 0;
+    }
+
+  fpga = (void *) mmap (0, FPGA_SIZE, PROT_READ | PROT_WRITE, MAP_SHARED, fd, address);
+
+  if (fpga == (void *) -1)
+    {
+      fprintf (stderr, "Cannot mmap.\n");
+      return 0;
+    }
+
+  return fpga;
+}
+

lua/examples/lua_blink_led/jz47xx_mmap.h

@@ -0,0 +1,17 @@
+/*
+ * JZ47xx GPIO lines
+ *
+ * Written 2010 by Andres Calderon andres.calderon@emqbit.com
+ */
+
+#ifndef __jz47xx_mmap_h__
+#define __jz47xx_mmap_h__
+
+#include <sys/mman.h>
+
+#define FPGA_SIZE  (1 << 15)
+
+void *jz_mmap (off_t address);
+void *jz_fpga_map (off_t address);
+
+#endif

lua/examples/lua_blink_led/jz_test_gpio.c

@@ -0,0 +1,59 @@
+/*
+  JZ47xx test gpio 
+
+  Copyright (C) 2010      Andres Calderon andres.calderon@emqbit.com
+                          Carlos Camargo  cicamargoba@unal.edu.co
+                                 
+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 2 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, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
+
+#include <stdio.h>
+#include <unistd.h>
+
+#include "jz47xx_gpio.h"
+
+//#define TEST_PORT JZ_GPIO_PORT_C
+//#define TEST_PIN  17 
+
+int
+main (int argc,char *argv[])
+
+{
+  int TEST_PORT, TEST_PIN;
+
+  if(argc != 3){
+    fprintf(stderr,"\nUsage: %s TEST_PIN_PORT(A=0, B=1, C=2, D=3) TEST_PIN \n",argv[0]);
+  }
+
+  TEST_PORT = 17;
+  TEST_PIN  = 17;
+  JZ_PIO *pio = jz_gpio_map (TEST_PORT);
+
+  if (!pio)
+    return -1;
+
+  jz_gpio_as_output (pio, TEST_PIN);
+
+  int tg = 1;
+
+  while (1)
+    {
+      jz_gpio_out (pio, TEST_PIN, tg);
+      printf ("[%d]", jz_gpio_get_pin (pio, TEST_PIN));
+      fflush (stdout);
+      usleep (500 * 1000);
+      tg = !tg;
+    }
+  return 0;
+}

lua/examples/lua_blink_led/sram_gpio_wrap.c

@@ -0,0 +1,63 @@
+#include <jz47xx_gpio.h>
+#include <jz47xx_mmap.h>
+  
+#include "lua.h"  
+#include "lualib.h"  
+#include "lauxlib.h"    
+  
+const char *metaname = "mine.JZ_PIO"; // associated with userdata of type Point*  
+  
+static int jz_gpio_as_output_wrap(lua_State *L) {  
+    JZ_PIO *pio = (JZ_PIO *)lua_touserdata(L,1);
+    luaL_checkudata(L, 1, metaname);  // check argument type  
+    int b = luaL_checkint(L, 2);  
+    lua_pushnumber(L, (lua_Number)jz_gpio_as_output(pio, b)); 
+    return 1;  
+}
+
+static int jz_gpio_set_pin_wrap(lua_State *L) {  
+    JZ_PIO *pio = luaL_checkudata(L, 1, metaname);  // check argument type  
+    int b = luaL_checkint(L, 2);  
+    lua_pushnumber(L, (lua_Number)jz_gpio_set_pin(pio, b));  
+    return 1;  
+}
+
+static int jz_gpio_clear_pin_wrap(lua_State *L) {  
+    JZ_PIO *pio = luaL_checkudata(L, 1, metaname);  // check argument type  
+    int b = luaL_checkint(L, 2);  
+    lua_pushnumber(L, (lua_Number)jz_gpio_clear_pin(pio, b));  
+    return 1;  
+}
+
+  
+
+static int point_new_wrapper(lua_State *L) { // get Lua to allocate an initialize a Point*  
+    //create user data and associate metable with it  
+    JZ_PIO *pio = jz_gpio_map (JZ_GPIO_PORT_C);
+    lua_pushlightuserdata(L,pio);
+    luaL_getmetatable(L, metaname);  
+    lua_setmetatable(L, -2);  
+    return 1;  
+}  
+
+static const struct luaL_reg functions[] = {  
+    {"jz_gpio_as_output", jz_gpio_as_output_wrap},  
+    {"jz_gpio_set_pin", jz_gpio_set_pin_wrap},  
+    {"jz_gpio_clear_pin", jz_gpio_clear_pin_wrap},  
+    {"point_new", point_new_wrapper},  
+    { NULL, NULL}  
+};  
+  
+//This is the init function that will be called when you require 'mylib'  
+  
+int luaopen_sram_gpio_lib(lua_State *L) {  
+  
+  
+    luaL_newmetatable(L, metaname);  
+    //pop 1 elements from the statck .. why?? to pop the newmetatable that is useless.  
+    //  
+    //lua_pop(L, 1);  
+    //replace luaL_openlib  
+    luaL_register(L, "sram_gpio_lib", functions);  
+    return 1;  
+}  

lua/examples/lua_blink_led/test_gpio.lua

@@ -0,0 +1,23 @@
+package.cpath = "./?.so"
+require "sram_gpio_lib"
+
+  function pulse()
+    sram_gpio_lib.jz_gpio_set_pin(pio,17)
+    delay_s(1)
+    sram_gpio_lib.jz_gpio_clear_pin(pio,17)
+    delay_s(1)
+  end
+
+  function delay_s(delay)
+    delay = delay or 1
+    local time_to = os.time() + delay
+    while os.time() < time_to do end
+  end
+
+  pio=sram_gpio_lib.point_new()
+  sram_gpio_lib.jz_gpio_as_output(pio,17)
+
+  for i=0,5,1 do
+    pulse()
+  end
+