Usermode/Libraries/libspiderscript.so_src/Scripts/sample.isc

   1 #<?php
   2
   3 # Should I use brackets in this language?
   4 # Well, considering that all whitespace is ignored, it might be an idea
   5
   6 # Well, it would make VVV a little simpler
   7 # Just define a funciton with the name 'Sys.IO.Open'
   8 # Not a namespace Sys, with a child Sys
   9
  10 $fp = Sys.IO.Open( "/Devices/ipstack" );
  11 $ifname = Sys.IO.IOCtl( $fp, 4, "/Devices/ne2k/0" );
  12 Sys.IO.Close($fp);
  13
  14 # Let's see:
  15 #   b - Signed 8-bit integer, B - unsigned
  16 #   w - 16 bit
  17 #   l - 32 bit
  18 #   q - 64 bit
  19 #   f - 32-bit float
  20 #   d - 64-bit double
  21 #   Fields can be prefixed by a size for arrays (taking only one argument)
  22 #   * indicates a variable size array
  23 # E.g.
  24 #  Sys.Mem.MakeStruct( "L*B", $len, $len, $str );
  25 # Hmm.. that would mean I will need arrays... fuck it, do them later
  26
  27 /*
  28 function SetIPv4($ifaceName, $addr)
  29 {
  30         $fp = Sys.IO.Open( "/Devices/ipstack/$ifaceName" );
  31         $data = Lang.MakeStruct( "l", 4 );
  32         Sys.IO.IOCtl( $fp, 4, $data );
  33         $data = Lang.Struct( "BBBB", $addr[0],  $addr[1],  $addr[2], $addr[3] );
  34         Sys.IO.IOCtl( $fp, 6, $data );
  35         Sys.IO.Close( $fp );
  36 }
  37
  38 SetIPv4( $ifname, Lang.Array(10, 0, 2, 55) );
  39 */
  40
  41
  42 return 42;      // Script return value
  43
  44 #?>