1 //mIRC mode by Ford_Lawnmower :: Based on Velocity mode by Steve O'Hara
2 CodeMirror.defineMIME("text/mirc", "mirc");
3 CodeMirror.defineMode("mirc", function() {
4 function parseWords(str) {
5 var obj = {}, words = str.split(" ");
6 for (var i = 0; i < words.length; ++i) obj[words[i]] = true;
9 var specials = parseWords("$! $$ $& $? $+ $abook $abs $active $activecid " +
10 "$activewid $address $addtok $agent $agentname $agentstat $agentver " +
11 "$alias $and $anick $ansi2mirc $aop $appactive $appstate $asc $asctime " +
12 "$asin $atan $avoice $away $awaymsg $awaytime $banmask $base $bfind " +
13 "$binoff $biton $bnick $bvar $bytes $calc $cb $cd $ceil $chan $chanmodes " +
14 "$chantypes $chat $chr $cid $clevel $click $cmdbox $cmdline $cnick $color " +
15 "$com $comcall $comchan $comerr $compact $compress $comval $cos $count " +
16 "$cr $crc $creq $crlf $ctime $ctimer $ctrlenter $date $day $daylight " +
17 "$dbuh $dbuw $dccignore $dccport $dde $ddename $debug $decode $decompress " +
18 "$deltok $devent $dialog $did $didreg $didtok $didwm $disk $dlevel $dll " +
19 "$dllcall $dname $dns $duration $ebeeps $editbox $emailaddr $encode $error " +
20 "$eval $event $exist $feof $ferr $fgetc $file $filename $filtered $finddir " +
21 "$finddirn $findfile $findfilen $findtok $fline $floor $fopen $fread $fserve " +
22 "$fulladdress $fulldate $fullname $fullscreen $get $getdir $getdot $gettok $gmt " +
23 "$group $halted $hash $height $hfind $hget $highlight $hnick $hotline " +
24 "$hotlinepos $ial $ialchan $ibl $idle $iel $ifmatch $ignore $iif $iil " +
25 "$inelipse $ini $inmidi $inpaste $inpoly $input $inrect $inroundrect " +
26 "$insong $instok $int $inwave $ip $isalias $isbit $isdde $isdir $isfile " +
27 "$isid $islower $istok $isupper $keychar $keyrpt $keyval $knick $lactive " +
28 "$lactivecid $lactivewid $left $len $level $lf $line $lines $link $lock " +
29 "$lock $locked $log $logstamp $logstampfmt $longfn $longip $lower $ltimer " +
30 "$maddress $mask $matchkey $matchtok $md5 $me $menu $menubar $menucontext " +
31 "$menutype $mid $middir $mircdir $mircexe $mircini $mklogfn $mnick $mode " +
32 "$modefirst $modelast $modespl $mouse $msfile $network $newnick $nick $nofile " +
33 "$nopath $noqt $not $notags $notify $null $numeric $numok $oline $onpoly " +
34 "$opnick $or $ord $os $passivedcc $pic $play $pnick $port $portable $portfree " +
35 "$pos $prefix $prop $protect $puttok $qt $query $rand $r $rawmsg $read $readomo " +
36 "$readn $regex $regml $regsub $regsubex $remove $remtok $replace $replacex " +
37 "$reptok $result $rgb $right $round $scid $scon $script $scriptdir $scriptline " +
38 "$sdir $send $server $serverip $sfile $sha1 $shortfn $show $signal $sin " +
39 "$site $sline $snick $snicks $snotify $sock $sockbr $sockerr $sockname " +
40 "$sorttok $sound $sqrt $ssl $sreq $sslready $status $strip $str $stripped " +
41 "$syle $submenu $switchbar $tan $target $ticks $time $timer $timestamp " +
42 "$timestampfmt $timezone $tip $titlebar $toolbar $treebar $trust $ulevel " +
43 "$ulist $upper $uptime $url $usermode $v1 $v2 $var $vcmd $vcmdstat $vcmdver " +
44 "$version $vnick $vol $wid $width $wildsite $wildtok $window $wrap $xor");
45 var keywords = parseWords("abook ajinvite alias aline ame amsg anick aop auser autojoin avoice " +
46 "away background ban bcopy beep bread break breplace bset btrunc bunset bwrite " +
47 "channel clear clearall cline clipboard close cnick color comclose comopen " +
48 "comreg continue copy creq ctcpreply ctcps dcc dccserver dde ddeserver " +
49 "debug dec describe dialog did didtok disable disconnect dlevel dline dll " +
50 "dns dqwindow drawcopy drawdot drawfill drawline drawpic drawrect drawreplace " +
51 "drawrot drawsave drawscroll drawtext ebeeps echo editbox emailaddr enable " +
52 "events exit fclose filter findtext finger firewall flash flist flood flush " +
53 "flushini font fopen fseek fsend fserve fullname fwrite ghide gload gmove " +
54 "gopts goto gplay gpoint gqreq groups gshow gsize gstop gtalk gunload hadd " +
55 "halt haltdef hdec hdel help hfree hinc hload hmake hop hsave ial ialclear " +
56 "ialmark identd if ignore iline inc invite iuser join kick linesep links list " +
57 "load loadbuf localinfo log mdi me menubar mkdir mnick mode msg nick noop notice " +
58 "notify omsg onotice part partall pdcc perform play playctrl pop protect pvoice " +
59 "qme qmsg query queryn quit raw reload remini remote remove rename renwin " +
60 "reseterror resetidle return rlevel rline rmdir run ruser save savebuf saveini " +
61 "say scid scon server set showmirc signam sline sockaccept sockclose socklist " +
62 "socklisten sockmark sockopen sockpause sockread sockrename sockudp sockwrite " +
63 "sound speak splay sreq strip switchbar timer timestamp titlebar tnick tokenize " +
64 "toolbar topic tray treebar ulist unload unset unsetall updatenl url uwho " +
65 "var vcadd vcmd vcrem vol while whois window winhelp write writeint if isalnum " +
66 "isalpha isaop isavoice isban ischan ishop isignore isin isincs isletter islower " +
67 "isnotify isnum ison isop isprotect isreg isupper isvoice iswm iswmcs " +
68 "elseif else goto menu nicklist status title icon size option text edit " +
69 "button check radio box scroll list combo link tab item");
70 var functions = parseWords("if elseif else and not or eq ne in ni for foreach while switch");
71 var isOperatorChar = /[+\-*&%=<>!?^\/\|]/;
72 function chain(stream, state, f) {
74 return f(stream, state);
76 function tokenBase(stream, state) {
77 var beforeParams = state.beforeParams;
78 state.beforeParams = false;
79 var ch = stream.next();
80 if (/[\[\]{}\(\),\.]/.test(ch)) {
81 if (ch == "(" && beforeParams) state.inParams = true;
82 else if (ch == ")") state.inParams = false;
85 else if (/\d/.test(ch)) {
86 stream.eatWhile(/[\w\.]/);
89 else if (ch == "\\") {
94 else if (ch == "/" && stream.eat("*")) {
95 return chain(stream, state, tokenComment);
97 else if (ch == ";" && stream.match(/ *\( *\(/)) {
98 return chain(stream, state, tokenUnparsed);
100 else if (ch == ";" && !state.inParams) {
104 else if (ch == '"') {
108 else if (ch == "$") {
109 stream.eatWhile(/[$_a-z0-9A-Z\.:]/);
110 if (specials && specials.propertyIsEnumerable(stream.current().toLowerCase())) {
114 state.beforeParams = true;
118 else if (ch == "%") {
119 stream.eatWhile(/[^,^\s^\(^\)]/);
120 state.beforeParams = true;
123 else if (isOperatorChar.test(ch)) {
124 stream.eatWhile(isOperatorChar);
128 stream.eatWhile(/[\w\$_{}]/);
129 var word = stream.current().toLowerCase();
130 if (keywords && keywords.propertyIsEnumerable(word))
132 if (functions && functions.propertyIsEnumerable(word)) {
133 state.beforeParams = true;
139 function tokenComment(stream, state) {
140 var maybeEnd = false, ch;
141 while (ch = stream.next()) {
142 if (ch == "/" && maybeEnd) {
143 state.tokenize = tokenBase;
146 maybeEnd = (ch == "*");
150 function tokenUnparsed(stream, state) {
151 var maybeEnd = 0, ch;
152 while (ch = stream.next()) {
153 if (ch == ";" && maybeEnd == 2) {
154 state.tokenize = tokenBase;
165 startState: function() {
172 token: function(stream, state) {
173 if (stream.eatSpace()) return null;
174 return state.tokenize(stream, state);