Usermode/Libraries/libspiderscript.so_src/Scripts/sample_static.ssc

   1 #<?php
   2
   3 Object  $fp;
   4 Integer $ifname;
   5
   6 $fp = Sys.IO.Open( "/Devices/ipstack" );
   7 $ifname = Sys.IO.IOCtl( $fp, 4, "/Devices/ne2k/0" );
   8 Sys.IO.Close($fp);
   9
  10
  11 // Set the IPv4 address of an interface
  12 //void SetIPv4(String $ifaceName, Integer $addr[4])
  13 void SetIPv4(String $ifaceName, Integer $addr0, Integer $addr1, Integer $addr2, Integer $addr3)
  14 {
  15         Object  $fp;
  16         Object  $data;
  17         $fp = Sys.IO.Open( "/Devices/ipstack/"+$ifaceName );
  18         $data = Lang.Struct( "l", 4 );
  19         Sys.IO.IOCtl( $fp, 4, $data );
  20         //$data = Lang.Struct( "BBBB", $addr[0],  $addr[1],  $addr[2], $addr[3] );
  21         $data = Lang.Struct( "BBBB", $addr0,  $addr1,  $addr2, $addr3 );
  22         Sys.IO.IOCtl( $fp, 6, $data );
  23         Sys.IO.Close( $fp );
  24 }
  25
  26 //SetIPv4( $ifname, Lang.IntArray(10, 0, 2, 55) );
  27 SetIPv4( $ifname, 10, 0, 2, 55 );
  28
  29 #?>