05/01/2011 Keven Miller

CPUTENVS is a Store-2-Disk (STD) file with these files

Fox 11:file d=cputenvs;dev=disc
Fox 11:vstore *d;@.@.@;show

FILENAME GROUP    ACCOUNT  VOLUME RESTRICTIONS        SECTORS CODE   MEDIA
CPUTENV .WWW     .KEVENM   DISC                    :C      96            1
CPUTENVD.WWW     .KEVENM   DISC                    :C      64            1
CPUTENVL.WWW     .KEVENM   DISC                    :C      32            1
CPUTENVO.WWW     .KEVENM   DISC                    :C     272 NMOBJ      1


CPUTENV provides the missing function putenv() that is found in libc on
unix systems. This one is MPE/iX specific using the HPCIDELETEVAR and
HPCIPUTVAR intrinsics.


Fox 12:
Fox 12:
Fox 12:setvar ccopts "-Aa +e +w1 +O2"
Fox 12:ccxllk cputenv,cputenvp,,-DTEST
CCOPTS=-Aa +e +w1 +O2   -DTEST
SUN MAY  1 2011  3:22 PM  Copyright Hewlett-Packard Co.  1984.   PAGE     1
HP C/iX HP31506 A.05.19                                           "CPUTENV"

    1  0   # 1 "CPUTENV.WWW.KEVENM"
    1  0
    2  0
    3  0
    4  0
    5  0   #pragma list off
Clean compile
HP Link Editor/iX (HP30315A.06.17) Copyright Hewlett-Packard Co 1986

LinkEd> link from=$oldpass;rl=libc.lib.sys,libcansi.lib.sys;TO=cputenvp;
SHARE;CAP=IA,BA

Clean Link
Fox 12:
Fox 12:
Fox 12:run cputenvp;info="jcw=2"

416474c8 0
put 0 errno 0 Error 0   mpe 0 intr 0 stat 0 0
416474c8 2

END OF PROGRAM
Fox 12:
Fox 12:
Fox 12:showjcw jcw
JCW = 2
Fox 12:
Fox 12:
Fox 12:run cputenvp;info="myvar=value"

00000000
put 0 errno 0 Error 0   mpe -8106 intr 11 stat 0 166
416474c8 value

END OF PROGRAM
Fox 12:
Fox 12:
Fox 12:showvar myvar
MYVAR = value

Fox 12:
Fox 12:
Fox 12:run cputenvp;info="myvar"

416474c8 value
put 0 errno 0 Error 0   mpe 0 intr 0 stat 0 0
00000000

END OF PROGRAM
Fox 12:
Fox 12:
Fox 12:showvar myvar
               ^
Variable not found in variable table. (CIERR 8106)
Fox 12:
Fox 12:
Fox 12:run cputenvp;info="hpdatef=ok"

416474c8 SUN, MAY  1, 2011
put 22 errno 22 Invalid argument   mpe -8115 intr 0 stat -8115 166
416474c8 SUN, MAY  1, 2011

END OF PROGRAM
Fox 12:
Fox 12: