summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichele Calgaro <michele.calgaro@yahoo.it>2024-04-04 10:41:59 +0900
committerMichele Calgaro <michele.calgaro@yahoo.it>2024-04-04 11:43:10 +0900
commitb31821dd2489a41c04047bb71c25b61fccb02607 (patch)
tree7497772d4440a143a0939f3af80a09beb70ef7cd
parente132f2bec80e50d1c295eba90ac78dbe0c56fa39 (diff)
downloadtdelibs-b31821dd2489a41c04047bb71c25b61fccb02607.tar.gz
tdelibs-b31821dd2489a41c04047bb71c25b61fccb02607.zip
Align kalyptus to changes made in TDE/tdebindings#36
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it> (cherry picked from commit 7bab42fc4caf386fb53e463cee7807242e7d4f28)
-rw-r--r--dcop/dcopidlng/kalyptus7
1 files changed, 5 insertions, 2 deletions
diff --git a/dcop/dcopidlng/kalyptus b/dcop/dcopidlng/kalyptus
index 2024fb959..e3119b3dc 100644
--- a/dcop/dcopidlng/kalyptus
+++ b/dcop/dcopidlng/kalyptus
@@ -769,7 +769,10 @@ sub identifyDecl
\( (.*?) \) # parameters
\s*((?:const)?)\s*
(?:throw\s*\(.*?\))?
- \s*((?:=\s*0(?:L?))?)\s* # Pureness. is "0L" allowed?
+ \s*((?:=\s*(?:
+ 0(?:L?)| # Pureness. is "0L" allowed?
+ default # Default method
+ ))?)
\s*[;{]+/xs ) { # rest
my $tpn = $1; # type + name
@@ -781,7 +784,7 @@ sub identifyDecl
}
my $const = $3 eq "" ? 0 : 1;
- my $pure = $4 eq "" ? 0 : 1;
+ my $pure = $4 eq "" ? 0 : ($4 =~ "default" ? 0 : 1);
$tpn =~ s/\s+/ /g;
$params =~ s/\s+/ /g;