Fwd: fixed flaws in vba.ssh

[Masayuki Hatta]

FYI

---------- Forwarded message ----------
From: Masayuki Hatta <address@hidden>
Date: 2012/11/15
Subject: Re: fixed flaws in vba.ssh
To: Stefan Seidler <address@hidden>


Hi Stefan,

Thanks for the fix.  I'm now preparing the next maintenance release of a2ps, and your fix will definitely be included.

Best regards,
MH

2012/11/14 Stefan Seidler <address@hidden>

Hi,

I found two flaws in the Stylesheet for Visual Basic for Applications (vba.ssh) for a2ps.
- ElseIf if misspelled so its not highlighted in the printout
- missing comma in the keywords list so "Integer" is always printed as "Is"

Below I have included the diff -u for patch. This includes the change suggested in http://lists.gnu.org/archive/html/bug-a2ps/2009-07/msg00000.html as well.

How can this be included into the next release?

Best Regards,
 Stefan


--- vba.ssh     2012-11-14 13:46:30.892129632 +0100
+++ vba.ssh_new 2012-11-14 13:46:14.891129423 +0100
@@ -24,7 +24,7 @@

 style "Visual Basic for Applications" is
 written by "Dirk Eddelbuettel <address@hidden>"
-version is 1.0
+version is 1.1
 requires a2ps 4.10

 alphabets are
@@ -37,9 +37,9 @@
    CDate, CDbl, CDecl, CInt, Circle, CLng, Close, Const, CSng, CStr,
    CurDirrase, Currency, CVar, CVDate, CVErr, Date, Debug, Declare,
    DefBool, DefCur, DefDate, DefInt, DefObj, DefSng, DefStr, DefVar, Dim,
-   Dir, Do, Double, Each, Else, Elself, Empty, End, EndIf, Eqv, Erase,
+   Dir, Do, Double, Each, Else, ElseIf, Empty, End, EndIf, Eqv, Erase,
    "Error", Exit, False, Fix, For, Format, FreeFile, Function, Get, Global,
-   GoSub, GoTo, If, Imp, In, Input, InputB, Instr, InstrB, Int, Integer
+   GoSub, GoTo, If, Imp, In, Input, InputB, Instr, InstrB, Int, Integer,
    Is, LBound, Len, LenB, Let, Like, Line, Load, Local, Lock, Long, Loop,
    LSet, Me, Mid, MidB, Mod, Name, New, Next, Not, Nothing, Null, Object,
    On, Open, Option, Or, Point, Preserve, Print, Private, Property, PSet,
@@ -66,7 +66,10 @@

 sequences are
     "'" Comment,
-    C-string
+    "\"" Plain String "\"" Plain
+       exceptions are
+          "\"\""
+       end exceptions
 end sequences

 end style

--
Masayuki Hatta <mhatta at gmail.com>

-- 
Masayuki Hatta <mhatta at gmail.com>