php.test

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

}]
} {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 mode-2.5 { php mode } {
    browse [save_file f.php {
<? function foo() {} ?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000002.012<>f.php;2.15<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000002.003<>#<>foo<>fu;2.20<>2.12<>2.15<>{}
}

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

tcltest::test var-1.1 { var read } {
    browse [save_file f.php {
<?
print $var;
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
}

tcltest::test var-1.2 { 2 var writes, checks column } {
    browse [save_file f.php {
<?
$var=1;$var=1; function foo() {}
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000003.024<>f.php;3.27<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.015<>#<>foo<>fu;3.32<>3.24<>3.27<>{}
}

tcltest::test var-1.2 { read then write, checks column } {
    browse [save_file f.php {
<?
$var;$var=1; function foo() {}
?>
}]
} {Status: Parsing: f.php
PAF_FILE;f.php;php<>
PAF_FUNC_DEF;foo<>000003.022<>f.php;3.25<>0x0<>{}<>{}<>{}<>{}
PAF_FILE_SYMBOLS;f.php<>000003.013<>#<>foo<>fu;3.30<>3.22<>3.25<>{}
}

tcltest::test var-1.3 { var write } {
    browse [save_file f.php {
<?
function foo() {
global $var;
$var = 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;6.1<>3.9<>3.12<>{}
}

tcltest::test var-1.4 { var read } {
    browse [save_file f.php {
<?
function foo() {
global $var;
print $var;
}
?>
}]
} {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;6.1<>3.9<>3.12<>{}
}

# FIXME: The Tcl parser defines local var symbols only when
# the -l flag is passed. Should the phpbrowser do this too?

tcltest::test var-1.5 { local var write } {
    browse [save_file f.php {
<?
function foo() {
$var = 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 var-1.6 { local var read } {
    browse [save_file f.php {
<?
function foo() {
print $var;
}
?>
}]
} {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 var-2.0 { var write xref } {
    browse_xref [save_file f.php {
<?
$var=1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

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

tcltest::test var-2.2 { global statement is not a var read } {
    browse_xref [save_file f.php {
<?
function foo() {
    global $var;
}
?>
}]
} {}

tcltest::test var-2.3 { global var write xref } {
    browse_xref [save_file f.php {
<?
function foo() {
global $var;
$var=1;
}
?>
}]
} {PAF_CROSS_REF;#<>foo<>fu<>#<>var<>gv<>w<>000005<>f.php;<>UNDECLARED
}

tcltest::test var-2.4 { global var read xref } {
    browse_xref [save_file f.php {
<?
function foo() {
global $var;
print $var;
}
?>
}]
} {PAF_CROSS_REF;#<>foo<>fu<>#<>var<>gv<>r<>000005<>f.php;<>UNDECLARED
}


tcltest::test var-2.5 { no local var xref by default } {
    browse_xref [save_file f.php {
<?
function foo() {
$var=1;
}
?>
}]
} {}

tcltest::test var-2.6 { local var write xref } {
    browse_xref [save_file f.php {
<?
function foo() {
$var=1;
}
?>
}] {-l}
} {PAF_CROSS_REF;#<>foo<>fu<>#<>var<>lv<>w<>000004<>f.php;<>UNDECLARED
}

tcltest::test var-2.7 { no local var xref by default } {
    browse_xref [save_file f.php {
<?
function foo() {
print $var;
}
?>
}]
} {}

tcltest::test var-2.8 { local var read xref } {
    browse_xref [save_file f.php {
<?
function foo() {
print $var;
}
?>
}] {-l}
} {PAF_CROSS_REF;#<>foo<>fu<>#<>var<>lv<>r<>000004<>f.php;<>UNDECLARED
}


tcltest::test var-2.9 { local var write xref } {
    browse_xref [save_file f.php {
<?
function foo() {
global $nar;
$var=1;
}
?>
}] {-l}
} {PAF_CROSS_REF;#<>foo<>fu<>#<>var<>lv<>w<>000005<>f.php;<>UNDECLARED
}

tcltest::test var-2.10 { local var read xref } {
    browse_xref [save_file f.php {
<?
function foo() {
global $nar;
print $var;
}
?>
}] {-l}
} {PAF_CROSS_REF;#<>foo<>fu<>#<>var<>lv<>r<>000005<>f.php;<>UNDECLARED
}

tcltest::test var-2.11 { multiple vars in global statement } {
    browse_xref [save_file f.php {
<?
function foo() {
global $var1, $var2;
print $var1;
print $var2;
}
?>
}]
} {PAF_CROSS_REF;#<>foo<>fu<>#<>var1<>gv<>r<>000005<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>foo<>fu<>#<>var2<>gv<>r<>000006<>f.php;<>UNDECLARED
}

tcltest::test var-2.12 { multiple vars in global statement } {
    browse_xref [save_file f.php {
<?
function foo() {
global $var1, $var2, $var3;
print $var1;
print $var2;
print $var3;
}
?>
}]
} {PAF_CROSS_REF;#<>foo<>fu<>#<>var1<>gv<>r<>000005<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>foo<>fu<>#<>var2<>gv<>r<>000006<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>foo<>fu<>#<>var3<>gv<>r<>000007<>f.php;<>UNDECLARED
}


tcltest::test var-3.0 { array var write xref } {
    browse_xref [save_file f.php {
<?
$var[]=1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-3.1 { array var write xref } {
    browse_xref [save_file f.php {
<?
$var[0]=1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-3.2 { array var write xref } {
    browse_xref [save_file f.php {
<?
$var['name']=1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-3.3 { array var write xref } {
    browse_xref [save_file f.php {
<?
$var["name"]=1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-3.4 { array var write xref } {
    browse_xref [save_file f.php {
<?
$var[1][]=1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-3.5 { array var write xref } {
    browse_xref [save_file f.php {
<?
$var[1][0]=1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-3.6 { array var write xref } {
    browse_xref [save_file f.php {
<?
$var["hello"]['there']=1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}


tcltest::test var-4.0 { array var read xref } {
    browse_xref [save_file f.php {
<?
print $var[];
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-4.1 { array var read xref } {
    browse_xref [save_file f.php {
<?
print $var[0];
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-4.2 { array var read xref } {
    browse_xref [save_file f.php {
<?
print $var['one'];
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-4.3 { array var read xref } {
    browse_xref [save_file f.php {
<?
print $var["one"];
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-4.4 { array var read xref } {
    browse_xref [save_file f.php {
<?
print $var[0][];
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-4.5 { array var read xref } {
    browse_xref [save_file f.php {
<?
print $var["hello"][0];
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-4.6 { array var read xref } {
    browse_xref [save_file f.php {
<?
print $var["hello"]["mello"]["fellow"];
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-4.7 { super global array var read xref } {
    browse_xref [save_file f.php {
<?
function foo() {
    print $_COOKIE['one'];
}
?>
}]
} {PAF_CROSS_REF;#<>foo<>fu<>#<>_COOKIE<>gv<>r<>000004<>f.php;<>UNDECLARED
}

tcltest::test var-5.0 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var[$one] = 1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>one<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.1 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var[$one];
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>one<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.2 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var[$one=0];
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>one<>gv<>w<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.3 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var++;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.4 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var = $var + 1;
$var+=1;
++$var;
--$var;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000004<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000004<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000005<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000005<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000006<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000006<>f.php;<>UNDECLARED
}

tcltest::test var-5.5 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var["$str"] = 1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>str<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.6 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var[0] += 1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.7 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var[$one=0] = 1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>one<>gv<>w<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.8 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var["one"."two"] = 1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.9 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var[0]++
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.10 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
++$var["two"]
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.11 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
$var["one"."two"]++
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-5.12 { read and write xrefs } {
    browse_xref [save_file f.php {
<?
--$var["one"."two"]
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}


tcltest::test var-6.0 { really a syntax error } {
    browse_xref [save_file f.php {
<?
--$var["two"]++
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-6.1 { really a syntax error } {
    browse_xref [save_file f.php {
<?
--$var["two"] = 1;
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-6.2 { prefix increment an array } {
    browse_xref [save_file f.php {
<?
--$var["two"]
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>w<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-6.3 { nested array variables } {
    browse_xref [save_file f.php {
<?
$arr1[$arr2[0]]
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr2<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr1<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-6.4 { nested array variables } {
    browse_xref [save_file f.php {
<?
$arr1[++$arr2[0]]
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr2<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr2<>gv<>w<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr1<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-6.5 { nested array variables } {
    browse_xref [save_file f.php {
<?
$arr1[$arr2[0] . $arr3[0]]
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr2<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr3<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr1<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-6.6 { nested array variables } {
    browse_xref [save_file f.php {
<?
$arr1[$arr2[$arr3[0]]]
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr3<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr2<>gv<>r<>000003<>f.php;<>UNDECLARED
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>arr1<>gv<>r<>000003<>f.php;<>UNDECLARED
}

tcltest::test var-6.7 { function call as index } {
    browse_xref [save_file f.php {
<?
$var[foo()]
?>
}]
} {PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>foo<>fu<>p<>000003<>f.php;<>
PAF_CROSS_REF;#<>GLOBAL<>fu<>#<>var<>gv<>r<>000003<>f.php;<>UNDECLARED
}

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

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

tcltest::test comment-1.2 { 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.3 { insert comment xref } {
    browse_xref [save_file f.php {
<?
	//$var=1;