workbench/libs/popupmenu/pmrexx.c

   1 //
   2 // popupmenu.library - ARexx Interface
   3 //
   4
   5 #include "pmpriv.h"
   6
   7 #include <rexx/errors.h>
   8 #include <rexx/rexxio.h>
   9 #include <rexx/storage.h>
  10 #include <proto/rexxsyslib.h>
  11
  12 extern char *version;
  13
  14 struct RexxReturnValues {
  15     ULONG d0;
  16     UBYTE *a0;
  17 };
  18
  19 #define rxreturn(x, y)  { rxret=AllocVec(sizeof(struct RexxReturnValues), 0);\
  20                 if(!rxret) { return 0L; }\
  21                 rxret->d0=x; rxret->a0=y;\
  22                 return rxret;\
  23             }
  24
  25 __asm ULONG a0hack(register __d0 ULONG return1, register __a0 UBYTE *return2)
  26 {
  27     /* lame hack to return an argstring in A0 as arexx expects */
  28     return(return1);
  29 }
  30
  31 __asm __saveds ULONG PM_RexxHost(register __a0 struct RexxMsg *rxmsg)
  32 {
  33     UBYTE *argstr;
  34     STRPTR resstr;
  35     struct RexxReturnValues *rxret;
  36
  37         rxreturn(ERR10_010, 0L); /*  invalid message packet      */
  38
  39 }