From 8545d631d6b89950530e8bdb756e1ddda9e77316 Mon Sep 17 00:00:00 2001 From: 8dcc <8dcc.git@gmail.com> Date: Thu, 20 Mar 2025 18:54:12 +0100 Subject: [PATCH] emacstbl.pl: Add proper header and footer --- misc/emacstbl.pl | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/misc/emacstbl.pl b/misc/emacstbl.pl index 341810d8..74476f86 100755 --- a/misc/emacstbl.pl +++ b/misc/emacstbl.pl @@ -187,13 +187,14 @@ ($) 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 @@ ($) 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); }