Adding file-system

sie_fs/root/.jtag/rc

@@ -0,0 +1,8 @@
+cable jz47xx
+detect
+pri
+instruction CFG_OUT  000100 BYPASS
+instruction CFG_IN   000101 BYPASS
+instruction JSTART   001100 BYPASS
+instruction JPROGRAM 001011 BYPASS
+

sie_fs/root/.viminfo

@@ -0,0 +1,61 @@
+# This viminfo file was generated by Vim 7.1.
+# You may edit it if you're careful!
+
+
+# hlsearch on (H) or off (h):
+~h
+# Command Line History (newest to oldest):
+:x!
+
+# Search String History (newest to oldest):
+
+# Expression History (newest to oldest):
+
+# Input Line History (newest to oldest):
+
+# Input Line History (newest to oldest):
+
+# Registers:
+""-	CHAR	0
+	/
+
+# File marks:
+'0  2  32  /etc/init.d/start
+'1  31  7  ~/jtag_cmds
+'2  9  7  ~/load_bitstream_jtag
+
+# Jumplist (newest first):
+-'  2  32  /etc/init.d/start
+-'  1  0  /etc/init.d/start
+-'  31  7  ~/jtag_cmds
+-'  1  0  ~/jtag_cmds
+-'  9  7  ~/load_bitstream_jtag
+-'  1  0  ~/load_bitstream_jtag
+-'  9  7  ~/load_bitstream_jtag
+-'  1  0  ~/load_bitstream_jtag
+-'  31  7  ~/jtag_cmds
+-'  1  0  ~/jtag_cmds
+-'  9  7  ~/load_bitstream_jtag
+-'  1  0  ~/load_bitstream_jtag
+-'  9  7  ~/load_bitstream_jtag
+-'  1  0  ~/load_bitstream_jtag
+
+# History of marks within files (newest to oldest):
+
+> /etc/init.d/start
+	"	2	32
+	^	2	33
+	.	2	20
+	+	2	20
+
+> ~/jtag_cmds
+	"	31	7
+	^	31	8
+	.	31	7
+	+	31	7
+
+> ~/load_bitstream_jtag
+	"	9	7
+	^	9	8
+	.	9	7
+	+	9	7

sie_fs/root/binaries/bsdl2jtag

@@ -0,0 +1,48 @@
+#!/bin/bash
+#
+# $Id: bsdl2jtag 1467 2009-03-28 00:31:24Z arniml $
+#
+# Convert a BSDL file to a jtag part description
+#
+# Copyright (C) 2009, A. Laeuger
+#
+# 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.
+#
+
+scriptname=`basename $0`
+
+function usage ()
+{
+    cat <<EOF
+Usage:	$scriptname <bsdl-file> <jtag-file>
+Converts a BSDL file to a jtag part description.
+
+Parameters
+  bsdl-file :  Name of BSDL file
+  jtag-file :  Name of converted jtag description file
+
+EOF
+}
+
+if [[ -z $1 || -z $2 ]]; then
+    usage
+    exit 1
+fi
+
+
+echo "bsdl dump $1" | jtag > $2
+
+exit 0

sie_fs/root/binaries/devlist.txt

@@ -0,0 +1,20 @@
+# IDCODE    IR Length	Text
+0140d093	6	XC3S50
+01414093	6	XC3S200
+0141c093	6	XC3S400
+01428093	6	XC3S1000
+01434093	6	XC3S1500
+01440093	6	XC3S2000
+01448093	6	XC3S4000
+01450093	6	XC3S5000
+05045093	8	XCF02S
+00608093	5	XC2S15
+0060c093	5	XC2S30
+00610093	5	XC2S50
+00614093	5	XC2S100
+00618093	5	XC2S150
+0061c093	5	XC2S200
+11c10093        6       XC3S100E
+11c1a093        6       XC3S250E
+41c22093	6	XC3S500E
+

sie_fs/root/binaries/flash_kernel.sh

@@ -0,0 +1,3 @@
+#!/bin/bash
+sudo usbboot -f ./usbboot_2gb_nand.cfg  -c "boot"
+sudo usbboot -f ./usbboot_2gb_nand.cfg  -c "nprog 1024 openwrt-xburst-qi_lb60-uImage.bin 0 0 -n"

