1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
/*
* vms.h - miscellaneous definitions for use with VMS system services.
* Pat Rankin, Nov'89
*/
#if 0
#include <iodef.h>
#else
#define IO$_WRITEVBLK 48 /* write virtual block */
#define IO$V_CANCTRLO 6 /* cancel <ctrl/O> (ie, resume tty output) */
#define IO$M_CANCTRLO (1 << IO$V_CANCTRLO)
#endif
#if 0
#include <clidef.h>
#include <cliverbdef.h>
#include <fscndef.h>
#else
#define CLI$K_GETCMD 1
#define CLI$K_VERB_MCR 33
#define CLI$K_VERB_RUN 36
#define FSCN$_FILESPEC 1
#endif
#if 0
#include <climsgdef.h>
#else
#define CLI$_RUNUSED 0x00030000 /* value returned by $CLI for "RUN" */
#define CLI$_SYNTAX 0x000310FC /* error signalled by CLI$DCL_PARSE */
#define CLI$_INSFPRM 0x00038048 /* insufficient parameters */
#define CLI$_VALREQ 0x00038150 /* missing required value */
#define CLI$_CONFLICT 0x00038258 /* conflicting qualifiers */
#define CLI$_NOOPTPRS 0x00038840 /* no option present */
#endif
#if 0
#include <psldef.h>
#else
#define PSL$C_USER 3 /* user mode */
#endif
/* note: `ulong' and `u_long' end up conflicting with various header files */
typedef unsigned long U_Long;
typedef unsigned short U_Short;
typedef struct _dsc { int len; char *adr; } Dsc; /* limited string descriptor */
/* standard VMS itemlist-3 structure */
typedef struct _itm { U_Short len, code; void *buffer; U_Short *retlen; } Itm;
#define vmswork(sts) ((sts)&1)
#define vmsfail(sts) (!vmswork(sts))
#define CondVal(sts) ((sts)&0x0FFFFFF8) /* strip severity & msg inhibit */
#define Descrip(strdsc,strbuf) Dsc strdsc = {sizeof strbuf - 1, (char *)strbuf}
extern int shell$is_shell P((void));
extern U_Long lib$find_file P((const Dsc *, Dsc *, void *, ...));
extern U_Long lib$find_file_end P((void *));
#ifndef NO_TTY_FWRITE
extern U_Long lib$get_ef P((long *));
extern U_Long sys$assign P((const Dsc *, short *, long, const Dsc *));
extern U_Long sys$dassgn P((short));
extern U_Long sys$qio P((U_Long, U_Long, U_Long, void *,
void (*)(U_Long), U_Long,
const char *, int, int, U_Long, int, int));
extern U_Long sys$synch P((long, void *));
#endif /*!NO_TTY_FWRITE*/
extern U_Long lib$spawn P((const Dsc *,const Dsc *,const Dsc *,
const U_Long *,const Dsc *,U_Long *,U_Long *,...));
/* system services for logical name manipulation */
extern U_Long sys$trnlnm P((const U_Long *,const Dsc *,const Dsc *,
const unsigned char *,Itm *));
extern U_Long sys$crelnm P((const U_Long *,const Dsc *,const Dsc *,
const unsigned char *,const Itm *));
extern U_Long sys$crelog P((int,const Dsc *,const Dsc *,unsigned char));
extern U_Long sys$dellnm P((const Dsc *,const Dsc *,const unsigned char *));
extern void v_add_arg P((int, const char *));
extern void vms_exit P((int));
extern char *vms_strerror P((int));
extern char *vms_strdup P((const char *));
extern int vms_devopen P((const char *,int));
extern int vms_execute P((const char *, const char *, const char *));
extern int vms_gawk P((void));
extern U_Long Cli_Present P((const char *));
extern U_Long Cli_Get_Value P((const char *, char *, int));
extern U_Long Cli_Parse_Command P((const void *, const char *));
|
