From: Michael Zucchi <michael@swordfish.com.au>
Date: Tue, 14 May 2019 13:02:25 +0000 (+0930)
Subject: Handle $ in type names.
X-Git-Url: https://code.zedzone.au/cvs?a=commitdiff_plain;h=ef1f4673b7ac3c85ee56b02e138a171653b6610d;p=nativez

Handle $ in type names.
---

diff --git a/src/notzed.nativez/jni/nativez-gen b/src/notzed.nativez/jni/nativez-gen
index 710ee4a..f359fdf 100755
--- a/src/notzed.nativez/jni/nativez-gen
+++ b/src/notzed.nativez/jni/nativez-gen
@@ -91,7 +91,7 @@ while (<IN>) {
 	}
     } elsif ($mode eq "java") {
 	# maps to strict "[static|],name,(arguments)"
-	if (m/(static)? *([\w<>]*) *, *([\[\w<>\(\)\/;]*)/) {
+	if (m/(static)? *([\w<>]*) *, *([\[\w\$<>\(\)\/;]*)/) {
 	    push @classes,"$1,$2,$3";
 	}
     }