diff options
Diffstat (limited to 'dcop/tests/generate.pl')
| -rwxr-xr-x | dcop/tests/generate.pl | 221 |
1 files changed, 221 insertions, 0 deletions
diff --git a/dcop/tests/generate.pl b/dcop/tests/generate.pl new file mode 100755 index 000000000..cd4697d3f --- /dev/null +++ b/dcop/tests/generate.pl @@ -0,0 +1,221 @@ +#!/usr/bin/perl -w + +use strict; + + +my $DERIVED_CLASS = 'Test'; +my $BASE_CLASS = 'Test'; +my $DCOP = '../client/dcop'; +my $TEST_APP = '$TEST_APP'; +my $OBJECT_NAME = 'TestInterface'; + + +sub shell_header { + print SHELL "TEST_APP=\`$DCOP 'TestApp-*'\`\n"; +} +sub shell_footer { + print SHELL "$DCOP $TEST_APP 'MainApplication-Interface' quit"; +} + +sub test_h_header { +print HEADER <<END; + +#ifndef MY_INTERFACE_H +#define MY_INTERFACE_H + +/* This is combined with test.cpp and run_test a test case for dcop + * family of programms + */ + +// some comment +#include <dcopobject.h> +#include <dcopref.h> + +class Test2; + +// this has to work too +#include <qstring.h> + + + +namespace MyNamespace { + struct MyParentClass { + int x; + }; +} + +class Test : public MyNamespace::MyParentClass, virtual public DCOPObject +{ + K_DCOP + +public: + Test() : DCOPObject("TestInterface") {} + ~Test(); +k_dcop: + +END + +} + +sub test_h_footer { +print HEADER <<END; + +}; + +#endif // end + +END +} + + + +sub getline { + local $_; + until (eof()) { + last unless defined($_ = <>); + chomp; + next if /^\s*#/; + return $_; + } + return ''; +} + +#sub getline { +# print STDERR "HERE2\n"; +# my $res = &getlinereal; +# print STDERR "G->" . $res . "<-\n"; +# return $res; +#} + + +# main(); + +open(HEADER,'>test.h'); +open(IMPLEMENTATION,'>definitions.generated'); +open(BATCH, '>batch.generated'); +open(SHELL,'>shell.generated'); +open(DRIVER,'>driver.generated'); + +&test_h_header; +&shell_header; +my $previous_comment; +my $i = 0; +my $i_1 = 1; +until (eof()) { + my $comment = &getline; + next if $comment eq ''; + my $return_type = $comment; + $previous_comment = $comment; + if ($comment =~ m#\s*//#) { $return_type = &getline; } + else { $comment = $previous_comment; } + my $function_name = &getline; + my $argument_types = &getline; + my $function_body = ''; + my $line; + do { + $line = &getline; + $function_body .= $line; + } until ($line =~ /^}/); + my @shell_args = (); + my @cpp_args = (); + print STDERR "Working on function $function_name$argument_types\n"; + while (1) { + local $_ = &getline; + chomp; + print STDERR "Looking at -$_-\n"; + die 'I/O Error' if eof(); + die 'I/O Error' unless defined($_); # should catch all previous IO errors as well + + if (/^\s*$/ || /^-$/ ) { + if (scalar(@shell_args) == 0) { + @shell_args = (''); + @cpp_args = (''); + print STDERR "Function $function_name$argument_types: No arguments\n"; + } + last; + } + /^(.*);(.*)$/ or last; + push @shell_args, ($1); + push @cpp_args, ($2); + print STDERR "Function $function_name$argument_types: args {-$1-} {-$2-}\n"; + print STDERR "Function $function_name$argument_types: so far ", scalar(@shell_args), "\n"; + } + + + $comment =~ s#^\s*//##; + + print HEADER <<END; + // $comment + virtual $return_type ${function_name}_virtual $argument_types; + $return_type ${function_name} $argument_types; +END + + print IMPLEMENTATION <<END; + $return_type $DERIVED_CLASS :: ${function_name}_virtual $argument_types + $function_body + + $return_type $BASE_CLASS :: ${function_name} $argument_types + $function_body +END + + my $cpp_cur = scalar(shift @cpp_args or ''); + my $shell_cur = scalar(shift @shell_args or ''); + + if ($return_type ne 'void') { + print BATCH <<END; + output << "$return_type $function_name($argument_types)\\n{\\n"; + output << "// $comment\\n"; + output << object->$function_name($cpp_cur) << "\\n}\\n"; + output << "$return_type ${function_name}_virtual($argument_types)\\n{\\n"; + output << "// $comment\\n"; + output << object->${function_name}_virtual($cpp_cur) << "\\n}\\n"; +END + } else { + print BATCH <<END; + // Void Functions: + object->$function_name(); + object->${function_name}_virtual(); +END + } + + print SHELL <<END; + echo "$return_type $function_name($argument_types)" + echo "{" + echo "// $comment"; + $DCOP $TEST_APP $OBJECT_NAME $function_name $shell_cur + echo "}" + echo "$return_type ${function_name}_virtual($argument_types)" + echo "{" + echo "// $comment"; + $DCOP $TEST_APP $OBJECT_NAME ${function_name}_virtual $shell_cur + echo "}" +END + + print DRIVER <<END; + case $i: + output << "$return_type $function_name($argument_types)\\n{\\n"; + output << "// $comment\\n"; + output << object->$function_name($cpp_cur) << '\\n'; + output << "}\\n"; + break; + case $i_1: + output << "$return_type ${function_name}_virtual($argument_types)\\n{\\n"; + output << "// $comment\\n"; + output << object->${function_name}_virtual($cpp_cur) << '\\n'; + output << "}\\n"; + break; +END + $i += 2; + $i_1 = $i + 1; +} + +&test_h_footer; +&shell_footer; + +close HEADER; +close IMPLEMENTATION; +close BATCH; +close SHELL; +close DRIVER; + +1; |