home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / microdot-1 / md1_src_02.lzx / md_rexx_rxcl.c < prev    next >
C/C++ Source or Header  |  2014-05-19  |  6KB  |  105 lines
  1. /*
  2.  * Source generated with ARexxBox 1.13 (Dec  4 1993)
  3.  * which is Copyright (c) 1992,1993 Michael Balzer
  4.  */
  5.  
  6. #include <exec/types.h>
  7. #include <dos/dos.h>
  8. #include <rexx/storage.h>
  9.  
  10. #define NO_GLOBALS
  11. #include "md_rexx.h"
  12.  
  13. #define RESINDEX(stype) (((long) &((struct stype *)0)->res) / sizeof(long))
  14.  
  15. char    RexxPortBaseName[80] = "MICRODOT";
  16. char    *rexx_extension = "MICRODOT";
  17.  
  18. struct rxs_command rxs_commandlist[] =
  19. {
  20.     { "CHOOSE", "OFF/S,TOGGLE/S,ALLON/S,ALLOFF/S,TEST/S,ENTER/S", "RC/N", RESINDEX(rxd_choose), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_choose, 1 },
  21.     { "CRUNCH", NULL, NULL, 0, (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_crunch, 1 },
  22.     { "EDITOR", "FILE/A", "RC/N", RESINDEX(rxd_editor), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_editor, 1 },
  23.     { "EXTRACTCURRENTMAIL", "FILE/A,HEADER/S,COMMENT/S", "RC/N", RESINDEX(rxd_extractcurrentmail), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_extractcurrentmail, 1 },
  24.     { "GETCURRENTBOARD", NULL, "NAME,MAILS/N,NEWMAILS/N,UNREADMAILS/N,HOLDDAYS/N,NODELETE/N,SUBPM/N,SELECTED/N,UPDATETIME/N", RESINDEX(rxd_getcurrentboard), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_getcurrentboard, 1 },
  25.     { "GETCURRENTMAIL", NULL, "FROM,FROMREAL,SUBJECT,MIDHASH/N,REFHASH/N,LENGTH/N,NEW/N,READ/N,HOLD/N,DEL/N,BIN/N,SHOW/N,SELECTED/N,SENDTIME/N,INCOMETIME/N,RX1/N,RX2/N", RESINDEX(rxd_getcurrentmail), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_getcurrentmail, 1 },
  26.     { "GETCURRENTMAILHEADER", "HEADER/A,INDEX/N", "DATA", RESINDEX(rxd_getcurrentmailheader), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_getcurrentmailheader, 1 },
  27.     { "GETMDPUBSCREENNAME", NULL, "PUBSCREENNAME", RESINDEX(rxd_getmdpubscreenname), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_getmdpubscreenname, 1 },
  28.     { "GETMODE", NULL, "MODE/N", RESINDEX(rxd_getmode), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_getmode, 1 },
  29.     { "GETPOS", NULL, "RC/N", RESINDEX(rxd_getpos), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_getpos, 1 },
  30.     { "GETPREFS", NULL, "USERNAME,USERREALNAME,POINTNAME,SERVERNAME,SERVERDOMAIN", RESINDEX(rxd_getprefs), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_getprefs, 1 },
  31.     { "GOTOBOARD", "NAME/A", NULL, 0, (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_gotoboard, 1 },
  32.     { "HELP", "COMMAND,PROMPT/S", "COMMANDDESC,COMMANDLIST/M", RESINDEX(rxd_help), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_help, 1 },
  33.     { "MDVERSION", NULL, "VERSION", RESINDEX(rxd_mdversion), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_mdversion, 1 },
  34.     { "NETCALL", NULL, "RC/N", RESINDEX(rxd_netcall), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_netcall, 1 },
  35.     { "NOREQUEST", "OFF/S", NULL, 0, (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_norequest, 1 },
  36.     { "QUIT", NULL, NULL, 0, (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_quit, 1 },
  37.     { "REORG", "MERGE/S", NULL, 0, (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_reorg, 1 },
  38.     { "REQUEST", "TEXT/A,GADGETS/A", "RC/N", RESINDEX(rxd_request), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_request, 1 },
  39.     { "RX", "CONSOLE/S,ASYNC/S,COMMAND/F", "RC/N,RESULT", RESINDEX(rxd_rx), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_rx, 1 },
  40.     { "SENDMAIL", "TO/A/M,BODYFILE/A,COMMENTFILE,BIN/S,SUBJECT,SHORTCOMMENT,REFERENCEID,FOLLOWUP_TO,WAIT/S", "RC/N", RESINDEX(rxd_sendmail), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_sendmail, 1 },
  41.     { "SENDSHORTMAIL", "TO/A,TEXT/A,REFERENCEID/K,SUBJECT/K", NULL, 0, (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_sendshortmail, 1 },
  42.     { "SETCURRENTMAILFLAGS", "NEW/N,READ/N,HOLD/N,DEL/N,SHOW/N,SELECTED/N,RX1/N,RX2/N", NULL, 0, (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_setcurrentmailflags, 1 },
  43.     { "SETPOS", "GOTOPOS/N,UP/S,DOWN/S", "RC/N", RESINDEX(rxd_setpos), (void (*)(struct RexxHost *,void **,long,struct RexxMsg *)) rx_setpos, 1 },
  44.     { NULL, NULL, NULL, NULL, NULL }
  45. };
  46.  
  47. int        command_cnt = 24;
  48.  
  49. static struct arb_p_link link0[] = {
  50.     {"SE", 1}, {"R", 8}, {"QUIT", 13}, {"N", 14}, {"MDVERSION", 17}, {"HELP", 18},
  51.     {"G", 19}, {"E", 32}, {"C", 35}, {NULL, 0} };
  52.  
  53. static struct arb_p_link link1[] = {
  54.     {"T", 2}, {"ND", 5}, {NULL, 0} };
  55.  
  56. static struct arb_p_link link2[] = {
  57.     {"POS", 3}, {"CURRENTMAILFLAGS", 4}, {NULL, 0} };
  58.  
  59. static struct arb_p_link link5[] = {
  60.     {"SHORTMAIL", 6}, {"MAIL", 7}, {NULL, 0} };
  61.  
  62. static struct arb_p_link link8[] = {
  63.     {"X", 9}, {"E", 10}, {NULL, 0} };
  64.  
  65. static struct arb_p_link link10[] = {
  66.     {"QUEST", 11}, {"ORG", 12}, {NULL, 0} };
  67.  
  68. static struct arb_p_link link14[] = {
  69.     {"OREQUEST", 15}, {"ETCALL", 16}, {NULL, 0} };
  70.  
  71. static struct arb_p_link link19[] = {
  72.     {"OTOBOARD", 20}, {"ET", 21}, {NULL, 0} };
  73.  
  74. static struct arb_p_link link21[] = {
  75.     {"P", 22}, {"M", 25}, {"CURRENT", 28}, {NULL, 0} };
  76.  
  77. static struct arb_p_link link22[] = {
  78.     {"REFS", 23}, {"OS", 24}, {NULL, 0} };
  79.  
  80. static struct arb_p_link link25[] = {
  81.     {"ODE", 26}, {"DPUBSCREENNAME", 27}, {NULL, 0} };
  82.  
  83. static struct arb_p_link link28[] = {
  84.     {"MAIL", 29}, {"BOARD", 31}, {NULL, 0} };
  85.  
  86. static struct arb_p_link link29[] = {
  87.     {"HEADER", 30}, {NULL, 0} };
  88.  
  89. static struct arb_p_link link32[] = {
  90.     {"XTRACTCURRENTMAIL", 33}, {"DITOR", 34}, {NULL, 0} };
  91.  
  92. static struct arb_p_link link35[] = {
  93.     {"RUNCH", 36}, {"HOOSE", 37}, {NULL, 0} };
  94.  
  95. struct arb_p_state arb_p_state[] = {
  96.     {-1, link0}, {20, link1}, {22, link2}, {23, NULL}, {22, NULL},
  97.     {20, link5}, {21, NULL}, {20, NULL}, {17, link8}, {19, NULL},
  98.     {17, link10}, {18, NULL}, {17, NULL}, {16, NULL}, {14, link14},
  99.     {15, NULL}, {14, NULL}, {13, NULL}, {12, NULL}, {4, link19},
  100.     {11, NULL}, {4, link21}, {9, link22}, {10, NULL}, {9, NULL},
  101.     {7, link25}, {8, NULL}, {7, NULL}, {4, link28}, {5, link29},
  102.     {6, NULL}, {4, NULL}, {2, link32}, {3, NULL}, {2, NULL},
  103.     {0, link35}, {1, NULL}, {0, NULL}  };
  104.  
  105.