Gammon Forum

a, b, c = utils.xmlread [[
<foo width="1" height="2">
contents of foo
  <bar west="true" fish="bicycle">
  child of foo
  </bar>
</foo>
<goat blood="100">eep</goat>
]]

if not a then 
  print ("error on line = ", c) 
end -- if

assert (a, b)

tprint (a)

"line"=0
"name"=""
"content"=""
"nodes":
  1:
    "line"=2
    "name"="foo"
    "nodes":
      1:
        "line"=4
        "name"="bar"
        "content"="
  child of foo
  "
        "attributes":
          "fish"="bicycle"
          "west"="true"
    "content"="
contents of foo
  
"
    "attributes":
      "height"="2"
      "width"="1"
  2:
    "line"=8
    "name"="goat"
    "content"="eep"
    "attributes":
      "blood"="100"

<!DOCTYPE muclient [
  <!ENTITY afk_command "afk" > 
  <!ENTITY timer_mins "5" > 
  <!ENTITY timer_secs "0" > 
  <!ENTITY afk_message "You are now afk." > 
  <!ENTITY not_afk_message "You are no longer afk." > 
]>

<aliases>
  <alias
   name="test"
   match="eat"
   sequence="100"
  >
  <send>eat food</send>
  </alias>
</aliases>

"line"=0
"name"=""
"nodes":
  1:
    "line"=2
    "name"="aliases"
    "nodes":
      1:
        "line"=3
        "name"="alias"
        "nodes":
          1:
            "line"=8
            "content"="eat food"
            "name"="send"
        "content"="
  
  "
        "attributes":
          "sequence"="100"
          "name"="test"
          "match"="eat"
    "content"="
  
"
"content"=""

function writenode (node)

  -- root node won't have a name
  if node.name ~= "" then

    -- show node name followed by attributes (if any)
    Tell ("<" .. node.name)

    if node.attributes then
      print ""
      for k, v in pairs (node.attributes) do
        print ("  " .. k .. '="' .. FixupHTML (v) .. '"')
      end -- doing attributes
    end -- if

    if node.empty then
      print ("/>")
      return  -- no closing tag
    else
      Tell (">")
    end -- if

  end -- if have a node name

  -- print node contents
  Tell (FixupHTML (node.content))

  -- do children
  if node.nodes then
    for k, v in ipairs (node.nodes) do
      writenode (v)
    end -- for
  end -- of having children

  -- root node won't have a name
  if node.name ~= "" then

	-- closing tag
    print ("</" .. node.name .. ">")

  end -- if have a node name
  
end -- writenode 

<aliases>
  
<alias
  sequence="100"
  name="test"
  match="eat"
>
  
  <send>eat food</send>
</alias>
</aliases>

#define LUA_API __declspec(dllexport)

#pragma comment( lib, "lua.lib" )
#pragma comment( lib, "lualib.lib" )

#include "lua.h"

#include "lauxlib.h"
#include "lualib.h"

   static int l_split (lua_State *L) {
      const char *s = luaL_checkstring(L, 1);
      const char *sep = luaL_checkstring(L, 2);
      const char *e;
      int i = 1;
    
      lua_newtable(L);  /* result */
    
      /* repeat for each separator */
      while ((e = strchr(s, *sep)) != NULL) {
        lua_pushlstring(L, s, e-s);  /* push substring */
        lua_rawseti(L, -2, i++);
        s = e + 1;  /* skip separator */
      }
    
      /* push last substring */
      lua_pushstring(L, s);
      lua_rawseti(L, -2, i);
    
      return 1;  /* return the table */
    }
    
static const luaL_reg strlib[] = 
{
  {"split", l_split},
  {NULL, NULL}
};

/*
** Open test library
*/
LUALIB_API int luaopen_strlib (lua_State *L)
 {
  luaL_openlib(L, "strlib", strlib, 0);
  return 1;
 }

     /* push last substring, if it exists */
     if (*s)
       {
       lua_pushstring(L, s);
       lua_rawseti(L, -2, i);
       }