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

	print;
}
