diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2013-12-21 19:20:17 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2013-12-21 19:20:17 +0200 |
| commit | 4fe032a32469509d548919624f1eaa459f82a160 (patch) | |
| tree | a486f93db235e3f05d3fa31f664766e953f5a0b7 /vms/vms_popen.c | |
| parent | f2967e7bacc594ebcd7d33401ef220393d6fac05 (diff) | |
| download | egawk-4fe032a32469509d548919624f1eaa459f82a160.tar.gz egawk-4fe032a32469509d548919624f1eaa459f82a160.tar.bz2 egawk-4fe032a32469509d548919624f1eaa459f82a160.zip | |
Add exact case build support and doc fixes for VMS.
Diffstat (limited to 'vms/vms_popen.c')
| -rw-r--r-- | vms/vms_popen.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/vms/vms_popen.c b/vms/vms_popen.c index 62f3f719..6c5c5086 100644 --- a/vms/vms_popen.c +++ b/vms/vms_popen.c @@ -172,7 +172,7 @@ vms_execute( const char *command, const char *input, const char *output ) out_p = 0; push_logicals(); /* guard against user-mode definitions of sys$Xput */ - sts = lib$spawn(&cmd, in_p, out_p, (U_Long *)0, + sts = LIB$SPAWN(&cmd, in_p, out_p, (U_Long *)0, (Dsc *)0, (U_Long *)0, &cmpltn_sts); pop_logicals(); /* restore environment */ @@ -219,9 +219,9 @@ static const Descrip(sys_output,"SYS$OUTPUT"); static const unsigned char acmode = PSL$C_USER; /* only care about user-mode */ /* macros for simplfying the code a bunch */ -#define DelTrans(l) sys$dellnm(&lnmtable, (l), &acmode) -#define GetTrans(l,i) sys$trnlnm((U_Long *)0, &lnmtable, (l), &acmode, (i)) -#define SetTrans(l,i) sys$crelnm((U_Long *)0, &lnmtable, (l), &acmode, (i)) +#define DelTrans(l) SYS$DELLNM(&lnmtable, (l), &acmode) +#define GetTrans(l,i) SYS$TRNLNM((U_Long *)0, &lnmtable, (l), &acmode, (i)) +#define SetTrans(l,i) SYS$CRELNM((U_Long *)0, &lnmtable, (l), &acmode, (i)) /* itemlist manipulation macros; separate versions for aggregate and scalar */ #define SetItmA(i,c,p,r) ((i).code = (c), (i).len = sizeof (p),\ (i).buffer = (p), (i).retlen = (U_Short *)(r)) @@ -333,7 +333,7 @@ restore_translation( const Dsc *logname, const Itm *itemlist ) /* assert( itemlist[2].code == LNM$_STRING ); */ trans_val.adr = itemlist[2].buffer; trans_val.len = itemlist[2].len; - (void) sys$crelog(LOG_PROCESS_TABLE, logname, &trans_val, LOG_USERMODE); + (void) SYS$CRELOG(LOG_PROCESS_TABLE, logname, &trans_val, LOG_USERMODE); } else { /* $crelnm definition; itemlist could specify multiple translations, but has already been setup properly for use as-is. |