Changeset 49

Timestamp:

Dec 3, 2020, 11:35:31 PM (5 years ago)

Author:

Alex Taylor

Message:

Updated documentation (ES added and some small EN corrections).
Some repo housekeeping.

Location:

rxuls/trunk

Files:

• . (modified) (1 prop)
• book (added)
• book/rxuls.ipf (moved) (moved from rxuls/trunk/rxuls.ipf ) (5 diffs)
• book/rxuls_es.ipf (added)
• rxuls_hobbes.txt (modified) (3 diffs)
• tests/testuf.cmd (modified) (2 diffs)
• tests/xform.cmd (modified) (1 diff)

rxuls/trunk/book/rxuls.ipf

@@ -70 +70 @@
 
 :p.The Unicode standard is maintained by the Unicode Consortium
-(http&colon.//www.unicode.org).
+(https&colon.//www.unicode.org/).
 
 
@@ -588 +588 @@
 33      33                  fr_FR       France (French)
 34      34                  es_ES       Spain (Spanish)
-36      36                  hu_HU       Hungarian (Hungary)
+36      36                  hu_HU       Hungary (Hungarian)
 39      39                  it_IT       Italy (Italian)
 40      40                  ro_RO       Romania (Romanian)
 41      41                  fr_CH       Switzerland (French)
-42      421                 cs_CZ       Czech Republic (Czech Republic)
+42      421                 cs_CZ       Czech Republic (Czech)
 43      43                  de_AT       Austria (German)
 44      44                  en_GB       United Kingdom (English)
@@ -1496 +1496 @@
 iNegNumber          78          Format of negative number
 iLDate              79          Format of long date
-iCalendarType       80          Type of default calandar
+iCalendarType       80          Type of default calendar
 iFirstDayOfWeek     81          First day of week (0=Mon)
 iFirstWeekOfYear    82          First week of year
@@ -1502 +1502 @@
 iTLzero             84          Leading zero on time
 iTimePrefix         85          AM/PM preceeds time
-iOptionalCalendar   86          Alternate calandar type
+iOptionalCalendar   86          Alternate calendar type
 sIntlSymbol         87          International currency symbol
 sAbbrevLangName     88          Windows language abbreviation
@@ -1532 +1532 @@
 iEbcdicCodepage    114          Ebcdic codepage
 sOtherCodepages    115          Other ASCII codepages
-sSetCodepage       116          Codpage to set on activation
+sSetCodepage       116          Codepage to set on activation
 sKeyboard          117          Primary keyboard name
 sAltKeyboard       118          Alternate keyboard name

rxuls/trunk/rxuls_hobbes.txt

@@ -2 +2 @@
                           ===============================================
 
-        Archive Filename: rxuls_051.zip
-       Short Description: RXULS.DLL v0.51, Unicode and I18N library for REXX
+        Archive Filename: rxuls_061.zip
+       Short Description: RXULS, Unicode and internationalization library for REXX (v0.61)
         Long Description: RXULS.DLL is a REXX interface to selected parts of the OS/2 ULS (Universal
                           Language Support) API, also known as the Unicode API.  RXULS.DLL provides
@@ -15 +15 @@
 
                Your name: Alex Taylor
-           Email address: alex at cs-club dot org
+           Email address: alex at altsan dot org
     Program contact name: (same)
    Program contact email: (same)
-             Program URL: http://www.cs-club.org/~alex/os2/toolkits/uls/#rxuls
+             Program URL: http://www.altsan.org/os2/toolkits/uls/#rxuls
 
       Would you like the
@@ -27 +27 @@
  Additional requirements:
 
-                Replaces: rxuls_050.zip
+                Replaces: rxuls_*.zip
 
 

rxuls/trunk/tests/testuf.cmd

@@ -2 +2 @@
 CALL RxFuncAdd 'ULSLoadFuncs', 'RXULS', 'ULSLoadFuncs'
 CALL ULSLoadFuncs
+CALL RxFuncAdd 'Sys2LoadFuncs', 'RXUTILEX', 'Sys2LoadFuncs'
+CALL Sys2LoadFuncs
 
 /* Epoch time in seconds. */
 epochtime = 1234567890
+epochtime = Sys2GetEpochTime()
 tzone = VALUE('TZ',,'OS2ENVIRONMENT')
 
@@ -11 +14 @@
 SAY timestr
 
-timestr = ULSFormatTime( epochtime, '%Ec (%EY)',, 'en_US')
+/* Convert to local time using the ja_JP locale and alternate calendar format. */
+timestr = ULSFormatTime( epochtime, '%Ex %EX',, 'ja_JP', 932 )
+SAY timestr
+timestr = ULSFormatTime( epochtime, '%EX %Ex',, 'ja_JP', 932 )
 SAY timestr
 

rxuls/trunk/tests/xform.cmd

@@ -11 +11 @@
 DO i = 1 TO LENGTH( de_str )
    c = SUBSTR( de_str, i, 1 )
+   IF c == X2C('7f') THEN ITERATE
    IF ULSQueryAttr( c, 'diacritic') <> 1 THEN
        stripped = stripped || c