1 | 1 | simandl | <?xml version="1.0" encoding="ISO-8859-1"?> |
2 | | | <!-- |
3 | | | star-light - version 1.0.2 (2005/06/06) |
4 | | | Copyright 2005, Dean Edwards |
5 | | | License: http://creativecommons.org/licenses/LGPL/2.1/ |
6 | | | --> |
7 | | | <public:component xmlns:public="urn:HTMLComponent" lightweight="true"> |
8 | | | <public:attach event="ondocumentready" handler="init"/> |
9 | | | <script type="text/javascript"> |
10 | | | //<![CDATA[ |
11 | | | |
12 | | | // VBScript module by Rob Eberhardt |
13 | | | |
14 | | | var KEYWORDS = |
15 | | | "call|class|end|const|dim|do|loop|erase|execute|executeglobal|exit|for|each|in|next|function|end\\sfunction|if|then|else|" + |
16 | | | "on\\serror|resume\\snext|goto\\s0|goto\\s1|option\\sexplicit|private|property\\sget|property\\slet|property\\sset|end\\sproperty|public|" + |
17 | | | "randomize|redim|select|end\\sselect|case|set|sub|end\\ssub|while|wend|with|" + |
18 | | | "null|nothing|me|true|false|and|or|not|xor"; |
19 | | | var GLOBAL = |
20 | | | "Abs|Array|Asc|Atn|CBool|CByte|CCur|CDate|CDbl|Chr|CInt|CLng|CStr|Cos|CreateObject|CSng|" + |
21 | | | "Date|DateAdd|DateDiff|DatePart|DateSerial|DateValue|Day|Eval|Exp|Filter|FormatCurrency|FormatDateTime|FormatNumber|FormatPercent|" + |
22 | | | "GetLocale|GetObject|GetRef|Hex|Hour|InputBox|InStr|InStrRev|Int,|Fixs|IsArray|IsDate|IsEmpty|IsNull|IsNumeric|IsObject|Join|" + |
23 | | | "LBound|LCase|Left|Len|LoadPicture|Log|LTrim|RTrim|Trim|Maths|Mid|Minute|Month|MonthName|MsgBox|Now|Oct|Replace|RGB|Right|Rnd|Round|" + |
24 | | | "ScriptEngine|ScriptEngineBuildVersion|ScriptEngineMajorVersion|ScriptEngineMinorVersion|Second|SetLocale|Sgn|Sin|Space|Split|Sqr|StrComp|String|" + |
25 | | | "Tan|Time|Timer|TimeSerial|TimeValue|TypeName|UBound|UCase|VarType|Weekday|WeekdayName|Year|" + |
26 | | | "vbBlack|vbRed|vbGreen|vbYellow|vbBlue|vbMagenta|vbCyan|vbWhite|" + |
27 | | | "vbSunday|vbMonday|vbTuesday|vbWednesday|vbThursday|vbFriday|vbSaturday|vbUseSystemDayOfWeek|vbFirstJan1|vbFirstFourDays|vbFirstFullWeek|" + |
28 | | | "vbGeneralDate|vbLongDate|vbShortDate|vbLongTime|vbShortTime|" + |
29 | | | "vbObjectError|" + |
30 | | | "vbOKOnly|vbOKCancel|vbAbortRetryIgnore|vbYesNoCancel|vbYesNo|vbRetryCancel|vbCritical|vbQuestion|vbExclamation|vbInformation|vbDefaultButton1|vbDefaultButton2|vbDefaultButton3|vbDefaultButton4|vbApplicationModal|vbSystemModal|vbOK|vbCancel|vbAbort|vbRetry|vbIgnore|vbYes|vbNo|" + |
31 | | | "vbCr|VbCrLf|vbFormFeed|vbLf|vbNewLine|vbNullChar|vbNullString|vbTab|vbVerticalTab" + |
32 | | | "vbUseDefault|vbTrue|vbFalse|" + |
33 | | | "vbEmpty|vbNull|vbInteger|vbLong|vbSingle|vbSingle|vbCurrency|vbDate|vbString|vbObject|vbError|vbBoolean|vbVariant|vbDataObject|vbDecimal|vbByte|vbArray|" + |
34 | | | "Class_Initialize|Class_Terminate|" + |
35 | | | "Clear|Execute|Raise|Replace|Test|" + |
36 | | | "Err|RegExp|escape|unescape|" + |
37 | | | ""; |
38 | | | var ALERT = "msgbox|inputbox|alert|confirm|eval|exec|execute|__defineGetter__|__defineSetter__|on|error|resume|next|goto"; |
39 | | | |
40 | | | function init() { |
41 | | | parser.ignoreCase = true; |
42 | | | parser.escapeChar = "\\"; |
43 | | | |
44 | | | // default text colour |
45 | | | style.color = "black"; |
46 | | | |
47 | | | // comments |
48 | | | var LINE_COMMENT = /(rem|')[^\n]*\n/; |
49 | | | parser.add(LINE_COMMENT, "color:green"); |
50 | | | |
51 | | | // regular expressions |
52 | | | parser.add(/([^\w\$\/'"*)])(\/[^\/\n\r\*][^\/\n\r]*\/g?i?)/, "color:maroon", "$2<span>$3</span>"); |
53 | | | |
54 | | | // strings |
55 | | | parser.add(STRING2, "color:maroon"); // double quotes |
56 | | | |
57 | | | // numbers |
58 | | | parser.add(NUMBER, "color:maroon"); |
59 | | | |
60 | | | // urls/email |
61 | | | urls = true; |
62 | | | email = true; |
63 | | | |
64 | | | tabStop = 4; |
65 | | | |
66 | | | // vbcript keywords |
67 | | | parser.add(ALERT, "color:red"); |
68 | | | parser.add(KEYWORDS, "color:blue"); |
69 | | | parser.add(GLOBAL, "color:teal"); |
70 | | | }; |
71 | | | //]]> |
72 | | | </script> |
73 | | | </public:component> |
74 | | | |