diff options
Diffstat (limited to 'tests/lexers/foxpro/example.txt')
| -rw-r--r-- | tests/lexers/foxpro/example.txt | 1928 |
1 files changed, 1928 insertions, 0 deletions
diff --git a/tests/lexers/foxpro/example.txt b/tests/lexers/foxpro/example.txt new file mode 100644 index 00000000..095eefd6 --- /dev/null +++ b/tests/lexers/foxpro/example.txt @@ -0,0 +1,1928 @@ +---input--- +&& This is a concatenation of all VFP examples on Wikipedia. +&& Copyright 2013 Wikimedia, under the GFDL. + +FOR i = 1 to 10 + x = x + 6.5 +ENDFOR + +IF i = 25 + i = i + 1 +ELSE + i = i + 3 +ENDIF + +x = 1 +DO WHILE x < 50 + x = x + 1 +ENDDO + +x = 1 +DO WHILE .T. + x = x + 1 + IF x < 50 + LOOP + ELSE + EXIT + ENDIF +ENDDO + +nMonth = MONTH(DATE()) +DO CASE + CASE nMonth <= 3 + MESSAGEBOX("Q1") + + CASE nMonth <= 6 + MESSAGEBOX("Q2") + + CASE nMonth <= 9 + MESSAGEBOX("Q3") + + OTHERWISE + MESSAGEBOX("Q4") +ENDCASE + +FOR EACH oControl IN THISFORM.Controls + MESSAGEBOX(oControl.Name) +ENDFOR + +f = Factorial(10) + +FUNCTION Factorial(n) + LOCAL i,r + r = 1 + FOR i = n TO 1 STEP -1 + r = r * n + ENDFOR + RETURN r +ENDFUNC + +loForm = CREATEOBJECT("HiForm") +loForm.Show(1) + +DEFINE CLASS HiForm AS Form + AutoCenter = .T. + Caption = "Hello, World" + + ADD OBJECT lblHi as Label WITH ; + Caption = "Hello, World!" +ENDDEFINE + +loMine = CREATEOBJECT("MyClass") +? loMine.cProp1 && This will work. (Double-ampersand marks an end-of-line comment) +? loMine.cProp2 && Program Error: Property CPROP2 is not found. + +? loMine.MyMethod1() && This will work. +? loMine.MyMethod2() && Program Error: Property MYMETHOD2 is not found. + +DEFINE CLASS MyClass AS Custom + cProp1 = "My Property" && This is a public property + HIDDEN cProp2 && This is a private (hidden) property + dProp3 = {} && Another public property + + PROCEDURE Init() && Class constructor + This.cProp2 = "This is a hidden property." + ENDPROC + + PROCEDURE dProp3_Access && Property Getter + RETURN DATE() + ENDPROC + PROCEDURE dProp3_Assign(vNewVal) && Property Setter + IF VARTYPE(vNewVal) = "D" + THIS.dProp3 = vNewVal + ENDIF + ENDPROC + + PROCEDURE MyMethod1() + * This is a public method, calling a hidden method that returns + * the value of a hidden property. + RETURN This.MyMethod2() + ENDPROC + + HIDDEN PROCEDURE MyMethod2() && This is a private (hidden) method + RETURN This.cProp2 + ENDPROC +ENDDEFINE + +&& Create a table +CREATE TABLE randData (iData I) + +&& Populate with random data using xBase and SQL DML commands +FOR i = 1 TO 50 + APPEND BLANK + REPLACE iData WITH (RAND() * 100) + + INSERT INTO randData (iData) VALUES (RAND() * 100) +ENDFOR + +&& Place a structural index on the data +INDEX ON iData TAG iData +CLOSE ALL + +&& Display ordered data using xBase-style commands +USE randData +SET ORDER TO iData +GO TOP +LIST NEXT 10 && First 10 +GO BOTTOM +SKIP -10 +LIST REST && Last 10 +CLOSE ALL + +&& Browse ordered data using SQL DML commands +SELECT * ; + FROM randData ; + ORDER BY iData DESCENDING + + +&& Connect to an ODBC data source +LOCAL nHnd +nHnd = SQLCONNECT ("ODBCDSN", "user", "pwd") + +&& Execute a SQL command +LOCAL nResult +nResult = SQLEXEC (nHnd, "USE master") +IF nResult < 0 + MESSAGEBOX ("MASTER database does not exist!") + RETURN +ENDIF + +&& Retrieve data from the remote server and stores it in +&& a local data cursor +nResult = SQLEXEC (nHnd, "SELECT * FROM authors", "QAUTHORS") + +&& Update a record in a remote table using parameters +PRIVATE cAuthorID, cAuthorName +cAuthorID = "1001" +cAuthorName = "New name" +nResult = SQLEXEC (nHnd, "UPDATE authors SET auth_name = ?cAuthorName WHERE auth_id = ?cAuthorID") + +&& Close the connection +SQLDISCONNECT(nHnd) + + +---tokens--- +'' Text +'&' Text +'&' Text +' ' Text +'This' Name.Builtin +' ' Text +'i' Text +'s' Text +' ' Text +'a' Text +' ' Text +'c' Text +'o' Text +'n' Text +'c' Text +'a' Text +'t' Text +'e' Text +'n' Text +'a' Text +'t' Text +'i' Text +'o' Text +'n' Text +' ' Text +'o' Text +'f' Text +' ' Text +'a' Text +'l' Text +'l' Text +' ' Text +'V' Text +'F' Text +'P' Text +' ' Text +'e' Text +'x' Text +'a' Text +'m' Text +'p' Text +'l' Text +'e' Text +'s' Text +' ' Text +'o' Text +'n' Text +' ' Text +'W' Text +'i' Text +'k' Text +'i' Text +'p' Text +'e' Text +'d' Text +'i' Text +'a' Text +'.' Text +'\n' Text + +'&' Text +'&' Text +' ' Text +'C' Text +'o' Text +'p' Text +'y' Text +'r' Text +'i' Text +'g' Text +'h' Text +'t' Text +' ' Text +'2' Text +'0' Text +'1' Text +'3' Text +' ' Text +'W' Text +'i' Text +'k' Text +'i' Text +'m' Text +'e' Text +'d' Text +'i' Text +'a' Text +',' Text +' ' Text +'u' Text +'n' Text +'d' Text +'e' Text +'r' Text +' ' Text +'t' Text +'h' Text +'e' Text +' ' Text +'G' Text +'F' Text +'D' Text +'L' Text +'.' Text +'\n\n' Text + +'FOR' Keyword.Reserved +' ' Text +'i' Text +' ' Text +'=' Text +' ' Text +'1' Text +' ' Text +'t' Text +'o' Text +' ' Text +'1' Text +'0' Text +'\n ' Text +'x' Name.Variable +' ' Text +'=' Text +' ' Text +'x' Text +' ' Text +'+' Text +' ' Text +'6' Text +'.' Text +'5' Text +'\n' Text + +'ENDFOR' Keyword.Reserved +'\n \n' Text + +'IF' Keyword.Reserved +' ' Text +'i' Text +' ' Text +'=' Text +' ' Text +'2' Text +'5' Text +'\n ' Text +'i' Name.Variable +' ' Text +'=' Text +' ' Text +'i' Text +' ' Text +'+' Text +' ' Text +'1' Text +'\n' Text + +'ELSE' Keyword.Reserved +'\n ' Text +'i' Name.Variable +' ' Text +'=' Text +' ' Text +'i' Text +' ' Text +'+' Text +' ' Text +'3' Text +'\n' Text + +'ENDIF' Keyword.Reserved +'\n \n' Text + +'x' Name.Variable +' ' Text +'=' Text +' ' Text +'1' Text +'\n' Text + +'DO' Keyword.Reserved +' ' Text +'W' Text +'H' Text +'I' Text +'L' Text +'E' Text +' ' Text +'x' Text +' ' Text +'<' Text +' ' Text +'5' Text +'0' Text +'\n ' Text +'x' Name.Variable +' ' Text +'=' Text +' ' Text +'x' Text +' ' Text +'+' Text +' ' Text +'1' Text +'\n' Text + +'ENDDO' Keyword.Reserved +'\n \n' Text + +'x' Name.Variable +' ' Text +'=' Text +' ' Text +'1' Text +'\n' Text + +'DO' Keyword.Reserved +' ' Text +'W' Text +'H' Text +'I' Text +'L' Text +'E' Text +' ' Text +'.T.' Operator.Word +'\n ' Text +'x' Name.Variable +' ' Text +'=' Text +' ' Text +'x' Text +' ' Text +'+' Text +' ' Text +'1' Text +'\n ' Text +'IF' Keyword.Reserved +' ' Text +'x' Text +' ' Text +'<' Text +' ' Text +'5' Text +'0' Text +'\n ' Text +'LOOP' Keyword.Reserved +'\n ' Text +'ELSE' Keyword.Reserved +'\n ' Text +'EXIT' Keyword.Reserved +'\n ' Text +'ENDIF' Keyword.Reserved +'\n' Text + +'ENDDO' Keyword.Reserved +'\n \n' Text + +'nMonth' Name.Variable +' ' Text +'=' Text +' ' Text +'MONTH' Name.Function +'(' Text +'DATE' Name.Function +'(' Text +')' Text +')' Text +'\n' Text + +'DO' Keyword.Reserved +' ' Text +'C' Text +'A' Text +'S' Text +'E' Text +'\n ' Text +'CASE' Keyword.Reserved +' ' Text +'n' Text +'M' Text +'o' Text +'n' Text +'t' Text +'h' Text +' ' Text +'<' Text +'=' Text +' ' Text +'3' Text +'\n ' Text +'MESSAGEBOX' Name.Variable +'(' Text +'"Q1"' Literal.String +')' Text +'\n \n ' Text +'CASE' Keyword.Reserved +' ' Text +'n' Text +'M' Text +'o' Text +'n' Text +'t' Text +'h' Text +' ' Text +'<' Text +'=' Text +' ' Text +'6' Text +'\n ' Text +'MESSAGEBOX' Name.Variable +'(' Text +'"Q2"' Literal.String +')' Text +'\n \n ' Text +'CASE' Keyword.Reserved +' ' Text +'n' Text +'M' Text +'o' Text +'n' Text +'t' Text +'h' Text +' ' Text +'<' Text +'=' Text +' ' Text +'9' Text +'\n ' Text +'MESSAGEBOX' Name.Variable +'(' Text +'"Q3"' Literal.String +')' Text +'\n \n ' Text +'OTHERWISE' Keyword.Reserved +'\n ' Text +'MESSAGEBOX' Name.Variable +'(' Text +'"Q4"' Literal.String +')' Text +'\n' Text + +'ENDCASE' Keyword.Reserved +'\n \n' Text + +'FOR' Keyword.Reserved +' ' Text +'E' Text +'A' Text +'C' Text +'H' Text +' ' Text +'o' Text +'Control' Name.Class +' ' Text +'I' Text +'N' Text +' ' Text +'THISFORM' Name.Builtin +'.Controls' Name.Attribute +'\n ' Text +'MESSAGEBOX' Name.Variable +'(' Text +'o' Text +'Control' Name.Class +'.Name' Name.Attribute +')' Text +'\n' Text + +'ENDFOR' Keyword.Reserved +'\n \n' Text + +'f' Name.Variable +' ' Text +'=' Text +' ' Text +'F' Text +'a' Text +'c' Text +'t' Text +'o' Text +'r' Text +'i' Text +'a' Text +'l' Text +'(' Text +'1' Text +'0' Text +')' Text +'\n \n' Text + +'FUNCTION' Keyword.Reserved +' ' Text +'F' Text +'a' Text +'c' Text +'t' Text +'o' Text +'r' Text +'i' Text +'a' Text +'l' Text +'(' Text +'n' Text +')' Text +'\n ' Text +'LOCAL' Name.Variable +' ' Text +'i' Text +',' Text +'r' Text +'\n ' Text +'r' Name.Variable +' ' Text +'=' Text +' ' Text +'1' Text +'\n ' Text +'FOR' Keyword.Reserved +' ' Text +'i' Text +' ' Text +'=' Text +' ' Text +'n' Text +' ' Text +'T' Text +'O' Text +' ' Text +'1' Text +' ' Text +'S' Text +'T' Text +'E' Text +'P' Text +' ' Text +'-' Text +'1' Text +'\n ' Text +'r' Name.Variable +' ' Text +'=' Text +' ' Text +'r' Text +' ' Text +'*' Text +' ' Text +'n' Text +'\n ' Text +'ENDFOR' Keyword.Reserved +'\n ' Text +'RETURN' Keyword.Reserved +' ' Text +'r' Text +'\n' Text + +'ENDFUNC' Name.Variable +'\n\n' Text + +'loForm' Name.Variable +' ' Text +'=' Text +' ' Text +'CREATEOBJECT' Name.Function +'(' Text +'"HiForm"' Literal.String +')' Text +'\n' Text + +'loForm' Name.Variable +'.Show' Name.Function +'(' Text +'1' Text +')' Text +'\n \n' Text + +'DEFINE' Name.Variable +' ' Text +'C' Text +'L' Text +'A' Text +'S' Text +'S' Text +' ' Text +'H' Text +'i' Text +'Form' Name.Class +' ' Text +'A' Text +'S' Text +' ' Text +'Form' Name.Class +'\n ' Text +'AutoCenter' Name.Variable +' ' Text +'=' Text +' ' Text +'.T.' Operator.Word +'\n ' Text +'Caption' Name.Variable +' ' Text +'=' Text +' ' Text +'"Hello, World"' Literal.String +'\n \n ' Text +'ADD' Name.Variable +' ' Text +'O' Text +'B' Text +'J' Text +'E' Text +'C' Text +'T' Text +' ' Text +'l' Text +'b' Text +'l' Text +'H' Text +'i' Text +' ' Text +'a' Text +'s' Text +' ' Text +'Label' Name.Class +' ' Text +'W' Text +'I' Text +'T' Text +'H' Text +' ' Text +';\n' Punctuation + +' ' Text +'Caption' Name.Variable +' ' Text +'=' Text +' ' Text +'"Hello, World!"' Literal.String +'\n' Text + +'ENDDEFINE' Name.Variable +'\n\n' Text + +'loMine' Name.Variable +' ' Text +'=' Text +' ' Text +'CREATEOBJECT' Name.Function +'(' Text +'"MyClass"' Literal.String +')' Text +'\n' Text + +'?' Text +' ' Text +'l' Text +'o' Text +'M' Text +'i' Text +'n' Text +'e' Text +'.' Text +'c' Text +'P' Text +'r' Text +'o' Text +'p' Text +'1' Text +' ' Text +'&& This will work. (Double-ampersand marks an end-of-line comment)\n' Comment.Single + +'' Text +'?' Text +' ' Text +'l' Text +'o' Text +'M' Text +'i' Text +'n' Text +'e' Text +'.' Text +'c' Text +'P' Text +'r' Text +'o' Text +'p' Text +'2' Text +' ' Text +'&& Program Error: Property CPROP2 is not found.\n' Comment.Single + +' \n' Text + +'?' Text +' ' Text +'l' Text +'o' Text +'M' Text +'i' Text +'n' Text +'e' Text +'.' Text +'M' Text +'y' Text +'M' Text +'e' Text +'t' Text +'h' Text +'o' Text +'d' Text +'1' Text +'(' Text +')' Text +' ' Text +'&& This will work.\n' Comment.Single + +'' Text +'?' Text +' ' Text +'l' Text +'o' Text +'M' Text +'i' Text +'n' Text +'e' Text +'.' Text +'M' Text +'y' Text +'M' Text +'e' Text +'t' Text +'h' Text +'o' Text +'d' Text +'2' Text +'(' Text +')' Text +' ' Text +'&& Program Error: Property MYMETHOD2 is not found.\n' Comment.Single + +' \n' Text + +'DEFINE' Name.Variable +' ' Text +'C' Text +'L' Text +'A' Text +'S' Text +'S' Text +' ' Text +'M' Text +'y' Text +'C' Text +'l' Text +'a' Text +'s' Text +'s' Text +' ' Text +'A' Text +'S' Text +' ' Text +'Custom' Name.Class +'\n ' Text +'cProp1' Name.Variable +' ' Text +'=' Text +' ' Text +'"My Property"' Literal.String +' ' Text +'&& This is a public property\n' Comment.Single + +' ' Text +'HIDDEN' Name.Variable +' ' Text +'c' Text +'P' Text +'r' Text +'o' Text +'p' Text +'2' Text +' ' Text +'&& This is a private (hidden) property\n' Comment.Single + +' ' Text +'dProp3' Name.Variable +' ' Text +'=' Text +' ' Text +'{' Text +'}' Text +' ' Text +'&& Another public property\n' Comment.Single + +' \n ' Text +'PROCEDURE' Keyword.Reserved +' ' Text +'I' Text +'n' Text +'i' Text +'t' Text +'(' Text +')' Text +' ' Text +'&& Class constructor\n' Comment.Single + +' ' Text +'This' Name.Variable +'.' Text +'c' Text +'P' Text +'r' Text +'o' Text +'p' Text +'2' Text +' ' Text +'=' Text +' ' Text +'"This is a hidden property."' Literal.String +'\n ' Text +'ENDPROC' Name.Variable +'\n \n ' Text +'PROCEDURE' Keyword.Reserved +' ' Text +'d' Text +'P' Text +'r' Text +'o' Text +'p' Text +'3' Text +'_' Text +'A' Text +'c' Text +'c' Text +'e' Text +'s' Text +'s' Text +' ' Text +'&& Property Getter\n' Comment.Single + +' ' Text +'RETURN' Keyword.Reserved +' ' Text +'DATE' Name.Function +'(' Text +')' Text +'\n ' Text +'ENDPROC' Name.Variable +'\n ' Text +'PROCEDURE' Keyword.Reserved +' ' Text +'d' Text +'P' Text +'r' Text +'o' Text +'p' Text +'3' Text +'_' Text +'A' Text +'s' Text +'sign' Name.Function +'(' Text +'v' Text +'N' Text +'e' Text +'w' Text +'V' Text +'a' Text +'l' Text +')' Text +' ' Text +'&& Property Setter\n' Comment.Single + +' ' Text +'IF' Keyword.Reserved +' ' Text +'VARTYPE' Name.Function +'(' Text +'v' Text +'N' Text +'e' Text +'w' Text +'V' Text +'a' Text +'l' Text +')' Text +' ' Text +'=' Text +' ' Text +'"D"' Literal.String +'\n ' Text +'THIS' Name.Variable +'.' Text +'d' Text +'P' Text +'r' Text +'o' Text +'p' Text +'3' Text +' ' Text +'=' Text +' ' Text +'v' Text +'N' Text +'e' Text +'w' Text +'V' Text +'a' Text +'l' Text +'\n ' Text +'ENDIF' Keyword.Reserved +'\n ' Text +'ENDPROC' Name.Variable +'\n \n ' Text +'PROCEDURE' Keyword.Reserved +' ' Text +'M' Text +'y' Text +'M' Text +'e' Text +'t' Text +'h' Text +'o' Text +'d' Text +'1' Text +'(' Text +')' Text +'\n ' Text +'* This is a public method, calling a hidden method that returns' Comment.Single +'\n ' Text +'* the value of a hidden property.' Comment.Single +'\n ' Text +'RETURN' Keyword.Reserved +' ' Text +'This' Name.Builtin +'.' Text +'M' Text +'y' Text +'M' Text +'e' Text +'t' Text +'h' Text +'o' Text +'d' Text +'2' Text +'(' Text +')' Text +'\n ' Text +'ENDPROC' Name.Variable +'\n \n ' Text +'HIDDEN' Name.Variable +' ' Text +'P' Text +'R' Text +'O' Text +'C' Text +'E' Text +'D' Text +'U' Text +'R' Text +'E' Text +' ' Text +'M' Text +'y' Text +'M' Text +'e' Text +'t' Text +'h' Text +'o' Text +'d' Text +'2' Text +'(' Text +')' Text +' ' Text +'&& This is a private (hidden) method\n' Comment.Single + +' ' Text +'RETURN' Keyword.Reserved +' ' Text +'This' Name.Builtin +'.' Text +'c' Text +'P' Text +'r' Text +'o' Text +'p' Text +'2' Text +'\n ' Text +'ENDPROC' Name.Variable +'\n' Text + +'ENDDEFINE' Name.Variable +'\n\n' Text + +'&' Text +'&' Text +' ' Text +'C' Text +'r' Text +'e' Text +'a' Text +'t' Text +'e' Text +' ' Text +'a' Text +' ' Text +'t' Text +'a' Text +'b' Text +'l' Text +'e' Text +'\n' Text + +'CREATE' Keyword.Reserved +' ' Text +'T' Text +'A' Text +'B' Text +'L' Text +'E' Text +' ' Text +'r' Text +'a' Text +'n' Text +'d' Text +'D' Text +'a' Text +'t' Text +'a' Text +' ' Text +'(' Text +'i' Text +'D' Text +'a' Text +'t' Text +'a' Text +' ' Text +'I' Text +')' Text +'\n \n' Text + +'&' Text +'&' Text +' ' Text +'P' Text +'o' Text +'p' Text +'u' Text +'l' Text +'a' Text +'t' Text +'e' Text +' ' Text +'w' Text +'i' Text +'t' Text +'h' Text +' ' Text +'r' Text +'a' Text +'n' Text +'d' Text +'o' Text +'m' Text +' ' Text +'d' Text +'a' Text +'t' Text +'a' Text +' ' Text +'u' Text +'s' Text +'i' Text +'n' Text +'g' Text +' ' Text +'x' Text +'B' Text +'a' Text +'s' Text +'e' Text +' ' Text +'and' Operator.Word +' ' Text +'S' Text +'Q' Text +'L' Text +' ' Text +'D' Text +'M' Text +'L' Text +' ' Text +'c' Text +'o' Text +'m' Text +'m' Text +'a' Text +'n' Text +'d' Text +'s' Text +'\n' Text + +'FOR' Keyword.Reserved +' ' Text +'i' Text +' ' Text +'=' Text +' ' Text +'1' Text +' ' Text +'T' Text +'O' Text +' ' Text +'5' Text +'0' Text +'\n ' Text +'APPEND' Keyword.Reserved +' ' Text +'B' Text +'L' Text +'A' Text +'N' Text +'K' Text +'\n ' Text +'REPLACE' Keyword.Reserved +' ' Text +'i' Text +'D' Text +'a' Text +'t' Text +'a' Text +' ' Text +'W' Text +'I' Text +'T' Text +'H' Text +' ' Text +'(' Text +'RAND' Name.Function +'(' Text +')' Text +' ' Text +'*' Text +' ' Text +'1' Text +'0' Text +'0' Text +')' Text +'\n \n ' Text +'INSERT' Keyword.Reserved +' ' Text +'I' Text +'N' Text +'T' Text +'O' Text +' ' Text +'r' Text +'a' Text +'n' Text +'d' Text +'D' Text +'a' Text +'t' Text +'a' Text +' ' Text +'(' Text +'i' Text +'D' Text +'a' Text +'t' Text +'a' Text +')' Text +' ' Text +'V' Text +'A' Text +'L' Text +'U' Text +'E' Text +'S' Text +' ' Text +'(' Text +'RAND' Name.Function +'(' Text +')' Text +' ' Text +'*' Text +' ' Text +'1' Text +'0' Text +'0' Text +')' Text +'\n' Text + +'ENDFOR' Keyword.Reserved +'\n \n' Text + +'&' Text +'&' Text +' ' Text +'P' Text +'l' Text +'a' Text +'c' Text +'e' Text +' ' Text +'a' Text +' ' Text +'s' Text +'t' Text +'r' Text +'u' Text +'c' Text +'t' Text +'u' Text +'r' Text +'a' Text +'l' Text +' ' Text +'i' Text +'n' Text +'d' Text +'e' Text +'x' Text +' ' Text +'o' Text +'n' Text +' ' Text +'t' Text +'h' Text +'e' Text +' ' Text +'d' Text +'a' Text +'t' Text +'a' Text +'\n' Text + +'INDEX' Keyword.Reserved +' ' Text +'O' Text +'N' Text +' ' Text +'i' Text +'D' Text +'a' Text +'t' Text +'a' Text +' ' Text +'T' Text +'A' Text +'G' Text +' ' Text +'i' Text +'D' Text +'a' Text +'t' Text +'a' Text +'\n' Text + +'CLOSE' Keyword.Reserved +' ' Text +'A' Text +'L' Text +'L' Text +'\n \n' Text + +'&' Text +'&' Text +' ' Text +'D' Text +'i' Text +'s' Text +'p' Text +'l' Text +'a' Text +'y' Text +' ' Text +'o' Text +'r' Text +'d' Text +'e' Text +'r' Text +'e' Text +'d' Text +' ' Text +'d' Text +'a' Text +'t' Text +'a' Text +' ' Text +'u' Text +'s' Text +'i' Text +'n' Text +'g' Text +' ' Text +'x' Text +'B' Text +'a' Text +'s' Text +'e' Text +'-' Text +'s' Text +'t' Text +'y' Text +'l' Text +'e' Text +' ' Text +'c' Text +'o' Text +'m' Text +'m' Text +'a' Text +'n' Text +'d' Text +'s' Text +'\n' Text + +'USE' Keyword.Reserved +' ' Text +'r' Text +'a' Text +'n' Text +'d' Text +'D' Text +'a' Text +'t' Text +'a' Text +'\n' Text + +'SET' Keyword.Reserved +' ' Text +'O' Text +'R' Text +'D' Text +'E' Text +'R' Text +' ' Text +'T' Text +'O' Text +' ' Text +'i' Text +'D' Text +'a' Text +'t' Text +'a' Text +'\n' Text + +'GO' Keyword.Reserved +' ' Text +'T' Text +'O' Text +'P' Text +'\n' Text + +'LIST' Keyword.Reserved +' ' Text +'N' Text +'E' Text +'X' Text +'T' Text +' ' Text +'1' Text +'0' Text +' ' Text +'&& First 10 \n' Comment.Single + +'' Text +'GO' Keyword.Reserved +' ' Text +'B' Text +'O' Text +'T' Text +'T' Text +'O' Text +'M' Text +'\n' Text + +'SKIP' Keyword.Reserved +' ' Text +'-' Text +'1' Text +'0' Text +'\n' Text + +'LIST' Keyword.Reserved +' ' Text +'R' Text +'E' Text +'S' Text +'T' Text +' ' Text +'&& Last 10\n' Comment.Single + +'' Text +'CLOSE' Keyword.Reserved +' ' Text +'A' Text +'L' Text +'L' Text +'\n \n' Text + +'&' Text +'&' Text +' ' Text +'B' Text +'r' Text +'o' Text +'w' Text +'s' Text +'e' Text +' ' Text +'o' Text +'r' Text +'d' Text +'e' Text +'r' Text +'e' Text +'d' Text +' ' Text +'d' Text +'a' Text +'t' Text +'a' Text +' ' Text +'u' Text +'s' Text +'i' Text +'n' Text +'g' Text +' ' Text +'S' Text +'Q' Text +'L' Text +' ' Text +'D' Text +'M' Text +'L' Text +' ' Text +'c' Text +'o' Text +'m' Text +'m' Text +'a' Text +'n' Text +'d' Text +'s' Text +'\n' Text + +'SELECT' Keyword.Reserved +' ' Text +'*' Text +' ' Text +';\n' Punctuation + +' ' Text +'FROM' Name.Variable +' ' Text +'r' Text +'a' Text +'n' Text +'d' Text +'D' Text +'a' Text +'t' Text +'a' Text +' ' Text +';\n' Punctuation + +' ' Text +'ORDER' Name.Variable +' ' Text +'B' Text +'Y' Text +' ' Text +'i' Text +'D' Text +'a' Text +'t' Text +'a' Text +' ' Text +'D' Text +'E' Text +'S' Text +'C' Text +'E' Text +'N' Text +'D' Text +'I' Text +'N' Text +'G' Text +'\n\n\n' Text + +'&' Text +'&' Text +' ' Text +'C' Text +'o' Text +'n' Text +'n' Text +'e' Text +'c' Text +'t' Text +' ' Text +'t' Text +'o' Text +' ' Text +'a' Text +'n' Text +' ' Text +'O' Text +'D' Text +'B' Text +'C' Text +' ' Text +'d' Text +'a' Text +'t' Text +'a' Text +' ' Text +'s' Text +'o' Text +'u' Text +'r' Text +'c' Text +'e' Text +'\n' Text + +'LOCAL' Name.Variable +' ' Text +'n' Text +'H' Text +'n' Text +'d' Text +'\n' Text + +'nHnd' Name.Variable +' ' Text +'=' Text +' ' Text +'SQLCONNECT' Name.Function +' ' Text +'(' Text +'"ODBCDSN"' Literal.String +',' Text +' ' Text +'"user"' Literal.String +',' Text +' ' Text +'"pwd"' Literal.String +')' Text +'\n \n' Text + +'&' Text +'&' Text +' ' Text +'E' Text +'x' Text +'e' Text +'c' Text +'u' Text +'t' Text +'e' Text +' ' Text +'a' Text +' ' Text +'S' Text +'Q' Text +'L' Text +' ' Text +'c' Text +'o' Text +'m' Text +'m' Text +'a' Text +'n' Text +'d' Text +'\n' Text + +'LOCAL' Name.Variable +' ' Text +'n' Text +'R' Text +'e' Text +'s' Text +'u' Text +'l' Text +'t' Text +'\n' Text + +'nResult' Name.Variable +' ' Text +'=' Text +' ' Text +'SQLEXEC' Name.Function +' ' Text +'(' Text +'n' Text +'H' Text +'n' Text +'d' Text +',' Text +' ' Text +'"USE master"' Literal.String +')' Text +'\n' Text + +'IF' Keyword.Reserved +' ' Text +'n' Text +'R' Text +'e' Text +'s' Text +'u' Text +'l' Text +'t' Text +' ' Text +'<' Text +' ' Text +'0' Text +'\n ' Text +'MESSAGEBOX' Name.Variable +' ' Text +'(' Text +'"MASTER database does not exist!"' Literal.String +')' Text +'\n ' Text +'RETURN' Keyword.Reserved +'\n' Text + +'ENDIF' Keyword.Reserved +'\n \n' Text + +'&' Text +'&' Text +' ' Text +'R' Text +'e' Text +'t' Text +'r' Text +'i' Text +'e' Text +'v' Text +'e' Text +' ' Text +'d' Text +'a' Text +'t' Text +'a' Text +' ' Text +'f' Text +'r' Text +'o' Text +'m' Text +' ' Text +'t' Text +'h' Text +'e' Text +' ' Text +'r' Text +'e' Text +'m' Text +'o' Text +'t' Text +'e' Text +' ' Text +'server' Name.Class +' ' Text +'and' Operator.Word +' ' Text +'s' Text +'t' Text +'o' Text +'r' Text +'e' Text +'s' Text +' ' Text +'i' Text +'t' Text +' ' Text +'i' Text +'n' Text +'\n' Text + +'&' Text +'&' Text +' ' Text +'a' Text +' ' Text +'l' Text +'o' Text +'c' Text +'a' Text +'l' Text +' ' Text +'d' Text +'a' Text +'t' Text +'a' Text +' ' Text +'cursor' Name.Class +'\n' Text + +'nResult' Name.Variable +' ' Text +'=' Text +' ' Text +'SQLEXEC' Name.Function +' ' Text +'(' Text +'n' Text +'H' Text +'n' Text +'d' Text +',' Text +' ' Text +'"SELECT * FROM authors"' Literal.String +',' Text +' ' Text +'"QAUTHORS"' Literal.String +')' Text +'\n \n' Text + +'&' Text +'&' Text +' ' Text +'U' Text +'p' Text +'d' Text +'a' Text +'t' Text +'e' Text +' ' Text +'a' Text +' ' Text +'r' Text +'e' Text +'c' Text +'o' Text +'r' Text +'d' Text +' ' Text +'i' Text +'n' Text +' ' Text +'a' Text +' ' Text +'r' Text +'e' Text +'m' Text +'o' Text +'t' Text +'e' Text +' ' Text +'t' Text +'a' Text +'b' Text +'l' Text +'e' Text +' ' Text +'u' Text +'s' Text +'i' Text +'n' Text +'g' Text +' ' Text +'p' Text +'a' Text +'r' Text +'a' Text +'m' Text +'e' Text +'t' Text +'e' Text +'r' Text +'s' Text +'\n' Text + +'PRIVATE' Keyword.Reserved +' ' Text +'c' Text +'A' Text +'u' Text +'t' Text +'h' Text +'o' Text +'r' Text +'I' Text +'D' Text +',' Text +' ' Text +'c' Text +'A' Text +'u' Text +'t' Text +'h' Text +'o' Text +'r' Text +'N' Text +'a' Text +'m' Text +'e' Text +'\n' Text + +'cAuthorID' Name.Variable +' ' Text +'=' Text +' ' Text +'"1001"' Literal.String +'\n' Text + +'cAuthorName' Name.Variable +' ' Text +'=' Text +' ' Text +'"New name"' Literal.String +'\n' Text + +'nResult' Name.Variable +' ' Text +'=' Text +' ' Text +'SQLEXEC' Name.Function +' ' Text +'(' Text +'n' Text +'H' Text +'n' Text +'d' Text +',' Text +' ' Text +'"UPDATE authors SET auth_name = ?cAuthorName WHERE auth_id = ?cAuthorID"' Literal.String +')' Text +'\n \n' Text + +'&' Text +'&' Text +' ' Text +'C' Text +'l' Text +'o' Text +'s' Text +'e' Text +' ' Text +'t' Text +'h' Text +'e' Text +' ' Text +'c' Text +'o' Text +'n' Text +'n' Text +'e' Text +'c' Text +'t' Text +'i' Text +'o' Text +'n' Text +'\n' Text + +'SQLDISCONNECT' Name.Variable +'(' Text +'n' Text +'H' Text +'n' Text +'d' Text +')' Text +'\n' Text |