jablonka.czprosek.czf

websvn

Subversion Repositories:
[/] [templates/] [calm/] [star-light/] [star-vbs.htc] - Blame information for rev 1

 

Line No. Rev Author Line
11simandl<?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 
14var 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";
19var 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 "";
38var ALERT = "msgbox|inputbox|alert|confirm|eval|exec|execute|__defineGetter__|__defineSetter__|on|error|resume|next|goto";
39 
40function 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 

Powered by WebSVN 2.2.1