php.test

这是一个Linux下的集成开发环境

?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000003.003<>#<>#;$var=1;
}

tcltest::test comment-1.4 { comment } {
    browse [save_file f.php {
<?
/*$var=1;*/
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
}

tcltest::test comment-1.5 { insert comment xref } {
    browse_xref [save_file f.php {
<?
/*$var=1;*/
?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000003.002<>#<>#;$var=1;
}

tcltest::test comment-1.6 { insert comment xref } {
    browse_xref [save_file f.php {
<?
/*
$var=1;
*/
?>
}] {-r}
} "PAF_COMMENT_DEF;f.php<>000003.002<>#<>#;\xFF\$var=1;\xFF\n"


tcltest::test comment-1.7 { insert comment xref } {
    browse_xref [save_file f.php {<?/*
 * Hello
 */?>
}] {-r}
} "PAF_COMMENT_DEF;f.php<>000001.004<>#<>#;\xFF * Hello\xFF \n"

tcltest::test comment-1.8 { insert comment xref } {
    browse_xref [save_file f.php {<?
/*
* Hello
*/
?>
}] {-r}
} "PAF_COMMENT_DEF;f.php<>000002.002<>#<>#;\xFF* Hello\xFF\n"

tcltest::test comment-1.9 { insert comment xref } {
    browse_xref [save_file f.php {
<?
/*
 * Comments *
 * With * //* Stuff in them
 * are tricky */
?>
}] {-r}
} "PAF_COMMENT_DEF;f.php<>000003.002<>#<>#;\xFF * Comments *\xFF * With * //* Stuff in them\xFF * are tricky \n"

tcltest::test comment-1.10 { insert comment xref } {
    browse_xref [save_file f.php {
<?
/*********
 * Hello *
 *********/
?>
}] {-r}
} "PAF_COMMENT_DEF;f.php<>000003.002<>#<>#;********\xFF * Hello *\xFF ********\n"

tcltest::test comment-1.11 { can't leave multi line comment mode with ?> } {
    browse_xref [save_file f.php {
<?
/*Comment ?>ONE<? Text*/
?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000003.002<>#<>#;Comment ?>ONE<? Text
}

tcltest::test comment-1.12 { hit EOF in comment } {
    browse [save_file f.php {
<?
/*
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
}

tcltest::test comment-1.13 { hit EOF in comment } {
    browse_xref [save_file f.php {
<?
/*
?>
}] {-r}
} [format {PAF_COMMENT_DEF;f.php<>000003.002<>#<>#;%s%s%s%s} \xFF ?> \xFF \n]

tcltest::test comment-1.14 { double quotes in comment } {
    browse_xref [save_file f.php {
<?
/*Comment "Text"*/
?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000003.002<>#<>#;Comment "Text"
}

tcltest::test comment-1.14 { no ws before // } {
    browse_xref [save_file f.php {
<?
"s";//Comment
?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000003.006<>#<>#;Comment
}

tcltest::test comment-1.15 { shell style comment } {
    browse_xref [save_file f.php {
<?
#Comment
?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000003.001<>#<>#;Comment
}

tcltest::test comment-1.16 { line comment ends at ?> } {
    browse_xref [save_file f.php {
<?//Comment?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000002.004<>#<>#;Comment
}

tcltest::test comment-1.17 { line comment ends at ?> } {
    browse_xref [save_file f.php {
<?#Comment?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000002.003<>#<>#;Comment
}

tcltest::test comment-1.18 { line comment ends at ?> } {
    browse_xref [save_file f.php {
<?//Comment1?>HTML<?#Comment2?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000002.004<>#<>#;Comment1
PAF_COMMENT_DEF;f.php<>000002.021<>#<>#;Comment2
}


tcltest::test comment-2.0 { function with a comment } {
    browse [save_file f.php {
<?
function foo() { /* no-op */ }
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000003.009<>f.php;3.12<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.000<>#<>foo<>fu;3.30<>3.9<>3.12<>{}
}

tcltest::test comment-2.1 { insert comment xref in a function } {
    browse_xref [save_file f.php {
<?
function foo() {
//no-op
    return;
}
?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000004.002<>#<>#;no-op
}

tcltest::test comment-2.2 { insert comment xref in a function } {
    browse_xref [save_file f.php {
<?
function foo() {
/*no-op*/
    return;
}
?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000004.002<>#<>#;no-op
}

tcltest::test comment-2.3 { insert comment xref in a function } {
    browse_xref [save_file f.php {
<?
function foo() {
    /*no-op*/
    bar();
}
?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000004.006<>#<>#;no-op
PAF_CROSS_REF;#<>foo<>fu<>#<>bar<>fu<>p<>000005<>f.php;<>
}

tcltest::test comment-2.4 { insert comment xref in a function } {
    browse_xref [save_file f.php {
<?
function foo() {
    bar();
    /*no-op*/
}
?>
}] {-r}
} {PAF_COMMENT_DEF;f.php<>000005.006<>#<>#;no-op
PAF_CROSS_REF;#<>foo<>fu<>#<>bar<>fu<>p<>000004<>f.php;<>
}



tcltest::test string-1.0 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
""
?>
}]]
} {1 DOUBLE_QUOTED_STRING "" 3.0 3.2}

tcltest::test string-1.1 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
''
?>
}]]
} {1 SINGLE_QUOTED_STRING "" 3.0 3.2}

tcltest::test string-1.2 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
"value"
?>
}]]
} {1 DOUBLE_QUOTED_STRING "value" 3.0 3.7}

tcltest::test string-1.3 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
'value'
?>
}]]
} {1 SINGLE_QUOTED_STRING "value" 3.0 3.7}

tcltest::test string-1.4 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
"value"
"value"
?>
}]]
} {1 DOUBLE_QUOTED_STRING "value" 3.0 3.7
2 DOUBLE_QUOTED_STRING "value" 4.0 4.7}

tcltest::test string-1.5 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
'value'
'value'
?>
}]]
} {1 SINGLE_QUOTED_STRING "value" 3.0 3.7
2 SINGLE_QUOTED_STRING "value" 4.0 4.7}

tcltest::test string-1.6 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
"\""
    "\""
""
?>
}]]
} {1 DOUBLE_QUOTED_STRING "\\\"" 3.0 3.4
2 DOUBLE_QUOTED_STRING "\\\"" 4.4 4.8
3 DOUBLE_QUOTED_STRING "" 5.0 5.2}

