xref: /PHP-5.4/Zend/zend_indent.c (revision c0d060f5)
1 /*
2    +----------------------------------------------------------------------+
3    | Zend Engine                                                          |
4    +----------------------------------------------------------------------+
5    | Copyright (c) 1998-2014 Zend Technologies Ltd. (http://www.zend.com) |
6    +----------------------------------------------------------------------+
7    | This source file is subject to version 2.00 of the Zend license,     |
8    | that is bundled with this package in the file LICENSE, and is        |
9    | available through the world-wide-web at the following url:           |
10    | http://www.zend.com/license/2_00.txt.                                |
11    | If you did not receive a copy of the Zend license and are unable to  |
12    | obtain it through the world-wide-web, please send a note to          |
13    | license@zend.com so we can mail you a copy immediately.              |
14    +----------------------------------------------------------------------+
15    | Authors: Andi Gutmans <andi@zend.com>                                |
16    |          Zeev Suraski <zeev@zend.com>                                |
17    +----------------------------------------------------------------------+
18 */
19 
20 /* $Id$ */
21 
22 /* This indenter doesn't really work, it's here for no particular reason. */
23 
24 
25 #include "zend.h"
26 #include <zend_language_parser.h>
27 #include "zend_compile.h"
28 #include "zend_indent.h"
29 
30 #define zendtext LANG_SCNG(yy_text)
31 #define zendleng LANG_SCNG(yy_leng)
32 
33 
handle_whitespace(int * emit_whitespace)34 static void handle_whitespace(int *emit_whitespace)
35 {
36 	unsigned char c;
37 	int i;
38 
39 	for (c=0; c<128; c++) {
40 		if (emit_whitespace[c]>0) {
41 			for (i=0; i<emit_whitespace[c]; i++) {
42 				zend_write((char *) &c, 1);
43 			}
44 		}
45 	}
46 	memset(emit_whitespace, 0, sizeof(int)*256);
47 }
48 
49 
zend_indent()50 ZEND_API void zend_indent()
51 {
52 	zval token;
53 	int token_type;
54 	int in_string=0;
55 	int nest_level=0;
56 	int emit_whitespace[256];
57 	int i;
58 	TSRMLS_FETCH();
59 
60 	memset(emit_whitespace, 0, sizeof(int)*256);
61 
62 	/* highlight stuff coming back from zendlex() */
63 	token.type = 0;
64 	while ((token_type=lex_scan(&token TSRMLS_CC))) {
65 		switch (token_type) {
66 			case T_INLINE_HTML:
67 				zend_write((char*)LANG_SCNG(yy_text), LANG_SCNG(yy_leng));
68 				break;
69 			case T_WHITESPACE: {
70 					token.type = 0;
71 					/* eat whitespace, emit newlines */
72 					for (i=0; i<LANG_SCNG(yy_leng); i++) {
73 						emit_whitespace[(unsigned char) LANG_SCNG(yy_text)[i]]++;
74 					}
75 					continue;
76 				}
77 				break;
78 			case '"':
79 				in_string = !in_string;
80 				/* break missing intentionally */
81 			default:
82 				if (token.type==0) {
83 					/* keyword */
84 					switch (token_type) {
85 						case ',':
86 							ZEND_PUTS(", ");
87 							goto dflt_printout;
88 							break;
89 						case '{':
90 							nest_level++;
91 							if (emit_whitespace['\n']>0) {
92 								ZEND_PUTS(" {\n");
93 								memset(emit_whitespace, 0, sizeof(int)*256);
94 							} else {
95 								ZEND_PUTS("{");
96 							}
97 							break;
98 						case '}':
99 							nest_level--;
100 							if (emit_whitespace['\n']==0) {
101 								ZEND_PUTS("\n");
102 							}
103 							for (i=0; i<nest_level; i++) {
104 								ZEND_PUTS("    ");
105 							}
106 							goto dflt_printout;
107 							break;
108 dflt_printout:
109 						default:
110 							if (emit_whitespace['\n']>0) {
111 								for (i=0; i<emit_whitespace['\n']; i++) {
112 									ZEND_PUTS("\n");
113 								}
114 								memset(emit_whitespace, 0, sizeof(int)*256);
115 								for (i=0; i<nest_level; i++) {
116 									ZEND_PUTS("    ");
117 								}
118 							} else {
119 								handle_whitespace(emit_whitespace);
120 							}
121 							zend_write((char*)LANG_SCNG(yy_text), LANG_SCNG(yy_leng));
122 							break;
123 					}
124 				} else {
125 					handle_whitespace(emit_whitespace);
126 					if (in_string) {
127 						zend_write((char*)LANG_SCNG(yy_text), LANG_SCNG(yy_leng));
128 						/* a part of a string */
129 					} else {
130 						zend_write((char*)LANG_SCNG(yy_text), LANG_SCNG(yy_leng));
131 					}
132 				}
133 				break;
134 		}
135 		if (token.type == IS_STRING) {
136 			switch (token_type) {
137 			case T_OPEN_TAG:
138 			case T_CLOSE_TAG:
139 			case T_WHITESPACE:
140 				break;
141 			default:
142 				efree(token.value.str.val);
143 				break;
144 			}
145 		}
146 		token.type = 0;
147 	}
148 }
149 
150 /*
151  * Local variables:
152  * tab-width: 4
153  * c-basic-offset: 4
154  * indent-tabs-mode: t
155  * End:
156  */
157