fix

git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@643 b9cfdab3-6d41-4d17-bbe4-086880011989

Makefile.pl

@@ -119,13 +119,16 @@ print("Target : " . $target . "\n");
 
 my @l = ();
 foreach my $e (param_list()) {
+    if (not(param_get($e))) {
+        next;
+    }
     if (($e eq "vulkan-string-helper") and param_get("vulkan")) {
         push(@l, $e);
     }
     elsif (($e eq "xrender") and ($backend eq "x11")) {
         push(@l, $e);
     }
-    elsif (not($e eq "vulkan-string-helper") and not($e eq "xrender") and param_get($e)) {
+    elsif (not($e eq "vulkan-string-helper") and not($e eq "xrender")) {
         push(@l, $e);
     }
 }

pl/ostype/NetBSD.pl

@@ -1,6 +1,7 @@
 # $Id$
 add_incdir("-I/usr/X11R7/include -I/usr/pkg/include");
-add_libdir("-L/usr/X11R7/lib -Wl,-R/usr/X11R7/lib -L/usr/pkg/lib -Wl,-R/usr/pkg/lib");
+add_libdir(
+    "-L/usr/X11R7/lib -Wl,-R/usr/X11R7/lib -L/usr/pkg/lib -Wl,-R/usr/pkg/lib");
 use_backend("x11");
 
 1;

pl/rules.pl

@@ -9,13 +9,15 @@ if($backend eq "x11"){
     add_libs("-lX11 -lXrender -lXcursor");
 
     $gl_libs = "-lGL -lGLU";
-}elsif($backend eq "gdi"){
+}
+elsif ($backend eq "gdi") {
     add_cflags("-DUSE_GDI");
     new_object("src/backend/gdi.c");
     add_libs("-lgdi32");
 
     $gl_libs = "-lopengl32 -lglu32";
-}elsif($backend eq "darwin"){
+}
+elsif ($backend eq "darwin") {
     add_cflags("-DUSE_DARWIN");
     new_object("src/backend/mac/*.c");
     add_ldflags("-framework Carbon");
@@ -57,6 +59,7 @@ new_object("src/widget/scrollbar.c");
 new_object("src/widget/submenu.c");
 new_object("src/widget/viewport.c");
 new_object("src/widget/window.c");
+
 if (param_get("opengl")) {
     new_object("src/widget/opengl.c");
 }
@@ -70,7 +73,6 @@ new_object("src/abstract/*.c");
 
 new_object("external/*.c");
 
-
 new_example("examples/basic/example");
 new_example("examples/basic/rotate");
 new_example("examples/basic/image");

pl/utils.pl

@@ -54,6 +54,7 @@ sub use_backend {
 }
 
 our %params = ();
+
 sub param_set {
     $params{ $_[0] } = $_[1];
 }
@@ -61,7 +62,8 @@ sub param_set {
 sub param_get {
     if (not(defined($params{ $_[0] }))) {
         return 0;
-	}else{
+    }
+    else {
         return $params{ $_[0] };
     }
 }