workbench/network/stacks/AROSTCP/MUI.MiamiPanel/muimiamipanel_funcs.c

   1 /*
   2     Copyright © 2002-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <proto/intuition.h>
   8 #include <proto/dos.h>
   9
  10 #include <dos/dostags.h>
  11
  12 #include <proto/alib.h>
  13
  14 #include "muimiamipanel_intern.h"
  15 #include "muimiamipanel_commands.h"
  16 #include "muimiamipanel_message.h"
  17
  18 extern void MiamiPanelProc(STRPTR argPtr, ULONG argSize);
  19 extern void DoCommand(struct MiamiPanelBase_intern *MiamiPanelBaseIntern, ULONG id,...);
  20
  21 /*****************************************************************************
  22
  23     NAME */
  24         AROS_LH8(LONG, MiamiPanelInit,
  25
  26 /*  SYNOPSIS */
  27         AROS_LHA(IPTR, synccb, A0),
  28         AROS_LHA(IPTR, asynccb, A1),
  29         AROS_LHA(LONG, flags, D0),
  30         AROS_LHA(STRPTR, font, A2),
  31         AROS_LHA(STRPTR, screen, A3),
  32         AROS_LHA(LONG, xo, D1),
  33         AROS_LHA(LONG, yo, D2),
  34         AROS_LHA(IPTR, sigbit, A4),
  35
  36 /*  LOCATION */
  37         struct Library *, MiamiPanelBase, 5, MiamiPanel)
  38
  39 /*  FUNCTION
  40
  41     INPUTS
  42
  43     RESULT
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
  59
  60 D(bug("[MiamiPanel] MiamiPanelInit()\n"));
  61
  62     struct MsgPort    reply;
  63     struct Process    *proc = NULL;
  64     long                    res;
  65     int                       sig;
  66
  67     struct TagItem tags[] = {NP_Entry,        0,
  68 #ifdef __MORPHOS__
  69                              NP_CodeType,     CODETYPE_PPC,
  70                              NP_PPCStackSize, 32000,
  71 #endif
  72                                                          NP_UserData,     MiamiPanelBaseIntern,
  73                              NP_StackSize,    16000,
  74                              NP_Name,          (ULONG)DEF_Base,
  75                              NP_CopyVars,     FALSE,
  76                              NP_Input,            NULL,
  77                              NP_CloseInput,   FALSE,
  78                              NP_Output,         NULL,
  79                              NP_CloseOutput,  FALSE,
  80                              NP_Error,            NULL,
  81                              NP_CloseError,   FALSE,
  82                              NP_CurrentDir,   NULL,
  83                              NP_HomeDir,      NULL,
  84                              TAG_DONE};
  85
  86     ObtainSemaphore(&MiamiPanelBaseIntern->mpb_libSem);
  87
  88     if (!AttemptSemaphore(&MiamiPanelBaseIntern->mpb_procSem))
  89     {
  90         ReleaseSemaphore(&MiamiPanelBaseIntern->mpb_libSem);
  91         return 0;
  92     }
  93
  94     ReleaseSemaphore(&MiamiPanelBaseIntern->mpb_procSem);
  95
  96     if ((sig = AllocSignal(-1))<0)
  97     {
  98         ReleaseSemaphore(&MiamiPanelBaseIntern->mpb_libSem);
  99         return 0;
 100     }
 101
 102     tags[0].ti_Data = (ULONG)MiamiPanelProc;
 103
 104     if (proc = CreateNewProcTagList(tags))
 105     {
 106         struct MPS_AppMsg msg;
 107
 108         INITPORT(&reply,sig);
 109         INITMESSAGE(&msg, &reply, sizeof(msg));
 110         msg.flags = flags;
 111
 112         MiamiPanelBaseIntern->mpb_synccb  = synccb;
 113         MiamiPanelBaseIntern->mpb_asynccb = asynccb;
 114
 115         Forbid();
 116         MiamiPanelBaseIntern->mpb_use++;
 117         Permit();
 118
 119         PutMsg(&proc->pr_MsgPort, (struct Message *)&msg);
 120         WaitPort(&reply);
 121
 122 //        *sigbit = 0;
 123         res = msg.res;
 124     }
 125     else res = 0;
 126
 127     FreeSignal(sig);
 128
 129     ReleaseSemaphore(&MiamiPanelBaseIntern->mpb_libSem);
 130
 131     return res;
 132
 133     AROS_LIBFUNC_EXIT
 134
 135 } /* MiamiPanelInit */
 136
 137
 138 /*****************************************************************************
 139
 140     NAME */
 141         AROS_LH0(void, MiamiPanelCleanup,
 142
 143 /*  SYNOPSIS */
 144
 145 /*  LOCATION */
 146         struct Library *, MiamiPanelBase, 6, MiamiPanel)
 147
 148 /*  FUNCTION
 149
 150     INPUTS
 151
 152     RESULT
 153
 154     NOTES
 155
 156     EXAMPLE
 157
 158     BUGS
 159
 160     SEE ALSO
 161
 162     INTERNALS
 163
 164 *****************************************************************************/
 165 {
 166     AROS_LIBFUNC_INIT
 167     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 168
 169 D(bug("[MiamiPanel] MiamiPanelCleanup()\n"));
 170
 171     DoCommand(MiamiPanelBaseIntern, MPV_Msg_Type_Cleanup);
 172
 173     ObtainSemaphore(&MiamiPanelBaseIntern->mpb_procSem);
 174     ReleaseSemaphore(&MiamiPanelBaseIntern->mpb_procSem);
 175
 176     AROS_LIBFUNC_EXIT
 177
 178 } /* MiamiPanelCleanup */
 179
 180 /*****************************************************************************
 181
 182     NAME */
 183         AROS_LH5(void, MiamiPanelAddInterface,
 184
 185 /*  SYNOPSIS */
 186         AROS_LHA(LONG, unit, D0),
 187         AROS_LHA(STRPTR, name, A0),
 188         AROS_LHA(LONG, state, D1),
 189         AROS_LHA(LONG, ontime, D2),
 190         AROS_LHA(STRPTR, speed, A1),
 191
 192 /*  LOCATION */
 193         struct Library *, MiamiPanelBase, 7, MiamiPanel)
 194
 195 /*  FUNCTION
 196
 197     INPUTS
 198
 199     RESULT
 200
 201     NOTES
 202
 203     EXAMPLE
 204
 205     BUGS
 206
 207     SEE ALSO
 208
 209     INTERNALS
 210
 211 *****************************************************************************/
 212 {
 213     AROS_LIBFUNC_INIT
 214     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 215
 216 D(bug("[MiamiPanel] MiamiPanelAddInterface()\n"));
 217
 218     DoCommand(MiamiPanelBaseIntern, MPV_Msg_Type_AddInterface,unit,name,state,ontime,speed);
 219
 220     AROS_LIBFUNC_EXIT
 221
 222 } /* MiamiPanelAddInterface */
 223
 224 /*****************************************************************************
 225
 226     NAME */
 227         AROS_LH1(void, MiamiPanelDelInterface,
 228
 229 /*  SYNOPSIS */
 230         AROS_LHA(LONG, unit, D0),
 231
 232 /*  LOCATION */
 233         struct Library *, MiamiPanelBase, 8, MiamiPanel)
 234
 235 /*  FUNCTION
 236
 237     INPUTS
 238
 239     RESULT
 240
 241     NOTES
 242
 243     EXAMPLE
 244
 245     BUGS
 246
 247     SEE ALSO
 248
 249     INTERNALS
 250
 251 *****************************************************************************/
 252 {
 253     AROS_LIBFUNC_INIT
 254     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 255
 256 D(bug("[MiamiPanel] MiamiPanelDelInterface()\n"));
 257
 258     DoCommand(MiamiPanelBaseIntern, MPV_Msg_Type_DelInterface,unit);
 259
 260     AROS_LIBFUNC_EXIT
 261
 262 } /* MiamiPanelDelInterface */
 263
 264 /*****************************************************************************
 265
 266     NAME */
 267         AROS_LH3(void, MiamiPanelSetInterfaceState,
 268
 269 /*  SYNOPSIS */
 270         AROS_LHA(LONG, unit, D0),
 271         AROS_LHA(LONG, state, D1),
 272         AROS_LHA(LONG, ontime, D2),
 273
 274 /*  LOCATION */
 275         struct Library *, MiamiPanelBase, 9, MiamiPanel)
 276
 277 /*  FUNCTION
 278
 279     INPUTS
 280
 281     RESULT
 282
 283     NOTES
 284
 285     EXAMPLE
 286
 287     BUGS
 288
 289     SEE ALSO
 290
 291     INTERNALS
 292
 293 *****************************************************************************/
 294 {
 295     AROS_LIBFUNC_INIT
 296     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 297
 298 D(bug("[MiamiPanel] MiamiPanelSetInterfaceState()\n"));
 299
 300     DoCommand(MiamiPanelBaseIntern, MPV_Msg_Type_SetInterfaceState,unit,state,ontime);
 301
 302     AROS_LIBFUNC_EXIT
 303
 304 } /* MiamiPanelSetInterfaceState */
 305
 306 /*****************************************************************************
 307
 308     NAME */
 309         AROS_LH2(void, MiamiPanelSetInterfaceSpeed,
 310
 311 /*  SYNOPSIS */
 312         AROS_LHA(LONG, unit, D0),
 313         AROS_LHA(UBYTE *, speed, A0),
 314
 315 /*  LOCATION */
 316         struct Library *, MiamiPanelBase, 10, MiamiPanel)
 317
 318 /*  FUNCTION
 319
 320     INPUTS
 321
 322     RESULT
 323
 324     NOTES
 325
 326     EXAMPLE
 327
 328     BUGS
 329
 330     SEE ALSO
 331
 332     INTERNALS
 333
 334 *****************************************************************************/
 335 {
 336     AROS_LIBFUNC_INIT
 337     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 338
 339 D(bug("[MiamiPanel] MiamiPanelSetInterfaceSpeed()\n"));
 340
 341     DoCommand(MiamiPanelBaseIntern, MPV_Msg_Type_SetInterfaceSpeed,unit,speed);
 342
 343     AROS_LIBFUNC_EXIT
 344
 345 } /* MiamiPanelSetInterfaceSpeed */
 346
 347 /*****************************************************************************
 348
 349     NAME */
 350         AROS_LH5(void, MiamiPanelInterfaceReport,
 351
 352 /*  SYNOPSIS */
 353         AROS_LHA(LONG, unit, D0),
 354         AROS_LHA(LONG, rate, D1),
 355         AROS_LHA(LONG, now, D2),
 356         AROS_LHA(LONG, totalhi, D3),
 357         AROS_LHA(ULONG, totallo, D4),
 358
 359 /*  LOCATION */
 360         struct Library *, MiamiPanelBase, 11, MiamiPanel)
 361
 362 /*  FUNCTION
 363
 364     INPUTS
 365
 366     RESULT
 367
 368     NOTES
 369
 370     EXAMPLE
 371
 372     BUGS
 373
 374     SEE ALSO
 375
 376     INTERNALS
 377
 378 *****************************************************************************/
 379 {
 380     AROS_LIBFUNC_INIT
 381     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 382
 383 D(bug("[MiamiPanel] MiamiPanelInterfaceReport()\n"));
 384
 385     if (unit>=0)
 386         DoCommand(MiamiPanelBaseIntern, MPV_Msg_Type_InterfaceReport,unit,rate,now,totalhi,totallo);
 387
 388     AROS_LIBFUNC_EXIT
 389
 390 } /* MiamiPanelInterfaceReport */
 391
 392 /*****************************************************************************
 393
 394     NAME */
 395         AROS_LH0(void, MiamiPanelToFront,
 396
 397 /*  SYNOPSIS */
 398
 399 /*  LOCATION */
 400         struct Library *, MiamiPanelBase, 12, MiamiPanel)
 401
 402 /*  FUNCTION
 403
 404     INPUTS
 405
 406     RESULT
 407
 408     NOTES
 409
 410     EXAMPLE
 411
 412     BUGS
 413
 414     SEE ALSO
 415
 416     INTERNALS
 417
 418 *****************************************************************************/
 419 {
 420     AROS_LIBFUNC_INIT
 421     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 422
 423 D(bug("[MiamiPanel] MiamiPanelToFront()\n"));
 424
 425     DoCommand(MiamiPanelBaseIntern, MPV_Msg_Type_ToFront);
 426
 427     AROS_LIBFUNC_EXIT
 428
 429 } /* MiamiPanelToFront */
 430
 431 /*****************************************************************************
 432
 433     NAME */
 434         AROS_LH1(void, MiamiPanelInhibitRefresh,
 435
 436 /*  SYNOPSIS */
 437         AROS_LHA(LONG, val, D0),
 438
 439 /*  LOCATION */
 440         struct Library *, MiamiPanelBase, 13, MiamiPanel)
 441
 442 /*  FUNCTION
 443
 444     INPUTS
 445
 446     RESULT
 447
 448     NOTES
 449
 450     EXAMPLE
 451
 452     BUGS
 453
 454     SEE ALSO
 455
 456     INTERNALS
 457
 458 *****************************************************************************/
 459 {
 460     AROS_LIBFUNC_INIT
 461     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 462
 463 D(bug("[MiamiPanel] MiamiPanelInhibitRefresh()\n"));
 464
 465     DoCommand(MiamiPanelBaseIntern, MPV_Msg_Type_InhibitRefresh,val);
 466
 467     AROS_LIBFUNC_EXIT
 468
 469 } /* MiamiPanelInhibitRefresh */
 470
 471 /*****************************************************************************
 472
 473     NAME */
 474         AROS_LH2(void, MiamiPanelGetCoord,
 475
 476 /*  SYNOPSIS */
 477         AROS_LHA(LONG *, xp, A0),
 478         AROS_LHA(LONG *, yp, A1),
 479
 480 /*  LOCATION */
 481         struct Library *, MiamiPanelBase, 14, MiamiPanel)
 482
 483 /*  FUNCTION
 484
 485     INPUTS
 486
 487     RESULT
 488
 489     NOTES
 490
 491     EXAMPLE
 492
 493     BUGS
 494
 495     SEE ALSO
 496
 497     INTERNALS
 498
 499 *****************************************************************************/
 500 {
 501     AROS_LIBFUNC_INIT
 502     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 503
 504 D(bug("[MiamiPanel] MiamiPanelGetCoord()\n"));
 505
 506     *xp = *yp = 0;
 507
 508     AROS_LIBFUNC_EXIT
 509
 510 } /* MiamiPanelGetCoord */
 511
 512 /*****************************************************************************
 513
 514     NAME */
 515         AROS_LH1(void, MiamiPanelEvent,
 516
 517 /*  SYNOPSIS */
 518         AROS_LHA(ULONG, sigs, D0),
 519
 520 /*  LOCATION */
 521         struct Library *, MiamiPanelBase, 15, MiamiPanel)
 522
 523 /*  FUNCTION
 524
 525     INPUTS
 526
 527     RESULT
 528
 529     NOTES
 530
 531     EXAMPLE
 532
 533     BUGS
 534
 535     SEE ALSO
 536
 537     INTERNALS
 538
 539 *****************************************************************************/
 540 {
 541     AROS_LIBFUNC_INIT
 542     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 543
 544 D(bug("[MiamiPanel] MiamiPanelEvent()\n"));
 545
 546     AROS_LIBFUNC_EXIT
 547
 548 } /* MiamiPanelEvent */
 549
 550 /*****************************************************************************
 551
 552     NAME */
 553         AROS_LH2(void, MiamiPanelRefreshName,
 554
 555 /*  SYNOPSIS */
 556         AROS_LHA(LONG, unit, D0),
 557         AROS_LHA(UBYTE *, name, A0),
 558
 559 /*  LOCATION */
 560         struct Library *, MiamiPanelBase, 16, MiamiPanel)
 561
 562 /*  FUNCTION
 563
 564     INPUTS
 565
 566     RESULT
 567
 568     NOTES
 569
 570     EXAMPLE
 571
 572     BUGS
 573
 574     SEE ALSO
 575
 576     INTERNALS
 577
 578 *****************************************************************************/
 579 {
 580     AROS_LIBFUNC_INIT
 581     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 582
 583 D(bug("[MiamiPanel] MiamiPanelRefreshName()\n"));
 584
 585     DoCommand(MiamiPanelBaseIntern, MPV_Msg_Type_RefreshName,unit,name);
 586
 587     AROS_LIBFUNC_EXIT
 588
 589 } /* MiamiPanelRefreshName */
 590
 591 /*****************************************************************************
 592
 593     NAME */
 594         AROS_LH0(LONG, MiamiPanelGetVersion,
 595
 596 /*  SYNOPSIS */
 597
 598 /*  LOCATION */
 599         struct Library *, MiamiPanelBase, 17, MiamiPanel)
 600
 601 /*  FUNCTION
 602
 603     INPUTS
 604
 605     RESULT
 606
 607     NOTES
 608
 609     EXAMPLE
 610
 611     BUGS
 612
 613     SEE ALSO
 614
 615     INTERNALS
 616
 617 *****************************************************************************/
 618 {
 619     AROS_LIBFUNC_INIT
 620     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 621
 622 D(bug("[MiamiPanel] MiamiPanelGetVersion()\n"));
 623
 624         return 1;
 625
 626     AROS_LIBFUNC_EXIT
 627
 628 } /* MiamiPanelGetVersion */
 629
 630 /*****************************************************************************
 631
 632     NAME */
 633         AROS_LH0(ULONG, MiamiPanelKill,
 634
 635 /*  SYNOPSIS */
 636
 637 /*  LOCATION */
 638         struct Library *, MiamiPanelBase, 26, MiamiPanel)
 639
 640 /*  FUNCTION
 641
 642     INPUTS
 643
 644     RESULT
 645
 646     NOTES
 647
 648     EXAMPLE
 649
 650     BUGS
 651
 652     SEE ALSO
 653
 654     INTERNALS
 655
 656 *****************************************************************************/
 657 {
 658     AROS_LIBFUNC_INIT
 659     struct MiamiPanelBase_intern *MiamiPanelBaseIntern = MiamiPanelBase;
 660
 661 D(bug("[MiamiPanel] MiamiPanelKill()\n"));
 662
 663     ObtainSemaphore(&MiamiPanelBaseIntern->mpb_libSem);
 664
 665     if (AttemptSemaphore(&MiamiPanelBaseIntern->mpb_procSem))
 666     {
 667         ReleaseSemaphore(&MiamiPanelBaseIntern->mpb_procSem);
 668         ReleaseSemaphore(&MiamiPanelBaseIntern->mpb_libSem);
 669         return FALSE;
 670     }
 671
 672     if (MiamiPanelBaseIntern->mpb_app)
 673     {
 674         DoMethod(MiamiPanelBaseIntern->mpb_app,MUIM_Application_PushMethod,(ULONG)MiamiPanelBaseIntern->mpb_app,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
 675
 676         Delay(200);
 677
 678         if (AttemptSemaphore(&MiamiPanelBaseIntern->mpb_procSem))
 679         {
 680             ReleaseSemaphore(&MiamiPanelBaseIntern->mpb_procSem);
 681             ReleaseSemaphore(&MiamiPanelBaseIntern->mpb_libSem);
 682             return FALSE;
 683         }
 684     }
 685
 686     memset(&MiamiPanelBaseIntern->mpb_procSem,0,sizeof(&MiamiPanelBaseIntern->mpb_procSem));
 687     InitSemaphore(&MiamiPanelBaseIntern->mpb_procSem);
 688     if (MiamiPanelBaseIntern->mpb_port) DeleteMsgPort(MiamiPanelBaseIntern->mpb_port);
 689     MiamiPanelBaseIntern->mpb_port = NULL;
 690     MiamiPanelBaseIntern->mpb_app = NULL;
 691
 692     ReleaseSemaphore(&MiamiPanelBaseIntern->mpb_libSem);
 693
 694     return TRUE;
 695
 696     AROS_LIBFUNC_EXIT
 697
 698 } /* MiamiPanelKill */