ServiceInternational Veneer

[John-Mark Bell]

Hi,

Here's a patch to the ServiceInternational.swi file to handle subreason 
codes 7 and 8 (Define character from UCS and Return UCS conversion table, 
respectively). These are new in RO5, to the best of my knowledge.

John.


Index: Source/Core/oslib/ServiceInternational.swi
===================================================================
RCS file: 
/cvsroot/ro-oslib/OSLib/!OsLib/Source/Core/oslib/ServiceInternational.swi,v
retrieving revision 1.1
diff -u -r1.1 ServiceInternational.swi
--- Source/Core/oslib/ServiceInternational.swi 9 Mar 2002 10:59:14 -0000 1.1
+++ Source/Core/oslib/ServiceInternational.swi 27 Mar 2005 04:53:51 -0000
@@ -43,4 +43,12 @@
    ServiceInternational_NewKeyboard =
       (NUMBER 0x30, ENTRY (R1 # 0x43, R2 # 6 "Notification of a new
       keyboard selection", R3 = .Int: keyboard_no,
-      R4 = Territory_AlphabetNumber: alphabet_no))
+      R4 = Territory_AlphabetNumber: alphabet_no)),
+   ServiceInternational_DefineUCSCharacter =
+      (NUMBER 0x30, ENTRY (R1 # 0x43, R2 # 7 "Defines a UCS character",
+      R3 = .Int: char_index, R4 = .Int: ucs_charcode), 
+      EXIT (R1! = .Bool: unclaimed)),
+   ServiceInternational_GetUCSConversionTable =
+      (NUMBER 0x30, ENTRY (R1 # 0x43, R2 # 8 "Read UCS conversion table
+      for given alphabet", R3 = .Int: alphabet_no), EXIT (R1! = .Bool: unclaimed,
+      R4 = .Ref Void: char_table))