sie_fs/root/binaries/inittab

@@ -0,0 +1,11 @@
+::sysinit:/etc/init.d/rcS S boot
+::shutdown:/etc/init.d/rcS K stop
+tts/0::askfirst:/bin/ash --login
+tty1::askfirst:/bin/ash --login
+tty2::askfirst:/bin/ash --login
+tty3::askfirst:/bin/ash --login
+tty4::askfirst:/bin/ash --login
+tty5::askfirst:/bin/ash --login
+tty6::askfirst:/bin/ash --login
+tty7::askfirst:/bin/ash --login
+tty8::askfirst:/bin/ash --login

sie_fs/root/binaries/install_binaries

@@ -0,0 +1,9 @@
+mkdir -p /usr/share/xc3sprog
+cp xc3sprog /usr/bin
+cp devlist.txt /usr/share/xc3sprog/
+mv /etc/init.d/start /root/
+cp sgen /usr/bin
+cp sweepgen /usr/bin
+cp inittab /etc/
+cp jtag /usr/bin
+cp bsdl2jtag /usr/bin

sie_fs/root/binaries/load_u-boot.sh

@@ -0,0 +1,2 @@
+sudo usbboot -f ./usbboot_2gb_nand.cfg -c "boot"
+sudo usbboot -f ./usbboot_2gb_nand.cfg  -c "nprog 0 openwrt-xburst-qi_lb60-u-boot.bin 0 0 -n" 

sie_fs/root/binaries/program_rootfs.sh

@@ -0,0 +1,4 @@
+#!/bin/bash
+ROOTFS=openwrt-xburst-qi_lb60-root.ubi
+sudo usbboot -f ./usbboot_2gb_nand.cfg  -c "boot"
+sudo usbboot -f ./usbboot_2gb_nand.cfg  -c "nprog 2048 $ROOTFS 0 0 -n"

sie_fs/root/binaries/usbboot_2gb_nand.cfg

@@ -0,0 +1,59 @@
+#
+# usbboot configuration file
+#
+# Utility to respond to the Ingenic XBurst USB boot protocol, provide
+# initial boot stages and ability to access NAND on device.
+#
+# Authors: Ingenic Semiconductor, Inc.
+#          Xiangfu Liu <xiangfu@qi-hardware.com>
+#          Marek Lindner <lindner_marek@yahoo.de>
+#          Wolfgang Spraul <wolfgang@qi-hardware.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 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/>.
+
+# [PLL]
+EXTCLK = 12	#Define the external crystal in MHz
+CPUSPEED = 252	#Define the PLL output frequency
+PHMDIV = 3	#Define the frequency divider ratio of PLL=CCLK:PCLK=HCLK=MCLK
+BOUDRATE = 57600	#Define the uart boudrate
+USEUART = 0	#Use which uart, 0/1 for jz4740,0/1/2/3 for jz4750
+
+# [SDRAM]
+BUSWIDTH = 16	#The bus width of the SDRAM in bits (16|32)
+BANKS = 4	#The bank number (2|4)
+ROWADDR = 13	#Row address width in bits (11-13)
+COLADDR = 9	#Column address width in bits (8-12)
+ISMOBILE = 0	#Define whether SDRAM is mobile SDRAM, this only valid for Jz4750 ,1:yes 0:no
+ISBUSSHARE = 1	#Define whether SDRAM bus share with NAND 1:shared 0:unshared
+DEBUGOPS = 0
+
+# [NAND]
+NAND_BUSWIDTH = 8	#The width of the NAND flash chip in bits (8|16|32)
+NAND_ROWCYCLES = 3	#The row address cycles (2|3)
+NAND_PAGESIZE = 4096	#The page size of the NAND chip in bytes(512|2048|4096)
+NAND_PAGEPERBLOCK = 128	#The page number per block
+NAND_FORCEERASE = 1	#The force to erase flag (0|1)
+NAND_OOBSIZE = 128	#oob size in byte
+NAND_ECCPOS = 12	#Specify the ECC offset inside the oob data (0-[oobsize-1])
+NAND_BADBLOCKPOS = 0	#Specify the badblock flag offset inside the oob (0-[oobsize-1])
+NAND_BADBLOCKPAGE = 127	#Specify the page number of badblock flag inside a block(0-[PAGEPERBLOCK-1])
+NAND_PLANENUM = 1	#The planes number of target nand flash
+NAND_BCHBIT = 4		#Specify the hardware BCH algorithm for 4750 (4|8)
+NAND_WPPIN = 0		#Specify the write protect pin number
+NAND_BLOCKPERCHIP = 0	#Specify the block number per chip,0 means ignore
+
+#The program will calculate the total SDRAM size by : size = 2^(ROWADDR + COLADDR) * BANKNUM * (SDRAMWIDTH / 4)
+#The CPUSPEED has restriction as: ( CPUSPEED % EXTCLK == 0 ) && ( CPUSPEED % 12 == 0 )
+#For jz4750, the program just init BANK0(DSC0).
+#Beware all variables must be set correct!

