Option Explicit

' $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/>.

Dim FSO

Dim enum_size, enums, enum_value_size, enum_value

Dim enum_string_to_error_size, enum_string_to_error_mapping_string, enum_string_to_error_mapping_error

Dim enum_error_to_string_size, enum_error_to_string_mapping, const_size, const_value

Dim struct_size, structs, method_size, methods, static_method_size, static_methods

Dim super_cls, cls, api_selected, cls_in_api, start_squirrel_define_on_next_line, has_fileheader, cls_level

Dim apis, filename, doxygen_skip, squirrel_stuff, is_public, cls_param(2), comment, in_enum

Set FSO = CreateObject("Scripting.FileSystemObject")

Function CompareFiles(filename1, filename2)

	Dim file, lines1, lines2

	If Not FSO.FileExists(filename1) Then

		CompareFiles = False

		Exit Function

	End If

	Set file = FSO.OpenTextFile(filename1, 1)

	If Not file.AtEndOfStream Then

		lines1 = file.ReadAll

	End IF

	file.Close

	If Not FSO.FileExists(filename2) Then

		CompareFiles = False

		Exit Function

	End If

	Set file = FSO.OpenTextFile(filename2, 1)

	If Not file.AtEndOfStream Then

		lines2 = file.ReadAll

	End IF

	file.Close

	CompareFiles = (lines1 = lines2)

End Function

Function IsEmptyFile(filename)

	Dim file

	Set file = FSO.OpenTextFile(filename, 1)

	IsEmptyFile = file.AtEndOfStream

	file.Close

End Function

Function DumpClassTemplates(name, file)

	Dim re, realname

	Set re = New RegExp

	re.Pattern = "^Script"

	realname = re.Replace(name, "")

	file.WriteLine "	template <> inline "       & name & " *GetParam(ForceType<"       & name & " *>, HSQUIRRELVM vm, int index, SQAutoFreePointers *ptr) { SQUserPointer instance; sq_getinstanceup(vm, index, &instance, 0); return  (" & name & " *)instance; }"

	file.WriteLine "	template <> inline "       & name & " &GetParam(ForceType<"       & name & " &>, HSQUIRRELVM vm, int index, SQAutoFreePointers *ptr) { SQUserPointer instance; sq_getinstanceup(vm, index, &instance, 0); return *(" & name & " *)instance; }"

	file.WriteLine "	template <> inline const " & name & " *GetParam(ForceType<const " & name & " *>, HSQUIRRELVM vm, int index, SQAutoFreePointers *ptr) { SQUserPointer instance; sq_getinstanceup(vm, index, &instance, 0); return  (" & name & " *)instance; }"

	file.WriteLine "	template <> inline const " & name & " &GetParam(ForceType<const " & name & " &>, HSQUIRRELVM vm, int index, SQAutoFreePointers *ptr) { SQUserPointer instance; sq_getinstanceup(vm, index, &instance, 0); return *(" & name & " *)instance; }"

	If name = "ScriptEvent" Then

		file.WriteLine "	template <> inline int Return<" & name & " *>(HSQUIRRELVM vm, " & name & " *res) { if (res == NULL) { sq_pushnull(vm); return 1; } Squirrel::CreateClassInstanceVM(vm, " & Chr(34) & realname & Chr(34) & ", res, NULL, DefSQDestructorCallback<" & name & ">, true); return 1; }"

	ElseIf name = "ScriptText" Then

		file.WriteLine ""

		file.WriteLine "	template <> inline Text *GetParam(ForceType<Text *>, HSQUIRRELVM vm, int index, SQAutoFreePointers *ptr) {"

		file.WriteLine "		if (sq_gettype(vm, index) == OT_INSTANCE) {"

		file.WriteLine "			return GetParam(ForceType<ScriptText *>(), vm, index, ptr);"

		file.WriteLine "		}"

		file.WriteLine "		if (sq_gettype(vm, index) == OT_STRING) {"

		file.WriteLine "			return new RawText(GetParam(ForceType<const char *>(), vm, index, ptr));"

		file.WriteLine "		}"

		file.WriteLine "		return NULL;"

		file.WriteLine "	}"

	Else

		file.WriteLine "	template <> inline int Return<" & name & " *>(HSQUIRRELVM vm, " & name & " *res) { if (res == NULL) { sq_pushnull(vm); return 1; } res->AddRef(); Squirrel::CreateClassInstanceVM(vm, " & Chr(34) & realname & Chr(34) & ", res, NULL, DefSQDestructorCallback<" & name & ">, true); return 1; }"

	End If

