Patch title: Release 94 bulk changes
Abstract:
File: /pliant/protocol/smb/client.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "/pliant/language/os.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/stream/multi.pli"
module "/pliant/language/stream/filesystembase.pli"
module "/pliant/language/stream/openmode.pli"
module "/pliant/language/stream/flushmode.pli"
module "/pliant/language/stream/listmode.pli"
module "/pliant/language/os/linux64.pli"
module "/pliant/language/schedule/namedsem.pli"
module "/pliant/language/data/id.pli"

module "/pliant/language/compiler.pli"
module "/pliant/language/os.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/stream/multi.pli"
module "/pliant/language/stream/filesystembase.pli"
module "/pliant/language/stream/openmode.pli"
module "/pliant/language/stream/flushmode.pli"
module "/pliant/language/stream/listmode.pli"
module "/pliant/language/os/linux64.pli"
module "/pliant/language/schedule/namedsem.pli"
module "/pliant/language/data/id.pli"

constant smb_library (shunt (file_query "file:/usr/lib/libsm
constant smb_library (shunt (file_query "file:/usr/lib/libsmbclient.so" standard)=success "/usr/lib/libsmbclient.so" (file_query "file:/usr/lib/libsmbclient.so.0" standard)=success "/usr/lib/libsmbclient.so.0" "/lib/libsmbclient.so")
# constant smb_library "/usr/src/samba-3.0.8/source/bin/libsmbclient.so"
constant getdents_buffer_size 4096
constant verifynames true
constant getdents_buffer_size 4096
constant verifynames true
constant somelocking true
constant advancedlocking true
constant trace2 false


constant advancedlocking true
constant trace2 false


gvar Sem sem
if advancedlocking
  gvar NamedSem hsem
if somelocking
  gvar Sem sem
  if advancedlocking
    gvar NamedSem hsem

function lock

function lock
  sem request
  if somelocking
    sem request

function unlock

function unlock
  sem release
  if somelocking
    sem release

function lock2 host
  arg Str host

function lock2 host
  arg Str host
  if advancedlocking
    sem rd_request
    hsem request host
  else
    sem request
  if somelocking
    if advancedlocking
      sem rd_request
      hsem request host
    else
      sem request

function unlock2 host
  arg Str host

function unlock2 host
  arg Str host
  if advancedlocking
    hsem release host
    sem rd_release
  else
    sem release
  if somelocking
    if advancedlocking
      hsem release host
      sem rd_release
    else
      sem release



gvar SmbFileSystem smb_file_system
if (smbc_init (the_function auth CStr CStr Address Int Addre
  entry_root addressof:(the_function auth CStr CStr Address 
  pliant_multi_file_system mount "smb:" "" smb_file_system



gvar SmbFileSystem smb_file_system
if (smbc_init (the_function auth CStr CStr Address Int Addre
  entry_root addressof:(the_function auth CStr CStr Address 
  pliant_multi_file_system mount "smb:" "" smb_file_system