ro-oslib-commits

[<to...@us...>]

Update of /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib
In directory sc8-pr-cvs1:/tmp/cvs-serv19925/OSLib/!OsLib/Source/User/oslib

Modified Files:
	Arcweb.swi BASICTrans.swi 
Log Message:
Various enhabcements and bug-fixes. Updated Test suite

Index: Arcweb.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib/Arcweb.swi,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Arcweb.swi	11 Mar 2002 14:13:55 -0000	1.2
--- Arcweb.swi	28 Nov 2002 13:09:00 -0000	1.3
***************
*** 4,8 ****
  
  NEEDS OS, WIMP;
! NEEDSATEND ArcWeb32;
  
  CONST
--- 4,9 ----
  
  NEEDS OS, WIMP;
! //NEEDSATEND ArcWeb32; // TV 20021128 Removed all pretense of supporting
! // 8-bit file handles. It didn't work...
  
  CONST
***************
*** 100,110 ****
     );
  
! TYPE
!    Arcweb_URLW =
!    .Union
!    (
!       OS_FW: url_file_w "32-bit file handle",
!       [200] .Char: url
!    );
  
  TYPE
--- 101,111 ----
     );
  
! //TYPE
! //   Arcweb_URLW =
! //   .Union
! //   (
! //      OS_FW: url_file_w "32-bit file handle",
! //      [200] .Char: url
! //   );
  
  TYPE

Index: BASICTrans.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib/BASICTrans.swi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BASICTrans.swi	9 Mar 2002 11:12:33 -0000	1.1
--- BASICTrans.swi	28 Nov 2002 13:09:00 -0000	1.2
***************
*** 14,18 ****
        buffer",
        ENTRY (R0 = .Int: error_no,
!       R1 = .Ref OS_Error: error_buffer),
        EXIT (R0?, R1?, R2?, R3?));
  
--- 14,18 ----
        buffer",
        ENTRY (R0 = .Int: error_no,
!       R1 = .Ref .String: error_buffer),
        EXIT (R0?, R1?, R2?, R3?));