tcltest::test string-1.7 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
'\''
    '\''
''
?>
}]]
} {1 SINGLE_QUOTED_STRING "\\'" 3.0 3.4
2 SINGLE_QUOTED_STRING "\\'" 4.4 4.8
3 SINGLE_QUOTED_STRING "" 5.0 5.2}

tcltest::test string-1.8 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
"HELLO
THERE"
?>
}]]
} {1 DOUBLE_QUOTED_STRING "HELLO\nTHERE" 3.0 4.6}

tcltest::test string-1.9 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
'HELLO
THERE'
?>
}]]
} {1 SINGLE_QUOTED_STRING "HELLO\nTHERE" 3.0 4.6}


tcltest::test string-2.0 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
"val\n"
?>
}]]
} {1 DOUBLE_QUOTED_STRING "val\\n" 3.0 3.7}

tcltest::test string-2.1 { string tokens } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
'val\n'
?>
}]]
} {1 SINGLE_QUOTED_STRING "val\\n" 3.0 3.7}


tcltest::test string-3.0 { string spans multiple lines } {
    browse [save_file f.php {
<?
include "I am
a file";
?>
}]
} [format {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_INCLUDE_DEF;I am%sa file<>000003.009<>f.php;4.6<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.009<>#<>I am%sa file<>iu;4.6<>3.9<>4.6<>{}
} \xFF \xFF]

