Index: icu.pl
===================================================================
RCS file: /cvs/public/parrot/config/gen/icu.pl,v
retrieving revision 1.1
diff -b -u -r1.1 icu.pl
--- icu.pl	3 Nov 2003 17:06:34 -0000	1.1
+++ icu.pl	17 Jan 2004 00:08:39 -0000
@@ -16,6 +16,32 @@
   }
 
   print "\n";
+  
+  # MS VC++ requires special treatment.
+  my ($cc) = Configure::Data->get(qw(cc));
+  my $is_msvc = grep { $cc eq $_ } ( qw(cl cl.exe) );
+  if ($is_msvc && -e 'icu\source\allinone\allinone.dsw') {
+    Configure::Data->set(
+      buildicu => 1,
+      icu_make => <<'RULES',
+###############################################################################
+#
+# Build ICU:
+#
+###############################################################################
+
+icu : icu.dummy
+
+icu.dummy :
+	msdev icu\source\allinone\allinone.dsw /MAKE "ALL"
+
+all : icu
+
+RULES
+    );
+    return;
+  }
+  
   # This is the configure line suggested by icu/README.parrot
   system "cd icu/source ; ./configure --disable-layout --disable-tests --disable-samples";
   if ($? != 0) {