attempting to fix lucee 6 compat by checking for existence of queryToStruct function

Author: atuttle

core/api.cfc

@@ -63,6 +63,7 @@
 		<cfset var before = getTickCount() />
 		<cfset var after = 0 />
 		<cfset setupFramework() />
+		<cfset checkEngineSupport() />
 		<cfset after = getTickCount() />
 		<cfheader name="X-TIME-TO-RELOAD" value="#(after-before)#" />
 		<cfreturn true />
@@ -587,6 +588,22 @@
 	<!--- :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: --->
 
 	<!--- internal methods --->
+	<cffunction name="checkEngineSupport" access="private" output="false" returntype="void">
+		<cfscript>
+			application._taffy.compat = {
+				queryToStruct: "missing",
+				queryToArray: "missing"
+			};
+			var funcs = getFunctionList();
+			if (structKeyExists(funcs, "queryToStruct")) {
+				application._taffy.compat.queryToStruct = "exists";
+			}
+			if (structKeyExists(funcs, "queryToArray")) {
+				application._taffy.compat.queryToArray = "exists";
+			}
+		</cfscript>
+	</cffunction>
+
 	<cffunction name="setupFramework" access="private" output="false" returntype="void">
 		<cfset var local = structNew() />
 		<cfparam name="variables.framework" default="#structNew()#" />

core/resource.cfc

@@ -50,7 +50,7 @@
 		<cfset logger.saveLog(exception) />
 	</cffunction>
 
-	<cffunction name="queryToArray" access="private" returntype="array" output="false">
+	<cffunction name="qToArray" access="private" returntype="array" output="false">
 		<cfargument name="q" type="query" required="yes" />
 		<cfargument name="cb" type="any" required="no" />
 		<cfscript>
@@ -80,7 +80,15 @@
 		</cfscript>
 	</cffunction>
 
-	<cffunction name="queryToStruct" access="private" returntype="struct" output="false">
+	<cfif application._taffy.compat.queryToArray eq "missing">
+		<cffunction name="queryToArray" access="private" returntype="struct" output="false">
+			<cfargument name="q" type="query" required="yes" />
+			<cfargument name="cb" type="any" required="no" />
+			<cfreturn qToArray(arguments.q, arguments.cb) />
+		</cffunction>
+	</cfif>
+
+	<cffunction name="qToStruct" access="private" returntype="struct" output="false">
 		<cfargument name="q" type="query" required="yes" />
 		<cfargument name="cb" type="any" required="no" />
 		<cfset var local = {} />
@@ -115,6 +123,14 @@
 		</cfscript>
 	</cffunction>
 
+	<cfif application._taffy.compat.queryToStruct eq "missing">
+		<cffunction name="queryToStruct" access="private" returntype="struct" output="false">
+			<cfargument name="q" type="query" required="yes" />
+			<cfargument name="cb" type="any" required="no" />
+			<cfreturn qToStruct(arguments.q, arguments.cb) />
+		</cffunction>
+	</cfif>
+
 	<!---
 		function that gets the representation class instance
 		-- if the argument is blank, we use the default from taffy settings
@@ -132,7 +148,7 @@
 			<cfreturn createObject("component", arguments.repClass) />
 		</cfif>
 	</cffunction>
-	
+
 	<cffunction name="addDebugData" access="package" output="false">
 		<cfargument name="data" type="any" />
 		<cfset request.debugData = arguments.data />