Moving from govendor to dep, updated dependencies (#48)
* Moving from govendor to dep. * Making the pull request template more friendly. * Fixing akward space in PR template. * goimports run on whole project using ` goimports -w $(find . -type f -name '*.go' -not -path "./vendor/*" -not -path "./gen-go/*")` source of command: https://gist.github.com/bgentry/fd1ffef7dbde01857f66
This commit is contained in:
parent
9631aa3aab
commit
8d445c1c77
2186 changed files with 400410 additions and 352 deletions
82
vendor/git.apache.org/thrift.git/tutorial/perl/PerlClient.pl
generated
vendored
Normal file
82
vendor/git.apache.org/thrift.git/tutorial/perl/PerlClient.pl
generated
vendored
Normal file
|
@ -0,0 +1,82 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
#
|
||||
# Licensed to the Apache Software Foundation (ASF) under one
|
||||
# or more contributor license agreements. See the NOTICE file
|
||||
# distributed with this work for additional information
|
||||
# regarding copyright ownership. The ASF licenses this file
|
||||
# to you under the Apache License, Version 2.0 (the
|
||||
# "License"); you may not use this file except in compliance
|
||||
# with the License. You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing,
|
||||
# software distributed under the License is distributed on an
|
||||
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
||||
# KIND, either express or implied. See the License for the
|
||||
# specific language governing permissions and limitations
|
||||
# under the License.
|
||||
#
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use lib '../../lib/perl/lib';
|
||||
use lib '../gen-perl';
|
||||
|
||||
use Thrift;
|
||||
use Thrift::BinaryProtocol;
|
||||
use Thrift::Socket;
|
||||
use Thrift::BufferedTransport;
|
||||
|
||||
use shared::SharedService;
|
||||
use tutorial::Calculator;
|
||||
use shared::Types;
|
||||
use tutorial::Types;
|
||||
|
||||
use Data::Dumper;
|
||||
|
||||
my $socket = new Thrift::Socket('localhost',9090);
|
||||
my $transport = new Thrift::BufferedTransport($socket,1024,1024);
|
||||
my $protocol = new Thrift::BinaryProtocol($transport);
|
||||
my $client = new tutorial::CalculatorClient($protocol);
|
||||
|
||||
|
||||
eval{
|
||||
$transport->open();
|
||||
|
||||
$client->ping();
|
||||
print "ping()\n";
|
||||
|
||||
|
||||
my $sum = $client->add(1,1);
|
||||
print "1+1=$sum\n";
|
||||
|
||||
my $work = new tutorial::Work();
|
||||
|
||||
$work->op(tutorial::Operation::DIVIDE);
|
||||
$work->num1(1);
|
||||
$work->num2(0);
|
||||
|
||||
eval {
|
||||
$client->calculate(1, $work);
|
||||
print "Whoa! We can divide by zero?\n";
|
||||
}; if($@) {
|
||||
warn "InvalidOperation: ".Dumper($@);
|
||||
}
|
||||
|
||||
$work->op(tutorial::Operation::SUBTRACT);
|
||||
$work->num1(15);
|
||||
$work->num2(10);
|
||||
my $diff = $client->calculate(1, $work);
|
||||
print "15-10=$diff\n";
|
||||
|
||||
my $log = $client->getStruct(1);
|
||||
print "Log: $log->{value}\n";
|
||||
|
||||
$transport->close();
|
||||
|
||||
}; if($@){
|
||||
warn(Dumper($@));
|
||||
}
|
124
vendor/git.apache.org/thrift.git/tutorial/perl/PerlServer.pl
generated
vendored
Normal file
124
vendor/git.apache.org/thrift.git/tutorial/perl/PerlServer.pl
generated
vendored
Normal file
|
@ -0,0 +1,124 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
#
|
||||
# Licensed to the Apache Software Foundation (ASF) under one
|
||||
# or more contributor license agreements. See the NOTICE file
|
||||
# distributed with this work for additional information
|
||||
# regarding copyright ownership. The ASF licenses this file
|
||||
# to you under the Apache License, Version 2.0 (the
|
||||
# "License"); you may not use this file except in compliance
|
||||
# with the License. You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing,
|
||||
# software distributed under the License is distributed on an
|
||||
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
||||
# KIND, either express or implied. See the License for the
|
||||
# specific language governing permissions and limitations
|
||||
# under the License.
|
||||
#
|
||||
|
||||
use strict;
|
||||
use lib '../gen-perl';
|
||||
use Thrift::Socket;
|
||||
use Thrift::Server;
|
||||
use tutorial::Calculator;
|
||||
|
||||
package CalculatorHandler;
|
||||
use base qw(tutorial::CalculatorIf);
|
||||
|
||||
sub new {
|
||||
my $classname = shift;
|
||||
my $self = {};
|
||||
|
||||
return bless($self,$classname);
|
||||
}
|
||||
|
||||
|
||||
sub ping
|
||||
{
|
||||
print "ping()\n";
|
||||
}
|
||||
|
||||
sub add
|
||||
{
|
||||
my($self, $n1, $n2) = @_;
|
||||
printf("add(%d,%d)\n", $n1, $n2);
|
||||
return $n1 + $n2;
|
||||
}
|
||||
|
||||
sub calculate
|
||||
{
|
||||
my($self, $logid, $work) = @_;
|
||||
my $op = $work->{op};
|
||||
my $num1 = $work->{num1};
|
||||
my $num2 = $work->{num2};
|
||||
printf("calculate(%d, %d %d %d)\n", $logid, $num1, $num2, $op);
|
||||
|
||||
my $val;
|
||||
|
||||
if ($op == tutorial::Operation::ADD) {
|
||||
$val = $num1 + $num2;
|
||||
} elsif ($op == tutorial::Operation::SUBTRACT) {
|
||||
$val = $num1 - $num2;
|
||||
} elsif ($op == tutorial::Operation::MULTIPLY) {
|
||||
$val = $num1 * $num2;
|
||||
} elsif ($op == tutorial::Operation::DIVIDE) {
|
||||
if ($num2 == 0)
|
||||
{
|
||||
my $x = new tutorial::InvalidOperation;
|
||||
$x->whatOp($op);
|
||||
$x->why('Cannot divide by 0');
|
||||
die $x;
|
||||
}
|
||||
$val = $num1 / $num2;
|
||||
} else {
|
||||
my $x = new tutorial::InvalidOperation;
|
||||
$x->whatOp($op);
|
||||
$x->why('Invalid operation');
|
||||
die $x;
|
||||
}
|
||||
|
||||
my $log = new shared::SharedStruct;
|
||||
$log->key($logid);
|
||||
$log->value(int($val));
|
||||
$self->{log}->{$logid} = $log;
|
||||
|
||||
return $val;
|
||||
}
|
||||
|
||||
sub getStruct
|
||||
{
|
||||
my($self, $key) = @_;
|
||||
printf("getStruct(%d)\n", $key);
|
||||
return $self->{log}->{$key};
|
||||
}
|
||||
|
||||
sub zip
|
||||
{
|
||||
my($self) = @_;
|
||||
print "zip()\n";
|
||||
}
|
||||
|
||||
|
||||
|
||||
eval {
|
||||
my $handler = new CalculatorHandler;
|
||||
my $processor = new tutorial::CalculatorProcessor($handler);
|
||||
my $serversocket = new Thrift::ServerSocket(9090);
|
||||
my $forkingserver = new Thrift::ForkingServer($processor, $serversocket);
|
||||
print "Starting the server...\n";
|
||||
$forkingserver->serve();
|
||||
print "done.\n";
|
||||
}; if ($@) {
|
||||
if ($@ =~ m/TException/ and exists $@->{message}) {
|
||||
my $message = $@->{message};
|
||||
my $code = $@->{code};
|
||||
my $out = $code . ':' . $message;
|
||||
die $out;
|
||||
} else {
|
||||
die $@;
|
||||
}
|
||||
}
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue