dopus/Library/dopus_init.c

   1 /*
   2     Copyright © 1997-2010, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: DOpus library initialization code.
   6     Lang: English.
   7 */
   8
   9 #include <stddef.h>
  10 #include <exec/libraries.h>
  11 #include <exec/lists.h>
  12 #include <aros/symbolsets.h>
  13 #include <proto/exec.h>
  14
  15 /* #include "initstruct.h" */
  16 #include "dopuslib.h"
  17 /*#include "initstruct.h"*/
  18 #include LC_LIBDEFS_FILE
  19
  20 #define DEBUG 0
  21 #include <aros/debug.h>
  22
  23
  24 extern UBYTE pdb_cycletop[];
  25 extern UBYTE pdb_cyclebot[];
  26 extern UBYTE pdb_check[];
  27 extern const struct DefaultString default_strings[];
  28
  29 struct StringData stringdata = {default_strings,STR_STRING_COUNT,NULL,NULL,
  30     0,STRING_VERSION,NULL,NULL};
  31
  32 #warning Remove DOpusBase as global variable
  33 /* AROS: DOpusBase global var shadows the parameter with the same name */
  34
  35 void set_global_dopusbase(struct DOpusBase *base)
  36 {
  37         DOpusBase = base;
  38 }
  39
  40 static int GM_UNIQUENAME(Init)(LIBBASETYPEPTR LIBBASE)
  41 {
  42     /* This function is single-threaded by exec by calling Forbid. */
  43
  44     /* We have to use a function to set the global var DOpusBase
  45        since it shadows the LIBBASE parameter (LIBBASE is a #define
  46        for DOpusBase
  47     */
  48
  49     set_global_dopusbase(LIBBASE);
  50
  51     /* ----------------- */
  52
  53     LIBBASE->DOSBase = DOSBase;
  54     LIBBASE->IntuitionBase = IntuitionBase;
  55     LIBBASE->GfxBase = GfxBase;
  56     LIBBASE->LayersBase = (struct LayersBase *)LayersBase;
  57
  58 //    init_dopus_library();
  59
  60     LIBBASE->pdb_cycletop = (PLANEPTR)&pdb_cycletop;
  61     LIBBASE->pdb_cyclebot = (PLANEPTR)&pdb_cyclebot;
  62 kprintf("DOPUS_INIT: ct: %p, cb: %p\n"
  63     , LIBBASE->pdb_cycletop
  64     , LIBBASE->pdb_cyclebot
  65 );
  66     LIBBASE->pdb_check = (PLANEPTR)&pdb_check;
  67
  68     LIBBASE->pdb_Flags = 0;
  69
  70     if (DoReadStringFile(&stringdata,"dopus4_lib.catalog"))
  71     {
  72         string_table=stringdata.string_table;
  73         initstrings();
  74     }
  75     else
  76         return FALSE;
  77
  78     return TRUE;
  79 }
  80
  81 ADD2INITLIB(GM_UNIQUENAME(Init), 0)
  82
  83 AROS_LH1(void, GetWBScreen,
  84     AROS_LHA(struct Screen *, scrbuf, A0),
  85     struct Library *, DOpusBase, 51, DOpus)
  86 {
  87     AROS_LIBFUNC_INIT
  88
  89     GetWBScreen(scrbuf);
  90
  91     AROS_LIBFUNC_EXIT
  92 }
  93
  94 AROS_LH1(void, Seed,
  95     AROS_LHA(int , seed, D0),
  96     struct Library *, DOpusBase, 55, DOpus)
  97 {
  98     AROS_LIBFUNC_INIT
  99
 100     return Seed(seed);
 101
 102     AROS_LIBFUNC_EXIT
 103 }
 104
 105 AROS_LH1(int, Random,
 106         AROS_LHA(int , limit, D0),
 107         struct Library *, DOpusBase, 56, DOpus)
 108 {
 109     AROS_LIBFUNC_INIT
 110
 111     return Random(limit);
 112
 113     AROS_LIBFUNC_EXIT
 114 }
 115
 116 AROS_LH2(void, StrToUpper,
 117         AROS_LHA(char *, from, A0),
 118         AROS_LHA(char *, to, A1),
 119         struct Library *, DOpusBase, 57, DOpus)
 120 {
 121     AROS_LIBFUNC_INIT
 122
 123     StrToUpper(from, to);
 124
 125     AROS_LIBFUNC_EXIT
 126 }
 127
 128 AROS_LH2(void, StrToLower,
 129         AROS_LHA(char *, from, A0),
 130         AROS_LHA(char *, to, A1),
 131         struct Library *, DOpusBase, 58, DOpus)
 132 {
 133     AROS_LIBFUNC_INIT
 134
 135     StrToLower(from, to);
 136
 137     AROS_LIBFUNC_EXIT
 138 }
 139
 140 AROS_LH4(void, DisableGadget,
 141         AROS_LHA(struct Gadget *, gad, A0),
 142         AROS_LHA(struct RastPort *, rp,  A1),
 143         AROS_LHA(int, xoff, D0),
 144         AROS_LHA(int, yoff, D1),
 145         struct Library *, DOpusBase, 80, DOpus)
 146 {
 147     AROS_LIBFUNC_INIT
 148
 149     DisableGadget(gad, rp, xoff, yoff);
 150
 151     AROS_LIBFUNC_EXIT
 152 }
 153
 154 AROS_LH4(void, EnableGadget,
 155         AROS_LHA(struct Gadget *, gad, A0),
 156         AROS_LHA(struct RastPort *, rp,  A1),
 157         AROS_LHA(int, xoff, D0),
 158         AROS_LHA(int, yoff, D1),
 159         struct Library *, DOpusBase, 81, DOpus)
 160 {
 161     AROS_LIBFUNC_INIT
 162
 163     EnableGadget(gad, rp, xoff, yoff);
 164
 165     AROS_LIBFUNC_EXIT
 166 }
 167
 168 AROS_LH4(void, GhostGadget,
 169         AROS_LHA(struct Gadget *, gad, A0),
 170         AROS_LHA(struct RastPort *, rp,  A1),
 171         AROS_LHA(int, xoff, D0),
 172         AROS_LHA(int, yoff, D1),
 173         struct Library *, DOpusBase, 82, DOpus)
 174 {
 175     AROS_LIBFUNC_INIT
 176
 177     GhostGadget(gad, rp, xoff, yoff);
 178
 179     AROS_LIBFUNC_EXIT
 180 }
 181
 182 #if 1 // Removed from new lib version?
 183 AROS_LH2(struct IORequest *, LCreateExtIO,
 184         AROS_LHA(struct MsgPort *, port, A0),
 185         AROS_LHA(int , size,  D0),
 186         struct Library *, DOpusBase, 11, DOpus)
 187 {
 188     AROS_LIBFUNC_INIT
 189
 190     return DoCreateExtIO(port, size);
 191
 192     AROS_LIBFUNC_EXIT
 193 }
 194
 195 AROS_LH2(struct MsgPort *, LCreatePort,
 196         AROS_LHA(char *, name, A0),
 197         AROS_LHA(int , pri,  D0),
 198         struct Library *, DOpusBase, 12, DOpus)
 199 {
 200     AROS_LIBFUNC_INIT
 201
 202     return DoCreatePort(name, pri);
 203
 204     AROS_LIBFUNC_EXIT
 205 }
 206
 207 AROS_LH1(void, LDeleteExtIO,
 208         AROS_LHA(struct IORequest *, ioext, A0),
 209         struct Library *, DOpusBase, 13, DOpus)
 210 {
 211     AROS_LIBFUNC_INIT
 212
 213     DoDeleteExtIO(ioext);
 214
 215     AROS_LIBFUNC_EXIT
 216 }
 217
 218 AROS_LH1(void, LDeletePort,
 219         AROS_LHA(struct MsgPort *, port, A0),
 220         struct Library *, DOpusBase, 14, DOpus)
 221 {
 222     AROS_LIBFUNC_INIT
 223
 224     DoDeletePort(port);
 225
 226     AROS_LIBFUNC_EXIT
 227 }
 228 #endif
 229
 230 AROS_LH1(char, LToUpper,
 231         AROS_LHA(char, ch, D0),
 232         struct Library *, DOpusBase, 15, DOpus)
 233 {
 234     AROS_LIBFUNC_INIT
 235
 236     return LToUpper(ch);
 237
 238     AROS_LIBFUNC_EXIT
 239 }
 240
 241 AROS_LH1(char, LToLower,
 242         AROS_LHA(char, ch, D0),
 243         struct Library *, DOpusBase, 16, DOpus)
 244 {
 245     AROS_LIBFUNC_INIT
 246
 247     return LToLower(ch);
 248
 249     AROS_LIBFUNC_EXIT
 250 }
 251
 252 AROS_LH2(void, LStrCat,
 253         AROS_LHA(char *, s1, A0),
 254         AROS_LHA(char *, s2, A1),
 255         struct Library *, DOpusBase, 17, DOpus)
 256 {
 257     AROS_LIBFUNC_INIT
 258
 259     LStrCat(s1, s2);
 260
 261     AROS_LIBFUNC_EXIT
 262 }
 263
 264 AROS_LH3(void, LStrnCat,
 265         AROS_LHA(char *, s1, A0),
 266         AROS_LHA(char *, s2, A1),
 267         AROS_LHA(int, len, D0),
 268         struct Library *, DOpusBase, 18, DOpus)
 269 {
 270     AROS_LIBFUNC_INIT
 271
 272     LStrnCat(s1, s2, len);
 273
 274     AROS_LIBFUNC_EXIT
 275 }
 276
 277 AROS_LH2(void, LStrCpy,
 278         AROS_LHA(char *, to, A0),
 279         AROS_LHA(char *, from, A1),
 280         struct Library *, DOpusBase, 19, DOpus)
 281 {
 282     AROS_LIBFUNC_INIT
 283
 284     LStrCpy(to, from);
 285
 286     AROS_LIBFUNC_EXIT
 287 }
 288
 289 AROS_LH3(void, LStrnCpy,
 290         AROS_LHA(char *, to, A0),
 291         AROS_LHA(char *, from, A1),
 292         AROS_LHA(int, len, A1),
 293         struct Library *, DOpusBase, 20, DOpus)
 294 {
 295     AROS_LIBFUNC_INIT
 296
 297     LStrnCpy(to, from, len);
 298
 299     AROS_LIBFUNC_EXIT
 300 }
 301
 302 AROS_LH2(int, LStrCmpI,
 303         AROS_LHA(char *, s1, A0),
 304         AROS_LHA(char *, s2, A1),
 305         struct Library *, DOpusBase, 23, DOpus)
 306 {
 307     AROS_LIBFUNC_INIT
 308
 309     return LStrCmpI(s1, s2);
 310
 311     AROS_LIBFUNC_EXIT
 312 }
 313
 314 AROS_LH3(int, LStrnCmpI,
 315         AROS_LHA(char *, s1, A0),
 316         AROS_LHA(char *, s2, A1),
 317         AROS_LHA(int, len, A1),
 318         struct Library *, DOpusBase, 24, DOpus)
 319 {
 320     AROS_LIBFUNC_INIT
 321
 322     return LStrnCmpI(s1, s2, len);
 323
 324     AROS_LIBFUNC_EXIT
 325 }
 326
 327 AROS_LH3(int, LStrnCmp,
 328         AROS_LHA(char *, s1, A0),
 329         AROS_LHA(char *, s2, A1),
 330         AROS_LHA(int, len, A1),
 331         struct Library *, DOpusBase, 22, DOpus)
 332 {
 333     AROS_LIBFUNC_INIT
 334
 335     return LStrnCmp(s1, s2, len);
 336
 337     AROS_LIBFUNC_EXIT
 338 }
 339
 340 AROS_LH2(int, LStrCmp,
 341         AROS_LHA(char *, s1, A0),
 342         AROS_LHA(char *, s2, A1),
 343         struct Library *, DOpusBase, 21, DOpus)
 344 {
 345     AROS_LIBFUNC_INIT
 346
 347     return LStrCmp(s1, s2);
 348
 349     AROS_LIBFUNC_EXIT
 350 }
 351
 352 AROS_LH3(void, BtoCStr,
 353         AROS_LHA(BSTR, bstr, A0),
 354         AROS_LHA(char *, cstr, A1),
 355         AROS_LHA(int, len, D0),
 356         struct Library *, DOpusBase, 31, DOpus)
 357 {
 358     AROS_LIBFUNC_INIT
 359
 360     BtoCStr(bstr, cstr, len);
 361
 362     AROS_LIBFUNC_EXIT
 363 }
 364
 365 AROS_LH2(void, ActivateStrGad,
 366         AROS_LHA(struct Gadget *, gadget, A0),
 367         AROS_LHA(struct Window *, window, A1),
 368         struct Library *, DOpusBase, 62, DOpus)
 369 {
 370     AROS_LIBFUNC_INIT
 371
 372     ActivateStrGad(gadget, window);
 373
 374     AROS_LIBFUNC_EXIT
 375 }
 376
 377 AROS_LH2(void, RefreshStrGad,
 378         AROS_LHA(struct Gadget *, gadget, A0),
 379         AROS_LHA(struct Window *, window, A1),
 380         struct Library *, DOpusBase, 63, DOpus)
 381 {
 382     AROS_LIBFUNC_INIT
 383
 384     RefreshStrGad(gadget, window);
 385
 386     AROS_LIBFUNC_EXIT
 387 }
 388
 389 AROS_LH2(int, ReadConfig,
 390         AROS_LHA(char *, name, A0),
 391         AROS_LHA(struct ConfigStuff *, cstuff, A1),
 392         struct Library *, DOpusBase, 69, DOpus)
 393 {
 394     AROS_LIBFUNC_INIT
 395
 396     return DoReadConfig(name, cstuff);
 397
 398     AROS_LIBFUNC_EXIT
 399 }
 400
 401 AROS_LH2(int, SaveConfig,
 402         AROS_LHA(char *, name, A0),
 403         AROS_LHA(struct ConfigStuff *, cstuff, A1),
 404         struct Library *, DOpusBase, 70, DOpus)
 405 {
 406     AROS_LIBFUNC_INIT
 407
 408     return DoSaveConfig(name, cstuff);
 409
 410     AROS_LIBFUNC_EXIT
 411 }
 412
 413 AROS_LH1(int, DefaultConfig,
 414         AROS_LHA(struct ConfigStuff *, cstuff, A0),
 415         struct Library *, DOpusBase, 71, DOpus)
 416 {
 417     AROS_LIBFUNC_INIT
 418
 419     return DoDefaultConfig(cstuff);
 420
 421     AROS_LIBFUNC_EXIT
 422 }
 423
 424 AROS_LH1(int, GetDevices,
 425         AROS_LHA(struct ConfigStuff *, cstuff, A0),
 426         struct Library *, DOpusBase, 72, DOpus)
 427 {
 428     AROS_LIBFUNC_INIT
 429
 430     return DoGetDevices(cstuff);
 431
 432     AROS_LIBFUNC_EXIT
 433 }
 434
 435 AROS_LH5(void, AssignGadget,
 436         AROS_LHA(struct ConfigStuff *, cstuff, A0),
 437         AROS_LHA(int, bk,       D0),
 438         AROS_LHA(int, gad,      D1),
 439         AROS_LHA(char *, name,  A1),
 440         AROS_LHA(char *, func,  A2),
 441         struct Library *, DOpusBase, 73, DOpus)
 442 {
 443     AROS_LIBFUNC_INIT
 444
 445     DoAssignGadget(cstuff, bk, gad, name, func);
 446
 447     AROS_LIBFUNC_EXIT
 448 }
 449
 450 AROS_LH4(void, AssignMenu,
 451         AROS_LHA(struct ConfigStuff *, cstuff, A0),
 452         AROS_LHA(int, men,      D0),
 453         AROS_LHA(char *, name,  A1),
 454         AROS_LHA(char *, func,  A2),
 455         struct Library *, DOpusBase, 74, DOpus)
 456 {
 457     AROS_LIBFUNC_INIT
 458
 459     DoAssignMenu(cstuff, men, name, func);
 460
 461     AROS_LIBFUNC_EXIT
 462 }
 463
 464 AROS_LH1(void, FreeConfig,
 465         AROS_LHA(struct ConfigStuff *, cstuff, A0),
 466         struct Library *, DOpusBase, 77, DOpus)
 467 {
 468     AROS_LIBFUNC_INIT
 469
 470     DoFreeConfig(cstuff);
 471
 472     AROS_LIBFUNC_EXIT
 473 }
 474
 475 AROS_LH1(int, CheckConfig,
 476         AROS_LHA(struct ConfigStuff *, cstuff, A0),
 477         struct Library *, DOpusBase, 86, DOpus)
 478 {
 479     AROS_LIBFUNC_INIT
 480
 481     return DoCheckConfig(cstuff);
 482
 483     AROS_LIBFUNC_EXIT
 484 }
 485
 486 AROS_LH4(int, FindSystemFile,
 487         AROS_LHA(char *, name,  A0),
 488         AROS_LHA(char *, buf,   A1),
 489         AROS_LHA(int, size,     D0),
 490         AROS_LHA(int, type,     A1),
 491         struct Library *, DOpusBase, 75, DOpus)
 492 {
 493     AROS_LIBFUNC_INIT
 494
 495     return DoFindSystemFile(name, buf, size, type);
 496
 497     AROS_LIBFUNC_EXIT
 498 }
 499
 500 AROS_LH2(int, Assign,
 501         AROS_LHA(char *, name,  A0),
 502         AROS_LHA(char *, dir,   A1),
 503         struct Library *, DOpusBase, 32, DOpus)
 504 {
 505     AROS_LIBFUNC_INIT
 506
 507     return DoAssign(name, dir);
 508
 509     AROS_LIBFUNC_EXIT
 510 }
 511
 512 AROS_LH1(char *, BaseName,
 513         AROS_LHA(char *, path,  A0),
 514         struct Library *, DOpusBase, 33, DOpus)
 515 {
 516     AROS_LIBFUNC_INIT
 517
 518     return DoBaseName(path);
 519
 520     AROS_LIBFUNC_EXIT
 521 }
 522
 523 AROS_LH3(int , PathName,
 524         AROS_LHA(BPTR , lock,   A0),
 525         AROS_LHA(char *, buf,   A1),
 526         AROS_LHA(int , len,     D0),
 527         struct Library *, DOpusBase, 35, DOpus)
 528 {
 529     AROS_LIBFUNC_INIT
 530
 531     return DoPathName(lock, buf, len);
 532
 533     AROS_LIBFUNC_EXIT
 534 }
 535
 536 AROS_LH3(int , TackOn,
 537         AROS_LHA(char *, path,  A0),
 538         AROS_LHA(char *, file,  A1),
 539         AROS_LHA(int , len,     D0),
 540         struct Library *, DOpusBase, 37, DOpus)
 541 {
 542     AROS_LIBFUNC_INIT
 543
 544     return DoTackOn(path, file, len);
 545
 546     AROS_LIBFUNC_EXIT
 547 }
 548
 549 AROS_LH2(int , CompareLock,
 550         AROS_LHA(BPTR, l1,      A0),
 551         AROS_LHA(BPTR, l2,      A1),
 552         struct Library *, DOpusBase, 34, DOpus)
 553 {
 554     AROS_LIBFUNC_INIT
 555
 556     return DoCompareLock(l1, l2);
 557
 558     AROS_LIBFUNC_EXIT
 559 }
 560
 561 AROS_LH3(int , SearchPathList,
 562         AROS_LHA(char *, name,  A0),
 563         AROS_LHA(char *, buf,   A1),
 564         AROS_LHA(int, len,      D0),
 565         struct Library *, DOpusBase, 52, DOpus)
 566 {
 567     AROS_LIBFUNC_INIT
 568
 569     return DoSearchPathList(name, buf, len);
 570
 571     AROS_LIBFUNC_EXIT
 572 }
 573
 574 AROS_LH2(int , CheckExist,
 575         AROS_LHA(char *, name,  A0),
 576         AROS_LHA(int *, size,   A1),
 577         struct Library *, DOpusBase, 53, DOpus)
 578 {
 579     AROS_LIBFUNC_INIT
 580
 581     return DoCheckExist(name, size);
 582
 583     AROS_LIBFUNC_EXIT
 584 }
 585
 586 AROS_LH7(void, Do3DBox,
 587         AROS_LHA(struct RastPort *, rp, A0),
 588         AROS_LHA(int, x, D0),
 589         AROS_LHA(int, y, D1),
 590         AROS_LHA(int, w, D2),
 591         AROS_LHA(int, h, D3),
 592         AROS_LHA(int, tp, D4),
 593         AROS_LHA(int, bp, D5),
 594         struct Library *, DOpusBase, 6, DOpus)
 595 {
 596     AROS_LIBFUNC_INIT
 597
 598     Do3DBox(rp, x, y, w, h, tp, bp);
 599
 600     AROS_LIBFUNC_EXIT
 601 }
 602
 603 AROS_LH7(void, Do3DStringBox,
 604         AROS_LHA(struct RastPort *, rp, A0),
 605         AROS_LHA(int, x, D0),
 606         AROS_LHA(int, y, D1),
 607         AROS_LHA(int, w, D2),
 608         AROS_LHA(int, h, D3),
 609         AROS_LHA(int, tp, D4),
 610         AROS_LHA(int, bp, D5),
 611         struct Library *, DOpusBase, 7, DOpus)
 612 {
 613     AROS_LIBFUNC_INIT
 614
 615     Do3DStringBox(rp, x, y, w, h, tp, bp);
 616
 617     AROS_LIBFUNC_EXIT
 618 }
 619
 620 AROS_LH7(void, Do3DCycleBox,
 621         AROS_LHA(struct RastPort *, rp, A0),
 622         AROS_LHA(int, x, D0),
 623         AROS_LHA(int, y, D1),
 624         AROS_LHA(int, w, D2),
 625         AROS_LHA(int, h, D3),
 626         AROS_LHA(int, tp, D4),
 627         AROS_LHA(int, bp, D5),
 628         struct Library *, DOpusBase, 8, DOpus)
 629 {
 630     AROS_LIBFUNC_INIT
 631
 632     Do3DCycleBox(rp, x, y, w, h, tp, bp);
 633
 634     AROS_LIBFUNC_EXIT
 635 }
 636
 637 AROS_LH4(void, DrawCheckMark,
 638         AROS_LHA(struct RastPort *, rp, A0),
 639         AROS_LHA(int, x, D0),
 640         AROS_LHA(int, y, D1),
 641         AROS_LHA(int, checked, D2),
 642         struct Library *, DOpusBase, 44, DOpus)
 643 {
 644     AROS_LIBFUNC_INIT
 645
 646     DrawCheckMark(rp, x, y, checked);
 647
 648     AROS_LIBFUNC_EXIT
 649 }
 650
 651 AROS_LH2(void, HiliteGad,
 652         AROS_LHA(struct Gadget *, gad, A0),
 653         AROS_LHA(struct RastPort *, rp, A1),
 654         struct Library *, DOpusBase, 67, DOpus)
 655 {
 656     AROS_LIBFUNC_INIT
 657
 658     HiliteGad(gad, rp);
 659
 660     AROS_LIBFUNC_EXIT
 661 }
 662
 663 AROS_LH5(void, AddGadgetBorders,
 664         AROS_LHA(struct DOpusRemember ** , key, A0),
 665         AROS_LHA(struct Gadget * , gadget,      A1),
 666         AROS_LHA(int , count,   D0),
 667         AROS_LHA(int , shine,   D1),
 668         AROS_LHA(int , shadow,  D2),
 669         struct Library *, DOpusBase, 98, DOpus)
 670 {
 671     AROS_LIBFUNC_INIT
 672
 673     DoAddGadgetBorders(key, gadget, count, shine, shadow);
 674
 675     AROS_LIBFUNC_EXIT
 676 }
 677
 678 AROS_LH8(void, CreateGadgetBorders,
 679         AROS_LHA(struct DOpusRemember ** , key, A0),
 680         AROS_LHA(int , w,       D0),
 681         AROS_LHA(int , h,       D1),
 682         AROS_LHA(struct Border ** , selborder,          A1),
 683         AROS_LHA(struct Border ** , unselborder,        A2),
 684         AROS_LHA(int , dogear,  D2),
 685         AROS_LHA(int , shine,   D3),
 686         AROS_LHA(int , shadow,  D4),
 687         struct Library *, DOpusBase, 99, DOpus)
 688 {
 689     AROS_LIBFUNC_INIT
 690
 691     DoCreateGadgetBorders(key, w, h, selborder, unselborder, dogear, shine,
 692         shadow);
 693
 694     AROS_LIBFUNC_EXIT
 695 }
 696
 697 AROS_LH2(void, SelectGadget,
 698         AROS_LHA(struct Window * , window, A0),
 699         AROS_LHA(struct Gadget * , gadget, A1),
 700         struct Library *, DOpusBase, 100, DOpus)
 701 {
 702     AROS_LIBFUNC_INIT
 703
 704     DoSelectGadget(window, gadget);
 705
 706     AROS_LIBFUNC_EXIT
 707 }
 708
 709 AROS_LH1(void, StampToStr,
 710         AROS_LHA(struct DOpusDateTime *, dt, A0),
 711         struct Library *, DOpusBase, 38, DOpus)
 712 {
 713     AROS_LIBFUNC_INIT
 714
 715     DoStampToStr(dt);
 716
 717     AROS_LIBFUNC_EXIT
 718 }
 719
 720 AROS_LH1(int, StrToStamp,
 721         AROS_LHA(struct DOpusDateTime *, dt, A0),
 722         struct Library *, DOpusBase, 39, DOpus)
 723 {
 724     AROS_LIBFUNC_INIT
 725
 726     return DoStrToStamp(dt);
 727
 728     AROS_LIBFUNC_EXIT
 729 }
 730
 731 AROS_LH2(int, CompareDate,
 732         AROS_LHA(struct DateStamp *, date,      A0),
 733         AROS_LHA(struct DateStamp *, date2,     A1),
 734         struct Library *, DOpusBase, 54, DOpus)
 735 {
 736     AROS_LIBFUNC_INIT
 737
 738     return DoCompareDate(date, date2);
 739
 740     AROS_LIBFUNC_EXIT
 741 }
 742
 743 AROS_LH7(int, AddGadgets,
 744         AROS_LHA(struct Window *, win, A0),
 745         AROS_LHA(struct Gadget *, firstgad, A1),
 746         AROS_LHA(char **, text, A2),
 747         AROS_LHA(int, count,    D0),
 748         AROS_LHA(int, fg,       D1),
 749         AROS_LHA(int, bg,       D2),
 750         AROS_LHA(int, add,      D3),
 751         struct Library *, DOpusBase, 61, DOpus)
 752 {
 753     AROS_LIBFUNC_INIT
 754
 755     return DoAddGadgets(win, firstgad, text, count, fg, bg, add);
 756
 757     AROS_LIBFUNC_EXIT
 758 }
 759
 760 AROS_LH2(int, DoRMBGadget,
 761         AROS_LHA(struct RMBGadget *, gad,       A0),
 762         AROS_LHA(struct Window *, window,       A1),
 763         struct Library *, DOpusBase, 60, DOpus)
 764 {
 765     AROS_LIBFUNC_INIT
 766
 767     return DoDoRMBGadget(gad, window);
 768
 769     AROS_LIBFUNC_EXIT
 770 }
 771
 772 AROS_LH4(void, DoCycleGadget,
 773         AROS_LHA(struct Gadget *, gad,          A0),
 774         AROS_LHA(struct Window *, window,       A1),
 775         AROS_LHA(char **        , choices,      A2),
 776         AROS_LHA(int            , select,       D0),
 777         struct Library *, DOpusBase, 78, DOpus)
 778 {
 779     AROS_LIBFUNC_INIT
 780
 781     DoDoCycleGadget(gad, window, choices, select);
 782
 783     AROS_LIBFUNC_EXIT
 784 }
 785
 786 AROS_LH5(void, UScoreText,
 787         AROS_LHA(struct RastPort *, rp,         A0),
 788         AROS_LHA(char *, buf,   A1),
 789         AROS_LHA(int, xp,       D0),
 790         AROS_LHA(int, yp,       D1),
 791         AROS_LHA(int, up,       D2),
 792         struct Library *, DOpusBase, 79, DOpus)
 793 {
 794     AROS_LIBFUNC_INIT
 795
 796     DoUScoreText(rp, buf, xp, yp, up);
 797
 798     AROS_LIBFUNC_EXIT
 799 }
 800
 801 AROS_LH8(void, DoArrow,
 802         AROS_LHA(struct RastPort *, p, A0),
 803         AROS_LHA(int, x, D0),
 804         AROS_LHA(int, y, D1),
 805         AROS_LHA(int, w, D2),
 806         AROS_LHA(int, h, D3),
 807         AROS_LHA(int, fg, D4),
 808         AROS_LHA(int, bg, D5),
 809         AROS_LHA(int, d,  D6),
 810         struct Library *, DOpusBase, 9, DOpus)
 811 {
 812     AROS_LIBFUNC_INIT
 813
 814     DoDoArrow(p, x, y, w, h, fg, bg, d); /* Do-do-do-do-do-do... */
 815
 816     AROS_LIBFUNC_EXIT
 817 }
 818
 819 AROS_LH7(void, DrawRadioButton,
 820         AROS_LHA(struct RastPort *, rp,  A0),
 821         AROS_LHA(int, x,        D0),
 822         AROS_LHA(int, y,        D1),
 823         AROS_LHA(int, w,        D2),
 824         AROS_LHA(int, h,        D3),
 825         AROS_LHA(int, hi,       D4),
 826         AROS_LHA(int, lo,       D5),
 827         struct Library *, DOpusBase, 83, DOpus)
 828 {
 829     AROS_LIBFUNC_INIT
 830
 831     DoDrawRadioButton(rp, x, y, w, h, hi, lo);
 832
 833     AROS_LIBFUNC_EXIT
 834 }
 835
 836 AROS_LH7(struct Image *, GetButtonImage,
 837         AROS_LHA(int, w,        D0),
 838         AROS_LHA(int, h,        D1),
 839         AROS_LHA(int, fg,       D2),
 840         AROS_LHA(int, bg,       D3),
 841         AROS_LHA(int, fpen,     D4),
 842         AROS_LHA(int, bpen,     D5),
 843         AROS_LHA(struct DOpusRemember **, key, A0),
 844         struct Library *, DOpusBase, 84, DOpus)
 845 {
 846     AROS_LIBFUNC_INIT
 847
 848     return DoGetButtonImage(w, h, fg, bg, fpen, bpen, key);
 849
 850     AROS_LIBFUNC_EXIT
 851 }
 852
 853 AROS_LH4(struct Image *, GetCheckImage,
 854         AROS_LHA(int, fg, D0),
 855         AROS_LHA(int, bg, D1),
 856         AROS_LHA(int, pen, D2),
 857         AROS_LHA(struct DOpusRemember **, key, A0),
 858         struct Library *, DOpusBase, 87, DOpus)
 859 {
 860     AROS_LIBFUNC_INIT
 861
 862     return DoGetCheckImage(fg, bg, pen, key);
 863
 864     AROS_LIBFUNC_EXIT
 865 }
 866
 867 AROS_LH8(void, Do3DFrame,
 868         AROS_LHA(struct RastPort *, rp,  A0),
 869         AROS_LHA(int, x, D0),
 870         AROS_LHA(int, y, D1),
 871         AROS_LHA(int, w, D2),
 872         AROS_LHA(int, h, D3),
 873         AROS_LHA(char *, title, A1),
 874         AROS_LHA(int, hi, D4),
 875         AROS_LHA(int, lo, D5),
 876         struct Library *, DOpusBase, 76, DOpus)
 877 {
 878     AROS_LIBFUNC_INIT
 879
 880     DoDo3DFrame(rp, x, y, w, h, title, hi, lo);
 881
 882     AROS_LIBFUNC_EXIT
 883 }
 884
 885 AROS_LH5(void, DoGlassImage,
 886         AROS_LHA(struct RastPort *, rp,  A0),
 887         AROS_LHA(struct Gadget *, gadget, A1),
 888         AROS_LHA(int, shine,    D0),
 889         AROS_LHA(int, shadow,   D1),
 890         AROS_LHA(int, type,     D2),
 891         struct Library *, DOpusBase, 93, DOpus)
 892 {
 893     AROS_LIBFUNC_INIT
 894
 895     DoDoGlassImage(rp, gadget, shine, shadow, type);
 896
 897     AROS_LIBFUNC_EXIT
 898 }
 899
 900 AROS_LH2(int, ReadStringFile,
 901         AROS_LHA(struct StringData *, stringdata,       A0),
 902         AROS_LHA(char *, filename,      A1),
 903         struct Library *, DOpusBase, 95, DOpus)
 904 {
 905     AROS_LIBFUNC_INIT
 906
 907     return DoReadStringFile(stringdata, filename);
 908
 909     AROS_LIBFUNC_EXIT
 910 }
 911
 912 AROS_LH1(void, FreeStringFile,
 913         AROS_LHA(struct StringData *, stringdata,       A0),
 914         struct Library *, DOpusBase, 96, DOpus)
 915 {
 916     AROS_LIBFUNC_INIT
 917
 918     DoFreeStringFile(stringdata);
 919
 920     AROS_LIBFUNC_EXIT
 921 }
 922
 923 AROS_LH2(int, AddListView,
 924         AROS_LHA(struct DOpusListView *, view, A0),
 925         AROS_LHA(int, count, D0),
 926         struct Library *, DOpusBase, 40, DOpus)
 927 {
 928     AROS_LIBFUNC_INIT
 929
 930     return DoAddListView(view, count);
 931
 932     AROS_LIBFUNC_EXIT
 933 }
 934
 935 AROS_LH5(void, FixSliderBody,
 936         AROS_LHA(struct Window *, win, A0),
 937         AROS_LHA(struct Gadget *, gad, A1),
 938         AROS_LHA(int, count, D0),
 939         AROS_LHA(int, lines, D1),
 940         AROS_LHA(int, show,  D2),
 941         struct Library *, DOpusBase, 45, DOpus)
 942 {
 943     AROS_LIBFUNC_INIT
 944
 945     DoFixSliderBody(win, gad, count, lines, show);
 946
 947     AROS_LIBFUNC_EXIT
 948 }
 949
 950 AROS_LH6(void, FixSliderPot,
 951         AROS_LHA(struct Window *, win, A0),
 952         AROS_LHA(struct Gadget *, gad, A1),
 953         AROS_LHA(int, off,      D0),
 954         AROS_LHA(int, count,    D1),
 955         AROS_LHA(int, lines,    D2),
 956         AROS_LHA(int, show,     D3),
 957         struct Library *, DOpusBase, 46, DOpus)
 958 {
 959     AROS_LIBFUNC_INIT
 960
 961     DoFixSliderPot(win, gad, off, count, lines, show);
 962
 963     AROS_LIBFUNC_EXIT
 964 }
 965
 966 AROS_LH2(void, ShowSlider,
 967         AROS_LHA(struct Window *, win, A0),
 968         AROS_LHA(struct Gadget *, gad, A1),
 969         struct Library *, DOpusBase, 85, DOpus)
 970 {
 971     AROS_LIBFUNC_INIT
 972
 973     DoShowSlider(win, gad);
 974
 975     AROS_LIBFUNC_EXIT
 976 }
 977
 978 AROS_LH3(int, GetSliderPos,
 979         AROS_LHA(struct Gadget *, gad, A0),
 980         AROS_LHA(int, count, D0),
 981         AROS_LHA(int, lines, D1),
 982         struct Library *, DOpusBase, 47, DOpus)
 983 {
 984     AROS_LIBFUNC_INIT
 985
 986     return DoGetSliderPos(gad, count, lines);
 987
 988     AROS_LIBFUNC_EXIT
 989 }
 990
 991 AROS_LH2(struct DOpusListView *, ListViewIDCMP,
 992         AROS_LHA(struct DOpusListView *, view, A0),
 993         AROS_LHA(struct IntuiMessage *, imsg,  A1),
 994         struct Library *, DOpusBase, 41, DOpus)
 995 {
 996     AROS_LIBFUNC_INIT
 997
 998     return DoListViewIDCMP(view, imsg);
 999
1000     AROS_LIBFUNC_EXIT
1001 }
1002
1003 AROS_LH2(int, RefreshListView,
1004         AROS_LHA(struct DOpusListView *, view, A0),
1005         AROS_LHA(int, count, D0),
1006         struct Library *, DOpusBase, 42, DOpus)
1007 {
1008     AROS_LIBFUNC_INIT
1009
1010     return DoRefreshListView(view, count);
1011
1012     AROS_LIBFUNC_EXIT
1013 }
1014
1015 AROS_LH2(int, RemoveListView,
1016         AROS_LHA(struct DOpusListView *, view, A0),
1017         AROS_LHA(int, count, D0),
1018         struct Library *, DOpusBase, 43, DOpus)
1019 {
1020     AROS_LIBFUNC_INIT
1021
1022     return DoRemoveListView(view, count);
1023
1024     AROS_LIBFUNC_EXIT
1025 }
1026
1027 AROS_LH2(int, FSSetMenuStrip,
1028         AROS_LHA(struct Window *, window,       A0),
1029         AROS_LHA(struct Menu *, firstmenu,      A1),
1030         struct Library *, DOpusBase, 101, DOpus)
1031 {
1032     AROS_LIBFUNC_INIT
1033
1034     return DoFSSetMenuStrip(window, firstmenu);
1035
1036     AROS_LIBFUNC_EXIT
1037 }
1038
1039 AROS_LH5(int, RawkeyToStr,
1040         AROS_LHA(UWORD, code,   D0),
1041         AROS_LHA(UWORD, qual,   D1),
1042         AROS_LHA(char *, buf,   A0),
1043         AROS_LHA(char *, kbuf,  A1),
1044         AROS_LHA(int, len,      D2),
1045         struct Library *, DOpusBase, 59, DOpus)
1046 {
1047     AROS_LIBFUNC_INIT
1048
1049     return DoRawkeyToStr(code, qual, buf, kbuf, len);
1050
1051     AROS_LIBFUNC_EXIT
1052 }
1053
1054 AROS_LH4(int, CheckNumGad,
1055         AROS_LHA(struct Gadget *, gad,  A0),
1056         AROS_LHA(struct Window *, win,  A1),
1057         AROS_LHA(int, min,      D0),
1058         AROS_LHA(int, max,      D1),
1059         struct Library *, DOpusBase, 64, DOpus)
1060 {
1061     AROS_LIBFUNC_INIT
1062
1063     return DoCheckNumGad(gad, win, min, max);
1064
1065     AROS_LIBFUNC_EXIT
1066 }
1067
1068 AROS_LH4(int, CheckHexGad,
1069         AROS_LHA(struct Gadget *, gad,  A0),
1070         AROS_LHA(struct Window *, win,  A1),
1071         AROS_LHA(int, min,      D0),
1072         AROS_LHA(int, max,      D1),
1073         struct Library *, DOpusBase, 65, DOpus)
1074 {
1075     AROS_LIBFUNC_INIT
1076
1077     return DoCheckHexGad(gad, win, min, max);
1078
1079     AROS_LIBFUNC_EXIT
1080 }
1081
1082 AROS_LH3(void, Decode_RLE,
1083         AROS_LHA(char *, source,        A0),
1084         AROS_LHA(char *, dest,          A1),
1085         AROS_LHA(int, size,     D0),
1086         struct Library *, DOpusBase, 94, DOpus)
1087 {
1088     AROS_LIBFUNC_INIT
1089
1090     DoDecode_RLE(source, dest, size);
1091
1092     AROS_LIBFUNC_EXIT
1093 }
1094
1095 AROS_LH1(void, SetBusyPointer,
1096         AROS_LHA(struct Window *, wind, A0),
1097         struct Library *, DOpusBase, 50, DOpus)
1098 {
1099     AROS_LIBFUNC_INIT
1100
1101     DoSetBusyPointer(wind);
1102
1103     AROS_LIBFUNC_EXIT
1104 }
1105
1106 AROS_LH1(struct Window *, OpenRequester,
1107         AROS_LHA(struct RequesterBase *, reqbase,       A0),
1108         struct Library *, DOpusBase, 88, DOpus)
1109 {
1110     AROS_LIBFUNC_INIT
1111
1112     return R_OpenRequester(reqbase);
1113
1114     AROS_LIBFUNC_EXIT
1115 }
1116
1117 AROS_LH1(void, CloseRequester,
1118         AROS_LHA(struct RequesterBase *, reqbase,       A0),
1119         struct Library *, DOpusBase, 89, DOpus)
1120 {
1121     AROS_LIBFUNC_INIT
1122
1123     R_CloseRequester(reqbase);
1124
1125     AROS_LIBFUNC_EXIT
1126 }
1127
1128 AROS_LH2(APTR, AddRequesterObject,
1129         AROS_LHA(struct RequesterBase *, reqbase,       A0),
1130         AROS_LHA(struct TagItem *, taglist,             A1),
1131         struct Library *, DOpusBase, 90, DOpus)
1132 {
1133     AROS_LIBFUNC_INIT
1134
1135     return R_AddRequesterObject(reqbase, taglist);
1136
1137     AROS_LIBFUNC_EXIT
1138 }
1139
1140 AROS_LH2(void, RefreshRequesterObject,
1141         AROS_LHA(struct RequesterBase *, reqbase,       A0),
1142         AROS_LHA(struct RequesterObject *, object,      A1),
1143         struct Library *, DOpusBase, 91, DOpus)
1144 {
1145     AROS_LIBFUNC_INIT
1146
1147     R_RefreshRequesterObject(reqbase, object);
1148
1149     AROS_LIBFUNC_EXIT
1150 }
1151
1152 AROS_LH7(void, ObjectText,
1153         AROS_LHA(struct RequesterBase *, reqbase,       A0),
1154         AROS_LHA(short, left,   D0),
1155         AROS_LHA(short, top,    D1),
1156         AROS_LHA(short, width,  D2),
1157         AROS_LHA(short, height, D3),
1158         AROS_LHA(char *, text,          A1),
1159         AROS_LHA(short, textpos,        D4),
1160         struct Library *, DOpusBase, 92, DOpus)
1161 {
1162     AROS_LIBFUNC_INIT
1163
1164     R_ObjectText(reqbase, left, top, width, height, text, textpos);
1165
1166     AROS_LIBFUNC_EXIT
1167 }
1168
1169 AROS_LH4(int, StrCombine,
1170         AROS_LHA(char *, buf, A0),
1171         AROS_LHA(char *, one, A1),
1172         AROS_LHA(char *, two, A2),
1173         AROS_LHA(int, lim, D0),
1174         struct Library *, DOpusBase, 25, DOpus)
1175 {
1176     AROS_LIBFUNC_INIT
1177
1178     return DoStrCombine(buf, one, two, lim);
1179
1180     AROS_LIBFUNC_EXIT
1181 }
1182
1183 AROS_LH3(int, StrConcat,
1184         AROS_LHA(char *, buf, A0),
1185         AROS_LHA(char *, cat, A1),
1186         AROS_LHA(int, lim, D0),
1187         struct Library *, DOpusBase, 26, DOpus)
1188 {
1189     AROS_LIBFUNC_INIT
1190
1191     return DoStrConcat(buf, cat, lim);
1192
1193     AROS_LIBFUNC_EXIT
1194 }
1195
1196 AROS_LH2(int, Atoh,
1197         AROS_LHA(char *, buf, A0),
1198         AROS_LHA(int, len, D0),
1199         struct Library *, DOpusBase, 66, DOpus)
1200 {
1201     AROS_LIBFUNC_INIT
1202
1203     return DoAtoh(buf, len);
1204
1205     AROS_LIBFUNC_EXIT
1206 }
1207
1208 AROS_LH2(int, LMatchPattern,
1209         AROS_LHA(char *, parsepat, A0),
1210         AROS_LHA(char *, str, A1),
1211         struct Library *, DOpusBase, 28, DOpus)
1212 {
1213     AROS_LIBFUNC_INIT
1214
1215     return LMatchPattern(parsepat, str);
1216
1217     AROS_LIBFUNC_EXIT
1218 }
1219
1220 AROS_LH2(int, LMatchPatternI,
1221         AROS_LHA(char *, parsepat, A0),
1222         AROS_LHA(char *, str, A1),
1223         struct Library *, DOpusBase, 30, DOpus)
1224 {
1225     AROS_LIBFUNC_INIT
1226
1227     return LMatchPatternI(parsepat, str);
1228
1229     AROS_LIBFUNC_EXIT
1230 }
1231
1232 AROS_LH2(void, LParsePattern,
1233         AROS_LHA(char *, pat, A0),
1234         AROS_LHA(char *, parsepat, A1),
1235         struct Library *, DOpusBase, 27, DOpus)
1236 {
1237     AROS_LIBFUNC_INIT
1238
1239     LParsePattern(pat, parsepat);
1240
1241     AROS_LIBFUNC_EXIT
1242 }
1243
1244 AROS_LH2(void, LParsePatternI,
1245         AROS_LHA(char *, pat, A0),
1246         AROS_LHA(char *, parsepat, A1),
1247         struct Library *, DOpusBase, 29, DOpus)
1248 {
1249     AROS_LIBFUNC_INIT
1250
1251     LParsePatternI(pat, parsepat);
1252
1253     AROS_LIBFUNC_EXIT
1254 }
1255
1256 AROS_LH2(int, DoSimpleRequest,
1257         AROS_LHA(struct Window *, window, A0),
1258         AROS_LHA(struct DOpusSimpleRequest *, simple, A1),
1259         struct Library *, DOpusBase, 68, DOpus)
1260 {
1261     AROS_LIBFUNC_INIT
1262
1263     return DoDoSimpleRequest(window, simple);
1264
1265     AROS_LIBFUNC_EXIT
1266 }
1267
1268
1269 AROS_LH1(int, FileRequest,
1270         AROS_LHA(struct DOpusFileReq *, freq, A0),
1271         struct Library *, DOpusBase, 5, DOpus)
1272 {
1273     AROS_LIBFUNC_INIT
1274
1275     return DoFileRequest(freq);
1276
1277     AROS_LIBFUNC_EXIT
1278 }
1279
1280 AROS_LH4(int, SendPacket,
1281         AROS_LHA(struct MsgPort *, port, A0),
1282         AROS_LHA(int , action,          D0),
1283         AROS_LHA(ULONG * , args,        A1),
1284         AROS_LHA(int , nargs,           D1),
1285         struct Library *, DOpusBase, 36, DOpus)
1286 {
1287     AROS_LIBFUNC_INIT
1288
1289     return DoSendPacket(port, action, args, nargs);
1290
1291     AROS_LIBFUNC_EXIT
1292 }
1293
1294 AROS_LH3(void *, LAllocRemember,
1295         AROS_LHA(struct DOpusRemember **, key, A0),
1296         AROS_LHA(ULONG, size,   D0),
1297         AROS_LHA(ULONG, type,   D1),
1298         struct Library *, DOpusBase, 48, DOpus)
1299 {
1300     AROS_LIBFUNC_INIT
1301
1302     return DoAllocRemember(key, size, type);
1303
1304     AROS_LIBFUNC_EXIT
1305 }
1306
1307 AROS_LH1(void, LFreeRemember,
1308         AROS_LHA(struct DOpusRemember **, key, A0),
1309         struct Library *, DOpusBase, 49, DOpus)
1310 {
1311     AROS_LIBFUNC_INIT
1312
1313     DoFreeRemember(key);
1314
1315     AROS_LIBFUNC_EXIT
1316 }
1317
1318 AROS_LH2(void, LFreeRemEntry,
1319         AROS_LHA(struct DOpusRemember **, key, A0),
1320         AROS_LHA(char *, pointer, A1),
1321         struct Library *, DOpusBase, 97, DOpus)
1322 {
1323     AROS_LIBFUNC_INIT
1324
1325     DoFreeRemEntry(key, pointer);
1326
1327     AROS_LIBFUNC_EXIT
1328 }
1329
1330