sie_fs/root/scripts/jtag/jtag_cmds

@@ -0,0 +1,31 @@
+cable jz47xx
+detect
+instruction EXTEST
+pri
+shift ir
+set signal P44 out 1
+shift dr
+usleep 1000000
+Get signal P44
+set signal P44 out 0 
+shift dr
+usleep 100000
+Get signal P44
+set signal P44 out 1
+shift dr
+usleep 100000
+Get signal P44
+set signal P44 out 0
+shift dr
+usleep 100000
+Get signal P44
+set signal P44 out 1
+shift dr
+usleep 100000
+Get signal P44
+set signal P44 out 0
+shift dr
+usleep 100000
+Get signal P44
+instruction  BYPASS
+shift ir

sie_fs/root/scripts/jtag/load_ADC_test

@@ -0,0 +1,7 @@
+cable jz47xx
+detect
+instruction CFG_OUT  000100 BYPASS
+instruction CFG_IN   000101 BYPASS
+instruction JSTART   001100 BYPASS
+instruction JPROGRAM 001011 BYPASS
+pld load /root/FPGA/ADC.bit

sie_fs/root/scripts/jtag/load_bitstream_jtag

@@ -0,0 +1,9 @@
+cable jz47xx
+detect
+instruction CFG_OUT  000100 BYPASS
+instruction CFG_IN   000101 BYPASS
+instruction JSTART   001100 BYPASS
+instruction JPROGRAM 001011 BYPASS
+pld load binaries/blink.bit
+instruction BYPASS
+shift ir

sie_fs/root/scripts/jtag/rc

@@ -0,0 +1,8 @@
+cable jz47xx
+detect
+pri
+instruction CFG_OUT  000100 BYPASS
+instruction CFG_IN   000101 BYPASS
+instruction JSTART   001100 BYPASS
+instruction JPROGRAM 001011 BYPASS
+

sie_fs/root/scripts/lua/test/README

@@ -0,0 +1,26 @@
+These are simple tests for Lua.  Some of them contain useful code.
+They are meant to be run to make sure Lua is built correctly and also
+to be read, to see how Lua programs look.
+
+Here is a one-line summary of each program:
+
+   bisect.lua		bisection method for solving non-linear equations
+   cf.lua		temperature conversion table (celsius to farenheit)
+   echo.lua             echo command line arguments
+   env.lua              environment variables as automatic global variables
+   factorial.lua	factorial without recursion
+   fib.lua		fibonacci function with cache
+   fibfor.lua		fibonacci numbers with coroutines and generators
+   globals.lua		report global variable usage
+   hello.lua		the first program in every language
+   life.lua		Conway's Game of Life
+   luac.lua	 	bare-bones luac
+   printf.lua		an implementation of printf
+   readonly.lua		make global variables readonly
+   sieve.lua		the sieve of of Eratosthenes programmed with coroutines
+   sort.lua		two implementations of a sort function
+   table.lua		make table, grouping all data for the same item
+   trace-calls.lua	trace calls
+   trace-globals.lua	trace assigments to global variables
+   xd.lua		hex dump
+

sie_fs/root/scripts/lua/test/bisect.lua

