Remove PHP4 hangover
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12073 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
4144eaa214
commit
09c9bf881d
1 changed files with 0 additions and 80 deletions
|
|
@ -1,80 +0,0 @@
|
||||||
<?php
|
|
||||||
### THIS VERSION was written for when php global vars fakingly mirrored
|
|
||||||
### the wrapped global vars, but it was very inefficient.
|
|
||||||
### For now we don't do this (pending some changes to php itself) so
|
|
||||||
### we use accessor functions instead; WE KEEP THIS version around ready
|
|
||||||
### for when those php changes are made and we can switch back.
|
|
||||||
### Specifically we want $_GLOBALS variable overloading like object
|
|
||||||
### property overloading
|
|
||||||
|
|
||||||
require "example.php";
|
|
||||||
|
|
||||||
/* Try to set the values of some global variables */
|
|
||||||
|
|
||||||
$ivar = 42;
|
|
||||||
$svar = -31000;
|
|
||||||
$lvar = 65537;
|
|
||||||
$uivar = 123456;
|
|
||||||
$usvar = 61000;
|
|
||||||
$ulvar = 654321;
|
|
||||||
$scvar = -13;
|
|
||||||
$ucvar = 251;
|
|
||||||
$cvar = "S";
|
|
||||||
$fvar = 3.14159;
|
|
||||||
$dvar = 2.1828;
|
|
||||||
$strvar = "Hello World";
|
|
||||||
$cstrvar = "Goodbye";
|
|
||||||
$iptrvar = new_int(37);
|
|
||||||
$ptptr = new_point(37,42);
|
|
||||||
$name = "Bill";
|
|
||||||
|
|
||||||
echo "Variables (values printed from PHP)\n";
|
|
||||||
|
|
||||||
echo "ivar = $ivar\n";
|
|
||||||
echo "svar = $svar\n";
|
|
||||||
echo "lvar = $lvar\n";
|
|
||||||
echo "uivar = $uivar\n";
|
|
||||||
echo "usvar = $usvar\n";
|
|
||||||
echo "ulvar = $ulvar\n";
|
|
||||||
echo "scvar = $scvar\n";
|
|
||||||
echo "ucvar = $ucvar\n";
|
|
||||||
echo "cvar = $cvar\n";
|
|
||||||
echo "fvar = $fvar\n";
|
|
||||||
echo "dvar = $dvar\n";
|
|
||||||
echo "strvar = $strvar\n";
|
|
||||||
echo "cstrvar = $cstrvar\n";
|
|
||||||
echo "iptrvar = $iptrvar\n";
|
|
||||||
echo "name = $name\n";
|
|
||||||
echo "ptptr = $ptptr" , point_print($ptptr) , "\n";
|
|
||||||
echo "pt = $pt" , point_print($pt) , "\n";
|
|
||||||
|
|
||||||
echo "\nVariables (values printed from C)\n";
|
|
||||||
|
|
||||||
print_vars();
|
|
||||||
|
|
||||||
echo "\nI'm going to try and update a structure variable.\n";
|
|
||||||
|
|
||||||
$pt = $ptptr;
|
|
||||||
|
|
||||||
echo "The new value is \n";
|
|
||||||
|
|
||||||
pt_print();
|
|
||||||
|
|
||||||
echo "You should see the value", point_print($ptptr), "\n";
|
|
||||||
|
|
||||||
echo "\nNow I'm going to try and modify some read only variables\n";
|
|
||||||
|
|
||||||
echo "Trying to set 'path'\n";
|
|
||||||
|
|
||||||
/* Sadly this works */
|
|
||||||
$path = "Whoa!";
|
|
||||||
echo "Path = $path\n";
|
|
||||||
|
|
||||||
echo "Trying to set 'status'\n";
|
|
||||||
|
|
||||||
/* And this */
|
|
||||||
$status = 0;
|
|
||||||
echo "Status = $status\n";
|
|
||||||
|
|
||||||
?>
|
|
||||||
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue