Archiwizer WUZ

Autor: Przemysław Pawełczyk

Spis treści

Poprawiamy WUZ

WUZ jest jednym z prostszych programów służących do kompresji całych katalogów i rozpakowywania plików ZIP (działa także z plikami innych formatów). Został napisany w języku REXX przez p. Scotta Maxwella. Program jest tak prosty i przydatny, że posługuję się nim od samego początku swojej życiowej przygody z systemem OS/2 Warp.

Rys. 1: Widok ikon po instalacji pakietu WUZ (WPS Unzip i Zip Directory). Tutaj dla wygody umieszczone są w Wyrzutni. (Napisy na przyciskach umieściłem celowo dla potrzeb tego artykułu.)

Niestety, ten wspaniały program do archiwizacji folderów oraz ich dekompresji nie chciał działać w środowisku Object REXXa. Okazało się, że błąd był w jednej z "pobocznych" procedur. Na szczęście zmiany, które należy wykonać nie są duże. Zmianie wymaga jedynie plik Open-Dir.cmd.

Plik Open-Dir.cmd przed przeróbką.

Na końcu pliku znajduje się procedura Directory, mająca następującą postać: 
/* -------------------------------------*/
Directory: procedure
  arg Name
  Name = Strip(Name,,'"')
  if Length(Name) > 3 then
    if Right(Name,1) = '\' then
      Name = Left(Name,LENGTH(Name)-1)
  n = 'DIRECTORY'(Name)
return n
/* -------------------------------------*/

Plik Open-Dir.cmd po przeróbce.

Należy wprowadzić następującą poprawkę: 
/* -------------------------------------*/
Directory: procedure
  arg Name
  Name = Strip(Name,,'"')
  if Length(Name) > 3 then
    if Right(Name,1) = '\' then
      Name = Left(Name,LENGTH(Name)-1)
/* --------- poprawka ----------------- */
  if name = '' then n = 'DIRECTORY'()
  else n = 'DIRECTORY'(Name)
/* --------- poprawka ----------------- */
return n
/* -------------------------------------*/

Jak korzystać z WUZ

Aby nie zaśmiecać sobie Pulpitu umieściłem obie ikony WUZ na Wyrzutni. Ją z kolei uruchamiam z tacy systemowej.

Jako przykład posłuży sytuacja, z którą spotykam się na codzień.

Przychodzi poczta, a w niej załącznik z plikiem jcdfs.zip (najnowszy plik CDFS.IFS do obsługi kompaktów CD-ROM formatu Joliet 3). Zapisuję go w folderze Attachments.

Po otwarciu folderu Attachments i Wyrzutni przesuwam obiekt jcdfs.zip na ikonę WPS Unzip. Po chwili pojawia się nowy folder, a w nim rozpakowany plik. Ma on tę samą nazwę co rozpakowywany plik. Szczegóły jak zainstalować WUZ oraz, w którym folderze (np. F:\UNZIP) pojawią się foldery z zawartością poszczególnych plików *.ZIP, są opisane w dokumentacji (bardzo prostej). W razie problemów proszę do mnie napisać.

Rys. 2. Widok folderów Attachment, Wyrzutni oraz wynikowego z plikiem CDFS.IFS.
 
<-Powrót 

Tech/2 strony z poradami technicznymi na temat systemu OS/2