@@ -0,0 +1,27 @@
+-- bisection method for solving non-linear equations
+
+delta=1e-6	-- tolerance
+
+function bisect(f,a,b,fa,fb)
+ local c=(a+b)/2
+ io.write(n," c=",c," a=",a," b=",b,"\n")
+ if c==a or c==b or math.abs(a-b)<delta then return c,b-a end
+ n=n+1
+ local fc=f(c)
+ if fa*fc<0 then return bisect(f,a,c,fa,fc) else return bisect(f,c,b,fc,fb) end
+end
+
+-- find root of f in the inverval [a,b]. needs f(a)*f(b)<0
+function solve(f,a,b)
+ n=0
+ local z,e=bisect(f,a,b,f(a),f(b))
+ io.write(string.format("after %d steps, root is %.17g with error %.1e, f=%.1e\n",n,z,e,f(z)))
+end
+
+-- our function
+function f(x)
+ return x*x*x-x-1
+end
+
+-- find zero in [1,2]
+solve(f,1,2)

sie_fs/root/scripts/lua/test/cf.lua

@@ -0,0 +1,16 @@
+-- temperature conversion table (celsius to farenheit)
+
+for c0=-20,50-1,10 do
+	io.write("C ")
+	for c=c0,c0+10-1 do
+		io.write(string.format("%3.0f ",c))
+	end
+	io.write("\n")
+	
+	io.write("F ")
+	for c=c0,c0+10-1 do
+		f=(9/5)*c+32
+		io.write(string.format("%3.0f ",f))
+	end
+	io.write("\n\n")
+end

sie_fs/root/scripts/lua/test/echo.lua

@@ -0,0 +1,5 @@
+-- echo command line arguments
+
+for i=0,table.getn(arg) do
+ print(i,arg[i])
+end

sie_fs/root/scripts/lua/test/env.lua

@@ -0,0 +1,7 @@
+-- read environment variables as if they were global variables
+
+local f=function (t,i) return os.getenv(i) end
+setmetatable(getfenv(),{__index=f})
+
+-- an example
+print(a,USER,PATH)

sie_fs/root/scripts/lua/test/factorial.lua

@@ -0,0 +1,32 @@
+-- function closures are powerful
+
+-- traditional fixed-point operator from functional programming
+Y = function (g)
+      local a = function (f) return f(f) end
+      return a(function (f)
+                 return g(function (x)
+                             local c=f(f)
+                             return c(x)
+                           end)
+               end)
+end
+
+
+-- factorial without recursion
+F = function (f)
+      return function (n)
+               if n == 0 then return 1
+               else return n*f(n-1) end
+             end
+    end
+
+factorial = Y(F)   -- factorial is the fixed point of F
+
+-- now test it
+function test(x)
+	io.write(x,"! = ",factorial(x),"\n")
+end
+
+for n=0,16 do
+	test(n)
+end

sie_fs/root/scripts/lua/test/fib.lua

@@ -0,0 +1,40 @@
+-- fibonacci function with cache
+
+-- very inefficient fibonacci function
+function fib(n)
+	N=N+1
+	if n<2 then
+		return n
+	else
+		return fib(n-1)+fib(n-2)
+	end
+end
+
+-- a general-purpose value cache
+function cache(f)
+	local c={}
+	return function (x)
+		local y=c[x]
+		if not y then
+			y=f(x)
+			c[x]=y
+		end
+		return y
+	end
+end
+
+-- run and time it
+function test(s,f)
+	N=0
+	local c=os.clock()
+	local v=f(n)
+	local t=os.clock()-c
+	print(s,n,v,t,N)
+end
+
+n=arg[1] or 24		-- for other values, do lua fib.lua XX
+n=tonumber(n)
+print("","n","value","time","evals")
+test("plain",fib)
+fib=cache(fib)
+test("cached",fib)

sie_fs/root/scripts/lua/test/fibfor.lua

@@ -0,0 +1,13 @@
+-- example of for with generator functions
+
+function generatefib (n)
+  return coroutine.wrap(function ()
+    local a,b = 1, 1
+    while a <= n do
+      coroutine.yield(a)
+      a, b = b, a+b
+    end
+  end)
+end
+
+for i in generatefib(1000) do print(i) end

sie_fs/root/scripts/lua/test/globals.lua

@@ -0,0 +1,13 @@
+-- reads luac listings and reports global variable usage
+-- lines where a global is written to are marked with "*"
+-- typical usage: luac -p -l file.lua | lua globals.lua | sort | lua table.lua
+
+while 1 do
+ local s=io.read()
+ if s==nil then break end
+ local ok,_,l,op,g=string.find(s,"%[%-?(%d*)%]%s*([GS])ETGLOBAL.-;%s+(.*)$")
+ if ok then
+  if op=="S" then op="*" else op="" end
+  io.write(g,"\t",l,op,"\n")
+ end
+end