End Function

Function DumpFileheader(api, file)

	Dim re

	Set re = New RegExp

	' Break the Id tag, so SVN doesn't replace it

	file.WriteLine "/* $I" & "d$ */"

	file.WriteLine ""

	file.WriteLine "/*"

	file.WriteLine " * This file is part of OpenTTD."

	file.WriteLine " * 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."

	file.WriteLine " * 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."

	file.WriteLine " * 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/>."

	file.WriteLine " */"

	file.WriteLine ""

	file.WriteLine "/* THIS FILE IS AUTO-GENERATED; PLEASE DO NOT ALTER MANUALLY */"

	file.WriteLine ""

	file.WriteLine "#include " & Chr(34) & "../" & filename & Chr(34)

	If api <> "Template" Then

		re.Pattern = "script_"

		filename = re.Replace(filename, "template_")

		file.WriteLine "#include " & Chr(34) & "../template/" & filename & ".sq" & Chr(34)

	End If

End Function

Function ResetReader()

	enum_size = 0

	enums.RemoveAll

	enum_value_size = 0

	enum_value.RemoveAll

	enum_string_to_error_size = 0

	enum_string_to_error_mapping_string.RemoveAll

	enum_string_to_error_mapping_error.RemoveAll

	enum_error_to_string_size = 0

	enum_error_to_string_mapping.RemoveAll

	const_size = 0

	const_value.RemoveAll

	struct_size = 0

	structs.RemoveAll

	method_size = 0

	methods.RemoveAll

	static_method_size = 0

	static_methods.RemoveAll

	cls = ""

	start_squirrel_define_on_next_line = False

	cls_level = 0

	cls_in_api = ""

End Function

