From cbcbb7b8a4fe2eb0c1ac3233ce58d13ec245523b Mon Sep 17 00:00:00 2001
From: Pekka Pirinen <pekka@harlequin.com>
Date: Tue, 9 Mar 1999 11:16:52 +0000
Subject: [PATCH] Try to do it from eventdef.h

Copied from Perforce
 Change: 20600
 ServerID: perforce.ravenbrook.com
---
 mps/src/eventgen.pl | 24 +++++++++---------------
 1 file changed, 9 insertions(+), 15 deletions(-)

diff --git a/mps/src/eventgen.pl b/mps/src/eventgen.pl
index 1cce51933ad..638979c31d6 100644
--- a/mps/src/eventgen.pl
+++ b/mps/src/eventgen.pl
@@ -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";