mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-17 16:41:17 -08:00
Code Issues Projects Releases Wiki Activity

Try to do it from eventdef.h

Browse source 
Copied from Perforce
 Change: 20600
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 1999-03-09 11:16:52 +00:00
parent ce75865c5e
commit cbcbb7b8a4
1 changed files with 9 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

24
mps/src/eventgen.pl
View file

@ -1,8 +1,8 @@
#!/usr/local/bin/perl -w
# impl.pl.eventgen -- Generator for impl.h.eventgen
# impl.pl.eventgen: GENERATOR FOR impl.h.eventgen
#
# Copyright (C) 1998 Harlequin Group plc. All rights reserved.
# $HopeName: MMsrc!eventgen.pl(trunk.5) $
# $HopeName: MMsrc!eventgen.pl(trunk.6) $
#
# Invoke this script in the src directory.
# It works by scanning *.c for EVENT_[A-Z],
@ -14,7 +14,7 @@
# You will need to have eventgen.h claimed, and you should
# remember to check it in afterwards.
$HopeName = '$HopeName: MMsrc!eventgen.pl(trunk.5) $';
$HopeName = '$HopeName: MMsrc!eventgen.pl(trunk.6) $';
%Formats = ();
@ -23,25 +23,19 @@ $HopeName = '$HopeName: MMsrc!eventgen.pl(trunk.5) $';
"S", "char *",
"U", "unsigned",
"W", "Word",
"A", "struct AddrStruct *",
"A", "Addr",
"P", "void *",
);
while(<*.c>) {
open(C, "<$_") || die "Can't open $_";
print STDERR "$_ ... ";
while(<C>) {
if(/EVENT_([A-Z]+)\(/) {
$Formats{$1} = 1 if(!defined($Formats{$1}));
}
open(C, "<eventdef.h") || die "Can't open $_";
while(<C>) {
if(/RELATION\([^,]*,[^,]*,[^,]*,[^,]*, ([A-Z]+)\)/) {
$Formats{$1} = 1 if(!defined($Formats{$1}));
}
close(C);
}
close(C);
print STDERR "\n";
open(H, ">eventgen.h") || die "Can't open eventgen.h for output";