org/jpc/luaextensions/ComponentCoding.java

   1 /*
   2     JPC-RR: A x86 PC Hardware Emulator
   3     Release 1
   4
   5     Copyright (C) 2007-2009 Isis Innovation Limited
   6     Copyright (C) 2009 H. Ilari Liusvaara
   7
   8     This program is free software; you can redistribute it and/or modify
   9     it under the terms of the GNU General Public License version 2 as published by
  10     the Free Software Foundation.
  11
  12     This program is distributed in the hope that it will be useful,
  13     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15     GNU General Public License for more details.
  16
  17     You should have received a copy of the GNU General Public License along
  18     with this program; if not, write to the Free Software Foundation, Inc.,
  19     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  20
  21     Based on JPC x86 PC Hardware emulator,
  22     A project from the Physics Dept, The University of Oxford
  23
  24     Details about original JPC can be found at:
  25
  26     www-jpc.physics.ox.ac.uk
  27
  28 */
  29
  30 package org.jpc.luaextensions;
  31
  32 import mnj.lua.*;
  33
  34 import java.io.*;
  35
  36 import org.jpc.plugins.LuaPlugin;
  37 import static org.jpc.Misc.parseString;
  38 import static org.jpc.Misc.encodeLine;
  39
  40 //Locking this class is used for preventing termination and when terminating.
  41 public class ComponentCoding extends LuaPlugin.LuaResource
  42 {
  43     public void destroy()
  44     {
  45     }
  46
  47     private ComponentCoding(LuaPlugin plugin)
  48     {
  49         super(plugin);
  50     }
  51
  52     public static int luaCB_decode(Lua l, LuaPlugin plugin)
  53     {
  54         l.pushNil();
  55         try {
  56             String[] x = parseString(l.checkString(1));
  57             if(x != null) {
  58                 LuaTable tab = l.newTable();
  59                 for(int i = 0; i < x.length; i++)
  60                     l.setTable(tab, new Double(i + 1), x[i]);
  61                 l.push(tab);
  62             } else {
  63                 l.pushNil();
  64                 l.pushNil();
  65                 return 2;
  66             }
  67         } catch(IOException e) {
  68             l.pushNil();
  69             l.pushString("IOException: " + e.getMessage());
  70             return 2;
  71         }
  72         return 1;
  73     }
  74
  75     public static int luaCB_encode(Lua l, LuaPlugin plugin)
  76     {
  77         l.pushNil();
  78         int c = Lua.objLen(l.value(1));
  79         if(c <= 0) {
  80             l.pushBoolean(false);
  81             l.pushString("Required at least one component to write.");
  82             return 2;
  83         }
  84         Object tab = l.value(1);
  85         String[] x = new String[c];
  86         for(int i = 0; i < c; i++) {
  87             Object obj = l.getTable(tab, new Double(i + 1));
  88             if(obj instanceof String)
  89                 x[i] = (String)obj;
  90             else
  91                 l.error("Can't write non-string component");
  92         }
  93         l.push(encodeLine(x));
  94         return 1;
  95     }
  96 }