diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-11 07:54:19 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-11 07:54:19 +0000 |
| commit | 37442d52629699d89ef62d315d35efbc0facec21 (patch) | |
| tree | 9a628dce9299a88717fc402055910fb432a0b326 /bytecode.pl | |
| parent | 24801a4b9a14a56208916a537c4c237993c25186 (diff) | |
| download | perl-37442d52629699d89ef62d315d35efbc0facec21.tar.gz | |
Include vim/emacs modelines in generated files to open them
in read-only mode. Make vi modelines compatible with non-vim
vi versions.
p4raw-id: //depot/perl@24445
Diffstat (limited to 'bytecode.pl')
| -rw-r--r-- | bytecode.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/bytecode.pl b/bytecode.pl index aa0e02723d..d8ce8edc94 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -22,7 +22,8 @@ while (($from, $tos) = each %alias_to) { } my $c_header = <<'EOT'; -/* +/* -*- buffer-read-only: t -*- + * * Copyright (c) 1996-1999 Malcolm Beattie * * You may distribute under the terms of either the GNU General Public @@ -195,6 +196,8 @@ print BYTERUN_C <<'EOT'; } return 0; } + +/* ex: set ro: */ EOT # @@ -251,6 +254,8 @@ for ($i = 0; $i < @optype - 1; $i++) { } printf BYTERUN_H " OPt_%s\t\t/* %d */\n};\n\n", $optype[$i], $i; +print BYTERUN_H "/* ex: set ro: */\n"; + # # Finish off insn_data and create array initialisers in Asmdata.pm # @@ -326,6 +331,8 @@ or '&PL_sv_undef'). Malcolm Beattie, C<mbeattie@sable.ox.ac.uk> =cut + +# ex: set ro: EOT |