home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gnuawk.zip / vms / vms.h < prev    next >
C/C++ Source or Header  |  1996-11-03  |  3KB  |  88 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 0
  37. #include <psldef.h>
  38. #else
  39. #define PSL$C_USER    3    /* user mode */
  40. #endif
  41.  
  42. /* note: `ulong' and `u_long' end up conflicting with various header files */
  43. typedef unsigned long    U_Long;
  44. typedef unsigned short    U_Short;
  45.  
  46. typedef struct _dsc { int len; char *adr; } Dsc; /* limited string descriptor */
  47.  /* standard VMS itemlist-3 structure */
  48. typedef struct _itm { U_Short len, code; void *buffer; U_Short *retlen; } Itm;
  49.  
  50. #define vmswork(sts) ((sts)&1)
  51. #define vmsfail(sts) (!vmswork(sts))
  52. #define CondVal(sts) ((sts)&0x0FFFFFF8)     /* strip severity & msg inhibit */
  53. #define Descrip(strdsc,strbuf) Dsc strdsc = {sizeof strbuf - 1, (char *)strbuf}
  54.  
  55. extern int    shell$is_shell P((void));
  56. extern U_Long lib$find_file P((const Dsc *, Dsc *, void *, ...));
  57. extern U_Long lib$find_file_end P((void *));
  58. #ifndef NO_TTY_FWRITE
  59. extern U_Long lib$get_ef P((long *));
  60. extern U_Long sys$assign P((const Dsc *, short *, long, const Dsc *));
  61. extern U_Long sys$dassgn P((short));
  62. extern U_Long sys$qio P((U_Long, U_Long, U_Long, void *,
  63.              void (*)(U_Long), U_Long,
  64.              const char *, int, int, U_Long, int, int));
  65. extern U_Long sys$synch P((long, void *));
  66. #endif    /*!NO_TTY_FWRITE*/
  67. extern U_Long lib$spawn P((const Dsc *,const Dsc *,const Dsc *,
  68.                const U_Long *,const Dsc *,U_Long *,U_Long *,...));
  69.  /* system services for logical name manipulation */
  70. extern U_Long sys$trnlnm P((const U_Long *,const Dsc *,const Dsc *,
  71.                 const unsigned char *,Itm *));
  72. extern U_Long sys$crelnm P((const U_Long *,const Dsc *,const Dsc *,
  73.                 const unsigned char *,const Itm *));
  74. extern U_Long sys$crelog P((int,const Dsc *,const Dsc *,unsigned char));
  75. extern U_Long sys$dellnm P((const Dsc *,const Dsc *,const unsigned char *));
  76.  
  77. extern void   v_add_arg P((int, const char *));
  78. extern void   vms_exit P((int));
  79. extern char  *vms_strerror P((int));
  80. extern char  *vms_strdup P((const char *));
  81. extern int    vms_devopen P((const char *,int));
  82. extern int    vms_execute P((const char *, const char *, const char *));
  83. extern int    vms_gawk P((void));
  84. extern U_Long Cli_Present P((const char *));
  85. extern U_Long Cli_Get_Value P((const char *, char *, int));
  86. extern U_Long Cli_Parse_Command P((const void *, const char *));
  87.  
  88.