kc3-lang/gnulib/lib/t-idcache

• Show log

  Commit

• Hash : 94313593
  Author :
  Date : 2006-11-20T23:33:31
  

  The beginnings of syntax-related checks for gnulib.
  * lib/Makefile: New file.
  * lib/t-idcache: New script.  Ensure that the two halves of
  idcache.c stay in sync.
  

Download

• lib/t-idcache

• #!/bin/sh
  # Compare the two halves (user and group) of idcache.c.
  # Once xformed, they'd better be the same:
  
  pwd=`pwd`
  t0=`echo "$0"|sed 's,.*/,,'`.tmp; tmp=$t0/$$
  trap 'status=$?; cd "$pwd" && chmod -R u+rwx $t0 && rm -rf $t0 && exit $status' 0
  trap '(exit $?); exit $?' 1 2 13 15
  
  srcdir=../..
  framework_failure=0
  mkdir -p $tmp || framework_failure=1
  cd $tmp || framework_failure=1
  
  if test $framework_failure = 1; then
    echo "$0: failure in testing framework" 1>&2
    (exit 1); exit 1
  fi
  
  # Extract user-oriented functions.
  perl -ne \
    'print if /^static struct.*user_alist/ .. /^static struct.*group_alist/' \
    $srcdir/idcache.c | head -n -3 > u
  # Extract group-oriented functions.
  perl -ne 'print if /^static struct.*group_alist/ .. eof' $srcdir/idcache.c > g
  
  # Convert user-specific strings of "u" into corresponding group-specific strings
  subst='
  s/user_/group_/g;
  s/\buser\b/group/g;
  s/USER/GROUP/g;
  s/\bu\b/g/g;
  s/passwd/group/g;
  s/pw_uid/gr_gid/g;
  s/pwnam/grnam/g;
  s/pwent/grent/g;
  s/getpw/getgr/g;
  s/pw_/gr_/g;
  s/UID/GID/g;
  s/uid/gid/g;
  s/getuser/getgroup/;
  s/login name/group name/;
  s/to be the/to belong to/;
  s/pwd fun/grp fun/;
  '
  
  fail=0
  # Ensure that the transformed "u" is the same as g.
  # Any differences here constitute an error.
  perl -pe "$subst" u | diff -u - g || fail=1
  
  exit $fail
  

Download