Updated sample scripts (and included a static version)

diff --git a/Usermode/Libraries/libspiderscript.so_src/Scripts/sample.isc b/Usermode/Libraries/libspiderscript.so_src/Scripts/sample.isc
index 7e9a866..d9ec020 100644 (file)
--- a/Usermode/Libraries/libspiderscript.so_src/Scripts/sample.isc
+++ b/Usermode/Libraries/libspiderscript.so_src/Scripts/sample.isc
@@ -1,3 +1,4 @@
+#<?php
 
 # Should I use brackets in this language?
 # Well, considering that all whitespace is ignored, it might be an idea
@@ -23,6 +24,7 @@ Sys.IO.Close($fp);
 #  Sys.Mem.MakeStruct( "L*B", $len, $len, $str );
 # Hmm.. that would mean I will need arrays... fuck it, do them later
 
+/*
 function SetIPv4($ifaceName, $addr)
 {
        $fp = Sys.IO.Open( "/Devices/ipstack/$ifaceName" );
@@ -34,3 +36,9 @@ function SetIPv4($ifaceName, $addr)
 }
 
 SetIPv4( $ifname, Lang.Array(10, 0, 2, 55) );
+*/
+
+
+return 42;     // Script return value
+
+#?>

diff --git a/Usermode/Libraries/libspiderscript.so_src/Scripts/sample_static.ssc b/Usermode/Libraries/libspiderscript.so_src/Scripts/sample_static.ssc
new file mode 100644 (file)
index 0000000..f490fb8
--- /dev/null
+++ b/Usermode/Libraries/libspiderscript.so_src/Scripts/sample_static.ssc
@@ -0,0 +1,29 @@
+#<?php
+
+Object $fp;
+Integer        $ifname;
+
+$fp = Sys.IO.Open( "/Devices/ipstack" );
+$ifname = Sys.IO.IOCtl( $fp, 4, "/Devices/ne2k/0" );
+Sys.IO.Close($fp);
+
+
+// Set the IPv4 address of an interface
+//void SetIPv4(String $ifaceName, Integer $addr[4])
+void SetIPv4(String $ifaceName, Integer $addr0, Integer $addr1, Integer $addr2, Integer $addr3)
+{
+       Object  $fp;
+       Object  $data;
+       $fp = Sys.IO.Open( "/Devices/ipstack/"+$ifaceName );
+       $data = Lang.Struct( "l", 4 );
+       Sys.IO.IOCtl( $fp, 4, $data );
+       //$data = Lang.Struct( "BBBB", $addr[0],  $addr[1],  $addr[2], $addr[3] );
+       $data = Lang.Struct( "BBBB", $addr0,  $addr1,  $addr2, $addr3 );
+       Sys.IO.IOCtl( $fp, 6, $data );
+       Sys.IO.Close( $fp );
+}
+
+//SetIPv4( $ifname, Lang.IntArray(10, 0, 2, 55) );
+SetIPv4( $ifname, 10, 0, 2, 55 );
+
+#?>