Patch title: Release 94 bulk changes
Abstract:
File: /pliant/linux/network/ppp.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/stream/serial.pli"
module "/pliant/admin/file.pli"
module "/pliant/admin/execute.pli"
module "/pliant/language/ui/ansi_terminal.pli"
module "/pliant/linux/kernel/module.pli"
module "/pliant/linux/kernel/device.pli"



function modem_init port baud options
  arg Int port ; arg Int baud ; arg Str options options
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/stream/serial.pli"
module "/pliant/admin/file.pli"
module "/pliant/admin/execute.pli"
module "/pliant/language/ui/ansi_terminal.pli"
module "/pliant/linux/kernel/module.pli"
module "/pliant/linux/kernel/device.pli"



function modem_init port baud options
  arg Int port ; arg Int baud ; arg Str options options
  var Str device := (shunt (options option "irda") "ircomm" 
  var Str device := (shunt (options option "bluetooth") "rfcomm" (options option "irda") "ircomm" "ttyS")+string:port
  modem_device := "/dev/"+device
  modem_baud := baud
  modem_options := options
  kernel_load_module "serial" # 2.4 and earlier
  kernel_load_module "8250_pci" # 2.6
  kernel_make_device "device:/"+device
  kernel_make_device "device:/ppp"
  modem open "serial:"+device "baud "+string:modem_baud+" "+
  if true
    modem configure "timeout 0.2"
    while not modem:atend
      modem readline
    if (modem configure "timeout "+string:modem_timeout)=fai
      error "Failed to set modem timeout"



export modem '. readline2' dial_header command connect ppp
  modem_device := "/dev/"+device
  modem_baud := baud
  modem_options := options
  kernel_load_module "serial" # 2.4 and earlier
  kernel_load_module "8250_pci" # 2.6
  kernel_make_device "device:/"+device
  kernel_make_device "device:/ppp"
  modem open "serial:"+device "baud "+string:modem_baud+" "+
  if true
    modem configure "timeout 0.2"
    while not modem:atend
      modem readline
    if (modem configure "timeout "+string:modem_timeout)=fai
      error "Failed to set modem timeout"



export modem '. readline2' dial_header command connect ppp