[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    kdebindings/kalyptus
From:       Nikolas Zimmermann <wildfox () kde ! org>
Date:       2004-03-21 21:06:30
Message-ID: 20040321210630.ACCFF9993 () office ! kde ! org
[Download RAW message or body]

CVS commit by wildfox: 

Needed to hardcode some kdom specific stuff, just like for ksvg :/
Now kdom's 'make ecmabindings' can actually work for anyone else like me :)


  M +17 -3     kalyptus   1.73


--- kdebindings/kalyptus/kalyptus  #1.72:1.73
@@ -1,3 +1,3 @@
-#!/usr/bin/perl -I/Users/duke/src/kde/kdebindings/kalyptus
+#!/usr/bin/perl
 
 # KDOC -- C++ and CORBA IDL interface documentation tool.
@@ -87,5 +87,6 @@
         "objc" => "kalyptusCxxToObjc", "dcopidl" => "kalyptusCxxToDcopIDL",
         "smoke" => "kalyptusCxxToSmoke", "csharp" => "kalyptusCxxToCSharp", "kimono" \
                => "kalyptusCxxToKimono",
-    "ECMA" => "kalyptusCxxToECMA", "swig" => "kalyptusCxxToSwig" );
+        "ECMA" => "kalyptusCxxToECMA", "swig" => "kalyptusCxxToSwig",
+                "KDOMECMA" => "kalyptusKDOMEcma");
 
 # these are for expansion of method flags
@@ -475,4 +476,16 @@
                         push @inputqueue, split('\n',"namespace KSVG {\nclass $1 \
{\n};\n};");  }
+                # Fuck the same again for KDOM :/
+                $p =~ s/KDOM_GET/KJS::Value get();/;
+                $p =~ s/KDOM_BASECLASS_GET/KJS::Value get();/;
+                $p =~ s/KDOM_BRIDGE/KJS::ObjectImp *bridge();/;
+                $p =~ s/KDOM_FORWARDGET/KJS::Value getforward();/;
+                $p =~ s/KDOM_PUT/bool put();/;
+                $p =~ s/KDOM_FORWARDPUT/bool putforward();/;
+                $p =~ s/KDOM_BASECLASS/virtual KJS::Value cache();/;
+                if ( $p =~ m/KDOM_DEFINE_PROTOTYPE\((\w+)\)/ ) {
+                        push @inputqueue, split('\n',"namespace KDOM {\nclass $1 \
{\n};\n};"); +                }
+
 
                 next if ( $p =~ /^\s*$/s );             # blank lines
@@ -489,4 +502,5 @@
                         || $p =~ /^\s*K_SYCOCAFACTORY/  #
                         || $p =~ /^\s*KSVG_/            # and KSVG stuff ;)
+                                                || $p =~ /^\s*KDOM_/                 \
# and KDOM stuff :(  );
 


[prev in list] [next in list] [prev in thread] [next in thread]