1

#

     2

# Awk script to automatically generate the code needed

     3

# to export the AI API to Squirrel.

     4

#

     5

# Note that arrays are 1 based...

     6

#

     7

     8

# Simple insertion sort.

     9

function array_sort(ARRAY, ELEMENTS, temp, i, j) {

    10

	for (i = 2; i <= ELEMENTS; i++)

    11

		for (j = i; ARRAY[j - 1] > ARRAY[j]; --j) {

    12

			temp = ARRAY[j]

    13

			ARRAY[j] = ARRAY[j - 1]

    14

			ARRAY[j - 1] = temp

    15

	}

    16

	return

    17

}

    18

    19

BEGIN {

    20

	enum_size = 0

    22

	struct_size = 0

    23

	method_size = 0

    25

	cls = ""

    26

	start_squirrel_define_on_next_line = "false"

    27

	cls_level = 0

    28

}

    29

    30

# Remove the old squirrel stuff

    31

/#ifdef DEFINE_SQUIRREL_CLASS/ { squirrel_stuff = "true";  next; }

    32

/^#endif \/\* DEFINE_SQUIRREL_CLASS \*\// { if (squirrel_stuff == "true") { squirrel_stuff = "false"; next; } }

    33

{ if (squirrel_stuff == "true") next; }

    34

    35

{ print $0; }

    36

    37

# We only want to have public functions exported for now

    38

/^(	*)class/     { if (cls_level == 0) { public = "false"; cls = $2;} cls_level++; next; }

    39

/^(	*)public/    { if (cls_level == 1) public = "true";  next; }

    40

/^(	*)protected/ { if (cls_level == 1) public = "false"; next; }

    41

/^(	*)private/   { if (cls_level == 1) public = "false"; next; }

    42

    43

# Ignore the comments

    44

/^#/             { next; }

    45

/\/\*.*\*\//     { comment = "false"; next; }

    46

/\/\*/           { comment = "true";  next; }

    47

/\*\//           { comment = "false"; next; }

    48

{ if (comment == "true") next }

    49

    50

# We need to make specialized conversions for structs

    51

/^(	*)struct/ {

    52

	cls_level++

    53

#	if (public == "false") next;

    54

#	struct_size++

    55

#	structs[struct_size] = cls "::" $2

    56

	next

    57

}

    58

    59

# We need to make specialized conversions for enums

    60

/^(	*)enum/ {

    61

	cls_level++

    62

	if (public == "false") next;

    63

	in_enum = "true"

    64

	enum_size++

    65

	enums[enum_size] = cls "::" $2

    66

	next

    67

}

    68

    69

# Maybe the end of the class, if so we can start with the Squirrel export pretty soon

    70

/};/ {

    71

	cls_level--

    72

	if (cls_level != 0) {

    73

		in_enum = "false";

    74

		next;

    75

	}

    76

	if (cls == "") {

    77

		next;

    78

	}

    79

	start_squirrel_define_on_next_line = "true"

    80

	next;

    81

}

    82

    83

# Empty/white lines. When we may do the Squirrel export, do that export.

    84

/^([ 	]*)$/ {

    85

	if (start_squirrel_define_on_next_line == "false") next

    86

	spaces = "                                                               ";

    87

	public = "false"

    88

	print "#ifdef DEFINE_SQUIRREL_CLASS"

    89

	namespace_opened = "false"

    90

    91

	# First check whether we have enums to print

    92

	if (enum_size != 0) {

    93

		if (namespace_opened == "false") {

    94

			print "namespace SQConvert {"

    95

			namespace_opened = "true"

    96

		}

    97

		print "	/* Allow enums to be used as Squirrel parameters */"

    98

		for (i = 1; i <= enum_size; i++) {

    99

			print "	template <> " enums[i] " GetParam(ForceType<" enums[i] ">, HSQUIRRELVM vm, int index) { SQInteger tmp; sq_getinteger(vm, index, &tmp); return (" enums[i] ")tmp; }"

   100

			print "	template <> int Return<" enums[i] ">(HSQUIRRELVM vm, " enums[i] " res) { sq_pushinteger(vm, (int32)res); return 1; }"

   101

			delete enums[i]

   102

		}

   103

	}

   104

   105

	if (namespace_opened == "false") {

   106

		print "namespace SQConvert {"

   107

		namespace_opened = "true"

   108

	} else {

   109

		print ""

   110

	}

   111

	print "	/* Allow " cls " to be used as Squirrel parameter */"

   112

	print "	template <> " cls " *GetParam(ForceType<" cls " *>, HSQUIRRELVM vm, int index) { SQUserPointer instance; sq_getinstanceup(vm, index, &instance, 0); return (" cls " *)instance; }"

   113

	# TODO returning...

   114

   115

	print "}; // namespace SQConvert"

   116

	print "";

   117

   118

	# Then do the registration functions of the class. */

   119

	print "void SQ" cls "Register(Squirrel *engine) {"

   120

	print "	DefSQClass <" cls "> SQ" cls "(\"" cls "\");"

   121

	print "	SQ" cls ".PreRegister(engine);"

   122

	print "	SQ" cls ".AddConstructor(engine);"

   123

	print ""

   126

	mlen = 0

   127

	for (i = 1; i <= enum_value_size; i++) {

   129

	}

   130

	for (i = 1; i <= enum_value_size; i++) {

   132

		delete enum_value[i]

   133

	}

   134

	if (enum_value_size != 0) print ""

   135

   146

   149

	for (i = 1; i <= method_size; i++) {

   154

		delete methods[i]

   155

	}

   158

	print "	SQ" cls ".PostRegister(engine);"

   159

	print "}"

   160

   161

	print "#endif /* DEFINE_SQUIRREL_CLASS */"

   162

   168

	cls = ""

   169

	start_squirrel_define_on_next_line = "false"

   171

}

   172

   173

# Skip non-public functions

   174

{ if (public == "false") next }

   175

   176

# Add enums

   177

{

   178

	if (in_enum == "true") {

   179

		enum_value_size++

   180

		enum_value[enum_value_size] = $1

   181

		next

   182

	}

   183

}

   184

   185

# Add a method to the list

   186

/^.*$/ {

   187

	if (cls_level != 1) next

   190

	gsub("virtual", "", $0)

   191

	gsub("static", "", $0)

   193

	gsub("\*", "", $0)

   194

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

   195

	if ($2 == "") next

   203

	next

   204

}