#include <stdlib.h> #include <string.h> #include <extend50.h> CLIPPER b_inpath() { int ret_val = 0; char *p_ptr; char a_path[(_MAX_PATH + 1)]; if( !ISCHAR(1) ){ _retl(ret_val); } p_ptr = strupr(_parc(1)); _searchenv(p_ptr, "PATH", a_path); if( strstr(a_path, p_ptr) ){ ret_val = 1; } _retl(ret_val); }