1

#!/bin/sh

     2

     3

if ! [ -f ai/regression/regression.nut ]; then

     4

	echo "Make sure you are in the root of OpenTTD before starting this script."

     5

	exit 1

     6

fi

     7

     8

cat ai/regression/regression.nut | awk '

     9

/^function/ {

    10

	for (local in locals) {

    11

		delete locals[local]

    12

	}

    13

	if (match($0, "function Regression::Start") || match($0, "function Regression::Stop")) next

    14

	locals["this"] = "AIControllerSquirrel"

    15

}

    16

    17

/local/ {

    18

	gsub(".*local", "local")

    19

	if (match($4, "^AI")) {

    20

		sub("\\(.*", "", $4)

    21

		locals[$2] = $4

    22

	}

    23

}

    24

    25

/\./ {

    26

	for (local in locals) {

    27

		if (match($0, local ".")) {

    28

			fname = substr($0, index($0, local "."))

    29

			sub("\\(.*", "", fname)

    30

			sub("\\.", "::", fname)

    31

			sub(local, locals[local], fname)

    32

			print fname

    33

		}

    34

	}

    35

}

    36

' | sort | uniq > tmp.in_regression

    37

    38

grep 'DefSQ.*Method' ../src/ai/api/*.hpp.sq | grep -v '::GetClassName' | sed 's/^[^,]*, &//g;s/,[^,]*//g' | sort > tmp.in_api

    39

    40

diff -u tmp.in_regression tmp.in_api | grep -v '^+++' | grep '^+' | sed 's/^+//'

    41

    42

rm -f tmp.in_regression tmp.in_api

    43