From 3d863673304baca188c4c17c14145ab21005f093 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Wed, 22 Jul 2009 16:40:30 +0000
Subject: [PATCH] Added -e option to escape back-slashes in output.

---
 src/tools/fullPathName.pl | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

diff --git a/src/tools/fullPathName.pl b/src/tools/fullPathName.pl
index b6da757ff..ac0e18a87 100755
--- a/src/tools/fullPathName.pl
+++ b/src/tools/fullPathName.pl
@@ -1,7 +1,7 @@
 eval 'exec perl -S -w  $0 ${1+"$@"}'  # -*- Mode: perl -*-
     if 0;
 #*************************************************************************
-# Copyright (c) 2008 The University of Chicago, as Operator of Argonne
+# Copyright (c) 2009 UChicago Argonne LLC, as Operator of Argonne
 #     National Laboratory.
 # EPICS BASE is distributed subject to a Software License Agreement found
 # in file LICENSE that is included with this distribution.
@@ -11,14 +11,33 @@ eval 'exec perl -S -w  $0 ${1+"$@"}'  # -*- Mode: perl -*-
 
 # Determines an absolute pathname for its argument,
 # which may be either a relative or absolute path and
-# might have trailing parts that don't exist yet.
+# might have trailing directory names that don't exist yet.
+# The -e option escapes any back-slashes by doubling them.
 
 use strict;
 
 use FindBin qw($Bin);
 use lib "$Bin/../../lib/perl";
 
+use Getopt::Std;
 use EPICS::Path;
 
-print AbsPath(shift), "\n";
+our ($opt_e);
 
+$Getopt::Std::OUTPUT_HELP_VERSION = 1;
+getopts('e') or &HELP_MESSAGE;
+&HELP_MESSAGE unless @ARGV == 1;
+
+my $path = AbsPath(shift);
+
+$path =~ s/\\/\\\\/gx if $opt_e;
+
+print "$path\n";
+
+
+sub HELP_MESSAGE {
+    print STDERR <<EOF;
+Usage: fullPathName.pl [-e] filepath
+EOF
+    exit 2;
+}