workbench/libs/reqtools/reqtoolsami_init.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: AmigaOS specific ReqTools initialization code.
   6     Lang: English.
   7 */
   8
   9 /****************************************************************************************/
  10
  11 #include <exec/libraries.h>
  12 #include <exec/resident.h>
  13 #include <exec/execbase.h>
  14 #include <exec/tasks.h>
  15 #include <exec/memory.h>
  16 #include <libraries/reqtools.h>
  17 #include <intuition/classes.h>
  18 #include <proto/exec.h>
  19
  20 #include "reqtools_intern.h"
  21 #include "general.h"
  22 #include "rtfuncs.h"
  23
  24 #define VERSION 39
  25 #define REVISION 4
  26
  27 #define NAME_STRING      "reqtools.library"
  28 #define VERSION_STRING   "$VER: reqtools 39.4 (17.01.2002)\r\n"
  29
  30 /****************************************************************************************/
  31
  32 extern const char name[];
  33 extern const char version[];
  34 extern const APTR inittable[4];
  35 extern void *const functable[];
  36 extern struct ReqToolsBase *libinit();
  37 extern const char libend;
  38
  39 /****************************************************************************************/
  40
  41 int entry(void)
  42 {
  43   return -1;
  44 }
  45
  46 /****************************************************************************************/
  47
  48 const struct Resident ROMTag =
  49 {
  50   RTC_MATCHWORD,
  51   (struct Resident *)&ROMTag,
  52   (APTR)&libend,
  53   RTF_AUTOINIT,
  54   VERSION,
  55   NT_LIBRARY,
  56   0,
  57   (char *)name,
  58   (char *)&version[6],
  59   (ULONG *)inittable
  60 };
  61
  62 /****************************************************************************************/
  63
  64 const char name[]    = NAME_STRING;
  65 const char version[] = VERSION_STRING;
  66
  67 const APTR inittable[4] =
  68 {
  69     (APTR)sizeof(struct ReqToolsBase),
  70     (APTR)functable,
  71     NULL,
  72     (APTR)&libinit
  73 };
  74
  75 /****************************************************************************************/
  76
  77 #define __RT_DEFINEVARS
  78 #include "globalvars.h"
  79 #undef __RT_DEFINEVARS
  80
  81 /****************************************************************************************/
  82
  83 struct ReqToolsBase * SAVEDS ASM libinit(REGPARAM(d0, struct ReqToolsBase *, RTBase),
  84                                             REGPARAM(a0, BPTR, segList))
  85 {
  86     ReqToolsBase = RTBase;
  87     SysBase = *(struct ExecBase **)4L;
  88
  89     ReqToolsBase->LibNode.lib_Node.ln_Type  = NT_LIBRARY;
  90     ReqToolsBase->LibNode.lib_Node.ln_Name  = (char *)name;
  91     ReqToolsBase->LibNode.lib_Flags         = LIBF_SUMUSED|LIBF_CHANGED;
  92     ReqToolsBase->LibNode.lib_Version       = VERSION;
  93     ReqToolsBase->LibNode.lib_Revision      = REVISION;
  94     ReqToolsBase->LibNode.lib_IdString      = (char *)&version[6];
  95
  96     return RTFuncs_Init(RTBase, segList);
  97 }
  98
  99 /****************************************************************************************/
 100
 101 extern ULONG ASM SAVEDS GetString (REGPARAM(a1, UBYTE *, stringbuff),
 102                                    REGPARAM(d0, LONG, maxlen),
 103                                    REGPARAM(a2, char *, title),
 104                                    REGPARAM(d1, ULONG, checksum),
 105                                    REGPARAM(d2, ULONG *, value),
 106                                    REGPARAM(d3, LONG, mode),
 107                                    REGPARAM(d4, struct rtReqInfo *, reqinfo),
 108                                    REGPARAM(a0, struct TagItem *, taglist));
 109
 110
 111 /****************************************************************************************/
 112
 113 #ifdef USE_STACKSWAP
 114
 115 /****************************************************************************************/
 116
 117 #ifdef __AROS__
 118 #error No StackSwap support for AROS yet
 119 #endif
 120
 121 #ifndef __GNUC__
 122 #error Only StackSwap support for GCC compiler for now
 123 #endif
 124
 125 /****************************************************************************************/
 126
 127 struct MyStackSwapStruct
 128 {
 129     struct StackSwapStruct  sss;
 130     UBYTE                   *stringbuff;
 131     LONG                    maxlen;
 132     char                    *title;
 133     ULONG                   checksum;
 134     ULONG                   *value;
 135     LONG                    mode;
 136     struct rtReqInfo        *reqinfo;
 137     struct TagItem          *taglist;
 138 };
 139
 140 #ifndef MIN_STACK
 141 #define MIN_STACK 4096
 142 #endif
 143
 144 /****************************************************************************************/
 145
 146 static ULONG CheckStack_GetString(UBYTE *stringbuff,
 147                                   LONG maxlen,
 148                                   char *title,
 149                                   ULONG checksum,
 150                                   ULONG *value,
 151                                   LONG mode,
 152                                   struct rtReqInfo *reqinfo,
 153                                   struct TagItem *taglist)
 154 {
 155 /* I could not manage to get correct code to be generated when
 156    using asm("a7") or asm("sp") to access sp!? :-( */
 157
 158 #define sp ((IPTR)(&sss))
 159
 160     struct MyStackSwapStruct            sss;
 161     register struct MyStackSwapStruct   *sssptr = &sss;
 162     struct Task                         *me = FindTask(NULL);
 163     register ULONG                      retval = 0;
 164
 165     if ((sp <= (IPTR)me->tc_SPLower) ||
 166         (sp >= (IPTR)me->tc_SPUpper) ||
 167         (sp - MIN_STACK < (IPTR)me->tc_SPLower))
 168     {
 169         sssptr->sss.stk_Lower = AllocVec(MIN_STACK, MEMF_PUBLIC);
 170         if (sssptr->sss.stk_Lower)
 171         {
 172             sssptr->sss.stk_Upper = ((IPTR)sssptr->sss.stk_Lower) + MIN_STACK;
 173             sssptr->sss.stk_Pointer = (APTR) sssptr->sss.stk_Upper;
 174
 175             sssptr->stringbuff  = stringbuff;
 176             sssptr->maxlen      = maxlen;
 177             sssptr->title       = title;
 178             sssptr->checksum    = checksum;
 179             sssptr->value       = value;
 180             sssptr->mode        = mode;
 181             sssptr->reqinfo     = reqinfo;
 182             sssptr->taglist     = taglist;
 183
 184             StackSwap(&sssptr->sss);
 185
 186             retval = GetString(sssptr->stringbuff,
 187                                sssptr->maxlen,
 188                                sssptr->title,
 189                                sssptr->checksum,
 190                                sssptr->value,
 191                                sssptr->mode,
 192                                sssptr->reqinfo,
 193                                sssptr->taglist);
 194
 195             StackSwap(&sssptr->sss);
 196
 197             FreeVec(sssptr->sss.stk_Lower);
 198         }
 199     }
 200     else
 201     {
 202         retval = GetString(stringbuff, maxlen, title, checksum, value, mode, reqinfo, taglist);
 203     }
 204
 205     return retval;
 206 }
 207
 208 /****************************************************************************************/
 209
 210 #define GETSTRING CheckStack_GetString
 211
 212 #else
 213
 214 #define GETSTRING GetString
 215
 216 /****************************************************************************************/
 217
 218 #endif /* USE_STACKSWAP */
 219
 220 /****************************************************************************************/
 221
 222 ULONG SAVEDS ASM librtEZRequestA(REGPARAM(a1, char *, bodyfmt),
 223                                  REGPARAM(a2, char *, gadfmt),
 224                                  REGPARAM(a3, struct rtReqInfo *, reqinfo),
 225                                  REGPARAM(a4, APTR, argarray),
 226                                  REGPARAM(a0, struct TagItem *, taglist))
 227 {
 228     return GETSTRING(bodyfmt,
 229                      (LONG)argarray,
 230                      gadfmt,
 231                      0,
 232                      NULL,
 233                      IS_EZREQUEST,
 234                      reqinfo,
 235                      taglist);
 236 }
 237
 238 /****************************************************************************************/
 239
 240 ULONG SAVEDS ASM librtGetStringA(REGPARAM(a1, UBYTE *, buffer),
 241                                  REGPARAM(d0, ULONG, maxchars),
 242                                  REGPARAM(a2, char *, title),
 243                                  REGPARAM(a3, struct rtReqInfo *, reqinfo),
 244                                  REGPARAM(a0, struct TagItem *, taglist))
 245 {
 246     return GETSTRING(buffer,
 247                      maxchars,
 248                      title,
 249                      0,
 250                      NULL,
 251                      ENTER_STRING,
 252                      reqinfo,
 253                      taglist);
 254 }
 255
 256 /****************************************************************************************/
 257
 258 ULONG SAVEDS ASM librtGetLongA(REGPARAM(a1, ULONG *, longptr),
 259                                REGPARAM(a2, char *, title),
 260                                REGPARAM(a3, struct rtReqInfo *, reqinfo),
 261                                REGPARAM(a0, struct TagItem *, taglist))
 262 {
 263     return GETSTRING(NULL,
 264                      0,
 265                      title,
 266                      0,
 267                      longptr,
 268                      ENTER_NUMBER,
 269                      reqinfo,
 270                      taglist);
 271 }
 272
 273 /****************************************************************************************/
 274
 275 /* NOTE: Used by powerpacker.library/ppGetPassword() */
 276
 277 BOOL SAVEDS ASM librtInternalGetPasswordA(REGPARAM(a1, UBYTE *, buffer),
 278                                           REGPARAM(d1, ULONG, checksum),
 279                                           REGPARAM(d2, PWCALLBACKFUNPTR, pwcallback),
 280                                           REGPARAM(a3, struct rtReqInfo *, reqinfo),
 281                                           REGPARAM(a0, struct TagItem *, taglist))
 282 {
 283     buffer[0] = '\0';
 284
 285     return GETSTRING(buffer,
 286                      16,
 287                      "Password",
 288                      checksum & 0xffff,
 289                      (ULONG *) pwcallback,
 290                      CHECK_PASSWORD,
 291                      reqinfo,
 292                      taglist);
 293 }
 294
 295 /****************************************************************************************/
 296
 297 /* NOTE: Used by powerpacker.library/ppEnterPassword */
 298
 299 BOOL SAVEDS ASM librtInternalEnterPasswordA(REGPARAM(a1, UBYTE *, buffer),
 300                                             REGPARAM(d2, PWCALLBACKFUNPTR, pwcallback),
 301                                             REGPARAM(a3, struct rtReqInfo *, reqinfo),
 302                                             REGPARAM(a0, struct TagItem *, taglist))
 303 {
 304     return GETSTRING(buffer,
 305                      16,
 306                      "Password",
 307                      0,
 308                      (ULONG *) pwcallback,
 309                      ENTER_PASSWORD,
 310                      reqinfo,
 311                      taglist);
 312 }
 313
 314 /****************************************************************************************/
 315
 316 extern void libopen(void);
 317 extern void libclose(void);
 318 extern void libexpunge(void);
 319 extern void libnull(void);
 320
 321 extern void AllocRequestA(void);
 322 extern void FreeRequest(void);
 323 extern void FreeReqBuffer(void);
 324 extern void ChangeReqAttrA(void);
 325 extern void FileRequestA(void);
 326 extern void FreeFileList(void);
 327 extern void PaletteRequestA(void);
 328 extern void GetVScreenSize(void);
 329
 330 /****************************************************************************************/
 331
 332 void *const functable[]=
 333 {
 334     RTFuncs_Open,
 335     RTFuncs_Close,
 336     RTFuncs_Expunge,
 337     RTFuncs_Null,
 338     AllocRequestA,
 339     FreeRequest,
 340     FreeReqBuffer,
 341     ChangeReqAttrA,
 342     FileRequestA,
 343     FreeFileList,
 344     librtEZRequestA,
 345     librtGetStringA,
 346     librtGetLongA,
 347     librtInternalGetPasswordA,
 348     librtInternalEnterPasswordA,
 349     FileRequestA,
 350     PaletteRequestA,
 351     RTFuncs_rtReqHandlerA,
 352     RTFuncs_rtSetWaitPointer,
 353     GetVScreenSize,
 354     RTFuncs_rtSetReqPosition,
 355     RTFuncs_rtSpread,
 356     RTFuncs_ScreenToFrontSafely,
 357     FileRequestA,
 358     RTFuncs_CloseWindowSafely,
 359     RTFuncs_rtLockWindow,
 360     RTFuncs_rtUnlockWindow,
 361     RTFuncs_LockPrefs,
 362     RTFuncs_UnlockPrefs,
 363     (void *)-1L
 364 };
 365
 366 /****************************************************************************************/
 367
 368 const char libend = 0;
 369
 370 /****************************************************************************************/
 371