程序readenv.c顯示了在c語言中存取環(huán)境變量的若干技巧。該程序?qū)⒁耘cdos的SET命令相同的格式打印出當(dāng)前所有的環(huán)境變量，然后尋找PATH變量，打印出整個(gè)路徑字符串。該程序中有兩個(gè)重要的子程序，find_env_string(),它的主要作用是：根據(jù)從調(diào)用這傳來的要求，或者從環(huán)境空間的起點(diǎn)開始，或者從上一次搜索後停留的地方開始，尋找隨后的第一個(gè)環(huán)境字符串，具體程序清單如下。


/**************readnv.c****************/
#include<stdio.h>
#include<stdlib.h>
#include<dos.h>

#define MAX 127
#define TRUE 1
#define FALSE 0
#define FIRST 1
#define NEXT 0

void dispenv(void);
int find_env_string(int restart);

char env_string[MAX+2];
int env_offset=0;

void main()
{
char *path_string; /*調(diào)用子程序dispenv(),以與SET命令相同的格式打印出當(dāng)前環(huán)境字符串*/
dispenv(); /*在環(huán)境變量中尋找PATH變量，并打印出整個(gè)論經(jīng)字符串*/
if(path_string==getenv("PATH"))
printf("\nPATH=%s",path_string);
}
/********************************************/

void dispenv()
{
int restart; /*在for循環(huán)中，先置restart為FIRST，調(diào)用子程序find_env_string()
尋找第一個(gè)環(huán)境字符串并打印，而后置restart為NEXT,繼續(xù)尋找下一
個(gè)環(huán)境字符串，直到結(jié)束子程序find_env_string()返回FALSE為止*/
for(restart=FIRST;find_env_string(restart);restart=NEXT)
printf("\n%s",env_string);
}
/********************************************/

int find_env_string(int restart)
{
int buf_offset;
int environment;
if(!environment) /*將環(huán)境空間短地址送入變量environment中*/
environment=peek(_psp,0x2c);
if(restart)
environment=0; /*首次調(diào)用時(shí)，偏移量置0，即從環(huán)境空間起點(diǎn)開始*/
for(buf_offset=0;TRUE;env_offset++){
env_string[buf_offset]=peekb(environment,env_offset);
/*將環(huán)境空間中的字符逐個(gè)讀入數(shù)組env_string中
if(env_string[buf_offset]){/*若為空字符，繼續(xù)*/
buf_offset++;
continue;
}
if(!buf_offset) /*若buf_offset=0,則中個(gè)環(huán)境結(jié)束，回FALSE*/
return FALSE;
env_offset++;/*若為空字符，則一個(gè)環(huán)境字符串結(jié)束，回TRUE*/
return TRUE;
}
}