dist/libgomp/env.c

76   char *env, *end;
79   env = getenv ("OMP_SCHEDULE");
80   if (env == NULL)
83   while (isspace ((unsigned char) *env))
84     ++env;
85   if (strncasecmp (env, "static", 6) == 0)
88       env += 6;
90   else if (strncasecmp (env, "dynamic", 7) == 0)
93       env += 7;
95   else if (strncasecmp (env, "guided", 6) == 0)
98       env += 6;
100   else if (strncasecmp (env, "auto", 4) == 0)
103       env += 4;
108   while (isspace ((unsigned char) *env))
109     ++env;
110   if (*env == '\0')
112   if (*env++ != ',')
114   while (isspace ((unsigned char) *env))
115     ++env;
116   if (*env == '\0')
120   value = strtoul (env, &end, 10);
151   char *env, *end;
154   env = getenv (name);
155   if (env == NULL)
158   while (isspace ((unsigned char) *env))
159     ++env;
160   if (*env == '\0')
164   value = strtoul (env, &end, 10);
187   char *env, *end;
190   env = getenv (name);
191   if (env == NULL)
194   while (isspace ((unsigned char) *env))
195     ++env;
196   if (*env == '\0')
200   value = strtoul (env, &end, 10);
248   char *env, *end;
251   env = getenv (name);
252   if (env == NULL)
255   while (isspace ((unsigned char) *env))
256     ++env;
257   if (*env == '\0')
260   if (strncasecmp (env, "infinite", 8) == 0
261       || strncasecmp (env, "infinity", 8) == 0)
264       end = env + 8;
269   value = strtoull (env, &end, 10);
321   const char *env;
323   env = getenv (name);
324   if (env == NULL)
327   while (isspace ((unsigned char) *env))
328     ++env;
329   if (strncasecmp (env, "true", 4) == 0)
332       env += 4;
334   else if (strncasecmp (env, "false", 5) == 0)
337       env += 5;
340     env = "X";
341   while (isspace ((unsigned char) *env))
342     ++env;
343   if (*env != '\0')
353   const char *env;
356   env = getenv ("OMP_WAIT_POLICY");
357   if (env == NULL)
360   while (isspace ((unsigned char) *env))
361     ++env;
362   if (strncasecmp (env, "active", 6) == 0)
365       env += 6;
367   else if (strncasecmp (env, "passive", 7) == 0)
370       env += 7;
373     env = "X";
374   while (isspace ((unsigned char) *env))
375     ++env;
376   if (*env == '\0')
388   char *env, *end;
393   env = getenv ("GOMP_CPU_AFFINITY");
394   if (env == NULL)
399       while (*env == ' ' || *env == '\t')
400 	env++;
402       cpu_beg = strtoul (env, &end, 0);
405       if (env == end || cpu_beg >= 65536)
408       env = end;
409       if (*env == '-')
411 	  cpu_end = strtoul (++env, &end, 0);
412 	  if (env == end || cpu_end >= 65536 || cpu_end < cpu_beg)
415 	  env = end;
416 	  if (*env == ':')
418 	      cpu_stride = strtoul (++env, &end, 0);
419 	      if (env == end || cpu_stride == 0 || cpu_stride >= 65536)
422 	      env = end;
454       while (*env == ' ' || *env == '\t')
455 	env++;
457       if (*env == ',')
458 	env++;
459       else if (*env == '\0')