tcltest::test string-3.1 {  string spans multiple lines } {
    browse [save_file f.php {
<?
include 'I am
a file';
?>
}]
} [format {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_INCLUDE_DEF;I am%sa file<>000003.009<>f.php;4.6<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.009<>#<>I am%sa file<>iu;4.6<>3.9<>4.6<>{}
} \xFF \xFF]

tcltest::test string-4.0 {hit EOF in double quoted string  } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
"
?>
}]]
} {1 DOUBLE_QUOTED_STRING "\n?>\n" 3.0 5.0}

tcltest::test string-4.1 {hit EOF in single quoted string  } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
'
?>
}]]
} {1 SINGLE_QUOTED_STRING "\n?>\n" 3.0 5.0}

tcltest::test string-5.0 { heredoc ignores string characters } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
print <<<END
"HI
END;
$var = "one" . '"';
?>
}]]
} {1 KEYWORD "print" 3.0 3.5
2 DOUBLE_QUOTED_STRING "\"HI" 3.6 5.3
3 SEMICOLON "" 5.3 5.4
4 VARIABLE "var" 6.0 6.4
5 ASSIGNMENT_OPERATOR "" 6.5 6.6
6 DOUBLE_QUOTED_STRING "one" 6.7 6.12
7 PERIOD "" 6.13 6.14
8 SINGLE_QUOTED_STRING "\"" 6.15 6.18
9 SEMICOLON "" 6.18 6.19}

# FIXME: Heredoc automatically emits a semicolon too, is this ok?
# It also seems to be missing a couple of \n chars in the string value.

tcltest::test string-5.1 {hit EOF in double quoted string  } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
<<<END
?>
}]]
} {1 DOUBLE_QUOTED_STRING "?>" 3.0 5.0
2 SEMICOLON "" 5.0 5.1}

tcltest::test string-6.0 { no comments in double quoted string } {
    browse [save_file f.php {
<?
include("/*not-comment*/");
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_INCLUDE_DEF;/*not-comment*/<>000003.009<>f.php;3.24<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.009<>#<>/*not-comment*/<>iu;3.24<>3.9<>3.24<>{}
}

tcltest::test string-6.1 { no comments in single quoted string } {
    browse [save_file f.php {
<?
include('/*not-comment*/');
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_INCLUDE_DEF;/*not-comment*/<>000003.009<>f.php;3.24<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.009<>#<>/*not-comment*/<>iu;3.24<>3.9<>3.24<>{}
}

# FIXME: These next two are rather broken. The include statement
# should think the token starts at 4.0 and ends at 4.15 and
# does not include a \n. Currently, the impl assumes that
# a double quoted string starts at tok->start_line + 1
# which is not correct. Same goes for the end of the token.
# May need to add some sort of extended token that can
# handle a range inside the token boundry. On second thought
# this may not even be needed since the include statement
# does not do any highlighting anyway.

tcltest::test string-6.2 { no comments in heredoc string } {
    browse [save_file f.php {
<?
include <<<END
/*not-comment*/
END;
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_INCLUDE_DEF;/*not-comment*/<>000003.009<>f.php;5.2<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.009<>#<>/*not-comment*/<>iu;5.2<>3.9<>5.2<>{}
}

tcltest::test string-6.3 { newlines in heredoc string } {
    browse [save_file f.php {
<?
include <<<END
/*not-comment*/
/*not-comment*/
END;
?>
}]
} [format {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_INCLUDE_DEF;%s%s%s<>000003.009<>f.php;6.2<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.009<>#<>%s%s%s<>iu;6.2<>3.9<>6.2<>{}
} /*not-comment*/ \xFF /*not-comment*/ /*not-comment*/ \xFF /*not-comment*/]


tcltest::test string-7.0 { tokens for normal double quoted string } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
"var"
?>
}]]
} {1 DOUBLE_QUOTED_STRING "var" 3.0 3.5}

tcltest::test string-7.1 { tokens for string with embedded vars } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
"$var"
?>
}]]
} {1 VDOUBLE_QUOTED_STRING "$var" 3.0 3.6}

