Skip to content
Permalink
Browse files
sipify improvements
 * remove enum value assignments
 * remove deleted functions
 * remove private members
 * remove function bodies
 * remove keywords (override, inline)
 * comment out but print SIP_SKIP
 * allow use of #if(n)def SIP_RUN and remove code in #else statements

 * fix PyName
 * fix SIP_SKIP

 * add a list of auto-generated sip files and a script to build them at once
  • Loading branch information
3nids committed Mar 30, 2017
1 parent ba6f736 commit 77d7236a93efd9713a416e62bb71a2fbe525aced
Showing with 232 additions and 51 deletions.
  1. +2 −0 python/auto_sipfiles.txt
  2. +218 −51 scripts/sipify.pl
  3. +12 −0 scripts/sipify_all.sh
@@ -0,0 +1,2 @@
core/qgsfeature.h
core/qgsvectorlayer.h
@@ -3,88 +3,255 @@
use warnings;
use File::Basename;

# TODO add contexts for
# "multiline function signatures"
# docustrings for QgsFeature::QgsAttributes

my $headerfile = $ARGV[0];

open(my $header, "<", $headerfile) || die "Couldn't open '".$headerfile."' for reading because: ".$!;

my $GLOBAL = 1;
my $DOXYGEN_BLOCK = 2;
# contexts
my $SIP_RUN = 0;
my $HEADER_CODE = 0;
my $PRIVATE_SECTION = 0;

# TODO add contexts for
# "private: " -> skip
# "function bodies" -> skip
# "multiline function signatures"
# "enums" -> remove assigned values

my $context = $GLOBAL;
my $comment;
my $nesting_index = 0;
my $private_section_line = '';


print "/******************************************************************\n";
print " * This file has been generated automatically by sipify.pl *\n";
print " * Do not edit manually ! Edit header file and generate it again. *\n";
print " *****************************************************************/\n";


