Patch title: Release 93 bulk changes
Abstract:
File: /linux/network/net.pli
Key:
    Removed line
    Added line
   
abstract
  [This module will give you the ability to deal with Linux 



function route def to fun -> status
abstract
  [This module will give you the ability to deal with Linux 



function route def to fun -> status
  arg Str def to ; arg Int fun ; arg Status status
  arg Str def to ; arg uInt fun ; arg Status status
  if not (def eparse (var Int i1) "." (var Int i2) "." (var 
    error error_id_unexpected "invalid routing definition "+
    return failure
  var Str device := ""
  if not (to eparse (var Int t1) "." (var Int t2) "." (var I
    device := to+"[0]"
  memory_clear addressof:(var os_rtentry rt) os_rtentry:size
  rt rt_flags := os_RTF_UP
  rt:rt_dst sin_family := os_AF_INET
  rt:rt_dst sin_addr := (cast i1 uInt)*256^3 + (cast i2 uInt
  rt:rt_genmask sin_family := os_AF_INET
  rt:rt_genmask sin_addr := (cast m1 uInt)*256^3 + (cast m2 
  if device=""
    rt:rt_gateway sin_family := os_AF_INET
    rt:rt_gateway sin_addr := (cast t1 uInt)*256^3 + (cast t
    rt rt_flags := rt:rt_flags .or. os_RTF_GATEWAY
  eif device="[0]"
    rt rt_dev := "lo[0]" characters
    rt rt_flags := rt:rt_flags .or. os_RTF_REJECT
  else
    rt rt_dev := device characters
  var Int socket := os_socket os_AF_INET os_SOCK_DGRAM 0
  if socket<=0
    return failure
  status := shunt (os_ioctl socket fun addressof:rt)>=0 succ
  os_close socket


  if not (def eparse (var Int i1) "." (var Int i2) "." (var 
    error error_id_unexpected "invalid routing definition "+
    return failure
  var Str device := ""
  if not (to eparse (var Int t1) "." (var Int t2) "." (var I
    device := to+"[0]"
  memory_clear addressof:(var os_rtentry rt) os_rtentry:size
  rt rt_flags := os_RTF_UP
  rt:rt_dst sin_family := os_AF_INET
  rt:rt_dst sin_addr := (cast i1 uInt)*256^3 + (cast i2 uInt
  rt:rt_genmask sin_family := os_AF_INET
  rt:rt_genmask sin_addr := (cast m1 uInt)*256^3 + (cast m2 
  if device=""
    rt:rt_gateway sin_family := os_AF_INET
    rt:rt_gateway sin_addr := (cast t1 uInt)*256^3 + (cast t
    rt rt_flags := rt:rt_flags .or. os_RTF_GATEWAY
  eif device="[0]"
    rt rt_dev := "lo[0]" characters
    rt rt_flags := rt:rt_flags .or. os_RTF_REJECT
  else
    rt rt_dev := device characters
  var Int socket := os_socket os_AF_INET os_SOCK_DGRAM 0
  if socket<=0
    return failure
  status := shunt (os_ioctl socket fun addressof:rt)>=0 succ
  os_close socket