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 | tr ';' '\n' | 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

    33

/\./ {

    34

	for (local in locals) {

    35

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

    36

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

    37

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

    38

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

    39

			sub(local, locals[local], fname)

    40

			print fname

    41

			if (match(locals[local], "List")) {

    42

				sub(locals[local], "AIAbstractList", fname)

    43

				print fname

    44

			}

    45

		}

    46

	}

    47

	# We want to remove everything before the FIRST occurence of AI.

    48

	# If we do not remove any other occurences of AI from the string

    49

	# we will remove everything before the LAST occurence of AI, so

    50

	# do some little magic to make it work the way we want.

    51

	sub("AI", "AXXXXY")

    52

	gsub("AI", "AXXXXX")

    53

	sub(".*AXXXXY", "AI")

    54

	if (match($0, "^AI") && match($0, ".")) {

    55

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

    56

		sub("\\.", "::", $0)

    57

		print $0

    58

	}

    59

}

    60

' | sed 's/	//g' | sort | uniq > tmp.in_regression

    61

    63

    64

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

    65

    66

rm -f tmp.in_regression tmp.in_api

    67