Roxen.git
/
server
/
base_server
/
highlight_pike.pike
version
»
Context lines:
10
20
40
80
file
none
3
Roxen.git/server/base_server/highlight_pike.pike:105:
{ string s,pre,post,decl; int min=10000000000,i; string mt; foreach(types, s) if(((i=search(in, s))!=-1) && i<min) { if(i) switch(in[i-1]) { default:
-
//
perror
("Invalid type thingie: '"+in[i..i]+"'\n");
+
//
werror
("Invalid type thingie: '"+in[i..i]+"'\n");
continue; case ' ': case '\n': case '\r': case '\t': case '(': case ')': } min = i; mt = s;
Roxen.git/server/base_server/highlight_pike.pike:130:
if(sscanf(in, "%s"+s+"%s", pre, post)==2) { string op = post; string p=""; sscanf(post, "%[ \t\n\r]%s", p, post); p += find_complex_type(post); p = op[..strlen(p)-1]; post = op[strlen(p)..];
-
//
perror
("Found type: '%s' (left: %s)\n", s+p, post-"\n");
+
//
werror
("Found type: '%s' (left: %s)\n", s+p, post-"\n");
return ({ pre, s+p, @find_decl(post) }); } } array (string) find_keyword(string in) { string s,pre,post; foreach(keywords, s) if(sscanf(in, "%s"+s+"%s", pre, post)==2) if(!strlen(pre) || pre[-1]==' ' || pre[-1]=='\t' || pre[-1]==':' || pre[-1]=='}' || pre[-1]==')' || pre[-1]==';' || pre[-1]=='\n')
Roxen.git/server/base_server/highlight_pike.pike:219:
({ find_keyword, ({ 0, highlight_keyword }),}), ({ find_case, ({ 0, highlight_case, 0, highlight_case, }),}), }); #define push(X) res += X string highlight_line(string l, mapping m) { array p,r; string res = "";
-
//
perror
(l+"\n");
+
//
werror
(l+"\n");
foreach(highlight_patterns, p) { if(r=p[0](l)) {
-
//
perror
("Match %O (%s, %s)\n", p[-1][-1],(r[..sizeof(p[1])-1]*""),
+
//
werror
("Match %O (%s, %s)\n", p[-1][-1],(r[..sizeof(p[1])-1]*""),
// (r[sizeof(p[1])..]*"")); for(int i=0; i<sizeof(p[1]) && i<sizeof(r); i++) if(functionp(p[1][i])) push(p[1][i](r[i],m)); else push(highlight_line(r[i],m)); for(int i=sizeof(p[1]); i<sizeof(r); i++) push(highlight_line(r[i],m)); return res; }