From 3f1a21f76ca02d48518def94b815353199cf3320 Mon Sep 17 00:00:00 2001
From: Michael Bayne <mdb@threerings.net>
Date: Thu, 11 Apr 2002 19:11:07 +0000
Subject: [PATCH] To facilitate DSet extensions, we treat any distributed
 object type that ends in Set as a DSet. This is not optimal, but writing a
 full blown parser so that we can analyze the inheritance hierarchy of the
 files we're processing to determine for sure that something extends DSet
 would be at least an order of magnitude greater pain in the ass than just
 doing simple textual processing. We'll leave that up to future people.

git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@1232 542714f4-19e9-0310-aa3c-eee0fc999fb1
---
 bin/gendobj | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/gendobj b/bin/gendobj
index dacee4e14..4da5006ec 100755
--- a/bin/gendobj
+++ b/bin/gendobj
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: gendobj,v 1.11 2002/03/19 01:10:02 mdb Exp $
+# $Id: gendobj,v 1.12 2002/04/11 19:11:07 mdb Exp $
 #
 # gendobj is used to generate DObject source file definitons basded on
 # abbreviated declarations. Because DObject fields all have standard
@@ -161,7 +161,7 @@ sub print_dobj_setters
     $cfield =~ s/(\w)/\U$1/;
 
     # some known types have special setters
-    if ($type eq "DSet") {
+    if ($type =~ ".*Set") {
     print OUT <<EOF;
 
     /**
@@ -204,7 +204,7 @@ sub print_dobj_setters
      * change. Proxied copies of this object (on clients) will apply the
      * value change when they received the attribute changed notification.
      */
-    public void set$cfield (DSet $field)
+    public void set$cfield ($type $field)
     {
         this.$field = $field;
         requestAttributeChange($fcode, $field);