while(!eof $header) {
my $line = readline $header;
#print $line;

# Skip preprocessor stuff
if ($line =~ /^\s*#/) {
if ($line !~ /NO_SIPIFY/) {
if ($line =~ m/^\s*#/) {
if ( $line =~ m/^\s*#ifdef SIP_RUN/) {

$SIP_RUN = 1;
if ($PRIVATE_SECTION == 1) {
print $private_section_line;
}
next;
}
if ( $SIP_RUN == 1 ) {
if ( $line =~ m/^\s*#endif/ ) {
if ( $nesting_index == 0 ){
$SIP_RUN = 0;
next;
}
else {
$nesting_index--;
}
}
if ( $line =~ m/^\s*#if(def)?\s+/ ) {
$nesting_index++;
}

# if there is an else at this level, code will be ignored i.e. not SIP_RUN
if ( $line =~ m/^\s*#else/ && $nesting_index == 0) {
while(!eof $header) {
$line = readline $header;
if ( $line =~ m/^\s*#if(def)?\s+/ ) {
$nesting_index++;
}
elsif ( $line =~ m/^\s*#endif/ ) {
if ( $nesting_index == 0 ) {
$SIP_RUN = 0;
last;
}
else {
$nesting_index--;
}
}
}
next;
}
}
elsif ( $line =~ m/^\s*#ifndef SIP_RUN/) {
# code is ignored here
while(!eof $header) {
$line = readline $header;
if ( $line =~ m/^\s*#if(def)?\s+/ ) {
$nesting_index++;
}
elsif ( $line =~ m/^\s*#else/ && $nesting_index == 0 ) {
# code here will be printed out
if ($PRIVATE_SECTION == 1) {
print $private_section_line;
}
$SIP_RUN = 1;
last;
}
elsif ( $line =~ m/^\s*#endif/ ) {
if ( $nesting_index == 0 ) {
$SIP_RUN = 0;
last;
}
else {
$nesting_index--;
}
}
}
next;
}
else {
next;
}
}

# TYPE HEADER CODE
if ( $HEADER_CODE && $SIP_RUN == 0 ) {
$HEADER_CODE = 0;
print "%End\n";
}

# Skip forward declarations
if ($line =~ m/^\s*class \w+;$/) {
next;
}
# Skip Q_OBJECT, Q_PROPERTY, Q_ENUM, Q_GADGET
if ($line =~ m/^\s*Q_(OBJECT|ENUMS|PROPERTY|GADGET).*?$/) {
if ($line =~ m/^\s*Q_(OBJECT|ENUMS|PROPERTY|GADGET|DECLARE_METATYPE).*?$/) {
next;
}

# Doxygen comment started
if ($DOXYGEN_BLOCK != $context) {
if ($line =~ m/\s*\/\*\*/) {
$context = $DOXYGEN_BLOCK;
$comment = "";
}
# class declaration started
if ($line =~ m/^(\s*class)\s*([A-Z]+_EXPORT)(\s+\w+)(\s*\:.*)?$/) {
$line = "$1$3";
# Inheritance
if ($4) {
my $m;
$m = $4;
$m =~ s/public //g;
$m =~ s/\s?private \w+,?//;
$line .= $m;
# SIP_SKIP
if ( $line =~ m/SIP_SKIP/ ) {
$line =~ s/^(\s*)(\w.*)$/$1\/\/ $2\n/;
print $line;
next;
}

# Detect comment block
if ($line =~ m/\s*\/\*\*/) {
$comment = "";
while(!eof $header) {
$line = readline $header;
$line =~ m/\s*\*?(.*)/;
$comment .= "$1\n";
if ( $line =~ m/\*\/$/ ) {
last;
}
$line .= "\n{\n%TypeHeaderCode\n#include \"" . basename($headerfile) . "\"\n%End";
$line .= "\n%Docstring\n$comment\n%End\n";
}
next;
}

my $skip;
# Skip opening curly bracket, we already added that above
$skip = readline $header;
$skip =~ m/^\s*{\s$/ || die "Unexpected content on line $line";
# Private members (exclude SIP_RUN)
if ( $line =~ m/^\s*private( slots)?:.*$/ ) {
$PRIVATE_SECTION = 1;
$private_section_line = $line;
next;
}
if ( $PRIVATE_SECTION == 1 ) {
if ( $SIP_RUN == 0) {
if ( $line =~ m/^\s*(public|protected)( slots)?:.*$/ || $line =~ m/^\s*\};.*$/) {
$PRIVATE_SECTION = 0;
}
else {
next;
}
}
}

$line =~ s/SIP_FACTORY/\/Factory\//;
$line =~ s/SIP_SKIP/\/\//;
$line =~ s/SIP_OUT/\/Out\//g;
$line =~ s/SIP_INOUT/\/In,Out\//g;
$line =~ s/SIP_TRANSFER/\/Transfer\//g;
$line =~ s/SIP_PYNAME\((\w+)\)/\/PyName=$1\//;
$line =~ s/SIP_KEEPREFERENCE\((\w+)\)/\/KeepReference\//;
$line =~ s/SIP_TRANSFERTHIS\((\w+)\)/\/TransferThis\//;
$line =~ s/SIP_TRANSFERBACK\((\w+)\)/\/TransferBack\//;

$line =~ s/override;/;/g;
# save comments and do not print them, except in SIP_RUN
if ( $SIP_RUN == 0 ) {
if ( $line =~ m/^\s*\/\// ) {
$line =~ s/^\s*\/\/\!*\s*(.*)$/$1/;
$comment = $line;
next;
}
}

# In block comment
if ($DOXYGEN_BLOCK == $context) {
if ($line =~ m/\*\//) {
$context = $GLOBAL;
# class declaration started
if ( $line =~ m/^(\s*class)\s*([A-Z]+_EXPORT)(\s+\w+)(\s*\:.*)?$/ ) {
$line = "$1$3";
# Inheritance
if ($4) {
my $m;
$m = $4;
$m =~ s/public //g;
$m =~ s/\s*private \w+,?//;
$line .= $m;
}
$line =~ m/\s*\*?(.*)/;
$comment .= "$1\n";

$line .= "\n{\n%Docstring\n$comment\n%End\n";
$line .= "\n%TypeHeaderCode\n#include \"" . basename($headerfile) . "\"\n";

print $line;

my $skip;
# Skip opening curly bracket, we already added that above
$skip = readline $header;
$skip =~ m/^\s*{\s$/ || die "Unexpected content on line $line";

$HEADER_CODE = 1;
next;
}

# Enum declaration
if ( $line =~ m/^\s*enum\s+\w+.*?$/ ) {
print $line;
$line = readline $header;
$line =~ m/^\s*\{\s*$/ || die 'Unexpected content: enum should be followed by {';
print $line;
while(!eof $header) {
$line = readline $header;
if ($line =~ m/\}/) {
last;
}
$line =~ s/(\s*\w+)(\s*=\s*\w+.*?)?(,?).*$/$1$3/;
print $line;
}
}

# remove keywords
do {no warnings 'uninitialized';
$line =~ s/\s*override( SIP_FACTORY)?;/$1;/;
$line =~ s/^(\s*)?(const )?(virtual |static )?inline /$1$2$3/;
$line =~ s/\bnullptr\b/0/g;

# remove function bodies
if ( $line =~ m/^(\s*)?(const )?(virtual |static )?((\w+(<.*?>)?\s+(\*|&)?)?(\w+|operator.)\(.*?(\(.*\))*.*\)( const)?)\s*(\{.*\})?(?!;)$/ ) {
my $newline = "$1$2$3$4;\n";
if ($line !~ m/\{.*?\}$/) {
$line = readline $header;
if ( $line =~ m/^\s*\{\s*$/ ) {
while(!eof $header) {
$line = readline $header;
if ( $line =~ m/\}\s*$/ ) {
last;
}
}
}
}
$line = $newline;
}
};

# deleted functions
if ( $line =~ m/^(\s*)?(const )?(virtual |static )?((\w+(<.*?>)?\s+(\*|&)?)?(\w+|operator.)\(.*?(\(.*\))*.*\)( const)?)\s*= delete;$/ ) {
$line = readline $header;
}

$line =~ s/SIP_FACTORY/\/Factory\//;
$line =~ s/SIP_OUT/\/Out\//g;
$line =~ s/SIP_INOUT/\/In,Out\//g;
$line =~ s/SIP_TRANSFER/\/Transfer\//g;
$line =~ s/SIP_PYNAME\(\s*(\w+)\s*\)/\/PyName=$1\//;
$line =~ s/SIP_KEEPREFERENCE\((\w+)\)/\/KeepReference\//;
$line =~ s/SIP_TRANSFERTHIS\((\w+)\)/\/TransferThis\//;
$line =~ s/SIP_TRANSFERBACK\((\w+)\)/\/TransferBack\//;

# fix astyle placing space after % character
$line =~ s/\s*% (MappedType|TypeHeaderCode|ConvertFromTypeCode|ConvertToTypeCode|MethodCode|End)/%$1/;
$line =~ s/\/\s+GetWrapper\s+\//\/GetWrapper\//;

print $line;
}
@@ -0,0 +1,12 @@
#!/usr/bin/env bash

DIR=$(git rev-parse --show-toplevel)

set -e

while read -r line; do
header="src/$line"
sipfile=$(sed -E 's/(.*)\.h/python\/\1.sip/' <<< $line)
echo "$header"
${DIR}/scripts/sipify.pl ${DIR}/$header > ${DIR}/$sipfile
done < ${DIR}/python/auto_sipfiles.txt

0 comments on commit 77d7236

Please sign in to comment.