#!/usr/local/bin/perl ############################################################################## # # File: unhideq.pl # Purpose: unhides any single (') or double (") quote marks that # do not appear as part of a cpp directive. Single quotes # are assumed to be a binary 1, double quotes are assumed to be # a binary 2. To be used with hideq.pl # # Calling # Sequence: unhideq.pl [] # # Author: Tom Parris ############################################################################## while (<>) { s/\001/'/g ; s/\002/"/g ; print; }