16  *  AutoOpts is Copyright (C) 1992-2018 by Bruce Korb - all rights reserved
36  *  doPrognameEnv - check for preset values from the ${PROGNAME}
44     char const *        env_opts = getenv(pOpts->pzPROGNAME);  in doPrognameEnv()
67     sv_argc = (int)pOpts->origArgCt;  in doPrognameEnv()
68     sv_argv = pOpts->origArgVect;  in doPrognameEnv()
69     sv_flag = pOpts->fOptSet;  in doPrognameEnv()
73      *  has already been pulled from "argv", so it won't get dereferenced.  in doPrognameEnv()
78         uintptr_t v = (uintptr_t)(pTL->tkn_list);  in doPrognameEnv()
79         pOpts->origArgVect = VOIDP(v - sizeof(char *));  in doPrognameEnv()
81     pOpts->origArgCt   = (unsigned int)pTL->tkn_ct   + 1;  in doPrognameEnv()
82     pOpts->fOptSet    &= ~OPTPROC_ERRSTOP;  in doPrognameEnv()
84     pOpts->curOptIdx   = 1;  in doPrognameEnv()
85     pOpts->pzCurOpt    = NULL;  in doPrognameEnv()
94         pOpts->curOptIdx = 1;  in doPrognameEnv()
95         pOpts->pzCurOpt  = NULL;  in doPrognameEnv()
103      *  Free up the temporary arg vector and restore the original program args.  in doPrognameEnv()
106     pOpts->origArgVect = sv_argv;  in doPrognameEnv()
107     pOpts->origArgCt   = (unsigned int)sv_argc;  in doPrognameEnv()
108     pOpts->fOptSet     = sv_flag;  in doPrognameEnv()
115     os->pzOptArg = getenv(env_name);  in do_env_opt()
116     if (os->pzOptArg == NULL)  in do_env_opt()
119     os->flags   = OPTST_PRESET | OPTST_ALLOC_ARG | os->pOD->fOptState;  in do_env_opt()
120     os->optType = TOPT_UNDEFINED;  in do_env_opt()
122     if (  (os->pOD->pz_DisablePfx != NULL)  in do_env_opt()
123        && (streqvcmp(os->pzOptArg, os->pOD->pz_DisablePfx) == 0)) {  in do_env_opt()
124         os->flags |= OPTST_DISABLED;  in do_env_opt()
125         os->pzOptArg = NULL;  in do_env_opt()
135         if (DO_IMMEDIATELY(os->flags))  in do_env_opt()
143         if (DO_NORMALLY(os->flags) || DO_SECOND_TIME(os->flags))  in do_env_opt()
157     if (OPTST_GET_ARGTYPE(os->pOD->fOptState) == OPARG_TYPE_NONE) {  in do_env_opt()
161         os->pzOptArg = NULL;  in do_env_opt()
163     } else if (os->pzOptArg[0] == NUL) {  in do_env_opt()
168         if ((os->pOD->fOptState & OPTST_ARG_OPTIONAL) == 0)  in do_env_opt()
170         os->pzOptArg = NULL;  in do_env_opt()
173         AGDUPSTR(os->pzOptArg, os->pzOptArg, "option argument");  in do_env_opt()
174         os->flags |= OPTST_ALLOC_ARG;  in do_env_opt()
181  *  env_presets - check for preset values from the envrionment
197     if ((pOpts->fOptSet & OPTPROC_ENVIRON) == 0)  in env_presets()
202     ct  = pOpts->presetOptCt;  in env_presets()
203     st.pOD = pOpts->pOptDesc;  in env_presets()
206         + snprintf(zEnvName, sizeof(zEnvName), "%s_", pOpts->pzPROGNAME);  in env_presets()
207     spaceLeft = AO_NAME_SIZE - (unsigned long)(pzFlagName - zEnvName) - 1;  in env_presets()
209     for (;ct-- > 0; st.pOD++) {  in env_presets()
215         if (  ((st.pOD->fOptState & OPTST_NO_INIT) != 0)  in env_presets()
216            || (st.pOD->optEquivIndex != NO_EQUIVALENT)  )  in env_presets()
223         nln = strlen(st.pOD->pz_NAME) + 1;  in env_presets()
226              *  Set up the option state  in env_presets()
228             memcpy(pzFlagName, st.pOD->pz_NAME, nln);  in env_presets()
236     if (  (pOpts->specOptIdx.save_opts != NO_EQUIVALENT)  in env_presets()
237        && (pOpts->specOptIdx.save_opts != 0)) {  in env_presets()
239         st.pOD = pOpts->pOptDesc + pOpts->specOptIdx.save_opts + 1;  in env_presets()
241         if (st.pOD->pz_NAME == NULL)  in env_presets()
244         nln = strlen(st.pOD->pz_NAME) + 1;  in env_presets()
249         memcpy(pzFlagName, st.pOD->pz_NAME, nln);  in env_presets()
258  * c-file-style: "stroustrup"
259  * indent-tabs-mode: nil