diff options
| author | Michele Calgaro <michele.calgaro@yahoo.it> | 2024-04-04 10:41:59 +0900 |
|---|---|---|
| committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2024-04-04 11:43:10 +0900 |
| commit | b31821dd2489a41c04047bb71c25b61fccb02607 (patch) | |
| tree | 7497772d4440a143a0939f3af80a09beb70ef7cd | |
| parent | e132f2bec80e50d1c295eba90ac78dbe0c56fa39 (diff) | |
| download | tdelibs-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/kalyptus | 7 |
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; |