{"id":2856,"date":"2014-09-04T22:33:48","date_gmt":"2014-09-04T14:33:48","guid":{"rendered":"https:\/\/www.highflybird.com\/blog\/?p=2856"},"modified":"2018-12-04T01:54:26","modified_gmt":"2018-12-03T17:54:26","slug":"%e5%9c%a8blogger%e4%b8%ad%e4%bd%bf%e7%94%a8lisp%e7%9a%84%e8%af%ad%e6%b3%95%e9%ab%98%e4%ba%ae","status":"publish","type":"post","link":"https:\/\/www.highflybird.com\/blog\/?p=2856","title":{"rendered":"\u5728blogger\u4e2d\u4f7f\u7528LISP\u7684\u8bed\u6cd5\u9ad8\u4eae"},"content":{"rendered":"<p>\u6b64\u6587\u4ec5\u4ec5\u4e3a\u90a3\u4e9b\u60f3\u5728blogger\u7528LISP\u7684\u8bed\u6cd5\u9ad8\u4eae\u4ee3\u7801\u53d1\u5e16\u7684\u4eba\u3002<br \/>\n\u9996\u5148\uff0c\u8bf7\u53c2\u8003\uff1a<br \/>\n\u8ba9Blogspot\u652f\u6301\u8bed\u6cd5\u9ad8\u4eae\uff1a<br \/>\nhttp:\/\/blog.venj.me\/2010\/06\/blogspot.html<br \/>\n\u5728Blogger\u4e2d\u6dfb\u52a0\u4ee3\u7801\u8bed\u6cd5\u9ad8\u4eae\uff1a<br \/>\nhttp:\/\/zjunet.blogspot.com\/2013\/04\/blogger.html\u3002<br \/>\nsyntaxhighlighter\u8fd9\u4e2a\u63d2\u4ef6\u5f88\u597d\uff0c\u53ef\u662f\u6ca1\u6709\u4e3aLISP\u5b9a\u5236\u7684js.<br \/>\n\u90a3\u4e48\uff0c\u60f3\u7528LISP\u8bed\u6cd5\u4e5f\u80fd\u8fbe\u5230\u8fd9\u6837\u7684\u6548\u679c\uff0c\u53ea\u597d\u81ea\u5df1\u52a8\u624b\u4e86\u3002<br \/>\n\u4e0b\u9762\u662f\u6211\u5199\u7684\uff1ashBrushLisp.js\u6587\u4ef6\uff1a<br \/>\n<a href=\"https:\/\/www.highflybird.com\/blog\/wp-content\/uploads\/2014\/09\/shBrushLisp.js\">shBrushLisp<\/a><br \/>\n\u6309\u7167\u7f51\u4e0a\u7684\u65b9\u6cd5\uff0c\u4f60\u6dfb\u52a0\u8fdb\u53bb\u5c31\u53ef\u4ee5\u4e86\u3002<\/p>\n<p>[codesyntax lang=&#8221;javascript&#8221;]<br \/>\ndp.sh.Brushes.Lsp = function()<br \/>\n{<br \/>\n\tvar keywords =<br \/>\n\t&#8216;abs acad_colordlg acad_helpdlg acad-pop-dbmod acad-push-dbmod &#8216; +<br \/>\n\t&#8216;acad_strlsort acdimenableupdate acet-layerp-mode acet-layerp-mark acet-laytrans acet-ms-to-ps &#8216; +<br \/>\n\t&#8216;acet-ps-to-ms action_tile add_list ads alert alloc and angle angtof angtos append apply arx &#8216; +<br \/>\n\t&#8216;arxload arxunload ascii assoc atan atof atoi atom atoms-family autoarxload autoload Boole boundp &#8216; +<br \/>\n\t&#8216;caddr cadr car cdr chr client_data_tile close command cond cons cos cvunit defun-q-list-set defun-q-list-ref defun-q &#8216; +<br \/>\n\t&#8216;defun dictadd dictnext dictremove dictrename dictsearch dimx_tile dimy_tile distance &#8216; +<br \/>\n\t&#8216;distof done_dialog end_image end_list entdel entget entlast entmake entmakex entmod entnext entsel &#8216; +<br \/>\n\t&#8216;entupd eq equal error eval exit exp expand expt fill_image findfile fix float foreach function &#8216; +<br \/>\n\t&#8216;gc gcd get_attr get_tile getangle getcfg getcname getcorner getdist getenv getfiled getint getkword &#8216; +<br \/>\n\t&#8216;getorient getpoint getreal getstring getvar graphscr grclear grdraw grread grtext grvecs handent help &#8216; +<br \/>\n\t&#8216;if initdia initget inters itoa lambda last layoutlist length list listp load_dialog load log logand &#8216; +<br \/>\n\t&#8216;logior lsh mapcar max mem member menucmd menugroup min minusp mode_tile namedobjdict nentsel nentselp &#8216; +<br \/>\n\t&#8216;new_dialog not nth null numberp open or osnap polar prin1 princ print progn prompt quit quote read-char read-line read &#8216; +<br \/>\n\t&#8216;redraw regapp rem repeat reverse rtos set set_tile setcfg setenv setfunhelp setq &#8216; +<br \/>\n\t&#8216;setvar setview sin slide_image snvalid sqrt ssadd ssdel ssget ssgetfirst sslength ssmemb ssname ssnamex &#8216; +<br \/>\n\t&#8216;sssetfirst startapp start_dialog start_image start_list strcase strcat strlen subst substr tablet tblnext &#8216; +<br \/>\n\t&#8216;tblobjname tblsearch term_dialog terpri textbox textpage textscr trace trans type unload_dialog untrace &#8216; +<br \/>\n\t&#8216;vector_image ver vlisp-compile vports wcmatch while write-char write-line xdroom xdsize xload xunload zerop &#8216;+<br \/>\n\t&#8216;nil t pi&#8217;;<br \/>\n\tthis.regexList = [<br \/>\n\t\t\t{ regex: \/;.*$\/gm, \t\t\t\t\t\t\t\t\t\t    css: &#8216;comments&#8217; },  \t\/\/ \u5355\u884c\u6ce8\u91ca<br \/>\n\t\t\t{ regex: \/;\\|[\\S\\s]*?\\|;\/g, \t\t\t\t\t\t\t\tcss: &#8216;comments&#8217; },\t\t\/\/ \u591a\u884c\u6ce8\u91ca<br \/>\n\t\t\t{ regex: dp.sh.RegexLib.DoubleQuotedString,\t\t\t\t\tcss: &#8216;string&#8217; },\t\t\/\/ \u5b57\u7b26\u4e32<br \/>\n\t\t\t{ regex: new RegExp(this.GetKeywords(keywords), &#8216;gmi&#8217;),\t\tcss: &#8216;keyword&#8217; },       \/\/ \u5185\u90e8\u51fd\u6570<br \/>\n\t\t\t{ regex: \/\\(|\\)\/gm, \t\t\t\t\t\t\t\t\t\tcss: &#8216;preprocessor&#8217; },  \/\/ \u62ec\u53f7<br \/>\n\t\t\t{ regex: new RegExp(&#8216;\\\\#[a-zA-Z0-9]{3,6}&#8217;, &#8216;g&#8217;),\t\t\tcss: &#8216;value&#8217; },<br \/>\n\t\t\t{ regex: \/(vl-)[\\w-&gt;]+\/gmi,\t\t\t\t\t\t\t\t\tcss: &#8216;functions&#8217; },\t\t\/\/ keywords<br \/>\n\t\t\t{ regex: \/(vla-)[\\w-&gt;]+\/gmi,\t\t\t\t\t\t\t\tcss: &#8216;functions&#8217; },\t\t\/\/ keywords<br \/>\n\t\t\t{ regex: \/(vlax-)[\\w-&gt;]+\/gmi,\t\t\t\t\t\t\t\tcss: &#8216;functions&#8217; },\t\t\/\/ keywords<br \/>\n\t\t\t{ regex: \/(:vlax-)\\w+\/gmi,\t\t\t\t\t\t\t\t\tcss: &#8216;functions&#8217; },\t\t\/\/ keywords<br \/>\n\t\t\t{ regex: \/(:vlr-)\\w+\/gmi,\t\t\t\t\t\t\t\t\tcss: &#8216;functions&#8217; },\t\t\/\/ keywords<br \/>\n\t\t\t{ regex: \/&#8217;\/gm,\t\t\t\t\t\t\t\t\t\t\t\tcss: &#8216;keyword&#8217; },\t\t\/\/ keywords<br \/>\n\t\t\t{ regex: \/(\\+|1\\+|-|1-|\\*|\\\/|=|\\\/=|&amp;gt;|&amp;lt;|&amp;lt;=|&amp;gt;=|~)\/gmi,css: &#8216;keyword&#8217; }\t\/\/ Operators\u8fd0\u7b97\u7b26<br \/>\n\t\t];<\/p>\n<p>\tthis.CssClass = &#8216;dp-lsp&#8217;;<br \/>\n\tthis.Style =\t&#8216;.dp-lsp .value { color: red; }&#8217; +<br \/>\n\t\t\t\t\t&#8216;.dp-lsp .keyword { color: blue; font-weight: bold; }&#8217; +<br \/>\n\t\t\t\t\t&#8216;.dp-lsp .string { color: green; }&#8217; +<br \/>\n\t\t\t\t\t&#8216;.dp-lsp .preprocessor { color: magenta; }&#8217; +<br \/>\n\t\t\t\t\t&#8216;.dp-lsp .functions { color: blue; font-weight: bold; }&#8217; +<br \/>\n\t\t\t\t\t&#8216;.dp-lsp .comments { color: grey; }&#8217;<br \/>\n\t\t\t\t\t;<br \/>\n};<\/p>\n<p>dp.sh.Brushes.Lsp.prototype\t= new dp.sh.Highlighter();<br \/>\ndp.sh.Brushes.Lsp.Aliases\t= [&#8216;lisp&#8217;, &#8216;lsp&#8217;];<br \/>\n[\/codesyntax]<\/p>\n<p>\u6548\u679c\u5982\u4e0b\uff1a<br \/>\n<a href=\"https:\/\/www.highflybird.com\/blog\/wp-content\/uploads\/2014\/09\/LispSynHighlighter.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.highflybird.com\/blog\/wp-content\/uploads\/2014\/09\/LispSynHighlighter.jpg\" alt=\"LispSynHighlighter\" width=\"585\" height=\"414\" class=\"alignnone size-full wp-image-2860\" \/><\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u6b64\u6587\u4ec5\u4ec5\u4e3a\u90a3\u4e9b\u60f3\u5728blogger\u7528LISP\u7684\u8bed\u6cd5\u9ad8\u4eae\u4ee3\u7801\u53d1\u5e16\u7684\u4eba\u3002 \u9996\u5148\uff0c\u8bf7\u53c2\u8003\uff1a \u8ba9Blogspot\u652f\u6301\u8bed\u6cd5<\/p>\n<p class=\"more-link\"><a href=\"https:\/\/www.highflybird.com\/blog\/?p=2856\" class=\"themebutton2\">Read More<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[9],"tags":[],"class_list":["post-2856","post","type-post","status-publish","format-standard","hentry","category-programming"],"_links":{"self":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/2856","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2856"}],"version-history":[{"count":0,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/2856\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2856"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2856"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2856"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}