workbench/libs/locale/rexxhost.c

   1 #include <exec/types.h>
   2
   3 #ifdef __MORPHOS__
   4 #define CVa2i(__p0) \
   5         LP1(300, LONG , CVa2i, \
   6                 STRPTR , __p0, a0, \
   7                 , RexxSysBase, 0, 0, 0, 0, 0, 0)
   8
   9 #define CVi2az(__p0, __p1, __p2) \
  10         LP3(318, LONG , CVi2az, \
  11                 STRPTR , __p0, a0, \
  12                 LONG , __p1, d0, \
  13                 LONG , __p2, d1, \
  14                 , RexxSysBase, 0, 0, 0, 0, 0, 0)
  15 #endif
  16
  17 #include <proto/exec.h>
  18 #include <proto/rexxsyslib.h>
  19 #include <rexx/errors.h>
  20 #include <aros/asmcall.h>
  21 #include "locale_intern.h"
  22 #include <proto/locale.h>
  23
  24 #include <string.h>
  25 #include <stdlib.h>
  26
  27
  28 static LONG rxGetCatalogStr(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  29 {
  30         *resstr = GetCatalogStr((struct Catalog *)CVa2i(rxmsg->rm_Args[1]), atol(rxmsg->rm_Args[2]), rxmsg->rm_Args[3]);
  31         return strlen(*resstr);
  32 }
  33
  34 static LONG rxGetLocaleStr(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  35 {
  36         *resstr = GetLocaleStr(locale, atol(rxmsg->rm_Args[1]));
  37         return strlen(*resstr);
  38 }
  39
  40 static LONG rxOpenCatalog(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  41 {
  42         APTR cat = OpenCatalog(locale, rxmsg->rm_Args[1], OC_BuiltInLanguage, (ULONG)rxmsg->rm_Args[2], OC_Version, atol(rxmsg->rm_Args[3]), TAG_DONE);
  43         return CVi2az(*resstr, (LONG)cat, 12);
  44 }
  45
  46 static LONG rxCloseCatalog(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  47 {
  48         CloseCatalog((struct Catalog *)CVa2i(rxmsg->rm_Args[1]));
  49         return 0;
  50 }
  51
  52 static LONG rxStrnCmp(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  53 {
  54         LONG reslen = StrnCmp(locale, rxmsg->rm_Args[1], rxmsg->rm_Args[2], -1, atol(rxmsg->rm_Args[3]));
  55
  56         if (reslen < 0) { *resstr[0] = '-'; *resstr[1] = '1'; reslen = 2; }
  57         else if (reslen > 0) { *resstr[0] = '1'; reslen = 1; }
  58         else { *resstr[0] = '0'; reslen = 1; }
  59
  60         return reslen;
  61 }
  62
  63 static LONG rxConvToLower(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  64 {
  65         *resstr[0] = (UBYTE)ConvToLower(locale, *rxmsg->rm_Args[1]);
  66         return 1;
  67 }
  68
  69 static LONG rxConvToUpper(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  70 {
  71         *resstr[0] = (UBYTE)ConvToUpper(locale, *rxmsg->rm_Args[1]);
  72         return 1;
  73 }
  74
  75 static LONG rxIsAlpha(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  76 {
  77         if (IsAlpha(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
  78         else *resstr[0] = '0';
  79         return 1;
  80 }
  81
  82 static LONG rxIsSpace(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  83 {
  84         if (IsSpace(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
  85         else *resstr[0] = '0';
  86         return 1;
  87 }
  88
  89 static LONG rxIsDigit(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  90 {
  91         if (IsDigit(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
  92         else *resstr[0] = '0';
  93         return 1;
  94 }
  95
  96 static LONG rxIsGraph(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
  97 {
  98         if (IsGraph(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
  99         else *resstr[0] = '0';
 100         return 1;
 101 }
 102
 103 static LONG rxIsAlNum(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
 104 {
 105         if (IsAlNum(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
 106         else *resstr[0] = '0';
 107         return 1;
 108 }
 109
 110 static LONG rxIsCntrl(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
 111 {
 112         if (IsCntrl(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
 113         else *resstr[0] = '0';
 114         return 1;
 115 }
 116
 117 static LONG rxIsLower(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
 118 {
 119         if (IsLower(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
 120         else *resstr[0] = '0';
 121         return 1;
 122 }
 123
 124 static LONG rxIsPunct(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
 125 {
 126         if (IsPunct(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
 127         else *resstr[0] = '0';
 128         return 1;
 129 }
 130
 131 static LONG rxIsUpper(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
 132 {
 133         if (IsUpper(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
 134         else *resstr[0] = '0';
 135         return 1;
 136 }
 137
 138 static LONG rxIsPrint(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
 139 {
 140         if (IsPrint(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
 141         else *resstr[0] = '0';
 142         return 1;
 143 }
 144
 145 static LONG rxIsXDigit(struct LocaleBase *LocaleBase, struct Locale *locale, struct RexxMsg *rxmsg, STRPTR *resstr)
 146 {
 147         if (IsXDigit(locale, *rxmsg->rm_Args[1])) *resstr[0] = '1';
 148         else *resstr[0] = '0';
 149         return 1;
 150 }
 151
 152 struct dispentry
 153 {
 154         CONST_STRPTR FuncName;
 155         LONG (*Function)(struct LocaleBase *, struct Locale *, struct RexxMsg *, STRPTR *);
 156         ULONG NumArgs;
 157 };
 158
 159 /* MUST be alphabetically sorted! */
 160 struct dispentry disptable[] = {
 161         { "CLOSECATALOG", rxCloseCatalog, 1 },
 162         { "CONVTOLOWER", rxConvToLower, 1 },
 163         { "CONVTOUPPER", rxConvToUpper, 1 },
 164         { "GETCATALOGSTR", rxGetCatalogStr, 3 },
 165         { "GETLOCALESTR", rxGetLocaleStr, 1 },  /*** NEW ***/
 166         { "ISALNUM", rxIsAlNum, 1 },
 167         { "ISALPHA", rxIsAlpha, 1 },
 168         { "ISCNTRL", rxIsCntrl, 1 },
 169         { "ISDIGIT", rxIsDigit, 1 },
 170         { "ISGRAPH", rxIsGraph, 1 },
 171         { "ISLOWER", rxIsLower, 1 },
 172         { "ISPRINT", rxIsPrint, 1 },
 173         { "ISPUNCT", rxIsPunct, 1 },
 174         { "ISSPACE", rxIsSpace, 1 },
 175         { "ISUPPER", rxIsUpper, 1 },
 176         { "ISXDIGIT", rxIsXDigit, 1 },
 177         { "OPENCATALOG", rxOpenCatalog, 3 },
 178         { "STRNCMP", rxStrnCmp, 3 }
 179 };
 180
 181 int dispcomp(const void *name, const void *dispentry)
 182 {
 183         return stricmp(name, ((const struct dispentry *)dispentry)->FuncName);
 184 }
 185
 186
 187 /*****************************************************************************
 188
 189     NAME */
 190
 191         AROS_LH1(ULONG, RexxHost,
 192
 193 /*  SYNOPSIS */
 194         AROS_LHA(struct RexxMsg *, rxmsg, A0),
 195
 196 /*  LOCATION */
 197         struct LocaleBase *, LocaleBase, 5, Locale)
 198
 199 /*  FUNCTION
 200         locale.library rexxhost interface
 201
 202 *****************************************************************************/
 203 {
 204     AROS_LIBFUNC_INIT
 205
 206         struct Locale *locale = (struct Locale *)IntLB(LocaleBase)->lb_CurrentLocale;
 207         struct dispentry *dispentry;
 208         LONG reslen;
 209         UBYTE resbuf[12];
 210         STRPTR argstr = resbuf;
 211
 212         if (!RexxSysBase) return(ERR10_014);
 213         if (!rxmsg || !IsRexxMsg(rxmsg) || !(rxmsg->rm_Action & RXFUNC) || !rxmsg->rm_Args[0]) return(ERR10_010);
 214
 215         if (!(dispentry = bsearch(rxmsg->rm_Args[0], disptable, sizeof(disptable)/sizeof(struct dispentry), sizeof(struct dispentry), dispcomp))) return(ERR10_001);
 216         if ((rxmsg->rm_Action & RXARGMASK) != dispentry->NumArgs) return(ERR10_017);
 217
 218         reslen = dispentry->Function(LocaleBase, locale, rxmsg, &argstr);
 219
 220         if (!(argstr = CreateArgstring(argstr, reslen))) return(ERR10_003);
 221
 222 #ifdef __MORPHOS__
 223         REG_A0 = (ULONG)argstr;
 224 #else
 225 #error register a0 must be set to argstr before returning...
 226 #endif
 227
 228         return 0;
 229
 230     AROS_LIBFUNC_EXIT
 231 } /* RexxHost */
 232