home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / gnu / gawk213s.lzh / GAWK213S / VMS.H < prev    next >
C/C++ Source or Header  |  1993-07-29  |  2KB  |  70 lines
  1. /*
  2.  * vms.h - miscellaneous definitions for use with VMS system services.
  3.  *                            Pat Rankin, Nov'89
  4.  */
  5.  
  6. #if 0
  7. #include <iodef.h>
  8. #else
  9. #define IO$_WRITEVBLK    48    /* write virtual block */
  10. #define IO$V_CANCTRLO    6    /* cancel <ctrl/O> (ie, resume tty output) */
  11. #define IO$M_CANCTRLO    (1 << IO$V_CANCTRLO)
  12. #endif
  13.  
  14. #if 0
  15. #include <clidef.h>
  16. #include <cliverbdef.h>
  17. #include <fscndef.h>
  18. #else
  19. #define CLI$K_GETCMD    1
  20. #define CLI$K_VERB_MCR    33
  21. #define CLI$K_VERB_RUN    36
  22. #define FSCN$_FILESPEC    1
  23. #endif
  24.  
  25. #if 0
  26. #include <climsgdef.h>
  27. #else
  28. #define CLI$_RUNUSED    0x00030000    /* value returned by $CLI for "RUN" */
  29. #define CLI$_SYNTAX    0x000310FC    /* error signalled by CLI$DCL_PARSE */
  30. #define CLI$_INSFPRM    0x00038048    /* insufficient parameters */
  31. #define CLI$_VALREQ    0x00038150    /* missing required value  */
  32. #define CLI$_CONFLICT    0x00038258    /* conflicting qualifiers  */
  33. #define CLI$_NOOPTPRS    0x00038840    /* no option present       */
  34. #endif
  35.  
  36. #if !defined(_TYPES_) || !defined(__GNUC__)
  37. typedef unsigned long    u_long;
  38. typedef unsigned short    u_short;
  39. #endif
  40. typedef struct _dsc { int len; char *adr; } Dsc; /* limited string descriptor */
  41.  
  42. #define vmswork(sts) ((sts)&1)
  43. #define vmsfail(sts) (!vmswork(sts))
  44. #define CondVal(sts) ((sts)&0x0FFFFFF8)     /* strip severity & msg inhibit */
  45. #define Descrip(strdsc,strbuf) Dsc strdsc = {sizeof strbuf - 1, strbuf}
  46.  
  47. extern int    shell$is_shell P((void));
  48. extern u_long LIB$FIND_FILE P((const Dsc *, Dsc *, void *, ...));
  49. extern u_long LIB$FIND_FILE_END P((void *));
  50. #ifndef NO_TTY_FWRITE
  51. extern u_long LIB$GET_EF P((long *));
  52. extern u_long SYS$ASSIGN P((const Dsc *, short *, long, const Dsc *));
  53. extern u_long SYS$DASSGN P((short));
  54. extern u_long SYS$QIO P((long, short, long, void *, const void *, long,
  55.              const char *, int, int, u_long, int, int));
  56. extern u_long SYS$SYNCH P((long, void *));
  57. #endif !NO_TTY_FWRITE
  58.  
  59. extern void   v_add_arg P((int, const char *));
  60. extern void   vms_exit P((int));
  61. extern char  *vms_strerror P((int));
  62. extern char  *vms_strdup P((const char *));
  63. extern int    vms_devopen P((const char *));
  64. extern int    vms_execute P((const char *, const char *, const char *));
  65. extern int    vms_gawk P((void));
  66. extern u_long Cli_Present P((const char *));
  67. extern u_long Cli_Get_Value P((const char *, char *, int));
  68. extern u_long Cli_Parse_Command P((const void *, const char *));
  69.  
  70.