diff options
Diffstat (limited to 'soltools/testhxx/create.pl')
| -rw-r--r-- | soltools/testhxx/create.pl | 125 |
1 files changed, 0 insertions, 125 deletions
diff --git a/soltools/testhxx/create.pl b/soltools/testhxx/create.pl deleted file mode 100644 index 4360f0d3e..000000000 --- a/soltools/testhxx/create.pl +++ /dev/null @@ -1,125 +0,0 @@ -#************************************************************************* -# -# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -# -# Copyright 2000, 2010 Oracle and/or its affiliates. -# -# OpenOffice.org - a multi-platform office productivity suite -# -# This file is part of OpenOffice.org. -# -# OpenOffice.org is free software: you can redistribute it and/or modify -# it under the terms of the GNU Lesser General Public License version 3 -# only, as published by the Free Software Foundation. -# -# OpenOffice.org is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU Lesser General Public License version 3 for more details -# (a copy is included in the LICENSE file that accompanied this code). -# -# You should have received a copy of the GNU Lesser General Public License -# version 3 along with OpenOffice.org. If not, see -# <http://www.openoffice.org/license.html> -# for a copy of the LGPLv3 License. -# -#************************************************************************* - -$solarversion = $ENV{SOLARVERSION}; -$solarversion =~ s![^0-9A-Za-z]!\\$&!g; -$in = <> || die 'no input'; -chomp $in; -if ($ENV{OS} eq 'LINUX') { - 1 while $in =~ s!\s+-I\s*[^/]\S*\s*! !g; # discard relative includes - $in =~ s!(\s+-I\s*)$solarversion(\S*)!$1\${SOLARVERSION}$2!og; - # macrofy includes to solver - $in =~ s!\s+-o\s*\S+! -o /dev/null! || die 'bad input: no -o'; - $in =~ s!\S+/testhxx.cxx!-x c++ /proc/self/fd/0! - || die 'bad input: no source file'; - print STDOUT '#!/bin/bash', "\n"; - print STDOUT $in, - ' <<<"#include \\"`echo $(if [ ${1%/*} != $1 ];then cd ${1%/*};fi;', - '/bin/pwd)/${1##*/}`\\""', "\n"; -} elsif ($ENV{OS} eq 'SOLARIS') { - 1 while $in =~ s!\s+-I\s*[^/]\S*\s*! !g; # discard relative includes - $in =~ s!(\s+-I\s*)$solarversion(\S*)!$1\${SOLARVERSION}$2!og; - # macrofy includes to solver - $in =~ s!\s+-o\s*\S+! -o /dev/null! || die 'bad input: no -o'; - $in =~ s!\S+/testhxx.cxx!\${my_tmp}! - || die 'bad input: no source file'; - print STDOUT '#!/bin/sh', "\n"; - print STDOUT - 'my_tmp=${TMPDIR:-/tmp}/`/usr/xpg4/bin/id -u`_$$_include.cc', "\n"; - print STDOUT 'my_pat=`dirname $1`', "\n"; - print STDOUT 'my_fil=`basename $1`', "\n"; - print STDOUT 'my_org=${PWD}', "\n"; - print STDOUT 'cd $my_pat || exit 1', "\n"; - print STDOUT 'my_pat=`pwd`', "\n"; - print STDOUT 'cd $my_org || exit 1', "\n"; - print STDOUT - 'echo "#include \\"${my_pat}/${my_fil}\\"" > ${my_tmp} || exit 1', "\n"; - print STDOUT $in, ' > ${my_tmp}.out 2>&1', "\n"; - print STDOUT 'my_ret=$?', "\n"; - print STDOUT - 'if [ ${my_ret} -ne 0 ] ; then echo $1 >&2 ; cat ${my_tmp}.out >&2 ;', - ' fi', "\n"; - print STDOUT 'unlink ${my_tmp} || exit 1', "\n"; - print STDOUT 'unlink ${my_tmp}.out || exit 1', "\n"; - print STDOUT 'exit ${my_ret}', "\n"; -} elsif ($ENV{OS} eq 'WNT') { - if ($ENV{COM} eq 'GCC') { - 1 while $in =~ s!\s+-I\s*\.\S*\s*! !g; # discard relative includes - $in =~ s!(\s+-I\s*)(?i:$solarversion)(\S*)!$1\${SOLARVERSION}$2!og; - # macrofy includes to solver - $in =~ s!\s+-o\s*\S+! -o /dev/null! || die 'bad input: no -o'; - $in =~ s!\S+/testhxx.cxx!\${my_tmp}! - || die 'bad input: no source file'; - print STDOUT '#!/bin/sh', "\n"; - print STDOUT - 'my_tmp=${TMPDIR:-/tmp}/`id -u`_$$_include.cc', "\n"; - print STDOUT 'my_pat=`dirname $1`', "\n"; - print STDOUT 'my_fil=`basename $1`', "\n"; - print STDOUT 'my_org=${PWD}', "\n"; - print STDOUT 'cd $my_pat || exit 1', "\n"; - print STDOUT 'my_pat=`cygpath -m \`pwd\``', "\n"; - print STDOUT 'cd $my_org || exit 1', "\n"; - print STDOUT - 'echo "#include \\"${my_pat}/${my_fil}\\"" > ${my_tmp} || exit 1', "\n"; - print STDOUT $in, ' > ${my_tmp}.out 2>&1', "\n"; - print STDOUT 'my_ret=$?', "\n"; - print STDOUT - 'if [ ${my_ret} -ne 0 ] ; then echo $1 >&2 ; cat ${my_tmp}.out >&2 ;', - ' fi', "\n"; - print STDOUT 'unlink ${my_tmp} || exit 1', "\n"; - print STDOUT 'unlink ${my_tmp}.out || exit 1', "\n"; - print STDOUT 'exit ${my_ret}', "\n"; - } else { - 1 while $in =~ s!\s+-I\s*\.\S*\s*! !g; # discard relative includes - $in =~ s!(\s+-I\s*)(?i:$solarversion)(\S*)!$1\${SOLARVERSION}$2!og; - # macrofy includes to solver - $in =~ s!\s+-Fo\s*\S+! -Fo$[my_tmp}obj! || die 'bad input: no -Fo'; - $in =~ s!\s+-Zi\s! !; - $in =~ s!\s+-Fd\s*\S+!!; - print STDOUT '#!/bin/sh', "\n"; - print STDOUT - 'my_tmp=${TMPDIR:-/tmp}/`id -u`_$$_include.cc', "\n"; - print STDOUT 'my_pat=`dirname $1`', "\n"; - print STDOUT 'my_fil=`basename $1`', "\n"; - print STDOUT 'my_org=${PWD}', "\n"; - print STDOUT 'cd $my_pat || exit 1', "\n"; - print STDOUT 'my_pat=`pwd`', "\n"; - print STDOUT 'cd $my_org || exit 1', "\n"; - print STDOUT - 'echo "#include \\"${my_pat}/${my_fil}\\"" > ${my_tmp} || exit 1', "\n"; - print STDOUT $in, ' > ${my_tmp}.out 2>&1', "\n"; - print STDOUT 'my_ret=$?', "\n"; - print STDOUT - 'if [ ${my_ret} -ne 0 ] ; then echo $1 >&2 ; cat ${my_tmp}.out >&2 ;', - ' fi', "\n"; - print STDOUT 'unlink ${my_tmp} || exit 1', "\n"; - print STDOUT 'unlink ${my_tmp}.out || exit 1', "\n"; - print STDOUT 'exit ${my_ret}', "\n"; - } -} else { - print STDOUT 'echo \'no testhxx on this platform\'', "\n"; -} |