#!/usr/bin/perl
# From the Perl FAQ
# written by Jeffrey Friedl and later modified by Fred Curtis
    $/ = undef;
    $_ = <>;
    s#/\*[^*]*\*+([^/*][^*]*\*+)*/|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|.[^/"'\\]*)#\$2#gs;
    print;

#!/usr/bin/perl
    $/ = undef;
    $_ = <>;
    s#{([^{}]*)}##gs;
    print;

#!/bin/bash
  ./stripbraces.pl \$1 \
      | ./stripcomments.pl \
      | sed -e "s/,[ 	]*/\n/g;" \
      | sed -e "s/^[ 	]*//g;" \
      | sed -e "s/[ 	]*$//g;" \
      | egrep -v "^[ 	]*$" \
      | sort \
      | uniq