home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 345.lha / snap_v1.4 / source / rexx.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-02-13  |  847 b   |  56 lines
  1. /* Auto: make
  2. */
  3.  
  4. #ifdef SNAPREXX
  5. #include "minrexx.h"
  6.  
  7. IMPORT struct SnapRsrc *SnapRsrc;
  8.  
  9. VOID rexxprepend(), rexxappend();
  10. int disp();
  11.  
  12. struct rexxCommandList rcl[] = {
  13.     { "prepend", (APTR)&rexxprepend },
  14.     { "append", (APTR)&rexxappend },
  15.     { NULL, NULL }
  16. };
  17.  
  18. char result[17];
  19.  
  20. int disp(msg, dat, p)
  21. register struct RexxMsg *msg ;
  22. register struct rexxCommandList *dat ;
  23. char *p ;
  24. {
  25.     result[0] = '\0';
  26.     ((int (*)())(dat->userdata))(msg, p) ;
  27.     replyRexxCmd(msg, 0L, 0L, &result[0]);
  28.     return 1;
  29. }
  30.  
  31. VOID pend(addr, p)
  32. char *addr;
  33. char *p;
  34. {
  35.     strcpy(&result[0], addr);
  36.     if (*p) {
  37.         strncpy(addr, p + 1, 16);
  38.     }
  39. }
  40.  
  41. VOID rexxprepend(msg, p)
  42. struct RexxMsg *msg ;
  43. char *p ;
  44. {
  45.     pend(&SnapRsrc->Prepend[0], p);
  46. }
  47.  
  48. VOID rexxappend(msg, p)
  49. struct RexxMsg *msg ;
  50. char *p ;
  51. {
  52.     pend(&SnapRsrc->Append[0], p);
  53. }
  54.  
  55. #endif
  56.