Files
@ r19437:273b94619371
Branch filter:
Location: cpp/openttd-patchpack/source/src/script/api/squirrel_export.sh
r19437:273b94619371
4.6 KiB
application/x-sh
(svn r24354) -Fix: When airport construction was denied due to noise, the error message named the wrong town.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 | #!/bin/bash
# $Id$
# This file is part of OpenTTD.
# OpenTTD is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2.
# OpenTTD 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 General Public License for more details. You should have received a copy of the GNU General Public License along with OpenTTD. If not, see <http://www.gnu.org/licenses/>.
# Set neutral locale so sort behaves the same everywhere
LC_ALL=C
export LC_ALL
# We really need gawk for this!
AWK=gawk
${AWK} --version > /dev/null 2> /dev/null
if [ "$?" != "0" ]; then
echo "This script needs gawk to run properly"
exit 1
fi
# This must be called from within a src/???/api directory.
scriptdir=`dirname $0`
apilc=`pwd | sed "s@/api@@;s@.*/@@"`
# Check if we are in the root directory of the API, as then we generate all APIs
if [ "$apilc" = "script" ]; then
for api in `find -type d | cut -b3- | grep -v '\.svn\|/'`; do
if [ -z "$api" ]; then continue; fi
echo "Generating for API '$api' ..."
cd $api
sh $scriptdir/../`basename $0`
cd ..
done
exit 0
fi
case $apilc in
template) apiuc="Template" ;;
ai) apiuc="AI" ;;
game) apiuc="GS" ;;
*) echo "Unknown API type."; exit 1 ;;
esac
if [ -z "$1" ]; then
for f in `ls ../*.hpp`; do
bf=`basename ${f} | sed s@script_@${apilc}_@`
# ScriptController has custom code, and should not be generated
if [ "`basename ${f}`" = "script_controller.hpp" ]; then continue; fi
if [ "`basename ${f}`" = "script_object.hpp" ]; then continue; fi
${AWK} -v api=${apiuc} -f ${scriptdir}/squirrel_export.awk ${f} > ${bf}.tmp
if [ "`wc -l ${bf}.tmp | cut -d\ -f1`" = "0" ]; then
if [ -f "${bf}.sq" ]; then
echo "Deleted: ${bf}.sq"
svn del --force ${bf}.sq > /dev/null 2>&1
fi
rm -f ${bf}.tmp
elif ! [ -f "${bf}.sq" ] || [ -n "`diff -I '$Id' ${bf}.tmp ${bf}.sq 2> /dev/null || echo boo`" ]; then
mv ${bf}.tmp ${bf}.sq
echo "Updated: ${bf}.sq"
svn add ${bf}.sq > /dev/null 2>&1
svn propset svn:eol-style native ${bf}.sq > /dev/null 2>&1
svn propset svn:keywords Id ${bf}.sq > /dev/null 2>&1
else
rm -f ${bf}.tmp
fi
done
else
${AWK} -v api=${apiuc} -f ${scriptdir}/squirrel_export.awk $1 > $1.tmp
if [ `wc -l $1.tmp | cut -d\ -f1` -eq "0" ]; then
if [ -f "$1.sq" ]; then
echo "Deleted: $1.sq"
svn del --force $1.sq > /dev/null 2>&1
fi
rm -f $1.tmp
elif ! [ -f "${f}.sq" ] || [ -n "`diff -I '$Id' $1.sq $1.tmp 2> /dev/null || echo boo`" ]; then
mv $1.tmp $1.sq
echo "Updated: $1.sq"
svn add $1.sq > /dev/null 2>&1
svn propset svn:eol-style native $1.sq > /dev/null 2>&1
svn propset svn:keywords Id $1.sq > /dev/null 2>&1
else
rm -f $1.tmp
fi
fi
# Remove .hpp.sq if .hpp doesn't exist anymore
for f in `ls *.hpp.sq`; do
f=`echo ${f} | sed "s/.hpp.sq$/.hpp/;s@${apilc}_@script_@"`
if [ ! -f ../${f} ];then
echo "Deleted: ${f}.sq"
svn del --force ${f}.sq > /dev/null 2>&1
fi
done
if [ "$apilc" = "template" ]; then exit 0; fi
# Add stuff to ${apilc}_instance.cpp
f="../../../${apilc}/${apilc}_instance.cpp"
functions=``
echo "
{ }
/.hpp.sq/ { if (match(\$0, \"template\")) print \$0; next }
/SQ${apiuc}Controller_Register/ { print \$0; next }
/SQ${apiuc}.*_Register/ { next }
/Note: this line is a marker in squirrel_export.sh. Do not change!/ {
print \$0
gsub(\"^.*/\", \"\")
split(\"`grep '^void SQ'${apiuc}'.*_Register(Squirrel \*engine)$' *.hpp.sq | sed 's/:.*$//' | sort | uniq | tr -d '\r' | tr '\n' ' '`\", files, \" \")
for (i = 1; files[i] != \"\"; i++) {
print \"#include \\\"../script/api/${apilc}/\" files[i] \"\\\"\" \$0
}
next;
}
/\/\* Register all classes \*\// {
print \$0
gsub(\"^.*/\", \"\")
# List needs to be registered with squirrel before all List subclasses.
print \" SQ${apiuc}List_Register(this->engine);\" \$0
split(\"`grep '^void SQ'${apiuc}'.*_Register(Squirrel \*engine)$' *.hpp.sq | grep -v 'SQ'${apiuc}'List_Register' | sed 's/^.*void //;s/Squirrel \*/this->/;s/$/;/;s/_Register/0000Register/g;' | sort | sed 's/0000Register/_Register/g' | tr -d '\r' | tr '\n' ' '`\", regs, \" \")
for (i = 1; regs[i] != \"\"; i++) {
if (regs[i] == \"SQ${apiuc}Controller_Register(this->engine);\") continue
print \" \" regs[i] \$0
}
next
}
{ print \$0; }
" > ${f}.awk
${AWK} -f ${f}.awk ${f} > ${f}.tmp
if ! [ -f "${f}" ] || [ -n "`diff -I '$Id' ${f} ${f}.tmp 2> /dev/null || echo boo`" ]; then
mv ${f}.tmp ${f}
echo "Updated: ${f}"
else
rm -f ${f}.tmp
fi
rm -f ${f}.awk
|