From d930cd953212d3544b86763f1ce492a1ade87b9f Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Fri, 18 Feb 2005 16:02:04 +0000
Subject: rewrite

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@2520 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 util/parsevar.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'util')

diff --git a/util/parsevar.pl b/util/parsevar.pl
index fe2f2dc0..97689a19 100644
--- a/util/parsevar.pl
+++ b/util/parsevar.pl
@@ -13,8 +13,15 @@ print << '.';
 while( <> ){
     if( /^\w/ ){
 	chomp;
-	$_ = substr($_, 0, index($_, '=') - 1) if( index($_, '=') != -1 );
+	s|//.*||;
+	s|/\*.*?\*/||;
+	s/\=\s*\{.*?\}//;
+
+	s/\=.*?([,;])/$1/g;
+	s/\=.*?\{//g;
 	$_ .= ';' if( index($_, ';') == -1 );
+	s/\=.*?([,;])/$1/g;
+	s/\=.*?\{//g;
 	print "extern $_\n";
     } elsif( /^\s*\#/ && !/include/ ){
 	print;
-- 
cgit v1.2.3