Add an internal-representation no-op function.

[u/mdw/catacomb] / genmodes

#! /bin/sh

baselist=$1
extlist=$2

for i in $baselist; do
  I=`echo "$i" | tr -d '\n' | tr a-z A-Z | tr -c a-zA-Z0-9 _`
  for j in $extlist; do
    J=`echo "$j" | tr -d '\n' | tr a-z A-Z | tr -c a-zA-Z0-9 _`
    guard="CATACOMB_${I}_${J}_H"
    cat >$i-$j.h.new <<EOF
/* -*-c-*-
 *
 * $i-$j.h [generated]
 */

#ifndef $guard
#define $guard

#ifdef __cplusplus
  extern "C" {
#endif

#ifndef CATACOMB_${J}_H
#  include "$j.h"
#endif

#ifndef CATACOMB_${I}_H
#  include "$i.h"
#endif

${J}_DECL($I, $i)

#ifdef __cplusplus
  }
#endif

#endif
EOF
    if cmp "$i-$j.h" "$i-$j.h.new" >/dev/null 2>&1; then
      rm "$i-$j.h.new"
    else
      mv "$i-$j.h.new" "$i-$j.h"
      echo >&2 "Written new $i-$j.h."
    fi
    cat >$i-$j.c.new <<EOF
/* -*-c-*-
 *
 * $i-$j.c [generated]
 */

#include "$i-$j.h"
#include "$j-def.h"
${J}_DEF($I, $i)
EOF
    if cmp "$i-$j.c" "$i-$j.c.new" >/dev/null 2>&1; then
      rm "$i-$j.c.new"
    else
      mv "$i-$j.c.new" "$i-$j.c"
      echo >&2 "Written new $i-$j.c."
    fi
  done
done