sie_fs/root/scripts/lua/test/hello.lua

@@ -0,0 +1,3 @@
+-- the first program in every language
+
+io.write("Hello world, from ",_VERSION,"!\n")

sie_fs/root/scripts/lua/test/life.lua

@@ -0,0 +1,111 @@
+-- life.lua
+-- original by Dave Bollinger <DBollinger@compuserve.com> posted to lua-l
+-- modified to use ANSI terminal escape sequences
+-- modified to use for instead of while
+
+local write=io.write
+
+ALIVE="<EFBFBD>"	DEAD="<EFBFBD>"
+ALIVE="O"	DEAD="-"
+
+function delay() -- NOTE: SYSTEM-DEPENDENT, adjust as necessary
+  for i=1,10000 do end
+  -- local i=os.clock()+1 while(os.clock()<i) do end
+end
+
+function ARRAY2D(w,h)
+  local t = {w=w,h=h}
+  for y=1,h do
+    t[y] = {}
+    for x=1,w do
+      t[y][x]=0
+    end
+  end
+  return t
+end
+
+_CELLS = {}
+
+-- give birth to a "shape" within the cell array
+function _CELLS:spawn(shape,left,top)
+  for y=0,shape.h-1 do
+    for x=0,shape.w-1 do
+      self[top+y][left+x] = shape[y*shape.w+x+1]
+    end
+  end
+end
+
+-- run the CA and produce the next generation
+function _CELLS:evolve(next)
+  local ym1,y,yp1,yi=self.h-1,self.h,1,self.h
+  while yi > 0 do
+    local xm1,x,xp1,xi=self.w-1,self.w,1,self.w
+    while xi > 0 do
+      local sum = self[ym1][xm1] + self[ym1][x] + self[ym1][xp1] +
+                  self[y][xm1] + self[y][xp1] +
+                  self[yp1][xm1] + self[yp1][x] + self[yp1][xp1]
+      next[y][x] = ((sum==2) and self[y][x]) or ((sum==3) and 1) or 0
+      xm1,x,xp1,xi = x,xp1,xp1+1,xi-1
+    end
+    ym1,y,yp1,yi = y,yp1,yp1+1,yi-1
+  end
+end
+
+-- output the array to screen
+function _CELLS:draw()
+  local out="" -- accumulate to reduce flicker
+  for y=1,self.h do
+   for x=1,self.w do
+      out=out..(((self[y][x]>0) and ALIVE) or DEAD)
+    end
+    out=out.."\n"
+  end
+  write(out)
+end
+
+-- constructor
+function CELLS(w,h)
+  local c = ARRAY2D(w,h)
+  c.spawn = _CELLS.spawn
+  c.evolve = _CELLS.evolve
+  c.draw = _CELLS.draw
+  return c
+end
+
+--
+-- shapes suitable for use with spawn() above
+--
+HEART = { 1,0,1,1,0,1,1,1,1; w=3,h=3 }
+GLIDER = { 0,0,1,1,0,1,0,1,1; w=3,h=3 }
+EXPLODE = { 0,1,0,1,1,1,1,0,1,0,1,0; w=3,h=4 }
+FISH = { 0,1,1,1,1,1,0,0,0,1,0,0,0,0,1,1,0,0,1,0; w=5,h=4 }
+BUTTERFLY = { 1,0,0,0,1,0,1,1,1,0,1,0,0,0,1,1,0,1,0,1,1,0,0,0,1; w=5,h=5 }
+
+-- the main routine
+function LIFE(w,h)
+  -- create two arrays
+  local thisgen = CELLS(w,h)
+  local nextgen = CELLS(w,h)
+
+  -- create some life
+  -- about 1000 generations of fun, then a glider steady-state
+  thisgen:spawn(GLIDER,5,4)
+  thisgen:spawn(EXPLODE,25,10)
+  thisgen:spawn(FISH,4,12)
+
+  -- run until break
+  local gen=1
+  write("\027[2J")	-- ANSI clear screen
+  while 1 do
+    thisgen:evolve(nextgen)
+    thisgen,nextgen = nextgen,thisgen
+    write("\027[H")	-- ANSI home cursor
+    thisgen:draw()
+    write("Life - generation ",gen,"\n")
+    gen=gen+1
+    if gen>2000 then break end
+    --delay()		-- no delay
+  end
+end
+
+LIFE(40,20)

