SF.net SVN: frontierkernel: [1730] ODBs/trunk/frontierRoot/system/verbs/ builtins/sqlite

[<cre...@us...>]

Revision: 1730
          http://frontierkernel.svn.sourceforge.net/frontierkernel/?rev=1730&view=rev
Author:   creecode
Date:     2007-09-07 12:58:11 -0700 (Fri, 07 Sep 2007)

Log Message:
-----------
replacing easyQuery file with easyQuery.fvc

changed method for checking if maxRows is a number

check if queryId is not 0

define result

Added Paths:
-----------
    ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/easyQuery.fvc

Removed Paths:
-------------
    ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/easyQuery

Deleted: ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/easyQuery
===================================================================
--- ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/easyQuery	2007-09-07 19:54:31 UTC (rev 1729)
+++ ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/easyQuery	2007-09-07 19:58:11 UTC (rev 1730)
@@ -1,27 +0,0 @@
-FrontierVcsFile:2:scpt:system.verbs.builtins.sqlite.easyQuery
-
-on easyQuery ( dbID, queryString, maxRows=0 ) {
-	«Changes
-		«10/10/06; 11:44:50 AM by DG
-			«created
-	local ( compiledQuery, dataset = {}, row, rowCount = 0 );
-	on isNum ( s ) {
-		for i = 1 to string.length ( s ) {
-			ch = string.mid ( s, i, 1 );
-			if ( ch < '0' ) or ( ch > '9' ) {
-				return false}};
-		return true};
-	if not isNum ( maxRows ) {
-		scriptError ( "sqlite.easyQuery requires a numeric value for maxRows." )};
-	compiledQuery = sqlite.compileQuery ( dbID, queryString );
-	loop {
-		result = sqlite.stepQuery ( compiledQuery );
-		if result != 100 { // SQLite's code for more rows
-			break};
-		++rowCount;
-		if ( maxRows > 0 ) and ( rowCount > maxRows ) {
-			break};
-		row = sqlite.getRow ( compiledQuery );
-		dataset[rowCount] = row};
-	sqlite.clearQuery ( compiledQuery );
-	return dataset}
\ No newline at end of file

Added: ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/easyQuery.fvc
===================================================================
--- ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/easyQuery.fvc	                        (rev 0)
+++ ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/easyQuery.fvc	2007-09-07 19:58:11 UTC (rev 1730)
@@ -0,0 +1,40 @@
+FrontierVcsFile:3:scpt:system.verbs.builtins.sqlite.easyQuery
+
+on easyQuery ( databaseId, query, maxRows = 0 ) {
+	«Changes
+		«8/27/07; 8:05:14 PM by TAC
+			«changed method for checking if maxRows is a number
+			«check if queryId is not 0
+			«define result
+		«10/10/06; 11:44:50 AM by DG
+			«created
+	
+	local ( queryId, dataSet = { }, result, row, rowCount = 0 );
+	
+	bundle { // is maxRows a number?
+		try {
+			number ( maxRows )}
+		else {
+			scriptError ( "sqlite.easyQuery requires a numeric value for maxRows." )}};
+	
+	queryId = sqlite.compileQuery ( databaseId, query );
+	
+	if queryId > 0 {
+		loop {
+			result = sqlite.stepQuery ( queryId );
+			
+			if result != 100 { // SQLite's code for more rows
+				break};
+			
+			if ( maxRows > 0 ) and ( ++rowCount > maxRows ) {
+				break};
+			
+			row = sqlite.getRow ( queryId );
+			
+			dataSet [ rowCount ] = row};
+		
+		sqlite.clearQuery ( queryId )};
+	
+	return ( dataSet )}
+
+


Property changes on: ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/easyQuery.fvc
___________________________________________________________________
Name: svn:eol-style
   + native


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.