?php /****************************** * WoWRoster.net Roster * Copyright 2002-2006 * Licensed under the Creative Commons * "Attribution-NonCommercial-ShareAlike 2.5" license * * Short summary * http://creativecommons.org/licenses/by-nc-sa/2.5/ * * Full license information * http://creativecommons.org/licenses/by- ... /legalcode * ----------------------------- * * $Id: luaparser.php 63 2006-06-14 22:30:35Z mathos $ * ******************************/ if ( !defined('ROSTER_INSTALLED') ) { exit('Detected invalid access to this file!'); } /** * Wrapper function so that you can parse a file instead of an array. * @author six */ function ParseLuaFile($filename , $mode=null ) { // if(file_exists($filename)) // { if( $mode == 'gz' ) { $file_as_array = gzfile($filename); } else { $file_as_array = file($filename); } return(ParseLuaArray($file_as_array)); // } return(false); } /** * Main LUA parsing function * @author six, originally mordon */ function ParseLuaArray( &$file_as_array ) { if (!is_array($file_as_array)) { // return false if not presented with an array return(false); } else { // Parse the contents of the array $stack = array( array( '', array()) ); $stack_pos = 0; $last_line = ''; foreach( $file_as_array as $line ) { // join lines ending in \\ together if( substr( $line, -2, 1 ) == '\\' ) { $last_line .= substr($line, 0, -2) . "\n"; continue; } if($last_line!='') { $line = trim($last_line . $line); $last_line = ''; } else { $line = trim($line); } $line = rtrim($line, ','); // Look for a key value pair if( strpos( $line, '=' ) ) { list($name, $value) = explode( '=', $line, 2 ); $name = trim($name); $value = trim($value); if($name[0]=='[') { $name = trim($name, '[]"'); } if( $value == '{' ) { $stack_pos++; $stack[$stack_pos] = array($name, array()); } else { if($value[0]=='"') { $value = substr($value,1,-1); } else if($value == 'true') { $value = true; } else if($value == 'false') { $value = false; } else if($value == 'nil') { $value = NULL; } $stack[$stack_pos][1][$name] = $value; } } else if( $line == '}' ) { $hash = $stack[$stack_pos]; $stack_pos--; $stack[$stack_pos][1][$hash[0]] = $hash[1]; } } return($stack[0][1]); } } ?>

Code: Select all

<?php