Sub SquirrelExportParse(api, line, file)

	Dim re

	Set re = New RegExp

	re.Pattern = "@file"

	If re.Test(line) Then

		filename = Split(line)(2)

		re.Pattern = "^" & apis & "_"

		filename = re.Replace(filename, "script_")

	End If

	' Ignore special doxygen blocks

	re.Pattern = "^#ifndef DOXYGEN_API"

	If re.Test(line) Then

		doxygen_skip = "next"

		Exit Sub

	End If

	re.Pattern = "^#ifdef DOXYGEN_API"

	If re.Test(line) Then

		doxygen_skip = "true"

		Exit Sub

	End If

	re.Pattern = "^#endif /\* DOXYGEN_API \*/"

	If re.Test(line) Then

		doxygen_skip = "false"

		Exit Sub

	End If

	re.Pattern = "^#else"

	If re.Test(line) Then

		If doxygen_skip = "next" Then

			doxygen_skip = "true"

		Else

			doxygen_skip = "false"

		End If

		Exit Sub

	End If

	If doxygen_skip = "true" Then Exit Sub

	re.Pattern = "^([	 ]*)\* @api"

	If re.Test(line) Then

		' By default, classes are not selected

		If cls_level = 0 Then api_selected = "false"

		re.Pattern = "^([	 ]*)"

		line = re.Replace(line, "")

		re.Pattern = "\* @api "

		line = re.Replace(line, "")

		If api = "Template" Then

			api_selected = "true"

			If line = "none" Or line = "-all" Then api_selected = "false"

			Exit Sub

		End If

		If line = "none" Then

			api_selected = "false"

		ElseIf line = "-all" Then

			api_selected = "false"

		Else

			re.Pattern = "-" & apis

			If re.Test(line) Then

				api_selected = "false"

			Else

				re.Pattern = apis

				If re.Test(line) Then

					api_selected = "true"

				End If

			End If

		End If

		Exit Sub

	End If

	' Remove the old squirrel stuff

	re.Pattern = "#ifdef DEFINE_SQUIRREL_CLASS"

	If re.Test(line) Then

		squirrel_stuff = True

		Exit Sub

	End If

	re.Pattern = "^#endif /\* DEFINE_SQUIRREL_CLASS \*/"

	If re.Test(line) Then

		If squirrel_stuff Then squirrel_stuff = False

		Exit Sub

	End If

	If squirrel_stuff Then Exit Sub

	' Ignore forward declarations of classes

	re.Pattern = "^(	*)class(.*);"

	If re.Test(line) Then Exit Sub

	' We only want to have public functions exported for now

	re.Pattern = "^(	*)class"

	If re.Test(line) Then

		line = Split(line)

		If cls_level = 0 Then

			If api_selected = "" Then

				WScript.Echo "Class '" & line(1) & "' has no @api. It won't be published to any API."

				api_selected = "false"

			End If

			is_public = False

			cls_param(0) = ""

			cls_param(1) = 1

			cls_param(2) = "x"

			cls_in_api = api_selected

			api_selected = ""

			cls = line(1)

			re.Pattern = "public|protected|private"

			If UBound(line) > 2 Then

				If re.Test(line(3)) Then

					super_cls = line(4)

				Else

					super_cls = line(3)

				End If

			End If

		ElseIf cls_level = 1 Then

			If api_selected = "" Then api_selected = cls_in_api

			If api_selected = "true" Then

				struct_size = struct_size + 1

				structs.Item(struct_size) = cls & "::" & line(1)

			End If

			api_selected = ""

		End If

		cls_level = cls_level + 1

		Exit Sub

	End If

	re.Pattern = "^(	*)public"

	If re.Test(line) Then

		If cls_level = 1 Then is_public = True

		Exit Sub

	End If

	re.Pattern = "^(	*)protected"

	If re.Test(line) Then

		If cls_level = 1 Then is_public = False

		Exit Sub

	End If

	re.Pattern = "^(	*)private"

	If re.Test(line) Then

		If cls_level = 1 Then is_public = False

		Exit Sub

	End If

	' Ignore the comments

	re.Pattern = "^#"

	If re.Test(line) Then Exit Sub

	re.Pattern = "/\*.*\*/"

	If re.Test(line) Then

		comment = False

		Exit Sub

	End If

	re.Pattern = "/\*"

	If re.Test(line) Then

		comment = True

		Exit Sub

	End If

	re.Pattern = "\*/"

	If re.Test(line) Then

		comment = False

		Exit Sub

	End If

	If comment Then Exit Sub

	' We need to make specialized conversions for structs

	re.Pattern = "^(	*)struct"

	If re.Test(line) Then

		cls_level = cls_level + 1

		' Check if we want to publish this struct

		If api_selected = "" Then api_selected = cls_in_api

		If api_selected = "false" Then

			api_selected = ""

			Exit Sub

		End If

		api_selected = ""

		If Not is_public Then Exit Sub

		If cls_level <> 1 Then Exit Sub

		struct_size = struct_size + 1

		structs.Item(struct_size) = cls & "::" & Split(line)(1)

		Exit Sub

	End If

	' We need to make specialized conversions for enums

	re.Pattern = "^(	*)enum"

	If re.Test(line) Then

		cls_level = cls_level + 1

		' Check if we want to publish this enum

		If api_selected = "" Then api_selected = cls_in_api

		If api_selected = "false" Then

			api_selected = ""

			Exit Sub

		End If

		api_selected = ""

		If Not is_public Then Exit Sub

		in_enum = True

		enum_size = enum_size + 1

		enums.Item(enum_size) = cls & "::" & Split(line)(1)

		Exit Sub

	End If

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

	re.Pattern = "};"

	If re.Test(line) Then

		cls_level = cls_level - 1

		If cls_level <> 0 Then

			in_enum = False

			Exit Sub

		End If

		If cls = "" Then Exit Sub

		start_squirrel_define_on_next_line = True

		Exit Sub

	End If

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

	re.Pattern = "^([ 	]*)$"

	If re.Test(line) Then

		Dim namespace_opened, api_cls, api_super_cls, i, mlen, spaces

		If Not start_squirrel_define_on_next_line Then Exit Sub

		If cls_in_api <> "true" Then

			ResetReader

			Exit Sub

		End If

		If Not has_fileheader Then

			DumpFileHeader api, file

			has_fileheader = True

		End If

		is_public = False

		namespace_opened = False

		re.Pattern = "^Script"

		api_cls = re.Replace(cls, api)

		api_super_cls = re.Replace(super_cls, api)

		file.WriteLine ""

		If api = "Template" Then

			' First check whether we have enums to print

			If enum_size <> 0 Then

				If Not namespace_opened Then

					file.WriteLine "namespace SQConvert {"

					namespace_opened = True

				End If

				file.WriteLine "	/* Allow enums to be used as Squirrel parameters */"

				For i = 1 To enum_size

					file.WriteLine "	template <> inline " & enums.Item(i) & " GetParam(ForceType<" & enums.Item(i) & ">, HSQUIRRELVM vm, int index, SQAutoFreePointers *ptr) { SQInteger tmp; sq_getinteger(vm, index, &tmp); return (" & enums.Item(i) & ")tmp; }"

					file.WriteLine "	template <> inline int Return<" & enums.Item(i) & ">(HSQUIRRELVM vm, " & enums.Item(i) & " res) { sq_pushinteger(vm, (int32)res); return 1; }"

				Next

			End If

			' Then check whether we have structs/classes to print

			If struct_size <> 0 Then

				If Not namespace_opened Then

					file.WriteLine "namespace SQConvert {"

					namespace_opened = True

				End If

				file.WriteLine "	/* Allow inner classes/structs to be used as Squirrel parameters */"

				For i = 1 To struct_size

					DumpClassTemplates structs.Item(i), file

				Next

			End If

			If Not namespace_opened Then

				file.WriteLine "namespace SQConvert {"

				namespace_opened = True

			Else

				file.WriteLine ""

			End If

			file.WriteLine "	/* Allow " & cls & " to be used as Squirrel parameter */"

			DumpClassTemplates cls, file

			file.WriteLine "} // namespace SQConvert"

			ResetReader

			Exit Sub

		End If

		file.WriteLine ""

		file.WriteLine "template <> const char *GetClassName<" & cls & ", ST_" & UCase(api) & ">() { return " & Chr(34) & api_cls & Chr(34) & "; }"

		file.WriteLine ""

		' Then do the registration functions of the class.

		file.WriteLine "void SQ" & api_cls & "_Register(Squirrel *engine)"

		file.WriteLine "{"

		file.WriteLine "	DefSQClass<" & cls & ", ST_" & UCase(api) & "> SQ" & api_cls & "(" & Chr(34) & api_cls & Chr(34) & ");"

		If super_cls = "Text" Or super_cls = "ScriptObject" Or super_cls = "AIAbstractiveList::Valuator" Then

			file.WriteLine "	SQ" & api_cls & ".PreRegister(engine);"

		Else

			file.WriteLine "	SQ" & api_cls & ".PreRegister(engine, " & Chr(34) & api_super_cls & Chr(34) & ");"

		End If

		If super_cls <> "ScriptEvent" Then

			If cls_param(2) = "v" Then

				file.WriteLine "	SQ" & api_cls & ".AddSQAdvancedConstructor(engine);"

			Else

				file.WriteLine "	SQ" & api_cls & ".AddConstructor<void (" & cls & "::*)(" & cls_param(0) & "), " & cls_param(1) & ">(engine, " & Chr(34) & cls_param(2) & Chr(34) & ");"

			End If

		End If

		file.WriteLine ""

		' Enum values

		mlen = 0

		For i = 1 To enum_value_size

			If mlen <= Len(enum_value.Item(i)) Then mlen = Len(enum_value.Item(i))

		Next

		For i = 1 To enum_value_size

			file.WriteLine "	SQ" & api_cls & ".DefSQConst(engine, " & cls & "::" & enum_value.Item(i) & ", " & Space(mlen - Len(enum_value.Item(i))) & Chr(34) & enum_value.Item(i) & Chr(34) & ");"

		Next

		If enum_value_size <> 0 Then file.WriteLine ""

		' Const values

		mlen = 0

		For i = 1 To const_size

			If mlen <= Len(const_value.Item(i)) Then mlen = Len(const_value.Item(i))

		Next

		For i = 1 To const_size

			file.WriteLine "	SQ" & api_cls & ".DefSQConst(engine, " & cls & "::" & const_value.Item(i) & ", " & Space(mlen - Len(const_value.Item(i))) & Chr(34) & const_value.Item(i) & Chr(34) & ");"

		Next

		If const_size <> 0 Then file.WriteLine ""

		' Mapping of OTTD strings to errors

		mlen = 0

		For i = 1 To enum_string_to_error_size

			If mlen <= Len(enum_string_to_error_mapping_string.Item(i)) Then mlen = Len(enum_string_to_error_mapping_string.Item(i))

		Next

		For i = 1 To enum_string_to_error_size

			file.WriteLine "	ScriptError::RegisterErrorMap(" & enum_string_to_error_mapping_string.Item(i) & ", " & Space(mlen - Len(enum_string_to_error_mapping_string.Item(i))) & cls & "::" & enum_string_to_error_mapping_error.Item(i) & ");"

		Next

		If enum_string_to_error_size <> 0 Then file.WriteLine ""

		' Mapping of errors to human 'readable' strings.

		mlen = 0

		For i = 1 To enum_error_to_string_size

			If mlen <= Len(enum_error_to_string_mapping.Item(i)) Then mlen = Len(enum_error_to_string_mapping.Item(i))

		Next

		For i = 1 To enum_error_to_string_size

			file.WriteLine "	ScriptError::RegisterErrorMapString(" & cls & "::" & enum_error_to_string_mapping.Item(i) & ", " & Space(mlen - Len(enum_error_to_string_mapping.Item(i))) & Chr(34) & enum_error_to_string_mapping.Item(i) & Chr(34) & ");"

		Next

		If enum_error_to_string_size <> 0 Then file.WriteLine ""

		' Static methods

		mlen = 0

		For i = 1 To static_method_size

			If mlen <= Len(static_methods.Item(i)(0)) Then mlen = Len(static_methods.Item(i)(0))

		Next

		For i = 1 To static_method_size

			If static_methods.Item(i)(2) = "v" Then

				spaces = mlen - Len(static_methods.Item(i)(0)) - 8

				If spaces < 0 Then spaces = 0

				file.WriteLine "	SQ" & api_cls & ".DefSQAdvancedStaticMethod(engine, &" & cls & "::" & static_methods.Item(i)(0) & ", " & Space(spaces) & Chr(34) & static_methods.Item(i)(0) & Chr(34) & ");"

			Else

				file.WriteLine "	SQ" & api_cls & ".DefSQStaticMethod(engine, &" & cls & "::" & static_methods.Item(i)(0) & ", " & Space(mlen - Len(static_methods.Item(i)(0))) & Chr(34) & static_methods.Item(i)(0) & Chr(34) & ", " & Space(mlen - Len(static_methods.Item(i)(0))) & static_methods.Item(i)(1) & ", " & Chr(34) & static_methods.Item(i)(2) & Chr(34) & ");"

			End If

		Next

		If static_method_size <> 0 Then file.WriteLine ""

		' Non-static methods

		mlen = 0

		For i = 1 To method_size

			If mlen <= Len(methods.Item(i)(0)) Then mlen = Len(methods.Item(i)(0))

		Next

		For i = 1 To method_size

			If methods.Item(i)(2) = "v" Then

				spaces = mlen - Len(methods.Item(i)(0)) - 8

				If spaces < 0 Then spaces = 0

				file.WriteLine "	SQ" & api_cls & ".DefSQAdvancedMethod(engine, &" & cls & "::" & methods.Item(i)(0) & ", " & Space(spaces) & Chr(34) & methods.Item(i)(0) & Chr(34) & ");"

			Else

				file.WriteLine "	SQ" & api_cls & ".DefSQMethod(engine, &" & cls & "::" & methods.Item(i)(0) & ", " & Space(mlen - Len(methods.Item(i)(0))) & Chr(34) & methods.Item(i)(0) & Chr(34) & ", " & Space(mlen - Len(methods.Item(i)(0))) & methods.Item(i)(1) & ", " & Chr(34) & methods.Item(i)(2) & Chr(34) & ");"

			End If

		Next

		If method_size <> 0 Then file.WriteLine ""

		file.WriteLine "	SQ" & api_cls & ".PostRegister(engine);"

		file.WriteLine "}"

		ResetReader

		Exit Sub

	End If

	' Skip non-public functions

	If Not is_public Then Exit Sub

	' Add enums

	If in_enum Then

		enum_value_size = enum_value_size + 1

		re.Pattern = "[, 	]"

		re.Global = True

		enum_value.Item(enum_value_size) = re.Replace(split(line)(0), "")

		' Check if this a special error enum

		re.Pattern = ".*::ErrorMessages"

		If re.Test(enums.Item(enum_size)) Then

			' syntax:

			' enum ErrorMessages {

			'	ERR_SOME_ERROR,	// [STR_ITEM1, STR_ITEM2, ...]

			' }

			' Set the mappings

			re.Pattern = "\[.*\]"

			If re.Test(line) Then

				Dim mappings

				mappings = re.Execute(line)(0).Value

				re.Pattern = "[\[ 	\]]"

				mappings = re.Replace(mappings, "")

				mappings = Split(mappings, ",")

				For i = LBound(mappings) To UBound(mappings)

					enum_string_to_error_size = enum_string_to_error_size + 1

					enum_string_to_error_mapping_string.Item(enum_string_to_error_size) = mappings(i)

					enum_string_to_error_mapping_error.Item(enum_string_to_error_size) = enum_value.Item(enum_value_size)

				Next

				enum_error_to_string_size = enum_error_to_string_size + 1

				enum_error_to_string_mapping.Item(enum_error_to_string_size) = enum_value.Item(enum_value_size)

			End If

		End If

		re.Global = False

		Exit Sub

	End If

	' Add a const (non-enum) value

	re.Pattern = "^[ 	]*static const \w+ \w+ = -?\(?\w*\)?\w+;"

	If re.Test(line) Then

		const_size = const_size + 1

		const_value.Item(const_size) = Split(line)(3)

		Exit Sub

	End If

	' Add a method to the list

	re.Pattern = "^.*\(.*\).*$"

	If re.Test(line) Then

		Dim is_static, param_s, func, funcname, params, types

		If cls_level <> 1 Then Exit Sub

		re.Pattern = "~"

		If re.Test(line) Then

			If api_selected <> "" Then

				WScript.Echo "Destructor for '" & cls & "' has @api. Tag ignored."

				api_selected = ""

			End If

			Exit Sub

		End If

		re.Pattern = "static"

		is_static = re.Test(line)

		re.Pattern = "\bvirtual\b"

		line = re.Replace(line, "")

		re.Pattern = "\bstatic\b"

		line = re.Replace(line, "")

		re.Pattern = "\bconst\b"

		line = re.Replace(line, "")

		re.Pattern = "{.*"

		line = re.Replace(line, "")

		param_s = line

		re.Pattern = "\*"

		line = re.Replace(line, "")

		re.Pattern = "\(.*"

		line = re.Replace(line, "")

		re.Pattern = "^[ 	]*"

		line = re.Replace(line, "")

		re.Pattern = ".*\("

		param_s = re.Replace(param_s, "")

		re.Pattern = "\).*"

		param_s = re.Replace(param_s, "")

		func = Split(line)

		If UBound(func) > 0 Then

			funcname = func(1)

		Else

			funcname = ""

		End If

		If func(0) = cls And funcname = "" Then

			If api_selected <> "" Then

				WScript.Echo "Constructor for '" & cls & "' has @api. Tag ignored."

				api_selected = ""

			End If

			cls_param(0) = param_s

			If param_s = "" Then Exit Sub

		ElseIf funcname = "" Then

			Exit Sub

		End If

		params = Split(param_s, ",")

		If is_static Then

			types = "."

		Else

			types = "x"

		End If

		For i = LBound(params) To UBound(params)

			Do ' null loop for logic short-circuit

				re.Pattern = "^[ 	]*"

				params(i) = re.Replace(params(i), "")

				re.Pattern = "\*|&"

				If re.Test(params(i)) Then

					re.Pattern = "^char"

					If re.test(params(i)) Then

						' Many types can be converted to string, so use '.', not 's'. (handled by our glue code)

						types = types & "."

						Exit Do

					End If

					re.Pattern = "^void"

					If re.test(params(i)) Then

						types = types & "p"

						Exit Do

					End If

					re.Pattern = "^Array"

					If re.test(params(i)) Then

						types = types & "a"

						Exit Do

					End If

					re.Pattern = "^struct Array"

					If re.test(params(i)) Then

						types = types & "a"

						Exit Do

					End If

					re.Pattern = "^Text"

					If re.test(params(i)) Then

						types = types & "."

						Exit Do

					End If

					types = types & "x"

					Exit Do

				End If

				re.Pattern = "^bool"

				If re.Test(params(i)) Then

					types = types & "b"

					Exit Do

				End If

				re.Pattern = "^HSQUIRRELVM"

				If re.Test(params(i)) Then

					types = "v"

					Exit Do

				End If

				types = types & "i"

			Loop While False ' end of null loop

		Next

		i = i + 1

		' Check if we want to publish this function

		If api_selected = "" Then api_selected = cls_in_api

		If api_selected = "false" Then

			api_selected = ""

			Exit Sub

		End If

		api_selected = ""

		If func(0) = cls And funcname = "" Then

			cls_param(1) = i

			cls_param(2) = types

			Exit Sub

		End If

		If Left(funcname, 1) = "_" And types <> "v" Then Exit Sub

		If is_static Then

			static_method_size = static_method_size + 1

			static_methods.Item(static_method_size) = Array(funcname, i, types)

			Exit Sub

		End If

		method_size = method_size + 1

		methods.Item(method_size) = Array(funcname, i, types)

		Exit Sub

	End If

End Sub

Sub SquirrelExport(api, srcfilename, dstfilename)

	Dim src, dst, line

	Set src = FSO.OpenTextFile(srcfilename, 1)

	Set dst = FSO.OpenTextFile(dstfilename, 2, True)

	enum_size = 0

	Set enums = CreateObject("Scripting.Dictionary")

	enum_value_size = 0

	Set enum_value = CreateObject("Scripting.Dictionary")

	enum_string_to_error_size = 0

	Set enum_string_to_error_mapping_string = CreateObject("Scripting.Dictionary")

	Set enum_string_to_error_mapping_error = CreateObject("Scripting.Dictionary")

	enum_error_to_string_size = 0

	Set enum_error_to_string_mapping = CreateObject("Scripting.Dictionary")

	const_size = 0

	Set const_value = CreateObject("Scripting.Dictionary")

	struct_size = 0