tcltest::test string-7.2 { tokens for string with embedded vars } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
"$"
?>
}]]
} {1 DOUBLE_QUOTED_STRING "$" 3.0 3.3}

tcltest::test string-7.3 { no embedded vars for single quoted string } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
'$var'
?>
}]]
} {1 SINGLE_QUOTED_STRING "$var" 3.0 3.6}

tcltest::test string-7.4 { tokens for string with embedded vars } {
    filter_tokens HTML [browse_tokens [save_file f.php {
<?
<<<END
$var
END;
?>
}]]
} {1 VDOUBLE_QUOTED_STRING "$var" 3.0 5.3
2 SEMICOLON "" 5.3 5.4}

tcltest::test string-7.5 { ignore var in single quoted string } {
    browse_xref [save_file f.php {
<?
print '$var';
?>
}]
} {}

tcltest::test string-7.6 { var in double quoted string read xref } {
    browse_xref [save_file f.php {
<?
print "$var";
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test string-7.7 { var in heredoc string read xref } {
    browse_xref [save_file f.php {
<?
print <<<END
$var
END;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000004<>f.php;<>UNDECLARED
}

tcltest::test string-7.8 { var in heredoc string read xref } {
    browse_xref [save_file f.php {
<?
print <<<END
$var $var
$var
END;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000004<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000004<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000005<>f.php;<>UNDECLARED
}



# FIXME: Should we declare and define at the same time like the Java parser?

tcltest::test function-1.0 { function definition } {
    browse [save_file f.php {
<?
function foo() {}
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000003.009<>f.php;3.12<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.000<>#<>foo<>fu;3.17<>3.9<>3.12<>{}
}

tcltest::test function-1.1 { function definition } {
    browse [save_file f.php {
<?
function foo() {
}
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000003.009<>f.php;3.12<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.000<>#<>foo<>fu;4.1<>3.9<>3.12<>{}
}

tcltest::test function-1.2 { function definition } {
    browse [save_file f.php {
<?
function
foo() {
}
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000004.000<>f.php;4.3<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.000<>#<>foo<>fu;5.1<>4.0<>4.3<>{}
}

tcltest::test function-1.3 { function definition } {
    browse [save_file f.php {
<?
function
foo()
{
}
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000004.000<>f.php;4.3<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.000<>#<>foo<>fu;6.1<>4.0<>4.3<>{}
}

tcltest::test function-1.4 { function definition } {
    browse [save_file f.php {
<?
function foo 
() {}
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000003.009<>f.php;3.12<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.000<>#<>foo<>fu;4.5<>3.9<>3.12<>{}
}

tcltest::test function-1.5 { function definition } {
    browse [save_file f.php {
<?
  function	stop_go()	{} 
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;stop_go<>000003.011<>f.php;3.18<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.002<>#<>stop_go<>fu;3.23<>3.11<>3.18<>{}
}

tcltest::test function-1.6 { function definition } {
    browse [save_file f.php {
<?
function foo() {
  if (1) {}
}
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000003.009<>f.php;3.12<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.000<>#<>foo<>fu;5.1<>3.9<>3.12<>{}
}



tcltest::test function-2.0 { function definition w arguments } {
    browse [save_file f.php {
<?
function foo($arg1) {}
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000003.009<>f.php;3.12<>0x0<>{}<>{}<>{arg1}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.000<>#<>foo<>fu;3.22<>3.9<>3.12<>{}
}

tcltest::test function-2.1 { function definition w arguments } {
    browse [save_file f.php {
<?
function foo($arg1,$arg2) {}
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000003.009<>f.php;3.12<>0x0<>{}<>{}<>{arg1,arg2}<>{}