aniani/nasm
0
0
Fork 1
mirror of https://github.com/netwide-assembler/nasm.git synced 2025-08-23 10:33:50 -04:00
Code

Merge 8545d631d6b89950530e8bdb756e1ddda9e77316 into ada267ec8cb708317e707158f0296fab5ccb794e

Browse Source
This commit is contained in:
​8dcc​ 2025-08-19 05:23:48 +08:00 committed by GitHub
commit 454586210e
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
misc/emacstbl.pl
View File

@ -187,13 +187,14 @@ sub write_output($) {
my($vol,$dir,$file) = File::Spec->splitpath($outfile);
print $out ";;; ${file} --- lists of NASM assembler tokens\n";
print $out ";;;\n";
print $out ";;; This file contains list of tokens from the NASM x86\n";
print $out ";;; assembler, automatically extracted from NASM ${version}.\n";
print $out ";;;\n";
print $out ";;; This file is intended to be (require)d from a `nasm-mode\'\n";
print $out ";;; major mode definition.\n";
print $out ";;; ${file} --- lists of NASM assembler tokens\n\n";
print $out ";;; Commentary:\n\n";
print $out ";; This file contains list of tokens from the NASM x86\n";
print $out ";; assembler, automatically extracted from NASM ${version}.\n";
print $out ";;\n";
print $out ";; This file is intended to be (require)d from a `nasm-mode\'\n";
print $out ";; major mode definition.\n\n";
print $out ";;; Code:\n";
foreach my $type (sort keys(%tokens)) {
print $out "\n(defconst nasm-${type}\n";
@ -204,6 +205,9 @@ sub write_output($) {
print $out " \"NASM ${version} ${type} tokens for `nasm-mode\'.\")\n";
}
print $out "\n(provide 'nasmtok)\n";
print $out ";;; nasmtok.el ends here\n";
close($out);
}