ThriftHadoopFileSystem.pm
上传用户:quxuerui
上传日期:2018-01-08
资源大小:41811k
文件大小:112k
- #
- # Autogenerated by Thrift
- #
- # DO NOT EDIT UNLESS YOU ARE SURE THAT YOU KNOW WHAT YOU ARE DOING
- #
- require 5.6.0;
- use strict;
- use warnings;
- use Thrift;
- use Types;
- # HELPER FUNCTIONS AND STRUCTURES
- package ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args->mk_accessors( qw( periodInSeconds ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{periodInSeconds} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{periodInSeconds}) {
- $self->{periodInSeconds} = $vals->{periodInSeconds};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::I64) {
- $xfer += $input->readI64($self->{periodInSeconds});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args');
- if (defined $self->{periodInSeconds}) {
- $xfer += $output->writeFieldBegin('periodInSeconds', TType::I64, 1);
- $xfer += $output->writeI64($self->{periodInSeconds});
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_setInactivityTimeoutPeriod_result;
- use base('Class::Accessor');
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_setInactivityTimeoutPeriod_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_setInactivityTimeoutPeriod_result');
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_shutdown_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_shutdown_args->mk_accessors( qw( status ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{status} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{status}) {
- $self->{status} = $vals->{status};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_shutdown_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::I32) {
- $xfer += $input->readI32($self->{status});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_shutdown_args');
- if (defined $self->{status}) {
- $xfer += $output->writeFieldBegin('status', TType::I32, 1);
- $xfer += $output->writeI32($self->{status});
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_shutdown_result;
- use base('Class::Accessor');
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_shutdown_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_shutdown_result');
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_create_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_create_args->mk_accessors( qw( path ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_create_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_create_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_create_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_create_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_create_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{success} = new ThriftHandle();
- $xfer += $self->{success}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_create_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0);
- $xfer += $self->{success}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_createFile_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_createFile_args->mk_accessors( qw( path mode overwrite bufferSize block_replication blocksize ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- $self->{mode} = undef;
- $self->{overwrite} = undef;
- $self->{bufferSize} = undef;
- $self->{block_replication} = undef;
- $self->{blocksize} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- if (defined $vals->{mode}) {
- $self->{mode} = $vals->{mode};
- }
- if (defined $vals->{overwrite}) {
- $self->{overwrite} = $vals->{overwrite};
- }
- if (defined $vals->{bufferSize}) {
- $self->{bufferSize} = $vals->{bufferSize};
- }
- if (defined $vals->{block_replication}) {
- $self->{block_replication} = $vals->{block_replication};
- }
- if (defined $vals->{blocksize}) {
- $self->{blocksize} = $vals->{blocksize};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_createFile_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^2$/ && do{ if ($ftype == TType::I16) {
- $xfer += $input->readI16($self->{mode});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^3$/ && do{ if ($ftype == TType::BOOL) {
- $xfer += $input->readBool($self->{overwrite});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^4$/ && do{ if ($ftype == TType::I32) {
- $xfer += $input->readI32($self->{bufferSize});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^5$/ && do{ if ($ftype == TType::I16) {
- $xfer += $input->readI16($self->{block_replication});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^6$/ && do{ if ($ftype == TType::I64) {
- $xfer += $input->readI64($self->{blocksize});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_createFile_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{mode}) {
- $xfer += $output->writeFieldBegin('mode', TType::I16, 2);
- $xfer += $output->writeI16($self->{mode});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{overwrite}) {
- $xfer += $output->writeFieldBegin('overwrite', TType::BOOL, 3);
- $xfer += $output->writeBool($self->{overwrite});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{bufferSize}) {
- $xfer += $output->writeFieldBegin('bufferSize', TType::I32, 4);
- $xfer += $output->writeI32($self->{bufferSize});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{block_replication}) {
- $xfer += $output->writeFieldBegin('block_replication', TType::I16, 5);
- $xfer += $output->writeI16($self->{block_replication});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{blocksize}) {
- $xfer += $output->writeFieldBegin('blocksize', TType::I64, 6);
- $xfer += $output->writeI64($self->{blocksize});
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_createFile_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_createFile_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_createFile_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{success} = new ThriftHandle();
- $xfer += $self->{success}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_createFile_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0);
- $xfer += $self->{success}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_open_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_open_args->mk_accessors( qw( path ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_open_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_open_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_open_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_open_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_open_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{success} = new ThriftHandle();
- $xfer += $self->{success}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_open_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0);
- $xfer += $self->{success}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_append_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_append_args->mk_accessors( qw( path ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_append_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_append_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_append_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_append_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_append_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{success} = new ThriftHandle();
- $xfer += $self->{success}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_append_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0);
- $xfer += $self->{success}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_write_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_write_args->mk_accessors( qw( handle data ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{handle} = undef;
- $self->{data} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{handle}) {
- $self->{handle} = $vals->{handle};
- }
- if (defined $vals->{data}) {
- $self->{data} = $vals->{data};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_write_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{handle} = new ThriftHandle();
- $xfer += $self->{handle}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^-1$/ && do{ if ($ftype == TType::STRING) {
- $xfer += $input->readString($self->{data});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_write_args');
- if (defined $self->{handle}) {
- $xfer += $output->writeFieldBegin('handle', TType::STRUCT, 1);
- $xfer += $self->{handle}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{data}) {
- $xfer += $output->writeFieldBegin('data', TType::STRING, -1);
- $xfer += $output->writeString($self->{data});
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_write_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_write_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_write_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::BOOL) {
- $xfer += $input->readBool($self->{success});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_write_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
- $xfer += $output->writeBool($self->{success});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_read_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_read_args->mk_accessors( qw( handle offset size ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{handle} = undef;
- $self->{offset} = undef;
- $self->{size} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{handle}) {
- $self->{handle} = $vals->{handle};
- }
- if (defined $vals->{offset}) {
- $self->{offset} = $vals->{offset};
- }
- if (defined $vals->{size}) {
- $self->{size} = $vals->{size};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_read_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{handle} = new ThriftHandle();
- $xfer += $self->{handle}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^-1$/ && do{ if ($ftype == TType::I64) {
- $xfer += $input->readI64($self->{offset});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^-2$/ && do{ if ($ftype == TType::I32) {
- $xfer += $input->readI32($self->{size});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_read_args');
- if (defined $self->{handle}) {
- $xfer += $output->writeFieldBegin('handle', TType::STRUCT, 1);
- $xfer += $self->{handle}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{offset}) {
- $xfer += $output->writeFieldBegin('offset', TType::I64, -1);
- $xfer += $output->writeI64($self->{offset});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{size}) {
- $xfer += $output->writeFieldBegin('size', TType::I32, -2);
- $xfer += $output->writeI32($self->{size});
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_read_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_read_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_read_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::STRING) {
- $xfer += $input->readString($self->{success});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_read_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::STRING, 0);
- $xfer += $output->writeString($self->{success});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_close_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_close_args->mk_accessors( qw( out ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{out} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{out}) {
- $self->{out} = $vals->{out};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_close_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{out} = new ThriftHandle();
- $xfer += $self->{out}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_close_args');
- if (defined $self->{out}) {
- $xfer += $output->writeFieldBegin('out', TType::STRUCT, 1);
- $xfer += $self->{out}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_close_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_close_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_close_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::BOOL) {
- $xfer += $input->readBool($self->{success});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_close_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
- $xfer += $output->writeBool($self->{success});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_rm_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_rm_args->mk_accessors( qw( path recursive ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- $self->{recursive} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- if (defined $vals->{recursive}) {
- $self->{recursive} = $vals->{recursive};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_rm_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^2$/ && do{ if ($ftype == TType::BOOL) {
- $xfer += $input->readBool($self->{recursive});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_rm_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{recursive}) {
- $xfer += $output->writeFieldBegin('recursive', TType::BOOL, 2);
- $xfer += $output->writeBool($self->{recursive});
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_rm_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_rm_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_rm_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::BOOL) {
- $xfer += $input->readBool($self->{success});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_rm_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
- $xfer += $output->writeBool($self->{success});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_rename_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_rename_args->mk_accessors( qw( path dest ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- $self->{dest} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- if (defined $vals->{dest}) {
- $self->{dest} = $vals->{dest};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_rename_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^2$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{dest} = new Pathname();
- $xfer += $self->{dest}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_rename_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{dest}) {
- $xfer += $output->writeFieldBegin('dest', TType::STRUCT, 2);
- $xfer += $self->{dest}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_rename_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_rename_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_rename_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::BOOL) {
- $xfer += $input->readBool($self->{success});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_rename_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
- $xfer += $output->writeBool($self->{success});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_mkdirs_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_mkdirs_args->mk_accessors( qw( path ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_mkdirs_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_mkdirs_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_mkdirs_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_mkdirs_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_mkdirs_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::BOOL) {
- $xfer += $input->readBool($self->{success});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_mkdirs_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
- $xfer += $output->writeBool($self->{success});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_exists_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_exists_args->mk_accessors( qw( path ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_exists_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_exists_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_exists_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_exists_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_exists_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::BOOL) {
- $xfer += $input->readBool($self->{success});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_exists_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
- $xfer += $output->writeBool($self->{success});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_stat_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_stat_args->mk_accessors( qw( path ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_stat_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_stat_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_stat_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_stat_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_stat_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{success} = new FileStatus();
- $xfer += $self->{success}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_stat_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0);
- $xfer += $self->{success}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_listStatus_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_listStatus_args->mk_accessors( qw( path ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_listStatus_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_listStatus_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_listStatus_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_listStatus_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_listStatus_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::LIST) {
- {
- my $_size14 = 0;
- $self->{success} = [];
- my $_etype17 = 0;
- $xfer += $input->readListBegin($_etype17, $_size14);
- for (my $_i18 = 0; $_i18 < $_size14; ++$_i18)
- {
- my $elem19 = undef;
- $elem19 = new FileStatus();
- $xfer += $elem19->read($input);
- push(@{$self->{success}},$elem19);
- }
- $xfer += $input->readListEnd();
- }
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_listStatus_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::LIST, 0);
- {
- $output->writeListBegin(TType::STRUCT, scalar(@{$self->{success}}));
- {
- foreach my $iter20 (@{$self->{success}})
- {
- $xfer += ${iter20}->write($output);
- }
- }
- $output->writeListEnd();
- }
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_chmod_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_chmod_args->mk_accessors( qw( path mode ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- $self->{mode} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- if (defined $vals->{mode}) {
- $self->{mode} = $vals->{mode};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_chmod_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^2$/ && do{ if ($ftype == TType::I16) {
- $xfer += $input->readI16($self->{mode});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_chmod_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{mode}) {
- $xfer += $output->writeFieldBegin('mode', TType::I16, 2);
- $xfer += $output->writeI16($self->{mode});
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_chmod_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_chmod_result->mk_accessors( qw( ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_chmod_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_chmod_result');
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_chown_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_chown_args->mk_accessors( qw( path owner group ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- $self->{owner} = undef;
- $self->{group} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- if (defined $vals->{owner}) {
- $self->{owner} = $vals->{owner};
- }
- if (defined $vals->{group}) {
- $self->{group} = $vals->{group};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_chown_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^2$/ && do{ if ($ftype == TType::STRING) {
- $xfer += $input->readString($self->{owner});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^3$/ && do{ if ($ftype == TType::STRING) {
- $xfer += $input->readString($self->{group});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_chown_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{owner}) {
- $xfer += $output->writeFieldBegin('owner', TType::STRING, 2);
- $xfer += $output->writeString($self->{owner});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{group}) {
- $xfer += $output->writeFieldBegin('group', TType::STRING, 3);
- $xfer += $output->writeString($self->{group});
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_chown_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_chown_result->mk_accessors( qw( ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_chown_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_chown_result');
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_setReplication_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_setReplication_args->mk_accessors( qw( path replication ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- $self->{replication} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- if (defined $vals->{replication}) {
- $self->{replication} = $vals->{replication};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_setReplication_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^2$/ && do{ if ($ftype == TType::I16) {
- $xfer += $input->readI16($self->{replication});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_setReplication_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{replication}) {
- $xfer += $output->writeFieldBegin('replication', TType::I16, 2);
- $xfer += $output->writeI16($self->{replication});
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_setReplication_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_setReplication_result->mk_accessors( qw( ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_setReplication_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_setReplication_result');
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_getFileBlockLocations_args;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_getFileBlockLocations_args->mk_accessors( qw( path start length ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{path} = undef;
- $self->{start} = undef;
- $self->{length} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{path}) {
- $self->{path} = $vals->{path};
- }
- if (defined $vals->{start}) {
- $self->{start} = $vals->{start};
- }
- if (defined $vals->{length}) {
- $self->{length} = $vals->{length};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_getFileBlockLocations_args';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{path} = new Pathname();
- $xfer += $self->{path}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^2$/ && do{ if ($ftype == TType::I64) {
- $xfer += $input->readI64($self->{start});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^3$/ && do{ if ($ftype == TType::I64) {
- $xfer += $input->readI64($self->{length});
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_getFileBlockLocations_args');
- if (defined $self->{path}) {
- $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
- $xfer += $self->{path}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{start}) {
- $xfer += $output->writeFieldBegin('start', TType::I64, 2);
- $xfer += $output->writeI64($self->{start});
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{length}) {
- $xfer += $output->writeFieldBegin('length', TType::I64, 3);
- $xfer += $output->writeI64($self->{length});
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystem_getFileBlockLocations_result;
- use base('Class::Accessor');
- ThriftHadoopFileSystem_getFileBlockLocations_result->mk_accessors( qw( success ) );
- sub new {
- my $classname = shift;
- my $self = {};
- my $vals = shift || {};
- $self->{success} = undef;
- $self->{ouch} = undef;
- if (UNIVERSAL::isa($vals,'HASH')) {
- if (defined $vals->{success}) {
- $self->{success} = $vals->{success};
- }
- if (defined $vals->{ouch}) {
- $self->{ouch} = $vals->{ouch};
- }
- }
- return bless($self,$classname);
- }
- sub getName {
- return 'ThriftHadoopFileSystem_getFileBlockLocations_result';
- }
- sub read {
- my $self = shift;
- my $input = shift;
- my $xfer = 0;
- my $fname;
- my $ftype = 0;
- my $fid = 0;
- $xfer += $input->readStructBegin($fname);
- while (1)
- {
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
- if ($ftype == TType::STOP) {
- last;
- }
- SWITCH: for($fid)
- {
- /^0$/ && do{ if ($ftype == TType::LIST) {
- {
- my $_size21 = 0;
- $self->{success} = [];
- my $_etype24 = 0;
- $xfer += $input->readListBegin($_etype24, $_size21);
- for (my $_i25 = 0; $_i25 < $_size21; ++$_i25)
- {
- my $elem26 = undef;
- $elem26 = new BlockLocation();
- $xfer += $elem26->read($input);
- push(@{$self->{success}},$elem26);
- }
- $xfer += $input->readListEnd();
- }
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- /^1$/ && do{ if ($ftype == TType::STRUCT) {
- $self->{ouch} = new ThriftIOException();
- $xfer += $self->{ouch}->read($input);
- } else {
- $xfer += $input->skip($ftype);
- }
- last; };
- $xfer += $input->skip($ftype);
- }
- $xfer += $input->readFieldEnd();
- }
- $xfer += $input->readStructEnd();
- return $xfer;
- }
- sub write {
- my $self = shift;
- my $output = shift;
- my $xfer = 0;
- $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_getFileBlockLocations_result');
- if (defined $self->{success}) {
- $xfer += $output->writeFieldBegin('success', TType::LIST, 0);
- {
- $output->writeListBegin(TType::STRUCT, scalar(@{$self->{success}}));
- {
- foreach my $iter27 (@{$self->{success}})
- {
- $xfer += ${iter27}->write($output);
- }
- }
- $output->writeListEnd();
- }
- $xfer += $output->writeFieldEnd();
- }
- if (defined $self->{ouch}) {
- $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
- $xfer += $self->{ouch}->write($output);
- $xfer += $output->writeFieldEnd();
- }
- $xfer += $output->writeFieldStop();
- $xfer += $output->writeStructEnd();
- return $xfer;
- }
- package ThriftHadoopFileSystemIf;
- sub setInactivityTimeoutPeriod{
- my $self = shift;
- my $periodInSeconds = shift;
- die 'implement interface';
- }
- sub shutdown{
- my $self = shift;
- my $status = shift;
- die 'implement interface';
- }
- sub create{
- my $self = shift;
- my $path = shift;
- die 'implement interface';
- }
- sub createFile{
- my $self = shift;
- my $path = shift;
- my $mode = shift;
- my $overwrite = shift;
- my $bufferSize = shift;
- my $block_replication = shift;
- my $blocksize = shift;
- die 'implement interface';
- }
- sub open{
- my $self = shift;
- my $path = shift;
- die 'implement interface';
- }
- sub append{
- my $self = shift;
- my $path = shift;
- die 'implement interface';
- }
- sub write{
- my $self = shift;
- my $handle = shift;
- my $data = shift;
- die 'implement interface';
- }
- sub read{
- my $self = shift;
- my $handle = shift;
- my $offset = shift;
- my $size = shift;
- die 'implement interface';
- }
- sub close{
- my $self = shift;
- my $out = shift;
- die 'implement interface';
- }
- sub rm{
- my $self = shift;
- my $path = shift;
- my $recursive = shift;
- die 'implement interface';
- }
- sub rename{
- my $self = shift;
- my $path = shift;
- my $dest = shift;
- die 'implement interface';
- }
- sub mkdirs{
- my $self = shift;
- my $path = shift;
- die 'implement interface';
- }
- sub exists{
- my $self = shift;
- my $path = shift;
- die 'implement interface';
- }
- sub stat{
- my $self = shift;
- my $path = shift;
- die 'implement interface';
- }
- sub listStatus{
- my $self = shift;
- my $path = shift;
- die 'implement interface';
- }
- sub chmod{
- my $self = shift;
- my $path = shift;
- my $mode = shift;
- die 'implement interface';
- }
- sub chown{
- my $self = shift;
- my $path = shift;
- my $owner = shift;
- my $group = shift;
- die 'implement interface';
- }
- sub setReplication{
- my $self = shift;
- my $path = shift;
- my $replication = shift;
- die 'implement interface';
- }
- sub getFileBlockLocations{
- my $self = shift;
- my $path = shift;
- my $start = shift;
- my $length = shift;
- die 'implement interface';
- }
- package ThriftHadoopFileSystemRest;
- sub new {
- my $classname=shift;
- my $impl =shift;
- my $self ={ impl => $impl };
- return bless($self,$classname);
- }
- sub setInactivityTimeoutPeriod{
- my $self = shift;
- my $request = shift;
- my $periodInSeconds = ($request->{'periodInSeconds'}) ? $request->{'periodInSeconds'} : undef;
- return $self->{impl}->setInactivityTimeoutPeriod($periodInSeconds);
- }
- sub shutdown{
- my $self = shift;
- my $request = shift;
- my $status = ($request->{'status'}) ? $request->{'status'} : undef;
- return $self->{impl}->shutdown($status);
- }
- sub create{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- return $self->{impl}->create($path);
- }
- sub createFile{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- my $mode = ($request->{'mode'}) ? $request->{'mode'} : undef;
- my $overwrite = ($request->{'overwrite'}) ? $request->{'overwrite'} : undef;
- my $bufferSize = ($request->{'bufferSize'}) ? $request->{'bufferSize'} : undef;
- my $block_replication = ($request->{'block_replication'}) ? $request->{'block_replication'} : undef;
- my $blocksize = ($request->{'blocksize'}) ? $request->{'blocksize'} : undef;
- return $self->{impl}->createFile($path, $mode, $overwrite, $bufferSize, $block_replication, $blocksize);
- }
- sub open{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- return $self->{impl}->open($path);
- }
- sub append{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- return $self->{impl}->append($path);
- }
- sub write{
- my $self = shift;
- my $request = shift;
- my $handle = ($request->{'handle'}) ? $request->{'handle'} : undef;
- my $data = ($request->{'data'}) ? $request->{'data'} : undef;
- return $self->{impl}->write($handle, $data);
- }
- sub read{
- my $self = shift;
- my $request = shift;
- my $handle = ($request->{'handle'}) ? $request->{'handle'} : undef;
- my $offset = ($request->{'offset'}) ? $request->{'offset'} : undef;
- my $size = ($request->{'size'}) ? $request->{'size'} : undef;
- return $self->{impl}->read($handle, $offset, $size);
- }
- sub close{
- my $self = shift;
- my $request = shift;
- my $out = ($request->{'out'}) ? $request->{'out'} : undef;
- return $self->{impl}->close($out);
- }
- sub rm{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- my $recursive = ($request->{'recursive'}) ? $request->{'recursive'} : undef;
- return $self->{impl}->rm($path, $recursive);
- }
- sub rename{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- my $dest = ($request->{'dest'}) ? $request->{'dest'} : undef;
- return $self->{impl}->rename($path, $dest);
- }
- sub mkdirs{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- return $self->{impl}->mkdirs($path);
- }
- sub exists{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- return $self->{impl}->exists($path);
- }
- sub stat{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- return $self->{impl}->stat($path);
- }
- sub listStatus{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- return $self->{impl}->listStatus($path);
- }
- sub chmod{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- my $mode = ($request->{'mode'}) ? $request->{'mode'} : undef;
- return $self->{impl}->chmod($path, $mode);
- }
- sub chown{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- my $owner = ($request->{'owner'}) ? $request->{'owner'} : undef;
- my $group = ($request->{'group'}) ? $request->{'group'} : undef;
- return $self->{impl}->chown($path, $owner, $group);
- }
- sub setReplication{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- my $replication = ($request->{'replication'}) ? $request->{'replication'} : undef;
- return $self->{impl}->setReplication($path, $replication);
- }
- sub getFileBlockLocations{
- my $self = shift;
- my $request = shift;
- my $path = ($request->{'path'}) ? $request->{'path'} : undef;
- my $start = ($request->{'start'}) ? $request->{'start'} : undef;
- my $length = ($request->{'length'}) ? $request->{'length'} : undef;
- return $self->{impl}->getFileBlockLocations($path, $start, $length);
- }
- package ThriftHadoopFileSystemClient;
- use base('ThriftHadoopFileSystemIf');
- sub new {
- my $classname = shift;
- my $input = shift;
- my $output = shift;
- my $self = {};
- $self->{input} = $input;
- $self->{output} = defined $output ? $output : $input;
- $self->{seqid} = 0;
- return bless($self,$classname);
- }
- sub setInactivityTimeoutPeriod{
- my $self = shift;
- my $periodInSeconds = shift;
- $self->send_setInactivityTimeoutPeriod($periodInSeconds);
- $self->recv_setInactivityTimeoutPeriod();
- }
- sub send_setInactivityTimeoutPeriod{
- my $self = shift;
- my $periodInSeconds = shift;
- $self->{output}->writeMessageBegin('setInactivityTimeoutPeriod', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args();
- $args->{periodInSeconds} = $periodInSeconds;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_setInactivityTimeoutPeriod{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_setInactivityTimeoutPeriod_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- return;
- }
- sub shutdown{
- my $self = shift;
- my $status = shift;
- $self->send_shutdown($status);
- $self->recv_shutdown();
- }
- sub send_shutdown{
- my $self = shift;
- my $status = shift;
- $self->{output}->writeMessageBegin('shutdown', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_shutdown_args();
- $args->{status} = $status;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_shutdown{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_shutdown_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- return;
- }
- sub create{
- my $self = shift;
- my $path = shift;
- $self->send_create($path);
- return $self->recv_create();
- }
- sub send_create{
- my $self = shift;
- my $path = shift;
- $self->{output}->writeMessageBegin('create', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_create_args();
- $args->{path} = $path;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_create{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_create_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "create failed: unknown result";
- }
- sub createFile{
- my $self = shift;
- my $path = shift;
- my $mode = shift;
- my $overwrite = shift;
- my $bufferSize = shift;
- my $block_replication = shift;
- my $blocksize = shift;
- $self->send_createFile($path, $mode, $overwrite, $bufferSize, $block_replication, $blocksize);
- return $self->recv_createFile();
- }
- sub send_createFile{
- my $self = shift;
- my $path = shift;
- my $mode = shift;
- my $overwrite = shift;
- my $bufferSize = shift;
- my $block_replication = shift;
- my $blocksize = shift;
- $self->{output}->writeMessageBegin('createFile', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_createFile_args();
- $args->{path} = $path;
- $args->{mode} = $mode;
- $args->{overwrite} = $overwrite;
- $args->{bufferSize} = $bufferSize;
- $args->{block_replication} = $block_replication;
- $args->{blocksize} = $blocksize;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_createFile{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_createFile_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "createFile failed: unknown result";
- }
- sub open{
- my $self = shift;
- my $path = shift;
- $self->send_open($path);
- return $self->recv_open();
- }
- sub send_open{
- my $self = shift;
- my $path = shift;
- $self->{output}->writeMessageBegin('open', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_open_args();
- $args->{path} = $path;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_open{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_open_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "open failed: unknown result";
- }
- sub append{
- my $self = shift;
- my $path = shift;
- $self->send_append($path);
- return $self->recv_append();
- }
- sub send_append{
- my $self = shift;
- my $path = shift;
- $self->{output}->writeMessageBegin('append', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_append_args();
- $args->{path} = $path;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_append{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_append_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "append failed: unknown result";
- }
- sub write{
- my $self = shift;
- my $handle = shift;
- my $data = shift;
- $self->send_write($handle, $data);
- return $self->recv_write();
- }
- sub send_write{
- my $self = shift;
- my $handle = shift;
- my $data = shift;
- $self->{output}->writeMessageBegin('write', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_write_args();
- $args->{handle} = $handle;
- $args->{data} = $data;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_write{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_write_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "write failed: unknown result";
- }
- sub read{
- my $self = shift;
- my $handle = shift;
- my $offset = shift;
- my $size = shift;
- $self->send_read($handle, $offset, $size);
- return $self->recv_read();
- }
- sub send_read{
- my $self = shift;
- my $handle = shift;
- my $offset = shift;
- my $size = shift;
- $self->{output}->writeMessageBegin('read', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_read_args();
- $args->{handle} = $handle;
- $args->{offset} = $offset;
- $args->{size} = $size;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_read{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_read_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "read failed: unknown result";
- }
- sub close{
- my $self = shift;
- my $out = shift;
- $self->send_close($out);
- return $self->recv_close();
- }
- sub send_close{
- my $self = shift;
- my $out = shift;
- $self->{output}->writeMessageBegin('close', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_close_args();
- $args->{out} = $out;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_close{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_close_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "close failed: unknown result";
- }
- sub rm{
- my $self = shift;
- my $path = shift;
- my $recursive = shift;
- $self->send_rm($path, $recursive);
- return $self->recv_rm();
- }
- sub send_rm{
- my $self = shift;
- my $path = shift;
- my $recursive = shift;
- $self->{output}->writeMessageBegin('rm', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_rm_args();
- $args->{path} = $path;
- $args->{recursive} = $recursive;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_rm{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_rm_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "rm failed: unknown result";
- }
- sub rename{
- my $self = shift;
- my $path = shift;
- my $dest = shift;
- $self->send_rename($path, $dest);
- return $self->recv_rename();
- }
- sub send_rename{
- my $self = shift;
- my $path = shift;
- my $dest = shift;
- $self->{output}->writeMessageBegin('rename', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_rename_args();
- $args->{path} = $path;
- $args->{dest} = $dest;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_rename{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_rename_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "rename failed: unknown result";
- }
- sub mkdirs{
- my $self = shift;
- my $path = shift;
- $self->send_mkdirs($path);
- return $self->recv_mkdirs();
- }
- sub send_mkdirs{
- my $self = shift;
- my $path = shift;
- $self->{output}->writeMessageBegin('mkdirs', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_mkdirs_args();
- $args->{path} = $path;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_mkdirs{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_mkdirs_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "mkdirs failed: unknown result";
- }
- sub exists{
- my $self = shift;
- my $path = shift;
- $self->send_exists($path);
- return $self->recv_exists();
- }
- sub send_exists{
- my $self = shift;
- my $path = shift;
- $self->{output}->writeMessageBegin('exists', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_exists_args();
- $args->{path} = $path;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_exists{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_exists_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "exists failed: unknown result";
- }
- sub stat{
- my $self = shift;
- my $path = shift;
- $self->send_stat($path);
- return $self->recv_stat();
- }
- sub send_stat{
- my $self = shift;
- my $path = shift;
- $self->{output}->writeMessageBegin('stat', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_stat_args();
- $args->{path} = $path;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_stat{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_stat_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "stat failed: unknown result";
- }
- sub listStatus{
- my $self = shift;
- my $path = shift;
- $self->send_listStatus($path);
- return $self->recv_listStatus();
- }
- sub send_listStatus{
- my $self = shift;
- my $path = shift;
- $self->{output}->writeMessageBegin('listStatus', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_listStatus_args();
- $args->{path} = $path;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_listStatus{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_listStatus_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "listStatus failed: unknown result";
- }
- sub chmod{
- my $self = shift;
- my $path = shift;
- my $mode = shift;
- $self->send_chmod($path, $mode);
- $self->recv_chmod();
- }
- sub send_chmod{
- my $self = shift;
- my $path = shift;
- my $mode = shift;
- $self->{output}->writeMessageBegin('chmod', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_chmod_args();
- $args->{path} = $path;
- $args->{mode} = $mode;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_chmod{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_chmod_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- return;
- }
- sub chown{
- my $self = shift;
- my $path = shift;
- my $owner = shift;
- my $group = shift;
- $self->send_chown($path, $owner, $group);
- $self->recv_chown();
- }
- sub send_chown{
- my $self = shift;
- my $path = shift;
- my $owner = shift;
- my $group = shift;
- $self->{output}->writeMessageBegin('chown', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_chown_args();
- $args->{path} = $path;
- $args->{owner} = $owner;
- $args->{group} = $group;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_chown{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_chown_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- return;
- }
- sub setReplication{
- my $self = shift;
- my $path = shift;
- my $replication = shift;
- $self->send_setReplication($path, $replication);
- $self->recv_setReplication();
- }
- sub send_setReplication{
- my $self = shift;
- my $path = shift;
- my $replication = shift;
- $self->{output}->writeMessageBegin('setReplication', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_setReplication_args();
- $args->{path} = $path;
- $args->{replication} = $replication;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_setReplication{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_setReplication_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- return;
- }
- sub getFileBlockLocations{
- my $self = shift;
- my $path = shift;
- my $start = shift;
- my $length = shift;
- $self->send_getFileBlockLocations($path, $start, $length);
- return $self->recv_getFileBlockLocations();
- }
- sub send_getFileBlockLocations{
- my $self = shift;
- my $path = shift;
- my $start = shift;
- my $length = shift;
- $self->{output}->writeMessageBegin('getFileBlockLocations', TMessageType::CALL, $self->{seqid});
- my $args = new ThriftHadoopFileSystem_getFileBlockLocations_args();
- $args->{path} = $path;
- $args->{start} = $start;
- $args->{length} = $length;
- $args->write($self->{output});
- $self->{output}->writeMessageEnd();
- $self->{output}->getTransport()->flush();
- }
- sub recv_getFileBlockLocations{
- my $self = shift;
- my $rseqid = 0;
- my $fname;
- my $mtype = 0;
- $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
- if ($mtype == TMessageType::EXCEPTION) {
- my $x = new TApplicationException();
- $x->read($self->{input});
- $self->{input}->readMessageEnd();
- die $x;
- }
- my $result = new ThriftHadoopFileSystem_getFileBlockLocations_result();
- $result->read($self->{input});
- $self->{input}->readMessageEnd();
- if (defined $result->{success} ) {
- return $result->{success};
- }
- if (defined $result->{ouch}) {
- die $result->{ouch};
- }
- die "getFileBlockLocations failed: unknown result";
- }
- package ThriftHadoopFileSystemProcessor;
- sub new {
- my $classname = shift;
- my $handler = shift;
- my $self = {};
- $self->{handler} = $handler;
- return bless($self,$classname);
- }
- sub process {
- my $self = shift;
- my $input = shift;
- my $output = shift;
- my $rseqid = 0;
- my $fname = undef;
- my $mtype = 0;
- $input->readMessageBegin($fname, $mtype, $rseqid);
- my $methodname = 'process_'.$fname;
- if (!method_exists($self, $methodname)) {
- $input->skip(TType::STRUCT);
- $input->readMessageEnd();
- my $x = new TApplicationException('Function '.$fname.' not implemented.', TApplicationException::UNKNOWN_METHOD);
- $output->writeMessageBegin($fname, TMessageType::EXCEPTION, $rseqid);
- $x->write($output);
- $output->writeMessageEnd();
- $output->getTransport()->flush();
- return;
- }
- $self->$methodname($rseqid, $input, $output);
- return 1;
- }
- sub process_setInactivityTimeoutPeriod{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_setInactivityTimeoutPeriod_result();
- $self->{handler}->setInactivityTimeoutPeriod($args->periodInSeconds);
- $output->writeMessageBegin('setInactivityTimeoutPeriod', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_shutdown{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_shutdown_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_shutdown_result();
- $self->{handler}->shutdown($args->status);
- $output->writeMessageBegin('shutdown', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_create{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_create_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_create_result();
- eval {
- $result->{success} = $self->{handler}->create($args->path);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('create', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_createFile{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_createFile_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_createFile_result();
- eval {
- $result->{success} = $self->{handler}->createFile($args->path, $args->mode, $args->overwrite, $args->bufferSize, $args->block_replication, $args->blocksize);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('createFile', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_open{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_open_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_open_result();
- eval {
- $result->{success} = $self->{handler}->open($args->path);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('open', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_append{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_append_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_append_result();
- eval {
- $result->{success} = $self->{handler}->append($args->path);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('append', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_write{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_write_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_write_result();
- eval {
- $result->{success} = $self->{handler}->write($args->handle, $args->data);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('write', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_read{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_read_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_read_result();
- eval {
- $result->{success} = $self->{handler}->read($args->handle, $args->offset, $args->size);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('read', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_close{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_close_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_close_result();
- eval {
- $result->{success} = $self->{handler}->close($args->out);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('close', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_rm{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_rm_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_rm_result();
- eval {
- $result->{success} = $self->{handler}->rm($args->path, $args->recursive);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('rm', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_rename{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_rename_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_rename_result();
- eval {
- $result->{success} = $self->{handler}->rename($args->path, $args->dest);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('rename', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_mkdirs{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_mkdirs_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_mkdirs_result();
- eval {
- $result->{success} = $self->{handler}->mkdirs($args->path);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('mkdirs', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_exists{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_exists_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_exists_result();
- eval {
- $result->{success} = $self->{handler}->exists($args->path);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('exists', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_stat{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_stat_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_stat_result();
- eval {
- $result->{success} = $self->{handler}->stat($args->path);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('stat', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_listStatus{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_listStatus_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_listStatus_result();
- eval {
- $result->{success} = $self->{handler}->listStatus($args->path);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('listStatus', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_chmod{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_chmod_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_chmod_result();
- eval {
- $self->{handler}->chmod($args->path, $args->mode);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('chmod', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_chown{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_chown_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_chown_result();
- eval {
- $self->{handler}->chown($args->path, $args->owner, $args->group);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('chown', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_setReplication{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_setReplication_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_setReplication_result();
- eval {
- $self->{handler}->setReplication($args->path, $args->replication);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('setReplication', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- sub process_getFileBlockLocations{
- my $self = shift;
- my ($seqid, $input, $output);
- my $args = new ThriftHadoopFileSystem_getFileBlockLocations_args();
- $args->read($input);
- $input->readMessageEnd();
- my $result = new ThriftHadoopFileSystem_getFileBlockLocations_result();
- eval {
- $result->{success} = $self->{handler}->getFileBlockLocations($args->path, $args->start, $args->length);
- }; if( UNIVERSAL::isa($@,'ThriftIOException') ){
- $result->{ouch} = $@;
- }
- $output->writeMessageBegin('getFileBlockLocations', TMessageType::REPLY, $seqid);
- $result->write($output);
- $output->getTransport()->flush();
- }
- 1;