src/libexecline/el_getstrict.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

/* ISC license. */

#include <stdlib.h>
#include <skalibs/types.h>
#include <execline/execline.h>

unsigned int el_getstrict (void)
{
  static unsigned int strict = 0 ;
  static int first = 1 ;
  if (first)
  {
    char const *x = getenv("EXECLINE_STRICT") ;
    first = 0 ;
    if (x) uint0_scan(x, &strict) ;
  }
  return strict ;
}