sie_fs/root/scripts/lua/test/luac.lua

@@ -0,0 +1,7 @@
+-- bare-bones luac in Lua
+-- usage: lua luac.lua file.lua
+
+assert(arg[1]~=nil and arg[2]==nil,"usage: lua luac.lua file.lua")
+f=assert(io.open("luac.out","wb"))
+assert(f:write(string.dump(assert(loadfile(arg[1])))))
+assert(f:close())

sie_fs/root/scripts/lua/test/printf.lua

@@ -0,0 +1,7 @@
+-- an implementation of printf
+
+function printf(...)
+ io.write(string.format(...))
+end
+
+printf("Hello %s from %s on %s\n",os.getenv"USER" or "there",_VERSION,os.date())

sie_fs/root/scripts/lua/test/readonly.lua

@@ -0,0 +1,12 @@
+-- make global variables readonly
+
+local f=function (t,i) error("cannot redefine global variable `"..i.."'",2) end
+local g={}
+local G=getfenv()
+setmetatable(g,{__index=G,__newindex=f})
+setfenv(1,g)
+
+-- an example
+rawset(g,"x",3)
+x=2
+y=1	-- cannot redefine `y'

sie_fs/root/scripts/lua/test/sieve.lua

@@ -0,0 +1,29 @@
+-- the sieve of of Eratosthenes programmed with coroutines
+-- typical usage: lua -e N=1000 sieve.lua | column
+
+-- generate all the numbers from 2 to n
+function gen (n)
+  return coroutine.wrap(function ()
+    for i=2,n do coroutine.yield(i) end
+  end)
+end
+
+-- filter the numbers generated by `g', removing multiples of `p'
+function filter (p, g)
+  return coroutine.wrap(function ()
+    while 1 do
+      local n = g()
+      if n == nil then return end
+      if math.mod(n, p) ~= 0 then coroutine.yield(n) end
+    end
+  end)
+end
+
+N=N or 1000		-- from command line
+x = gen(N)		-- generate primes up to N
+while 1 do
+  local n = x()		-- pick a number until done
+  if n == nil then break end
+  print(n)		-- must be a prime number
+  x = filter(n, x)	-- now remove its multiples
+end

sie_fs/root/scripts/lua/test/sort.lua

