extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-15 20:24:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixup of compiler wrapper

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5478 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-10 02:05:44 +00:00
parent a1c9d60d78
commit 7e0f3c4508
1 changed files with 4 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
New/compiler
View File

@ -68,13 +68,9 @@ startup_error()
#
# Start trace if first arg is "debug"
#
[ $# -gt 1 ] && [ "$1" = "debug" ] && { set -x ; shift ; }
debug=
NOLOCK=
[ $# -gt 1 ] && [ "$1" = "nolock" ] && { NOLOCK=Yes; shift ; }
trap "exit 2" 1 2 3 4 5 6 9
[ $# -gt 1 ] && [ "$1" = "-D8" ] && { debug="-d" ; shift ; }
SHAREDIR=/usr/share/shorewall
VARDIR=/var/lib/shorewall
@ -102,24 +98,13 @@ case "$COMMAND" in
check)
[ $# -ne 1 ] && usage
do_initialize
exec perl /usr/share/shorewall/compiler.perl $1
exec perl $debug /usr/share/shorewall/compiler.pl $1
;;
compile)
[ $# -ne 2 ] && usage
do_initialize
exec perl /usr/share/shorewall/compiler.perl $1
exec perl $debug /usr/share/shorewall/compiler.pl $1
;;
call)
#
# Undocumented way to call functions in ${SHAREDIR}/compiler directly
#
shift
do_initialize
EMPTY=
$@
;;
*)
usage
;;