[#Rule 2
'idl', 2,
sub
-#line 19 "idl.yp"
+#line 19 "pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 3
'idl', 2,
sub
-#line 20 "idl.yp"
+#line 20 "pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 4
'idl', 2,
sub
-#line 21 "idl.yp"
+#line 21 "pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 5
'idl', 2,
sub
-#line 22 "idl.yp"
+#line 22 "pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 6
'idl', 2,
sub
-#line 23 "idl.yp"
+#line 23 "pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 7
'import', 3,
sub
-#line 26 "idl.yp"
+#line 26 "pidl/idl.yp"
{{
"TYPE" => "IMPORT",
"PATHS" => $_[2],
[#Rule 8
'include', 3,
sub
-#line 33 "idl.yp"
+#line 33 "pidl/idl.yp"
{{
"TYPE" => "INCLUDE",
"PATHS" => $_[2],
[#Rule 9
'importlib', 3,
sub
-#line 40 "idl.yp"
+#line 40 "pidl/idl.yp"
{{
"TYPE" => "IMPORTLIB",
"PATHS" => $_[2],
[#Rule 10
'commalist', 1,
sub
-#line 49 "idl.yp"
+#line 49 "pidl/idl.yp"
{ [ $_[1] ] }
],
[#Rule 11
'commalist', 3,
sub
-#line 50 "idl.yp"
+#line 50 "pidl/idl.yp"
{ push(@{$_[1]}, $_[3]); $_[1] }
],
[#Rule 12
'coclass', 7,
sub
-#line 54 "idl.yp"
+#line 54 "pidl/idl.yp"
{{
"TYPE" => "COCLASS",
"PROPERTIES" => $_[1],
[#Rule 14
'interface_names', 4,
sub
-#line 66 "idl.yp"
+#line 66 "pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 15
'interface', 8,
sub
-#line 70 "idl.yp"
+#line 70 "pidl/idl.yp"
{{
"TYPE" => "INTERFACE",
"PROPERTIES" => $_[1],
[#Rule 17
'base_interface', 2,
sub
-#line 83 "idl.yp"
+#line 83 "pidl/idl.yp"
{ $_[2] }
],
[#Rule 18
'definitions', 1,
sub
-#line 87 "idl.yp"
+#line 87 "pidl/idl.yp"
{ [ $_[1] ] }
],
[#Rule 19
'definitions', 2,
sub
-#line 88 "idl.yp"
+#line 88 "pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 20
[#Rule 25
'const', 7,
sub
-#line 96 "idl.yp"
+#line 96 "pidl/idl.yp"
{{
"TYPE" => "CONST",
"DTYPE" => $_[2],
[#Rule 26
'const', 8,
sub
-#line 106 "idl.yp"
+#line 106 "pidl/idl.yp"
{{
"TYPE" => "CONST",
"DTYPE" => $_[2],
[#Rule 27
'function', 7,
sub
-#line 120 "idl.yp"
+#line 120 "pidl/idl.yp"
{{
"TYPE" => "FUNCTION",
"NAME" => $_[3],
[#Rule 28
'declare', 5,
sub
-#line 132 "idl.yp"
+#line 132 "pidl/idl.yp"
{{
"TYPE" => "DECLARE",
"PROPERTIES" => $_[2],
[#Rule 32
'decl_enum', 1,
sub
-#line 146 "idl.yp"
+#line 146 "pidl/idl.yp"
{{
"TYPE" => "ENUM"
}}
[#Rule 33
'decl_bitmap', 1,
sub
-#line 152 "idl.yp"
+#line 152 "pidl/idl.yp"
{{
"TYPE" => "BITMAP"
}}
[#Rule 34
'decl_union', 1,
sub
-#line 158 "idl.yp"
+#line 158 "pidl/idl.yp"
{{
"TYPE" => "UNION"
}}
[#Rule 35
'typedef', 6,
sub
-#line 164 "idl.yp"
+#line 164 "pidl/idl.yp"
{{
"TYPE" => "TYPEDEF",
"PROPERTIES" => $_[2],
[#Rule 40
'typedecl', 2,
sub
-#line 177 "idl.yp"
+#line 177 "pidl/idl.yp"
{ $_[1] }
],
[#Rule 41
[#Rule 43
'existingtype', 2,
sub
-#line 182 "idl.yp"
+#line 182 "pidl/idl.yp"
{ ($_[1]?$_[1]:"signed") ." $_[2]" }
],
[#Rule 44
[#Rule 47
'type', 1,
sub
-#line 186 "idl.yp"
+#line 186 "pidl/idl.yp"
{ "void" }
],
[#Rule 48
'enum_body', 3,
sub
-#line 188 "idl.yp"
+#line 188 "pidl/idl.yp"
{ $_[2] }
],
[#Rule 49
[#Rule 51
'enum', 3,
sub
-#line 191 "idl.yp"
+#line 191 "pidl/idl.yp"
{{
"TYPE" => "ENUM",
"NAME" => $_[2],
[#Rule 52
'enum_elements', 1,
sub
-#line 199 "idl.yp"
+#line 199 "pidl/idl.yp"
{ [ $_[1] ] }
],
[#Rule 53
'enum_elements', 3,
sub
-#line 200 "idl.yp"
+#line 200 "pidl/idl.yp"
{ push(@{$_[1]}, $_[3]); $_[1] }
],
[#Rule 54
[#Rule 55
'enum_element', 3,
sub
-#line 204 "idl.yp"
+#line 204 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 56
'bitmap_body', 3,
sub
-#line 207 "idl.yp"
+#line 207 "pidl/idl.yp"
{ $_[2] }
],
[#Rule 57
[#Rule 59
'bitmap', 3,
sub
-#line 210 "idl.yp"
+#line 210 "pidl/idl.yp"
{{
"TYPE" => "BITMAP",
"NAME" => $_[2],
[#Rule 60
'bitmap_elements', 1,
sub
-#line 218 "idl.yp"
+#line 218 "pidl/idl.yp"
{ [ $_[1] ] }
],
[#Rule 61
'bitmap_elements', 3,
sub
-#line 219 "idl.yp"
+#line 219 "pidl/idl.yp"
{ push(@{$_[1]}, $_[3]); $_[1] }
],
[#Rule 62
[#Rule 64
'bitmap_element', 3,
sub
-#line 224 "idl.yp"
+#line 224 "pidl/idl.yp"
{ "$_[1] ( $_[3] )" }
],
[#Rule 65
'struct_body', 3,
sub
-#line 227 "idl.yp"
+#line 227 "pidl/idl.yp"
{ $_[2] }
],
[#Rule 66
[#Rule 68
'struct', 3,
sub
-#line 231 "idl.yp"
+#line 231 "pidl/idl.yp"
{{
"TYPE" => "STRUCT",
"NAME" => $_[2],
[#Rule 69
'empty_element', 2,
sub
-#line 239 "idl.yp"
+#line 239 "pidl/idl.yp"
{{
"NAME" => "",
"TYPE" => "EMPTY",
[#Rule 72
'optional_base_element', 2,
sub
-#line 253 "idl.yp"
+#line 253 "pidl/idl.yp"
{ $_[2]->{PROPERTIES} = FlattenHash([$_[1],$_[2]->{PROPERTIES}]); $_[2] }
],
[#Rule 73
[#Rule 74
'union_elements', 2,
sub
-#line 258 "idl.yp"
+#line 258 "pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 75
'union_body', 3,
sub
-#line 261 "idl.yp"
+#line 261 "pidl/idl.yp"
{ $_[2] }
],
[#Rule 76
[#Rule 78
'union', 3,
sub
-#line 265 "idl.yp"
+#line 265 "pidl/idl.yp"
{{
"TYPE" => "UNION",
"NAME" => $_[2],
[#Rule 79
'base_element', 5,
sub
-#line 273 "idl.yp"
+#line 273 "pidl/idl.yp"
{{
"NAME" => $_[4],
"TYPE" => $_[2],
[#Rule 80
'pointers', 0,
sub
-#line 287 "idl.yp"
+#line 287 "pidl/idl.yp"
{ 0 }
],
[#Rule 81
'pointers', 2,
sub
-#line 288 "idl.yp"
+#line 288 "pidl/idl.yp"
{ $_[1]+1 }
],
[#Rule 82
[#Rule 83
'element_list1', 3,
sub
-#line 293 "idl.yp"
+#line 293 "pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 84
[#Rule 86
'element_list2', 1,
sub
-#line 299 "idl.yp"
+#line 299 "pidl/idl.yp"
{ [ $_[1] ] }
],
[#Rule 87
'element_list2', 3,
sub
-#line 300 "idl.yp"
+#line 300 "pidl/idl.yp"
{ push(@{$_[1]}, $_[3]); $_[1] }
],
[#Rule 88
[#Rule 89
'array_len', 3,
sub
-#line 305 "idl.yp"
+#line 305 "pidl/idl.yp"
{ push(@{$_[3]}, "*"); $_[3] }
],
[#Rule 90
'array_len', 4,
sub
-#line 306 "idl.yp"
+#line 306 "pidl/idl.yp"
{ push(@{$_[4]}, "$_[2]"); $_[4] }
],
[#Rule 91
[#Rule 92
'property_list', 4,
sub
-#line 312 "idl.yp"
+#line 312 "pidl/idl.yp"
{ FlattenHash([$_[1],$_[3]]); }
],
[#Rule 93
'properties', 1,
sub
-#line 315 "idl.yp"
+#line 315 "pidl/idl.yp"
{ $_[1] }
],
[#Rule 94
'properties', 3,
sub
-#line 316 "idl.yp"
+#line 316 "pidl/idl.yp"
{ FlattenHash([$_[1], $_[3]]); }
],
[#Rule 95
'property', 1,
sub
-#line 319 "idl.yp"
+#line 319 "pidl/idl.yp"
{{ "$_[1]" => "1" }}
],
[#Rule 96
'property', 4,
sub
-#line 320 "idl.yp"
+#line 320 "pidl/idl.yp"
{{ "$_[1]" => "$_[3]" }}
],
[#Rule 97
[#Rule 98
'listtext', 3,
sub
-#line 325 "idl.yp"
+#line 325 "pidl/idl.yp"
{ "$_[1] $_[3]" }
],
[#Rule 99
[#Rule 100
'commalisttext', 3,
sub
-#line 330 "idl.yp"
+#line 330 "pidl/idl.yp"
{ "$_[1],$_[3]" }
],
[#Rule 101
'anytext', 0,
sub
-#line 334 "idl.yp"
+#line 334 "pidl/idl.yp"
{ "" }
],
[#Rule 102
[#Rule 105
'anytext', 3,
sub
-#line 336 "idl.yp"
+#line 336 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 106
'anytext', 3,
sub
-#line 337 "idl.yp"
+#line 337 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 107
'anytext', 3,
sub
-#line 338 "idl.yp"
+#line 338 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 108
'anytext', 3,
sub
-#line 339 "idl.yp"
+#line 339 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 109
'anytext', 3,
sub
-#line 340 "idl.yp"
+#line 340 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 110
'anytext', 3,
sub
-#line 341 "idl.yp"
+#line 341 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 111
'anytext', 3,
sub
-#line 342 "idl.yp"
+#line 342 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 112
'anytext', 3,
sub
-#line 343 "idl.yp"
+#line 343 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 113
'anytext', 3,
sub
-#line 344 "idl.yp"
+#line 344 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 114
'anytext', 3,
sub
-#line 345 "idl.yp"
+#line 345 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 115
'anytext', 3,
sub
-#line 346 "idl.yp"
+#line 346 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 116
'anytext', 3,
sub
-#line 347 "idl.yp"
+#line 347 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 117
'anytext', 3,
sub
-#line 348 "idl.yp"
+#line 348 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 118
'anytext', 5,
sub
-#line 349 "idl.yp"
+#line 349 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
],
[#Rule 119
'anytext', 5,
sub
-#line 350 "idl.yp"
+#line 350 "pidl/idl.yp"
{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
],
[#Rule 120
[#Rule 124
'text', 1,
sub
-#line 364 "idl.yp"
+#line 364 "pidl/idl.yp"
{ "\"$_[1]\"" }
],
[#Rule 125
bless($self,$class);
}
-#line 375 "idl.yp"
+#line 375 "pidl/idl.yp"
use Parse::Pidl qw(error);
$SRCDIR/script/tests/test_posix.sh //$SERVER/tmp $USERNAME $PASSWORD "" || totalfailed=`expr $totalfailed + $?`
$SRCDIR/script/tests/test_local.sh || totalfailed=`expr $totalfailed + $?`
$SRCDIR/script/tests/test_pidl.sh || totalfailed=`expr $totalfailed + $?`
- $SRCDIR/script/tests/test_smbclient.sh $SERVER $USERNAME $PASSWORD $DOMAIN $PREFIX || totalfailed=`expr $totalfailed + $?`
+ $SRCDIR/script/tests/test_blackbox.sh $SERVER $USERNAME $PASSWORD $DOMAIN $PREFIX || totalfailed=`expr $totalfailed + $?`
$SRCDIR/script/tests/test_cifsdd.sh $SERVER $USERNAME $PASSWORD $DOMAIN || totalfailed=`expr $totalfailed + $?`
$SRCDIR/script/tests/test_simple.sh //$SERVER/simple $USERNAME $PASSWORD "" || totalfailed=`expr $totalfailed + $?`
shift 5
failed=0
-runcmd() {
+testit() {
name="$1"
shift
- testit "$name" $VALGRIND bin/smbclient $CONFIGURATION //$SERVER/tmp -W "$DOMAIN "-U"$USERNAME"%"$PASSWORD" $@
+ cmdline="$*"
+ echo "test: $name"
+ $cmdline
+ status=$?
+ if [ x$status = x0 ]; then
+ echo "success: $name"
+ else
+ echo "failure: $name"
+ fi
+ return $status
}
-incdir=`dirname $0`
-. $incdir/test_functions.sh
+runcmd() {
+ name="$1"
+ shift
+ testit "$name" $VALGRIND bin/smbclient $CONFIGURATION //$SERVER/tmp -W "$DOMAIN" -U"$USERNAME%$PASSWORD" $@
+ return $?
+}
# Generate random file
cat >tmpfile<<EOF
blah
EOF
-
# put that file
echo mput tmpfile | runcmd "MPutting file" || failed=`expr $failed + 1`
# check file info
rm -f tmpfile tmpfile-old tmpfilex
-testok $0 $failed
+exit $failed