@@ -0,0 +1,66 @@
+-- two implementations of a sort function
+-- this is an example only. Lua has now a built-in function "sort"
+
+-- extracted from Programming Pearls, page 110
+function qsort(x,l,u,f)
+ if l<u then
+  local m=math.random(u-(l-1))+l-1	-- choose a random pivot in range l..u
+  x[l],x[m]=x[m],x[l]			-- swap pivot to first position
+  local t=x[l]				-- pivot value
+  m=l
+  local i=l+1
+  while i<=u do
+    -- invariant: x[l+1..m] < t <= x[m+1..i-1]
+    if f(x[i],t) then
+      m=m+1
+      x[m],x[i]=x[i],x[m]		-- swap x[i] and x[m]
+    end
+    i=i+1
+  end
+  x[l],x[m]=x[m],x[l]			-- swap pivot to a valid place
+  -- x[l+1..m-1] < x[m] <= x[m+1..u]
+  qsort(x,l,m-1,f)
+  qsort(x,m+1,u,f)
+ end
+end
+
+function selectionsort(x,n,f)
+ local i=1
+ while i<=n do
+  local m,j=i,i+1
+  while j<=n do
+   if f(x[j],x[m]) then m=j end
+   j=j+1
+  end
+ x[i],x[m]=x[m],x[i]			-- swap x[i] and x[m]
+ i=i+1
+ end
+end
+
+function show(m,x)
+ io.write(m,"\n\t")
+ local i=1
+ while x[i] do
+  io.write(x[i])
+  i=i+1
+  if x[i] then io.write(",") end
+ end
+ io.write("\n")
+end
+
+function testsorts(x)
+ local n=1
+ while x[n] do n=n+1 end; n=n-1		-- count elements
+ show("original",x)
+ qsort(x,1,n,function (x,y) return x<y end)
+ show("after quicksort",x)
+ selectionsort(x,n,function (x,y) return x>y end)
+ show("after reverse selection sort",x)
+ qsort(x,1,n,function (x,y) return x<y end)
+ show("after quicksort again",x)
+end
+
+-- array to be sorted
+x={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"}
+
+testsorts(x)

sie_fs/root/scripts/lua/test/table.lua

@@ -0,0 +1,12 @@
+-- make table, grouping all data for the same item
+-- input is 2 columns (item, data)
+
+local A
+while 1 do
+ local l=io.read()
+ if l==nil then break end
+ local _,_,a,b=string.find(l,'"?([_%w]+)"?%s*(.*)$')
+ if a~=A then A=a io.write("\n",a,":") end
+ io.write(" ",b)
+end
+io.write("\n")

sie_fs/root/scripts/lua/test/trace-calls.lua

@@ -0,0 +1,32 @@
+-- trace calls
+-- example: lua -ltrace-calls bisect.lua
+
+local level=0
+
+local function hook(event)
+ local t=debug.getinfo(3)
+ io.write(level," >>> ",string.rep(" ",level))
+ if t~=nil and t.currentline>=0 then io.write(t.short_src,":",t.currentline," ") end
+ t=debug.getinfo(2)
+ if event=="call" then
+  level=level+1
+ else
+  level=level-1 if level<0 then level=0 end
+ end
+ if t.what=="main" then
+  if event=="call" then
+   io.write("begin ",t.short_src)
+  else
+   io.write("end ",t.short_src)
+  end
+ elseif t.what=="Lua" then
+-- table.foreach(t,print)
+  io.write(event," ",t.name or "(Lua)"," <",t.linedefined,":",t.short_src,">")
+ else
+ io.write(event," ",t.name or "(C)"," [",t.what,"] ")
+ end
+ io.write("\n")
+end
+
+debug.sethook(hook,"cr")
+level=0

sie_fs/root/scripts/lua/test/trace-globals.lua

@@ -0,0 +1,38 @@
+-- trace assigments to global variables
+
+do
+ -- a tostring that quotes strings. note the use of the original tostring.
+ local _tostring=tostring
+ local tostring=function(a)
+  if type(a)=="string" then
+   return string.format("%q",a)
+  else
+   return _tostring(a)
+  end
+ end
+
+ local log=function (name,old,new)
+  local t=debug.getinfo(3,"Sl")
+  local line=t.currentline
+  io.write(t.short_src)
+  if line>=0 then io.write(":",line) end
+  io.write(": ",name," is now ",tostring(new)," (was ",tostring(old),")","\n")
+ end
+
+ local g={}
+ local set=function (t,name,value)
+  log(name,g[name],value)
+  g[name]=value
+ end
+ setmetatable(getfenv(),{__index=g,__newindex=set})
+end
+
+-- an example
+
+a=1
+b=2
+a=10
+b=20
+b=nil
+b=200
+print(a,b,c)

sie_fs/root/scripts/lua/test/xd.lua

@@ -0,0 +1,14 @@
+-- hex dump
+-- usage: lua xd.lua < file
+
+local offset=0
+while true do
+ local s=io.read(16)
+ if s==nil then return end
+ io.write(string.format("%08X  ",offset))
+ string.gsub(s,"(.)",
+	function (c) io.write(string.format("%02X ",string.byte(c))) end)
+ io.write(string.rep(" ",3*(16-string.len(s))))
+ io.write(" ",string.gsub(s,"%c","."),"\n") 
+ offset=offset+16
+end

sie_fs/root/scripts/lua/test_gpio.lua

@@ -0,0 +1,28 @@
+package.cpath = "./?.so"
+require "gpio"
+
+  PORT_A = 0
+  PORT_B = 1
+  PORT_C = 2
+  PORT_D = 3
+
+  function pulse()
+    gpio.set_pin(pio,17)
+    delay_s(1)
+    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=gpio.open_port(PORT_C)
+  gpio.gpio_as_output(pio,17)
+
+  for i=0,2,1 do
+    pulse()
+  end
+