#!/usr/local/bin/perl
#<
#strip_doc
#
#Usage:
#strip_doc.x  <in.H >out.H 
#
#Input Parameters:
#
#
#Output Parameters:
#
#
#
#Description:
#
#
#
#>
#-------------------------------------------------
#
#Author: Robert Clapp, ESMB 463, 7230253
#
#Date Created:Mon Sep 18 13:09:15 PDT 2000
#
#Purpose: 
#
#

#Initial arguments
$selfoc="strip_doc.x < infile >outfile
 
Strips out self-doc 
 
";
 

while(<STDIN>){
	if($_ =~/^\s*!!\$/ || $_=~/^\s+$/|| $_=~/^\s*\#\$/ || $_ =~/^\s*!\$/){}
	else{ print STDOUT $_;}
}