Patch title: Release 87 bulk changes
Abstract:
File: /pliant/install/pack-archive
Key:
    Removed line
    Added line
   
#!/bin/pliant
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/admin/execute.pli"
module "/pliant/admin/asciifile.pli"
#!/bin/pliant
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/admin/execute.pli"
module "/pliant/admin/asciifile.pli"
module "/pliant/language/os.pli"


file_move "/pliant/win32/" "/archive/win32/"

(gvar AsciiFile current) load "/pliant/util/crypto/legal.pli


file_tree_create "/archive/"
gvar Array:FileInfo files := file_list "/archive/" standard
for (gvar Int i) 0 files:size-1
  if files:i:extension=".tgz" or files:i:extension=".zip" or
    file_delete files:i:name
file_tree_rights "/" 0 0 6*64+4*8+4 1*64+3*8+3 7*64+5*8+5 2*
files := file_list "/binary/" standard
for i 0 files:size-1
  if files:i:extension=".exe"
    execute "strip --remove-section=.comment --remove-sectio
    file_rights files:i:name undefined undefined 64+8+1 0
files := file_list "/pliant/install/" standard
for i 0 files:size-1
  if files:i:extension=""
    file_rights files:i:name undefined undefined 64+8+1 0
(gvar AsciiFile current) load "/pliant/util/crypto/legal.pli


file_tree_create "/archive/"
gvar Array:FileInfo files := file_list "/archive/" standard
for (gvar Int i) 0 files:size-1
  if files:i:extension=".tgz" or files:i:extension=".zip" or
    file_delete files:i:name
file_tree_rights "/" 0 0 6*64+4*8+4 1*64+3*8+3 7*64+5*8+5 2*
files := file_list "/binary/" standard
for i 0 files:size-1
  if files:i:extension=".exe"
    execute "strip --remove-section=.comment --remove-sectio
    file_rights files:i:name undefined undefined 64+8+1 0
files := file_list "/pliant/install/" standard
for i 0 files:size-1
  if files:i:extension=""
    file_rights files:i:name undefined undefined 64+8+1 0
file_rights "/pliant/protocol/lpr/lpr" undefined undefined 6
file_rights "/pliant/sample/os_level_arguments.pli" undefine

# Linux and posix
file_rights "/pliant/sample/os_level_arguments.pli" undefine

# Linux and posix
execute "tar -zcv -P -f /pliant/archive/pliant-"+release+".t
execute "tar -zcv -P -f /pliant/archive/pliant-"+release+".tgz /pliant/index.page /pliant/fullpliant /pliant/pliant/ /pliant/binary/pliant-debug0.exe /pliant/binary/pliant-debug1.exe /pliant/binary/pliant-debug2.exe /pliant/binary/forever.exe --exclude /pliant/pliant/install/pack-archive --exclude /pliant/pliant/install/recover.exe"


# Win32
file_move "/archive/win32-i386/" "/binary"


# Win32
file_move "/archive/win32-i386/" "/binary"
execute "zip /pliant/archive/pliant-"+release+".zip -9 -r /p
file_copy "/binary/pliant-debug1.exe" "/fullpliant.exe"
file_copy "/binary/pliant-debug1.exe" "/pliant/install/recover.exe"
execute "zip /pliant/archive/pliant-"+release+".zip -9 -r /pliant/index.page /pliant/fullpliant.exe /pliant/pliant/ /pliant/binary/pliant-debug0.exe /pliant/binary/pliant-debug1.exe /pliant/binary/pliant-debug2.exe /pliant/binary/pliant-debug0.dll /pliant/binary/pliant-debug1.dll /pliant/binary/pliant-debug2.dll /pliant/binary/zlib.dll /pliant/binary/libjpeg.dll -x /pliant/pliant/install/pack-archive -x /pliant/fullpliant -x /pliant/pliant/install/recover" path "file:/" quiet
file_move "/binary/" "/archive/win32-i386"
file_move "/binary/" "/archive/win32-i386"
file_delete "/fullpliant.exe"
file_delete "/pliant/install/recover.exe"



if (file_query "file:/pliant/archive/os2-i386/pliant-debug0.
  # OS/2
  file_move "/archive/os2-i386" "/binary"
  execute "zip /pliant/archive/pliant-"+release+"-os2.zip -9
  file_move "/binary/" "/archive/os2-i386"

file_move "/archive/linux-i386/" "/binary"
execute "chown -R me.users /pliant/"
if (file_query "file:/pliant/archive/os2-i386/pliant-debug0.
  # OS/2
  file_move "/archive/os2-i386" "/binary"
  execute "zip /pliant/archive/pliant-"+release+"-os2.zip -9
  file_move "/binary/" "/archive/os2-i386"

file_move "/archive/linux-i386/" "/binary"
execute "chown -R me.users /pliant/"

current store
current store

# file_tree_delete "file:/current/"
# file_extract "file:/pliant/archive/pliant-71.tgz" "file:/c
file_move "/archive/win32/" "/pliant/win32/"