php/php-gtk-src
1
0
Fork 0
mirror of https://github.com/php/php-gtk-src.git synced 2026-03-24 09:12:12 +01:00
Code Issues 11 Packages Projects Releases Wiki Activity
Files
GTK2
php-gtk-src/generator/scheme.php
Alan Knowles 01d86f1c92 comment out speed monitoring code
2003-09-30 13:53:22 +00:00

330 lines
8.7 KiB
PHP
Raw Permalink Blame History

<?php
/*
* PHP-GTK - The PHP language bindings for GTK+
*
* Copyright (C) 2001,2002 Andrei Zmievski <andrei@php.net>
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
/* $Id$ */
require "definitions.php";
$char_table = str_repeat(' ', 256);
foreach (range(0, 255) as $i)
$char_table[$i] = chr($i);
$translation_table = preg_replace('![^a-zA-Z_]!', '_', $char_table);
function parse($fp)
{
$stack = array(array());
$l =0;
while ($line = fgets($fp, 4096)) {
$l++;
//used to monitor speed.. (see MEMORY_CACHE email on internals@php.net 30/sept/2003)
//if (($l % 100) == 0) {
// error_log("Loading Line $l");
//}
while (($line = ltrim($line)) != '') {
if ($line{0} == '(') {
array_push($stack, array());
$line = substr($line, 1);
} else if ($line{0} == ')') {
$closed = array_pop($stack);
if (empty($stack)) {
echo "unmatched bracket on line $l\n";
exit;
}
array_push($stack[count($stack)-1], $closed);
$line = substr($line, 1);
} else if ($line{0} == '"') {
$pos = strpos($line, '"', 1);
array_push($stack[count($stack)-1], substr($line, 1, $pos-1));
$line = substr($line, $pos+1);
} else if (strpos($line{0}, '0123456789') !== false) {
$span = strspn($line, '0123456789+-.');
$numstr = substr($line, 0, $span);
$line = substr($line, $span);
array_push($stack[count($stack)-1], (double)$numstr);
} else if ($line{0} == ';')
break;
else {
$span = strcspn($line, " \t();\n\r");
$str = substr($line, 0, $span);
$line = substr($line, $span);
array_push($stack[count($stack)-1], $str);
}
}
}
if (count($stack) != 1)
trigger_error("Parentheses don't match");
return $stack[0];
}
class Defs_Parser {
var $parse_tree = null;
var $parse_cache = null;
var $file_path = null;
var $file_name = null;
var $objects = array(); // objects
var $functions = array(); // module functions
var $constructors = array(); // object constructors
var $methods = array(); // object methods
var $enums = array(); // enums and flags
var $structs = array(); // structures
var $c_name = array(); // C names of entities
function Defs_Parser($arg)
{
switch (gettype($arg)) {
case 'string':
$this->_parse_or_load($arg);
break;
case 'array':
$this->parse_tree = $arg;
break;
default:
trigger_error('Constructor argument must be filename or array');
break;
}
}
function _parse_or_load($defs_file)
{
$cache_file = $defs_file.'.cache';
if (@is_file($cache_file) &&
filemtime($cache_file) > filemtime($defs_file)) {
error_log("Loading cache \"$cache_file\"");
$fp = fopen($cache_file, 'r');
$this->parse_cache = fread($fp, filesize($cache_file));
fclose($fp);
} else {
error_log("Parsing file \"$defs_file\".");
$this->file_name = basename($defs_file);
$this->file_path = dirname($defs_file);
$this->defaults = array();
if (file_exists("{$defs_file}.defaults")) {
$this->defaults = parse_ini_file("{$defs_file}.defaults",true);
}
$this->parse_tree = parse(fopen($defs_file, 'r'));
if (file_exists("{$defs_file}.extra")) {
$this->parse_tree = array_merge($this->parse_tree,
parse(fopen($defs_file.'.extra', 'r')));
}
}
// error_log(print_r($this->parse_tree,true));
}
function start_parsing($tree = NULL)
{
if (isset($this->parse_cache)) {
$this->unserialize($this->parse_cache);
} else {
if (!isset($tree))
$tree = $this->parse_tree;
foreach ($tree as $node)
$this->handle($node);
if (is_writeable($this->file_path)) {
$cache_file = $this->file_path . '/' . $this->file_name . '.cache';
$fp = fopen($cache_file, 'w');
fwrite($fp, $this->serialize());
fclose($fp);
}
}
}
function serialize()
{
return serialize((array)$this);
}
function unserialize($buffer)
{
foreach (unserialize($buffer) as $var => $content) {
$this->$var = $content;
}
}
function merge($parser)
{
$this->parse_tree = array_merge($this->parse_tree, $parser->parse_tree);
}
function handle($node)
{
global $char_table,
$translation_table;
$cmd = "handle_" . strtr($node[0], $char_table, $translation_table);
if (method_exists($this, $cmd))
$this->$cmd(array_slice($node, 1));
else
$this->handle_unknown($node);
}
function handle_enum($arg)
{
$enum_def = new Enum_Def($arg);
if (basename($this->file_path) == 'gtk+')
$enum_def->simple = false;
$this->enums[] = &$enum_def;
$this->c_name[] = &$enum_def->c_name;
}
function handle_flags($arg)
{
$flag_def = new Flag_Def($arg);
$this->enums[] = &$flag_def;
$this->c_name[] = &$flag_def->c_name;
}
function _mergeDefaults($arg,$defaults) {
foreach(array_keys($arg) as $i) {
if (!is_array($arg[$i])) {
continue;
}
if ($arg[$i][0] != 'parameter') {
continue;
}
$argname = $arg[$i][1][2];
if (!isset($defaults[$argname])) {
continue;
}
$default = $defaults[$argname];
// has it got a space...
if ($default == 'null-ok') {
$arg[$i][] = array('null-ok');
continue;
}
if (strpos($default,' ')) {
list($default,$nullok) = explode(' ',$default);
$arg[$i][] = array('default',$default);
$arg[$i][] = array('null-ok');
continue;
}
$arg[$i][] = array('default',$default);
}
return $arg;
}
function handle_function($arg)
{
if (isset($this->defaults[$arg[0]])) {
$arg = $this->_mergeDefaults($arg,$this->defaults[$arg[0]]);
}
$function_def = new Function_Def($arg);
if (isset($function_def->is_constructor_of))
$this->constructors[] = &$function_def;
else
$this->functions[] = &$function_def;
$this->c_name[] = &$function_def->c_name;
}
function handle_method($arg)
{
foreach($arg as $k=>$v) {
if (!is_array($v)) {
continue;
}
if (($v[0] == 'c-name') && isset($this->defaults[$v[1]])) {
$arg = $this->_mergeDefaults($arg,$this->defaults[$v[1]]);
break;
}
}
$method_def = new Method_Def($arg);
$this->methods[] = &$method_def;
$this->c_name[] = &$method_def->c_name;
}
function handle_object($arg)
{
//echo 'handle Object:'.print_r($arg);
$object_def = new Object_Def($arg);
//echo 'result Object:'.print_r($object_def);
$this->objects[$object_def->in_module . $object_def->name] = &$object_def;
$this->c_name[] = &$object_def->c_name;
}
function handle_struct($arg)
{
$struct_def = new Struct_Def($arg);
$this->structs[] = &$struct_def;
$this->c_name[] = &$struct_def->c_name;
}
function handle_include($arg)
{
$include_file = $this->file_path . "/" . $arg[0];
error_log("Parsing file \"$include_file\".");
$include_tree = parse(fopen($include_file, 'r'));
$this->start_parsing($include_tree);
}
function handle_unknown($node)
{
/* noop */
}
function find_methods($obj)
{
$obj_signature = array($obj->name, $obj->in_module);
$obj_methods = array();
foreach ($this->methods as $method) {
if ($method->of_object == $obj_signature)
$obj_methods[] = $method;
}
return $obj_methods;
}
function find_constructor($obj)
{
foreach ($this->constructors as $constructor) {
if ($constructor->is_constructor_of == $obj->c_name)
return $constructor;
}
}
function find_parent($obj)
{
if (isset($obj->parent)) {
return $this->objects[$obj->parent[1] . $obj->parent[0]];
}
}
}
?>
Reference in New Issue View Git Blame Copy Permalink