开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
nasm.sl
资源名称：nasm-0.98.zip　[点击查看]
上传用户：yuppie_zhu
上传日期：2007-01-08
资源大小：535k
文件大小：10k
源码类别：

编译器/解释器

开发平台：

C/C++

nasm.sl：源码内容
  1. % This file defines a NASM editor mode for the JED editor.
  2. % JED's home page is http://space.mit.edu/~davis/jed.html.
  3. %
  4. % To install, copy this file into your JED_LIBRARY directory
  5. % (/usr/local/jed/lib or C:JEDLIB or whatever), then add the
  6. % following lines to your .jedrc or jed.rc file:
  7. %   autoload("nasm_mode", "nasm");
  8. %   add_mode_for_extension("nasm", "asm");
  9. % (you can of course replace "asm" with whatever file extension
  10. % you like to use for your NASM source files).
  12. variable Nasm_Instruction_Indent = 10;
  13. variable Nasm_Comment_Column = 33;
  14. variable Nasm_Comment_Space = 1;
  16. variable nasm_kw_2 = strcat("ahalaxbhblbpbtbxchclcscxdbdddhdidldqdsdtdwdxes",
  17.     "fsgsinjajbjcjejgjljojpjsjzorsispssto");
  18. variable nasm_kw_3 = strncat("a16a32aaaaadaamaasadcaddandbsfbsrbtcbtrbtscbw",
  19.      "cdqclccldclicmccmpcr0cr2cr3cr4cwddaadasdecdiv",
  20.      "dr0dr1dr2dr3dr6dr7eaxebpebxecxediedxequesiesp",
  21.      "farfldfsthltincintjaejbejgejlejmpjnajnbjncjne",
  22.      "jngjnljnojnpjnsjnzjpejpolarldslealeslfslgslsl",
  23.      "lssltrmm0mm1mm2mm3mm4mm5mm6mm7movmulnegnopnot",
  24.      "o16o32outpopporrclrcrrepretrolrorrsmsalsarsbb",
  25.      "segshlshrsmist0st1st2st3st4st5st6st7stcstdsti",
  26.      "strsubtr3tr4tr5tr6tr7wrtxor", 9);
  27. variable nasm_kw_4 = strncat("arplbytecallcltscwdeemmsfabsfaddfbldfchsfcom",
  28.      "fcosfdivfenifildfistfld1fldzfmulfnopfsinfstp",
  29.      "fsubftstfxamfxchibtsidivimulinsbinsdinswint1",
  30.      "int3intoinvdiretjcxzjnaejnbejngejnlelahflgdt",
  31.      "lidtlldtlmswlocklongloopmovdmovqnearpandpopa",
  32.      "popfpushpxorreperepzresbresdresqrestreswretf",
  33.      "retnsahfsalcsetasetbsetcsetesetgsetlsetosetp",
  34.      "setssetzsgdtshldshrdsidtsldtsmswtestumovverr",
  35.      "verwwaitwordxaddxbtsxchg", 9);
  36. variable nasm_kw_5 = strncat("boundbswapcmovacmovbcmovccmovecmovgcmovlcmovo",
  37.      "cmovpcmovscmovzcmpsbcmpsdcmpswcpuiddwordenter",
  38.      "f2xm1faddpfbstpfclexfcomifcompfdisifdivpfdivr",
  39.      "ffreefiaddficomfidivfimulfinitfistpfisubfldcw",
  40.      "fldpifmulpfpremfptanfsavefsqrtfstcwfstswfsubp",
  41.      "fsubrfucomfyl2xicebpint01iretdiretwjecxzleave",
  42.      "lodsblodsdlodswloopeloopzmovsbmovsdmovswmovsx",
  43.      "movzxoutsboutsdoutswpaddbpadddpaddwpandnpopad",
  44.      "popawpopfdpopfwpslldpsllqpsllwpsradpsrawpsrld",
  45.      "psrlqpsrlwpsubbpsubdpsubwpushapushfqwordrdmsr",
  46.      "rdpmcrdtscrepnerepnzscasbscasdscaswsetaesetbe",
  47.      "setgesetlesetnasetnbsetncsetnesetngsetnlsetno",
  48.      "setnpsetnssetnzsetpesetposhortstosbstosdstosw",
  49.      "timestwordwrmsrxlatb", 14);
  50. variable nasm_kw_6 = strncat("cmovaecmovbecmovgecmovlecmovnacmovnbcmovnc",
  51.      "cmovnecmovngcmovnlcmovnocmovnpcmovnscmovnz",
  52.      "cmovpecmovpofcmovbfcmovefcmovufcomipfcompp",
  53.      "fdivrpficompfidivrfisubrfldenvfldl2efldl2t",
  54.      "fldlg2fldln2fpatanfprem1frstorfscalefsetpm",
  55.      "fstenvfsubrpfucomifucompincbininvlpgloopne",
  56.      "loopnzpaddsbpaddswpmulhwpmullwpsubsbpsubsw",
  57.      "pushadpushawpushfdpushfwsetnaesetnbesetnge",
  58.      "setnlewbinvd", 9);
  59. variable nasm_kw_7 = strncat("cmovnaecmovnbecmovngecmovnlecmpxchgfcmovbe",
  60.      "fcmovnbfcmovnefcmovnufdecstpfincstpfrndint",
  61.      "fsincosfucomipfucomppfxtractfyl2xp1loadall",
  62.      "paddusbpadduswpcmpeqbpcmpeqdpcmpeqwpcmpgtb",
  63.      "pcmpgtdpcmpgtwpmaddwdpsubusbpsubusw", 5);
  64. variable nasm_kw_8 = "fcmovnbepackssdwpacksswbpackuswb";
  65. variable nasm_kw_9 = strcat("cmpxchg8bpunpckhbwpunpckhdqpunpckhwdpunpcklbw",
  66.     "punpckldqpunpcklwd");
  67. variable nasm_kw_10 = "cmpxchg486loadall286";
  69. define nasm_indent_line() {
  70.     variable word, len, e, c;
  72.     e = eolp();
  74.     push_spot();
  75.     EXIT_BLOCK {
  76. pop_spot();
  77. if (what_column() <= Nasm_Instruction_Indent)
  78.     skip_white();
  79.     }
  81.     bol_skip_white();
  82.     c = what_column();
  84.     if (orelse
  85.        {looking_at_char(';')}
  86.        {looking_at_char('#')}
  87.        {looking_at_char('[')}) {
  88. bol_trim();
  89. pop_spot();
  90. EXIT_BLOCK {
  91. }
  92. return;
  93.     }
  95.     if (looking_at_char('%')) {
  96. go_right_1();
  97. !if (orelse
  98.     {looking_at_char('$')}
  99.     {looking_at_char('%')}
  100.     {looking_at_char('+')}
  101.     {looking_at_char('-')}
  102.     {looking_at_char('0')}
  103.     {looking_at_char('1')}
  104.     {looking_at_char('2')}
  105.     {looking_at_char('3')}
  106.     {looking_at_char('4')}
  107.     {looking_at_char('5')}
  108.     {looking_at_char('6')}
  109.     {looking_at_char('7')}
  110.     {looking_at_char('8')}
  111.     {looking_at_char('9')}) {
  112.     bol_trim();
  113.     pop_spot();
  114.     EXIT_BLOCK {
  115.     }
  116.     return;
  117. }
  118. go_left_1();
  119.     }
  121.     push_mark();
  122.     skip_chars("%$+-");
  123.     skip_chars("0-9a-zA-Z_.");
  124.     word = bufsubstr();
  126.     if (orelse
  127.        {c == 1}
  128.        {looking_at_char(':')}) {
  129. push_spot();
  130. bol_trim();
  131. pop_spot();
  132. len = strlen(word);
  133. if (looking_at_char(':')) {
  134.     go_right_1();
  135.     len++;
  136. }
  137. trim();
  138. if (e or not(eolp())) {
  139.     if (len >= Nasm_Instruction_Indent) {
  140. pop();
  141. whitespace(1);
  142.     } else
  143. whitespace(Nasm_Instruction_Indent - len);
  144.     if (e) {
  145. pop_spot();
  146. eol();
  147. push_spot();
  148.     }
  149. }
  150.     } else {
  151. bol_trim();
  152. whitespace(Nasm_Instruction_Indent);
  153.     }
  154. }
  156. define nasm_newline_indent {
  157.     push_spot();
  158.     bol_skip_white();
  159.     if (eolp())
  160. trim();
  161.     pop_spot();
  162.     newline();
  163.     nasm_indent_line();
  164. }
  166. define nasm_bol_self_ins {
  167.     push_spot();
  168.     bskip_white();
  169.     bolp();
  170.     pop_spot();
  172.     call("self_insert_cmd");
  174.     % Grotty: force immediate update of the syntax highlighting.
  175.     insert_char('.');
  176.     deln(left(1));
  178.     if (())
  179. nasm_indent_line();
  180. }
  182. define nasm_self_ins_ind {
  183.     call("self_insert_cmd");
  185.     % Grotty: force immediate update of the syntax highlighting.
  186.     insert_char('.');
  187.     deln(left(1));
  189.     nasm_indent_line();
  190. }
  192. define nasm_insert_comment {
  193.     variable spc;
  195.     bol_skip_white();
  196.     if (looking_at_char(';')) {
  197. bol_trim();
  198. go_right(1);
  199. skip_white();
  200. return;
  201.     } else if (eolp()) {
  202. bol_trim();
  203. insert("; ");
  204. return;
  205.     }
  207.     forever {
  208. skip_chars("^;n'"");
  209. if (looking_at_char(''')) {
  210.     go_right_1();
  211.     skip_chars("^'n");
  212.     !if (eolp())
  213. go_right_1();
  214. } else if (looking_at_char('"')) {
  215.     go_right_1();
  216.     skip_chars("^"n");
  217.     !if (eolp())
  218. go_right_1();
  219. } else if (looking_at_char(';')) {
  220.     !if (bolp()) {
  221. go_left_1();
  222. trim();
  223. !if (looking_at_char(';'))
  224.     go_right_1();
  225.     }
  226.     break;
  227. } else {
  228.     break;
  229. }
  230.     }
  231.     spc = Nasm_Comment_Column - what_column();
  232.     if (spc < Nasm_Comment_Space)
  233. spc = Nasm_Comment_Space;
  234.     whitespace(spc);
  235.     if (eolp()) {
  236. insert("; ");
  237.     } else {
  238. go_right_1();
  239. skip_white();
  240.     }
  241. }
  243. $1 = "NASM";
  244. create_syntax_table($1);
  246. define_syntax (";", "", '%', $1);
  247. define_syntax ("([", ")]", '(', $1);
  248. define_syntax ('"', '"', $1);
  249. define_syntax (''', ''', $1);
  250. define_syntax ("0-9a-zA-Z_.@#", 'w', $1);
  251. define_syntax ("-+0-9a-fA-F.xXL", '0', $1);
  252. define_syntax (",:", ',', $1);
  253. define_syntax ('%', '#', $1);
  254. define_syntax ("|^&<>+-*/%~", '+', $1);
  256. set_syntax_flags($1,1);
  258. #ifdef HAS_DFA_SYNTAX
  260. enable_highlight_cache("nasm.dfa", $1);
  261. define_highlight_rule(";.*$", "comment", $1);
  262. define_highlight_rule("[A-Za-z_\.\?][A-Za-z0-9_\.\?\$#@~]*",
  263.       "Knormal", $1);
  264. define_highlight_rule("$([A-Za-z_\.\?][A-Za-z0-9_\.\?\$#@~]*)?",
  265.       "normal", $1);
  266. define_highlight_rule("[0-9]+(\.[0-9]*)?([Ee][\+\-]?[0-9]*)?",
  267.       "number", $1);
  268. define_highlight_rule("[0-9]+[QqBb]", "number", $1);
  269. define_highlight_rule("(0x|\$[0-9A-Fa-f])[0-9A-Fa-f]*", "number", $1);
  270. define_highlight_rule("[0-9A-Fa-f]+[Hh]", "number", $1);
  271. define_highlight_rule(""[^"]*"", "string", $1);
  272. define_highlight_rule(""[^"]*$", "string", $1);
  273. define_highlight_rule("'[^']*'", "string", $1);
  274. define_highlight_rule("'[^']*$", "string", $1);
  275. define_highlight_rule("[\(\)\[\],:]*", "delimiter", $1);
  276. define_highlight_rule("^[ t]*#", "PQpreprocess", $1);
  277. define_highlight_rule("^[ t]*\%{?[^%\$\+\-0-9]", "PQpreprocess", $1);
  278. define_highlight_rule("^%$", "preprocess", $1);
  279. define_highlight_rule("[\|\^&<>\+\-\*/%~]*", "operator", $1);
  280. define_highlight_rule("%([%\$]?-?[0-9A-Za-z_\.\?\$~@]+|{[^}]*}?)",
  281.       "preprocess", $1);
  282. define_highlight_rule("[ t]*", "normal", $1);
  283. define_highlight_rule(".", "normal", $1);
  284. build_highlight_table($1);
  285. #endif
  287. define_keywords_n($1, nasm_kw_2, 2, 0);
  288. define_keywords_n($1, nasm_kw_3, 3, 0);
  289. define_keywords_n($1, nasm_kw_4, 4, 0);
  290. define_keywords_n($1, nasm_kw_5, 5, 0);
  291. define_keywords_n($1, nasm_kw_6, 6, 0);
  292. define_keywords_n($1, nasm_kw_7, 7, 0);
  293. define_keywords_n($1, nasm_kw_8, 8, 0);
  294. define_keywords_n($1, nasm_kw_9, 9, 0);
  295. define_keywords_n($1, nasm_kw_10, 10, 0);
  297. define_keywords_n($1, "org", 3, 1);
  298. define_keywords_n($1, "bitsiend", 4, 1);
  299. define_keywords_n($1, "aligngroupstruc", 5, 1);
  300. define_keywords_n($1, "alignbcommonexternglobalistruc", 6, 1);
  301. define_keywords_n($1, "sectionsegmentlibrary", 7, 1);
  302. define_keywords_n($1, "absoluteendstruc", 8, 1);
  303. define_keywords_n($1, "uppercase", 9, 1);
  305. !if (keymap_p ($1)) make_keymap ($1);
  306. definekey("nasm_bol_self_ins", ";", $1);
  307. definekey("nasm_bol_self_ins", "#", $1);
  308. definekey("nasm_bol_self_ins", "%", $1);
  309. definekey("nasm_bol_self_ins", "[", $1);
  310. definekey("nasm_self_ins_ind", ":", $1);
  311. definekey("nasm_insert_comment", "^[;", $1);
  313. define nasm_mode {
  314.     set_mode("NASM", 4);
  315.     use_keymap ("NASM");
  316.     use_syntax_table ("NASM");
  317.     set_buffer_hook ("indent_hook", "nasm_indent_line");
  318.     set_buffer_hook ("newline_indent_hook", "nasm_newline_indent");
  319.     runhooks("nasm_mode_hook");
  320. }