language handler for VB

Author: mikesamuel

CHANGES.html

@@ -57,5 +57,9 @@ <h2>14 Jul 2008</h2>
       affect the tokenization of prettified code.
       See the issue 22 <a href="tests/prettify_test.html#issue22">testcase</a>.</code>
     </ul>
+    <h2>6 Jan 2009</h2>
+    <ul>
+      <li>Language handler for Visual Baseic</li>
+    </ul>
   </body>
 </html>

README.html

@@ -65,7 +65,7 @@ <h2>FAQ</h2>
     <h3>Which languages does it work for?</h3>
     <p>The comments in <tt>prettify.js</tt> are authoritative but the lexer
     should work on a number of languages including C and friends,
-    Java, Python, Bash, SQL, HTML, XML, CSS, Javascript, and Makefiles.
+    Java, Python, Bash, VB, SQL, HTML, XML, CSS, Javascript, and Makefiles.
     It works passably on Ruby, PHP and Awk and a decent subset of Perl, but,
     because of commenting conventions, doesn't work on Smalltalk, or
     CAML-like languages.</p>
@@ -76,6 +76,8 @@ <h3>Which languages does it work for?</h3>
     <p>And similarly for <a href="http://code.google.com/p/google-code-prettify/source/browse/trunk/src/lang-lua.js"
      ><code>LUA</code></a>, <a href="http://code.google.com/p/google-code-prettify/source/browse/trunk/src/lang-ml.js"
      ><code>OCAML, SML, F#</code></a>,
+     <a href="http://code.google.com/p/google-code-prettify/source/browse/trunk/src/lang-vb.js"
+     ><code>Visual Basic</code></a>,
      <a href="http://code.google.com/p/google-code-prettify/source/browse/trunk/src/lang-sql.js"
      ><code>SQL</code></a>, and
      <a href="http://code.google.com/p/google-code-prettify/source/browse/trunk/src/lang-proto.js"

src/lang-vb.js

