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