+++ /dev/null
-/*\r
- +----------------------------------------------------------------------+\r
- | PHP Version 5 |\r
- +----------------------------------------------------------------------+\r
- | Copyright (c) 1997-2011 The PHP Group |\r
- +----------------------------------------------------------------------+\r
- | This source file is subject to version 3.01 of the PHP license, |\r
- | that is bundled with this package in the file LICENSE, and is |\r
- | available through the world-wide-web at the following url: |\r
- | http://www.php.net/license/3_01.txt |\r
- | If you did not receive a copy of the PHP license and are unable to |\r
- | obtain it through the world-wide-web, please send a note to |\r
- | license@php.net so we can mail you a copy immediately. |\r
- +----------------------------------------------------------------------+\r
- | Author: Marcus Boerger <helly@php.net> |\r
- | Johannes Schlueter <johannes@php.net> |\r
- +----------------------------------------------------------------------+\r
-*/\r
-\r
-/* $Id: php_cli_readline.c 306939 2011-01-01 02:19:59Z felipe $ */\r
-\r
-#include "php.h"\r
-\r
-#if (HAVE_LIBREADLINE || HAVE_LIBEDIT) && !defined(COMPILE_DL_READLINE)\r
-\r
-#ifndef HAVE_RL_COMPLETION_MATCHES\r
-#define rl_completion_matches completion_matches\r
-#endif\r
-\r
-#include "php_globals.h"\r
-#include "php_variables.h"\r
-#include "zend_hash.h"\r
-#include "zend_modules.h"\r
-\r
-#include "SAPI.h"\r
-\r
-#if HAVE_SETLOCALE\r
-#include <locale.h>\r
-#endif\r
-#include "zend.h"\r
-#include "zend_extensions.h"\r
-#include "php_ini.h"\r
-#include "php_globals.h"\r
-#include "php_main.h"\r
-#include "fopen_wrappers.h"\r
-#include "ext/standard/php_standard.h"\r
-\r
-#ifdef __riscos__\r
-#include <unixlib/local.h>\r
-#endif\r
-\r
-#if HAVE_LIBEDIT\r
-#include <editline/readline.h>\r
-#else\r
-#include <readline/readline.h>\r
-#include <readline/history.h>\r
-#endif\r
-\r
-#include "zend_compile.h"\r
-#include "zend_execute.h"\r
-#include "zend_highlight.h"\r
-#include "zend_indent.h"\r
-\r
-typedef enum {\r
- body,\r
- sstring,\r
- dstring,\r
- sstring_esc,\r
- dstring_esc,\r
- comment_line,\r
- comment_block,\r
- heredoc_start,\r
- heredoc,\r
- outside,\r
-} php_code_type;\r
-\r
-int cli_is_valid_code(char *code, int len, char **prompt TSRMLS_DC) /* {{{ */\r
-{\r
- int valid_end = 1, last_valid_end;\r
- int brackets_count = 0;\r
- int brace_count = 0;\r
- int i;\r
- php_code_type code_type = body;\r
- char *heredoc_tag;\r
- int heredoc_len;\r
-\r
- for (i = 0; i < len; ++i) {\r
- switch(code_type) {\r
- default:\r
- switch(code[i]) {\r
- case '{':\r
- brackets_count++;\r
- valid_end = 0;\r
- break;\r
- case '}':\r
- if (brackets_count > 0) {\r
- brackets_count--;\r
- }\r
- valid_end = brackets_count ? 0 : 1;\r
- break;\r
- case '(':\r
- brace_count++;\r
- valid_end = 0;\r
- break;\r
- case ')':\r
- if (brace_count > 0) {\r
- brace_count--;\r
- }\r
- valid_end = 0;\r
- break;\r
- case ';':\r
- valid_end = brace_count == 0 && brackets_count == 0;\r
- break;\r
- case ' ':\r
- case '\r':\r
- case '\n':\r
- case '\t':\r
- break;\r
- case '\'':\r
- code_type = sstring;\r
- break;\r
- case '"':\r
- code_type = dstring;\r
- break;\r
- case '#':\r
- code_type = comment_line;\r
- break;\r
- case '/':\r
- if (code[i+1] == '/') {\r
- i++;\r
- code_type = comment_line;\r
- break;\r
- }\r
- if (code[i+1] == '*') {\r
- last_valid_end = valid_end;\r
- valid_end = 0;\r
- code_type = comment_block;\r
- i++;\r
- break;\r
- }\r
- valid_end = 0;\r
- break;\r
- case '%':\r
- if (!CG(asp_tags)) {\r
- valid_end = 0;\r
- break;\r
- }\r
- /* no break */\r
- case '?':\r
- if (code[i+1] == '>') {\r
- i++;\r
- code_type = outside;\r
- break;\r
- }\r
- valid_end = 0;\r
- break;\r
- case '<':\r
- valid_end = 0;\r
- if (i + 2 < len && code[i+1] == '<' && code[i+2] == '<') {\r
- i += 2;\r
- code_type = heredoc_start;\r
- heredoc_len = 0;\r
- }\r
- break;\r
- default:\r
- valid_end = 0;\r
- break;\r
- }\r
- break;\r
- case sstring:\r
- if (code[i] == '\\') {\r
- code_type = sstring_esc;\r
- } else {\r
- if (code[i] == '\'') {\r
- code_type = body;\r
- }\r
- }\r
- break;\r
- case sstring_esc:\r
- code_type = sstring;\r
- break;\r
- case dstring:\r
- if (code[i] == '\\') {\r
- code_type = dstring_esc;\r
- } else {\r
- if (code[i] == '"') {\r
- code_type = body;\r
- }\r
- }\r
- break;\r
- case dstring_esc:\r
- code_type = dstring;\r
- break;\r
- case comment_line:\r
- if (code[i] == '\n') {\r
- code_type = body;\r
- }\r
- break;\r
- case comment_block:\r
- if (code[i-1] == '*' && code[i] == '/') {\r
- code_type = body;\r
- valid_end = last_valid_end;\r
- }\r
- break;\r
- case heredoc_start:\r
- switch(code[i]) {\r
- case ' ':\r
- case '\t':\r
- break;\r
- case '\r':\r
- case '\n':\r
- code_type = heredoc;\r
- break;\r
- default:\r
- if (!heredoc_len) {\r
- heredoc_tag = code+i;\r
- }\r
- heredoc_len++;\r
- break;\r
- }\r
- break;\r
- case heredoc:\r
- if (code[i - (heredoc_len + 1)] == '\n' && !strncmp(code + i - heredoc_len, heredoc_tag, heredoc_len) && code[i] == '\n') {\r
- code_type = body;\r
- } else if (code[i - (heredoc_len + 2)] == '\n' && !strncmp(code + i - heredoc_len - 1, heredoc_tag, heredoc_len) && code[i-1] == ';' && code[i] == '\n') {\r
- code_type = body;\r
- valid_end = 1;\r
- }\r
- break;\r
- case outside:\r
- if ((CG(short_tags) && !strncmp(code+i-1, "<?", 2))\r
- || (CG(asp_tags) && !strncmp(code+i-1, "<%", 2))\r
- || (i > 3 && !strncmp(code+i-4, "<?php", 5))\r
- ) {\r
- code_type = body;\r
- }\r
- break;\r
- }\r
- }\r
-\r
- switch (code_type) {\r
- default:\r
- if (brace_count) {\r
- *prompt = "php ( ";\r
- } else if (brackets_count) {\r
- *prompt = "php { ";\r
- } else {\r
- *prompt = "php > ";\r
- }\r
- break;\r
- case sstring:\r
- case sstring_esc:\r
- *prompt = "php ' ";\r
- break;\r
- case dstring:\r
- case dstring_esc:\r
- *prompt = "php \" ";\r
- break;\r
- case comment_block:\r
- *prompt = "/* > ";\r
- break;\r
- case heredoc:\r
- *prompt = "<<< > ";\r
- break;\r
- case outside:\r
- *prompt = " > ";\r
- break;\r
- }\r
-\r
- if (!valid_end || brackets_count) {\r
- return 0;\r
- } else {\r
- return 1;\r
- }\r
-}\r
-/* }}} */\r
-\r
-static char *cli_completion_generator_ht(const char *text, int textlen, int *state, HashTable *ht, void **pData TSRMLS_DC) /* {{{ */\r
-{\r
- char *name;\r
- ulong number;\r
-\r
- if (!(*state % 2)) {\r
- zend_hash_internal_pointer_reset(ht);\r
- (*state)++;\r
- }\r
- while(zend_hash_has_more_elements(ht) == SUCCESS) {\r
- zend_hash_get_current_key(ht, &name, &number, 0);\r
- if (!textlen || !strncmp(name, text, textlen)) {\r
- if (pData) {\r
- zend_hash_get_current_data(ht, pData);\r
- }\r
- zend_hash_move_forward(ht);\r
- return name;\r
- }\r
- if (zend_hash_move_forward(ht) == FAILURE) {\r
- break;\r
- }\r
- }\r
- (*state)++;\r
- return NULL;\r
-} /* }}} */\r
-\r
-static char *cli_completion_generator_var(const char *text, int textlen, int *state TSRMLS_DC) /* {{{ */\r
-{\r
- char *retval, *tmp;\r
-\r
- tmp = retval = cli_completion_generator_ht(text + 1, textlen - 1, state, EG(active_symbol_table), NULL TSRMLS_CC);\r
- if (retval) {\r
- retval = malloc(strlen(tmp) + 2);\r
- retval[0] = '$';\r
- strcpy(&retval[1], tmp);\r
- rl_completion_append_character = '\0';\r
- }\r
- return retval;\r
-} /* }}} */\r
-\r
-static char *cli_completion_generator_func(const char *text, int textlen, int *state, HashTable *ht TSRMLS_DC) /* {{{ */\r
-{\r
- zend_function *func;\r
- char *retval = cli_completion_generator_ht(text, textlen, state, ht, (void**)&func TSRMLS_CC);\r
- if (retval) {\r
- rl_completion_append_character = '(';\r
- retval = strdup(func->common.function_name);\r
- }\r
- \r
- return retval;\r
-} /* }}} */\r
-\r
-static char *cli_completion_generator_class(const char *text, int textlen, int *state TSRMLS_DC) /* {{{ */\r
-{\r
- zend_class_entry **pce;\r
- char *retval = cli_completion_generator_ht(text, textlen, state, EG(class_table), (void**)&pce TSRMLS_CC);\r
- if (retval) {\r
- rl_completion_append_character = '\0';\r
- retval = strdup((*pce)->name);\r
- }\r
- \r
- return retval;\r
-} /* }}} */\r
-\r
-static char *cli_completion_generator_define(const char *text, int textlen, int *state, HashTable *ht TSRMLS_DC) /* {{{ */\r
-{\r
- zend_class_entry **pce;\r
- char *retval = cli_completion_generator_ht(text, textlen, state, ht, (void**)&pce TSRMLS_CC);\r
- if (retval) {\r
- rl_completion_append_character = '\0';\r
- retval = strdup(retval);\r
- }\r
- \r
- return retval;\r
-} /* }}} */\r
-\r
-static int cli_completion_state;\r
-\r
-static char *cli_completion_generator(const char *text, int index) /* {{{ */\r
-{\r
-/*\r
-TODO:\r
-- constants\r
-- maybe array keys\r
-- language constructs and other things outside a hashtable (echo, try, function, class, ...)\r
-- object/class members\r
-\r
-- future: respect scope ("php > function foo() { $[tab]" should only expand to local variables...)\r
-*/\r
- char *retval = NULL;\r
- int textlen = strlen(text);\r
- TSRMLS_FETCH();\r
-\r
- if (!index) {\r
- cli_completion_state = 0;\r
- }\r
- if (text[0] == '$') {\r
- retval = cli_completion_generator_var(text, textlen, &cli_completion_state TSRMLS_CC);\r
- } else {\r
- char *lc_text, *class_name, *class_name_end;\r
- int class_name_len;\r
- zend_class_entry **pce = NULL;\r
- \r
- class_name_end = strstr(text, "::");\r
- if (class_name_end) {\r
- class_name_len = class_name_end - text;\r
- class_name = zend_str_tolower_dup(text, class_name_len);\r
- class_name[class_name_len] = '\0'; /* not done automatically */\r
- if (zend_lookup_class(class_name, class_name_len, &pce TSRMLS_CC)==FAILURE) {\r
- efree(class_name);\r
- return NULL;\r
- }\r
- lc_text = zend_str_tolower_dup(class_name_end + 2, textlen - 2 - class_name_len);\r
- textlen -= (class_name_len + 2);\r
- } else {\r
- lc_text = zend_str_tolower_dup(text, textlen);\r
- }\r
-\r
- switch (cli_completion_state) {\r
- case 0:\r
- case 1:\r
- retval = cli_completion_generator_func(lc_text, textlen, &cli_completion_state, pce ? &(*pce)->function_table : EG(function_table) TSRMLS_CC);\r
- if (retval) {\r
- break;\r
- }\r
- case 2:\r
- case 3:\r
- retval = cli_completion_generator_define(text, textlen, &cli_completion_state, pce ? &(*pce)->constants_table : EG(zend_constants) TSRMLS_CC);\r
- if (retval || pce) {\r
- break;\r
- }\r
- case 4:\r
- case 5:\r
- retval = cli_completion_generator_class(lc_text, textlen, &cli_completion_state TSRMLS_CC);\r
- break;\r
- default:\r
- break;\r
- }\r
- efree(lc_text);\r
- if (class_name_end) {\r
- efree(class_name);\r
- }\r
- if (pce && retval) {\r
- int len = class_name_len + 2 + strlen(retval) + 1;\r
- char *tmp = malloc(len);\r
- \r
- snprintf(tmp, len, "%s::%s", (*pce)->name, retval);\r
- free(retval);\r
- retval = tmp;\r
- }\r
- }\r
- \r
- return retval;\r
-} /* }}} */\r
-\r
-char **cli_code_completion(const char *text, int start, int end) /* {{{ */\r
-{\r
- return rl_completion_matches(text, cli_completion_generator);\r
-}\r
-/* }}} */\r
-\r
-#endif /* HAVE_LIBREADLINE || HAVE_LIBEDIT */\r
-\r
-/*\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * End:\r
- * vim600: sw=4 ts=4 fdm=marker\r
- * vim<600: sw=4 ts=4\r
- */\r
projects / php / commitdiff