@@ -0,0 +1,61 @@
+// Copyright (C) 2009 Google Inc.
+//
+// Licensed under the Apache License, Version 2.0 (the "License");
+// you may not use this file except in compliance with the License.
+// You may obtain a copy of the License at
+//
+//      http://www.apache.org/licenses/LICENSE-2.0
+//
+// Unless required by applicable law or agreed to in writing, software
+// distributed under the License is distributed on an "AS IS" BASIS,
+// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+// See the License for the specific language governing permissions and
+// limitations under the License.
+
+
+
+/**
+ * @fileoverview
+ * Registers a language handler for various flavors of basic.
+ *
+ *
+ * To use, include prettify.js and this file in your HTML page.
+ * Then put your code in an HTML tag like
+ *      <pre class="prettyprint lang-vb"></pre>
+ *
+ *
+ * http://msdn.microsoft.com/en-us/library/aa711638(VS.71).aspx defines the
+ * visual basic grammar lexical grammar.
+ *
+ * @author [email protected]
+ */
+
+PR.registerLangHandler(
+    PR.createSimpleLexer(
+        [
+         // Whitespace
+         [PR.PR_PLAIN,       /^[\t\n\r \xA0\u2028\u2029]+/, null, '\t\n\r \xA0\u2028\u2029'],
+         // A double quoted string with quotes escaped by doubling them.
+         // A single character can be suffixed with C.
+         [PR.PR_STRING,      /^(?:[\"\u201C\u201D](?:[^\"\u201C\u201D]|[\"\u201C\u201D]{2})[\"\u201C\u201D][cC]|[\"\u201C\u201D](?:[^\"\u201C\u201D]|[\"\u201C\u201D]{2})*[\"\u201C\u201D])/, null,
+          '"\u201C\u201D'],
+         // A comment starts with a single quote and runs until the end of the
+         // line.
+         [PR.PR_COMMENT,     /^[\'\u2018\u2019][^\r\n\u2028\u2029]*/, null, '\'\u2018\u2019']
+        ],
+        [
+         [PR.PR_KEYWORD, /^(?:AddHandler|AddressOf|Alias|And|AndAlso|Ansi|As|Assembly|Auto|Boolean|ByRef|Byte|ByVal|Call|Case|Catch|CBool|CByte|CChar|CDate|CDbl|CDec|Char|CInt|Class|CLng|CObj|Const|CShort|CSng|CStr|CType|Date|Decimal|Declare|Default|Delegate|Dim|DirectCast|Do|Double|Each|Else|ElseIf|End|EndIf|Enum|Erase|Error|Event|Exit|Finally|For|Friend|Function|Get|GetType|GoSub|GoTo|Handles|If|Implements|Imports|In|Inherits|Integer|Interface|Is|Let|Lib|Like|Long|Loop|Me|Mod|Module|MustInherit|MustOverride|MyBase|MyClass|Namespace|New|Next|Not|NotInheritable|NotOverridable|Object|On|Option|Optional|Or|OrElse|Overloads|Overridable|Overrides|ParamArray|Preserve|Private|Property|Protected|Public|RaiseEvent|ReadOnly|ReDim|RemoveHandler|Resume|Return|Select|Set|Shadows|Shared|Short|Single|Static|Step|Stop|String|Structure|Sub|SyncLock|Then|Throw|To|Try|TypeOf|Unicode|Until|Variant|Wend|When|While|With|WithEvents|WriteOnly|Xor|EndIf|GoSub|Let|Variant|Wend)\b/i, null],
+         // A second comment form
+         [PR.PR_COMMENT, /^REM[^\r\n\u2028\u2029]*/i],
+         // A boolean, numeric, or date literal.
+         [PR.PR_LITERAL,
+          /^(?:True\b|False\b|Nothing\b|\d+(?:E[+\-]?\d+[FRD]?|[FRDSIL])?|(?:&H[0-9A-F]+|&O[0-7]+)[SIL]?|\d*\.\d+(?:E[+\-]?\d+)?[FRD]?|#\s+(?:\d+[\-\/]\d+[\-\/]\d+(?:\s+\d+:\d+(?::\d+)?(\s*(?:AM|PM))?)?|\d+:\d+(?::\d+)?(\s*(?:AM|PM))?)\s+#)/i],
+         // An identifier?
+         [PR.PR_PLAIN, /^(?:(?:[a-z]|_\w)\w*|\[(?:[a-z]|_\w)\w*\])/i],
+         // A run of punctuation
+         [PR.PR_PUNCTUATION,
+          /^[^\w\t\n\r \"\'\[\]\xA0\u2018\u2019\u201C\u201D\u2028\u2029]+/],
+         // A run of punctuation
+         [PR.PR_PUNCTUATION, /^(?:\[|\])/]
+        ]),
+    ['vb', 'vbs']);

tests/prettify_test.html

@@ -14,6 +14,8 @@
  onerror="alert('Error: failed to load ' + this.src)"></script>
 <script src="../src/lang-sql.js" type="text/javascript"
  onerror="alert('Error: failed to load ' + this.src)"></script>
+<script src="../src/lang-vb.js" type="text/javascript"
+ onerror="alert('Error: failed to load ' + this.src)"></script>
 <script type="text/javascript">
 // get accurate timing
 PR_SHOULD_USE_CONTINUATION = false;
@@ -839,6 +841,53 @@ <h1>Bug 42 - Lisp Syntax Highlighting</h1>
 )
 </pre>
 
+<h1>Bug 27 - VBScript w/ language specified</h1>
+<pre class="prettyprint lang-vb" id="issue27">
+Imports System
+
+Class [class]
+    Shared Sub [shared](ByVal [boolean] As Boolean)
+        If [boolean] Then
+            Console.WriteLine("true")
+        Else
+            Console.WriteLine("false")
+        End If
+    End Sub
+End Class
+
+Module [module]
+    Sub Main()
+        [class].[shared](True)
+
+        ' This prints out: &quot;.
+        Console.WriteLine("""")
+
+        ' This prints out: a&quot;b.
+        Console.WriteLine("a""b")
+
+        ' This prints out: a.
+        Console.WriteLine("a"c)
+
+        ' This prints out: &quot;.
+        Console.WriteLine(""""c)
+    End Sub
+End Module
+
+Dim d As Date
+d = # 8/23/1970 3:45:39AM #
+d = # 8/23/1970 #
+d = # 3:45:39AM #
+d = # 3:45:39 #
+d = # 13:45:39 #
+d = # 13:45:39PM #
+
+Dim n As Float
+n = (0.0, .99F, 1.0E-2D, 1.0E+3D, .5E4, 1E3R, 4D)
+
+Dim i As Integer
+i = (0, 123, 45L, &amp;HA0I, &amp;O177S)
+</pre>
+
 <h1>Bug 33 - OCaml and F#</h1>
 <pre class="prettyprint lang-ml" id="issue33">
 (*
@@ -1929,6 +1978,50 @@ <h1>Protocol Buffers</h1>
       '&nbsp; `END`KWDend`END`PLN<br>' +
       '&nbsp; `END`KWDreturn`END`PLN shellsort<br>' +
       '`END`KWDend`END'),
+  issue27: (
+      '`KWDImports`END`PLN System<br>' +
+      '<br>' +
+      '`END`KWDClass`END`PLN [class]<br>' +
+      '&nbsp; &nbsp; `END`KWDShared`END`PLN `END`KWDSub`END`PLN [shared]`END`PUN(`END`KWDByVal`END`PLN [boolean] `END`KWDAs`END`PLN `END`KWDBoolean`END`PUN)`END`PLN<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; `END`KWDIf`END`PLN [boolean] `END`KWDThen`END`PLN<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console`END`PUN.`END`PLNWriteLine`END`PUN(`END`STR"true"`END`PUN)`END`PLN<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; `END`KWDElse`END`PLN<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console`END`PUN.`END`PLNWriteLine`END`PUN(`END`STR"false"`END`PUN)`END`PLN<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; `END`KWDEnd`END`PLN `END`KWDIf`END`PLN<br>' +
+      '&nbsp; &nbsp; `END`KWDEnd`END`PLN `END`KWDSub`END`PLN<br>' +
+      '`END`KWDEnd`END`PLN `END`KWDClass`END`PLN<br>' +
+      '<br>' +
+      '`END`KWDModule`END`PLN [module]<br>' +
+      '&nbsp; &nbsp; `END`KWDSub`END`PLN Main`END`PUN()`END`PLN<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; [class]`END`PUN.`END`PLN[shared]`END`PUN(`END`LITTrue`END`PUN)`END`PLN<br>' +
+      '<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; `END`COM\' This prints out: \".`END`PLN<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; Console`END`PUN.`END`PLNWriteLine`END`PUN(`END`STR""""`END`PUN)`END`PLN<br>' +
+      '<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; `END`COM\' This prints out: a"b.`END`PLN<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; Console`END`PUN.`END`PLNWriteLine`END`PUN(`END`STR"a""b"`END`PUN)`END`PLN<br>' +
+      '<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; `END`COM\' This prints out: a.`END`PLN<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; Console`END`PUN.`END`PLNWriteLine`END`PUN(`END`STR"a"c`END`PUN)`END`PLN<br>' +
+      '<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; `END`COM\' This prints out: ".`END`PLN<br>' +
+      '&nbsp; &nbsp; &nbsp; &nbsp; Console`END`PUN.`END`PLNWriteLine`END`PUN(`END`STR""""c`END`PUN)`END`PLN<br>' +
+      '&nbsp; &nbsp; `END`KWDEnd`END`PLN `END`KWDSub`END`PLN<br>' +
+      '`END`KWDEnd`END`PLN `END`KWDModule`END`PLN<br>' +
+      '<br>' +
+      '`END`KWDDim`END`PLN d `END`KWDAs`END`PLN `END`KWDDate`END`PLN<br>' +
+      'd `END`PUN=`END`PLN `END`LIT# 8/23/1970 3:45:39AM #`END`PLN<br>' +
+      'd `END`PUN=`END`PLN `END`LIT# 8/23/1970 #`END`PLN<br>' +
+      'd `END`PUN=`END`PLN `END`LIT# 3:45:39AM #`END`PLN<br>' +
+      'd `END`PUN=`END`PLN `END`LIT# 3:45:39 #`END`PLN<br>' +
+      'd `END`PUN=`END`PLN `END`LIT# 13:45:39 #`END`PLN<br>' +
+      'd `END`PUN=`END`PLN `END`LIT# 13:45:39PM #`END`PLN<br>' +
+      '<br>' +
+      '`END`KWDDim`END`PLN n `END`KWDAs`END`PLN Float<br>' +
+      'n `END`PUN=`END`PLN `END`PUN(`END`LIT0.0`END`PUN,`END`PLN `END`LIT.99F`END`PUN,`END`PLN `END`LIT1.0E-2D`END`PUN,`END`PLN `END`LIT1.0E+3D`END`PUN,`END`PLN `END`LIT.5E4`END`PUN,`END`PLN `END`LIT1E3R`END`PUN,`END`PLN `END`LIT4D`END`PUN)`END`PLN<br>' +
+      '<br>' +
+      '`END`KWDDim`END`PLN i `END`KWDAs`END`PLN `END`KWDInteger`END`PLN<br>' +
+      'i `END`PUN=`END`PLN `END`PUN(`END`LIT0`END`PUN,`END`PLN `END`LIT123`END`PUN,`END`PLN `END`LIT45L`END`PUN,`END`PLN `END`LIT&amp;HA0I`END`PUN,`END`PLN `END`LIT&amp;O177S`END`PUN)`END'),
   issue33: (
       '`COM(*<br>' +
       '&nbsp;* Print the 10th fibonacci number<br>' +