ThriftHadoopFileSystem.pm
上传用户:quxuerui
上传日期:2018-01-08
资源大小:41811k
文件大小:112k
源码类别:

网格计算

开发平台:

Java

  1. #
  2. # Autogenerated by Thrift
  3. #
  4. # DO NOT EDIT UNLESS YOU ARE SURE THAT YOU KNOW WHAT YOU ARE DOING
  5. #
  6. require 5.6.0;
  7. use strict;
  8. use warnings;
  9. use Thrift;
  10. use Types;
  11. # HELPER FUNCTIONS AND STRUCTURES
  12. package ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args;
  13. use base('Class::Accessor');
  14. ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args->mk_accessors( qw( periodInSeconds ) );
  15. sub new {
  16. my $classname = shift;
  17. my $self      = {};
  18. my $vals      = shift || {};
  19. $self->{periodInSeconds} = undef;
  20.   if (UNIVERSAL::isa($vals,'HASH')) {
  21.     if (defined $vals->{periodInSeconds}) {
  22.       $self->{periodInSeconds} = $vals->{periodInSeconds};
  23.     }
  24.   }
  25. return bless($self,$classname);
  26. }
  27. sub getName {
  28.   return 'ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args';
  29. }
  30. sub read {
  31.   my $self  = shift;
  32.   my $input = shift;
  33.   my $xfer  = 0;
  34.   my $fname;
  35.   my $ftype = 0;
  36.   my $fid   = 0;
  37.   $xfer += $input->readStructBegin($fname);
  38.   while (1) 
  39.   {
  40.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  41.     if ($ftype == TType::STOP) {
  42.       last;
  43.     }
  44.     SWITCH: for($fid)
  45.     {
  46.       /^1$/ && do{      if ($ftype == TType::I64) {
  47.         $xfer += $input->readI64($self->{periodInSeconds});
  48.       } else {
  49.         $xfer += $input->skip($ftype);
  50.       }
  51.       last; };
  52.         $xfer += $input->skip($ftype);
  53.     }
  54.     $xfer += $input->readFieldEnd();
  55.   }
  56.   $xfer += $input->readStructEnd();
  57.   return $xfer;
  58. }
  59. sub write {
  60.   my $self   = shift;
  61.   my $output = shift;
  62.   my $xfer   = 0;
  63.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args');
  64.   if (defined $self->{periodInSeconds}) {
  65.     $xfer += $output->writeFieldBegin('periodInSeconds', TType::I64, 1);
  66.     $xfer += $output->writeI64($self->{periodInSeconds});
  67.     $xfer += $output->writeFieldEnd();
  68.   }
  69.   $xfer += $output->writeFieldStop();
  70.   $xfer += $output->writeStructEnd();
  71.   return $xfer;
  72. }
  73. package ThriftHadoopFileSystem_setInactivityTimeoutPeriod_result;
  74. use base('Class::Accessor');
  75. sub new {
  76. my $classname = shift;
  77. my $self      = {};
  78. my $vals      = shift || {};
  79. return bless($self,$classname);
  80. }
  81. sub getName {
  82.   return 'ThriftHadoopFileSystem_setInactivityTimeoutPeriod_result';
  83. }
  84. sub read {
  85.   my $self  = shift;
  86.   my $input = shift;
  87.   my $xfer  = 0;
  88.   my $fname;
  89.   my $ftype = 0;
  90.   my $fid   = 0;
  91.   $xfer += $input->readStructBegin($fname);
  92.   while (1) 
  93.   {
  94.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  95.     if ($ftype == TType::STOP) {
  96.       last;
  97.     }
  98.     SWITCH: for($fid)
  99.     {
  100.         $xfer += $input->skip($ftype);
  101.     }
  102.     $xfer += $input->readFieldEnd();
  103.   }
  104.   $xfer += $input->readStructEnd();
  105.   return $xfer;
  106. }
  107. sub write {
  108.   my $self   = shift;
  109.   my $output = shift;
  110.   my $xfer   = 0;
  111.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_setInactivityTimeoutPeriod_result');
  112.   $xfer += $output->writeFieldStop();
  113.   $xfer += $output->writeStructEnd();
  114.   return $xfer;
  115. }
  116. package ThriftHadoopFileSystem_shutdown_args;
  117. use base('Class::Accessor');
  118. ThriftHadoopFileSystem_shutdown_args->mk_accessors( qw( status ) );
  119. sub new {
  120. my $classname = shift;
  121. my $self      = {};
  122. my $vals      = shift || {};
  123. $self->{status} = undef;
  124.   if (UNIVERSAL::isa($vals,'HASH')) {
  125.     if (defined $vals->{status}) {
  126.       $self->{status} = $vals->{status};
  127.     }
  128.   }
  129. return bless($self,$classname);
  130. }
  131. sub getName {
  132.   return 'ThriftHadoopFileSystem_shutdown_args';
  133. }
  134. sub read {
  135.   my $self  = shift;
  136.   my $input = shift;
  137.   my $xfer  = 0;
  138.   my $fname;
  139.   my $ftype = 0;
  140.   my $fid   = 0;
  141.   $xfer += $input->readStructBegin($fname);
  142.   while (1) 
  143.   {
  144.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  145.     if ($ftype == TType::STOP) {
  146.       last;
  147.     }
  148.     SWITCH: for($fid)
  149.     {
  150.       /^1$/ && do{      if ($ftype == TType::I32) {
  151.         $xfer += $input->readI32($self->{status});
  152.       } else {
  153.         $xfer += $input->skip($ftype);
  154.       }
  155.       last; };
  156.         $xfer += $input->skip($ftype);
  157.     }
  158.     $xfer += $input->readFieldEnd();
  159.   }
  160.   $xfer += $input->readStructEnd();
  161.   return $xfer;
  162. }
  163. sub write {
  164.   my $self   = shift;
  165.   my $output = shift;
  166.   my $xfer   = 0;
  167.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_shutdown_args');
  168.   if (defined $self->{status}) {
  169.     $xfer += $output->writeFieldBegin('status', TType::I32, 1);
  170.     $xfer += $output->writeI32($self->{status});
  171.     $xfer += $output->writeFieldEnd();
  172.   }
  173.   $xfer += $output->writeFieldStop();
  174.   $xfer += $output->writeStructEnd();
  175.   return $xfer;
  176. }
  177. package ThriftHadoopFileSystem_shutdown_result;
  178. use base('Class::Accessor');
  179. sub new {
  180. my $classname = shift;
  181. my $self      = {};
  182. my $vals      = shift || {};
  183. return bless($self,$classname);
  184. }
  185. sub getName {
  186.   return 'ThriftHadoopFileSystem_shutdown_result';
  187. }
  188. sub read {
  189.   my $self  = shift;
  190.   my $input = shift;
  191.   my $xfer  = 0;
  192.   my $fname;
  193.   my $ftype = 0;
  194.   my $fid   = 0;
  195.   $xfer += $input->readStructBegin($fname);
  196.   while (1) 
  197.   {
  198.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  199.     if ($ftype == TType::STOP) {
  200.       last;
  201.     }
  202.     SWITCH: for($fid)
  203.     {
  204.         $xfer += $input->skip($ftype);
  205.     }
  206.     $xfer += $input->readFieldEnd();
  207.   }
  208.   $xfer += $input->readStructEnd();
  209.   return $xfer;
  210. }
  211. sub write {
  212.   my $self   = shift;
  213.   my $output = shift;
  214.   my $xfer   = 0;
  215.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_shutdown_result');
  216.   $xfer += $output->writeFieldStop();
  217.   $xfer += $output->writeStructEnd();
  218.   return $xfer;
  219. }
  220. package ThriftHadoopFileSystem_create_args;
  221. use base('Class::Accessor');
  222. ThriftHadoopFileSystem_create_args->mk_accessors( qw( path ) );
  223. sub new {
  224. my $classname = shift;
  225. my $self      = {};
  226. my $vals      = shift || {};
  227. $self->{path} = undef;
  228.   if (UNIVERSAL::isa($vals,'HASH')) {
  229.     if (defined $vals->{path}) {
  230.       $self->{path} = $vals->{path};
  231.     }
  232.   }
  233. return bless($self,$classname);
  234. }
  235. sub getName {
  236.   return 'ThriftHadoopFileSystem_create_args';
  237. }
  238. sub read {
  239.   my $self  = shift;
  240.   my $input = shift;
  241.   my $xfer  = 0;
  242.   my $fname;
  243.   my $ftype = 0;
  244.   my $fid   = 0;
  245.   $xfer += $input->readStructBegin($fname);
  246.   while (1) 
  247.   {
  248.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  249.     if ($ftype == TType::STOP) {
  250.       last;
  251.     }
  252.     SWITCH: for($fid)
  253.     {
  254.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  255.         $self->{path} = new Pathname();
  256.         $xfer += $self->{path}->read($input);
  257.       } else {
  258.         $xfer += $input->skip($ftype);
  259.       }
  260.       last; };
  261.         $xfer += $input->skip($ftype);
  262.     }
  263.     $xfer += $input->readFieldEnd();
  264.   }
  265.   $xfer += $input->readStructEnd();
  266.   return $xfer;
  267. }
  268. sub write {
  269.   my $self   = shift;
  270.   my $output = shift;
  271.   my $xfer   = 0;
  272.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_create_args');
  273.   if (defined $self->{path}) {
  274.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  275.     $xfer += $self->{path}->write($output);
  276.     $xfer += $output->writeFieldEnd();
  277.   }
  278.   $xfer += $output->writeFieldStop();
  279.   $xfer += $output->writeStructEnd();
  280.   return $xfer;
  281. }
  282. package ThriftHadoopFileSystem_create_result;
  283. use base('Class::Accessor');
  284. ThriftHadoopFileSystem_create_result->mk_accessors( qw( success ) );
  285. sub new {
  286. my $classname = shift;
  287. my $self      = {};
  288. my $vals      = shift || {};
  289. $self->{success} = undef;
  290. $self->{ouch} = undef;
  291.   if (UNIVERSAL::isa($vals,'HASH')) {
  292.     if (defined $vals->{success}) {
  293.       $self->{success} = $vals->{success};
  294.     }
  295.     if (defined $vals->{ouch}) {
  296.       $self->{ouch} = $vals->{ouch};
  297.     }
  298.   }
  299. return bless($self,$classname);
  300. }
  301. sub getName {
  302.   return 'ThriftHadoopFileSystem_create_result';
  303. }
  304. sub read {
  305.   my $self  = shift;
  306.   my $input = shift;
  307.   my $xfer  = 0;
  308.   my $fname;
  309.   my $ftype = 0;
  310.   my $fid   = 0;
  311.   $xfer += $input->readStructBegin($fname);
  312.   while (1) 
  313.   {
  314.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  315.     if ($ftype == TType::STOP) {
  316.       last;
  317.     }
  318.     SWITCH: for($fid)
  319.     {
  320.       /^0$/ && do{      if ($ftype == TType::STRUCT) {
  321.         $self->{success} = new ThriftHandle();
  322.         $xfer += $self->{success}->read($input);
  323.       } else {
  324.         $xfer += $input->skip($ftype);
  325.       }
  326.       last; };
  327.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  328.         $self->{ouch} = new ThriftIOException();
  329.         $xfer += $self->{ouch}->read($input);
  330.       } else {
  331.         $xfer += $input->skip($ftype);
  332.       }
  333.       last; };
  334.         $xfer += $input->skip($ftype);
  335.     }
  336.     $xfer += $input->readFieldEnd();
  337.   }
  338.   $xfer += $input->readStructEnd();
  339.   return $xfer;
  340. }
  341. sub write {
  342.   my $self   = shift;
  343.   my $output = shift;
  344.   my $xfer   = 0;
  345.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_create_result');
  346.   if (defined $self->{success}) {
  347.     $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0);
  348.     $xfer += $self->{success}->write($output);
  349.     $xfer += $output->writeFieldEnd();
  350.   }
  351.   if (defined $self->{ouch}) {
  352.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  353.     $xfer += $self->{ouch}->write($output);
  354.     $xfer += $output->writeFieldEnd();
  355.   }
  356.   $xfer += $output->writeFieldStop();
  357.   $xfer += $output->writeStructEnd();
  358.   return $xfer;
  359. }
  360. package ThriftHadoopFileSystem_createFile_args;
  361. use base('Class::Accessor');
  362. ThriftHadoopFileSystem_createFile_args->mk_accessors( qw( path mode overwrite bufferSize block_replication blocksize ) );
  363. sub new {
  364. my $classname = shift;
  365. my $self      = {};
  366. my $vals      = shift || {};
  367. $self->{path} = undef;
  368. $self->{mode} = undef;
  369. $self->{overwrite} = undef;
  370. $self->{bufferSize} = undef;
  371. $self->{block_replication} = undef;
  372. $self->{blocksize} = undef;
  373.   if (UNIVERSAL::isa($vals,'HASH')) {
  374.     if (defined $vals->{path}) {
  375.       $self->{path} = $vals->{path};
  376.     }
  377.     if (defined $vals->{mode}) {
  378.       $self->{mode} = $vals->{mode};
  379.     }
  380.     if (defined $vals->{overwrite}) {
  381.       $self->{overwrite} = $vals->{overwrite};
  382.     }
  383.     if (defined $vals->{bufferSize}) {
  384.       $self->{bufferSize} = $vals->{bufferSize};
  385.     }
  386.     if (defined $vals->{block_replication}) {
  387.       $self->{block_replication} = $vals->{block_replication};
  388.     }
  389.     if (defined $vals->{blocksize}) {
  390.       $self->{blocksize} = $vals->{blocksize};
  391.     }
  392.   }
  393. return bless($self,$classname);
  394. }
  395. sub getName {
  396.   return 'ThriftHadoopFileSystem_createFile_args';
  397. }
  398. sub read {
  399.   my $self  = shift;
  400.   my $input = shift;
  401.   my $xfer  = 0;
  402.   my $fname;
  403.   my $ftype = 0;
  404.   my $fid   = 0;
  405.   $xfer += $input->readStructBegin($fname);
  406.   while (1) 
  407.   {
  408.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  409.     if ($ftype == TType::STOP) {
  410.       last;
  411.     }
  412.     SWITCH: for($fid)
  413.     {
  414.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  415.         $self->{path} = new Pathname();
  416.         $xfer += $self->{path}->read($input);
  417.       } else {
  418.         $xfer += $input->skip($ftype);
  419.       }
  420.       last; };
  421.       /^2$/ && do{      if ($ftype == TType::I16) {
  422.         $xfer += $input->readI16($self->{mode});
  423.       } else {
  424.         $xfer += $input->skip($ftype);
  425.       }
  426.       last; };
  427.       /^3$/ && do{      if ($ftype == TType::BOOL) {
  428.         $xfer += $input->readBool($self->{overwrite});
  429.       } else {
  430.         $xfer += $input->skip($ftype);
  431.       }
  432.       last; };
  433.       /^4$/ && do{      if ($ftype == TType::I32) {
  434.         $xfer += $input->readI32($self->{bufferSize});
  435.       } else {
  436.         $xfer += $input->skip($ftype);
  437.       }
  438.       last; };
  439.       /^5$/ && do{      if ($ftype == TType::I16) {
  440.         $xfer += $input->readI16($self->{block_replication});
  441.       } else {
  442.         $xfer += $input->skip($ftype);
  443.       }
  444.       last; };
  445.       /^6$/ && do{      if ($ftype == TType::I64) {
  446.         $xfer += $input->readI64($self->{blocksize});
  447.       } else {
  448.         $xfer += $input->skip($ftype);
  449.       }
  450.       last; };
  451.         $xfer += $input->skip($ftype);
  452.     }
  453.     $xfer += $input->readFieldEnd();
  454.   }
  455.   $xfer += $input->readStructEnd();
  456.   return $xfer;
  457. }
  458. sub write {
  459.   my $self   = shift;
  460.   my $output = shift;
  461.   my $xfer   = 0;
  462.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_createFile_args');
  463.   if (defined $self->{path}) {
  464.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  465.     $xfer += $self->{path}->write($output);
  466.     $xfer += $output->writeFieldEnd();
  467.   }
  468.   if (defined $self->{mode}) {
  469.     $xfer += $output->writeFieldBegin('mode', TType::I16, 2);
  470.     $xfer += $output->writeI16($self->{mode});
  471.     $xfer += $output->writeFieldEnd();
  472.   }
  473.   if (defined $self->{overwrite}) {
  474.     $xfer += $output->writeFieldBegin('overwrite', TType::BOOL, 3);
  475.     $xfer += $output->writeBool($self->{overwrite});
  476.     $xfer += $output->writeFieldEnd();
  477.   }
  478.   if (defined $self->{bufferSize}) {
  479.     $xfer += $output->writeFieldBegin('bufferSize', TType::I32, 4);
  480.     $xfer += $output->writeI32($self->{bufferSize});
  481.     $xfer += $output->writeFieldEnd();
  482.   }
  483.   if (defined $self->{block_replication}) {
  484.     $xfer += $output->writeFieldBegin('block_replication', TType::I16, 5);
  485.     $xfer += $output->writeI16($self->{block_replication});
  486.     $xfer += $output->writeFieldEnd();
  487.   }
  488.   if (defined $self->{blocksize}) {
  489.     $xfer += $output->writeFieldBegin('blocksize', TType::I64, 6);
  490.     $xfer += $output->writeI64($self->{blocksize});
  491.     $xfer += $output->writeFieldEnd();
  492.   }
  493.   $xfer += $output->writeFieldStop();
  494.   $xfer += $output->writeStructEnd();
  495.   return $xfer;
  496. }
  497. package ThriftHadoopFileSystem_createFile_result;
  498. use base('Class::Accessor');
  499. ThriftHadoopFileSystem_createFile_result->mk_accessors( qw( success ) );
  500. sub new {
  501. my $classname = shift;
  502. my $self      = {};
  503. my $vals      = shift || {};
  504. $self->{success} = undef;
  505. $self->{ouch} = undef;
  506.   if (UNIVERSAL::isa($vals,'HASH')) {
  507.     if (defined $vals->{success}) {
  508.       $self->{success} = $vals->{success};
  509.     }
  510.     if (defined $vals->{ouch}) {
  511.       $self->{ouch} = $vals->{ouch};
  512.     }
  513.   }
  514. return bless($self,$classname);
  515. }
  516. sub getName {
  517.   return 'ThriftHadoopFileSystem_createFile_result';
  518. }
  519. sub read {
  520.   my $self  = shift;
  521.   my $input = shift;
  522.   my $xfer  = 0;
  523.   my $fname;
  524.   my $ftype = 0;
  525.   my $fid   = 0;
  526.   $xfer += $input->readStructBegin($fname);
  527.   while (1) 
  528.   {
  529.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  530.     if ($ftype == TType::STOP) {
  531.       last;
  532.     }
  533.     SWITCH: for($fid)
  534.     {
  535.       /^0$/ && do{      if ($ftype == TType::STRUCT) {
  536.         $self->{success} = new ThriftHandle();
  537.         $xfer += $self->{success}->read($input);
  538.       } else {
  539.         $xfer += $input->skip($ftype);
  540.       }
  541.       last; };
  542.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  543.         $self->{ouch} = new ThriftIOException();
  544.         $xfer += $self->{ouch}->read($input);
  545.       } else {
  546.         $xfer += $input->skip($ftype);
  547.       }
  548.       last; };
  549.         $xfer += $input->skip($ftype);
  550.     }
  551.     $xfer += $input->readFieldEnd();
  552.   }
  553.   $xfer += $input->readStructEnd();
  554.   return $xfer;
  555. }
  556. sub write {
  557.   my $self   = shift;
  558.   my $output = shift;
  559.   my $xfer   = 0;
  560.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_createFile_result');
  561.   if (defined $self->{success}) {
  562.     $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0);
  563.     $xfer += $self->{success}->write($output);
  564.     $xfer += $output->writeFieldEnd();
  565.   }
  566.   if (defined $self->{ouch}) {
  567.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  568.     $xfer += $self->{ouch}->write($output);
  569.     $xfer += $output->writeFieldEnd();
  570.   }
  571.   $xfer += $output->writeFieldStop();
  572.   $xfer += $output->writeStructEnd();
  573.   return $xfer;
  574. }
  575. package ThriftHadoopFileSystem_open_args;
  576. use base('Class::Accessor');
  577. ThriftHadoopFileSystem_open_args->mk_accessors( qw( path ) );
  578. sub new {
  579. my $classname = shift;
  580. my $self      = {};
  581. my $vals      = shift || {};
  582. $self->{path} = undef;
  583.   if (UNIVERSAL::isa($vals,'HASH')) {
  584.     if (defined $vals->{path}) {
  585.       $self->{path} = $vals->{path};
  586.     }
  587.   }
  588. return bless($self,$classname);
  589. }
  590. sub getName {
  591.   return 'ThriftHadoopFileSystem_open_args';
  592. }
  593. sub read {
  594.   my $self  = shift;
  595.   my $input = shift;
  596.   my $xfer  = 0;
  597.   my $fname;
  598.   my $ftype = 0;
  599.   my $fid   = 0;
  600.   $xfer += $input->readStructBegin($fname);
  601.   while (1) 
  602.   {
  603.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  604.     if ($ftype == TType::STOP) {
  605.       last;
  606.     }
  607.     SWITCH: for($fid)
  608.     {
  609.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  610.         $self->{path} = new Pathname();
  611.         $xfer += $self->{path}->read($input);
  612.       } else {
  613.         $xfer += $input->skip($ftype);
  614.       }
  615.       last; };
  616.         $xfer += $input->skip($ftype);
  617.     }
  618.     $xfer += $input->readFieldEnd();
  619.   }
  620.   $xfer += $input->readStructEnd();
  621.   return $xfer;
  622. }
  623. sub write {
  624.   my $self   = shift;
  625.   my $output = shift;
  626.   my $xfer   = 0;
  627.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_open_args');
  628.   if (defined $self->{path}) {
  629.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  630.     $xfer += $self->{path}->write($output);
  631.     $xfer += $output->writeFieldEnd();
  632.   }
  633.   $xfer += $output->writeFieldStop();
  634.   $xfer += $output->writeStructEnd();
  635.   return $xfer;
  636. }
  637. package ThriftHadoopFileSystem_open_result;
  638. use base('Class::Accessor');
  639. ThriftHadoopFileSystem_open_result->mk_accessors( qw( success ) );
  640. sub new {
  641. my $classname = shift;
  642. my $self      = {};
  643. my $vals      = shift || {};
  644. $self->{success} = undef;
  645. $self->{ouch} = undef;
  646.   if (UNIVERSAL::isa($vals,'HASH')) {
  647.     if (defined $vals->{success}) {
  648.       $self->{success} = $vals->{success};
  649.     }
  650.     if (defined $vals->{ouch}) {
  651.       $self->{ouch} = $vals->{ouch};
  652.     }
  653.   }
  654. return bless($self,$classname);
  655. }
  656. sub getName {
  657.   return 'ThriftHadoopFileSystem_open_result';
  658. }
  659. sub read {
  660.   my $self  = shift;
  661.   my $input = shift;
  662.   my $xfer  = 0;
  663.   my $fname;
  664.   my $ftype = 0;
  665.   my $fid   = 0;
  666.   $xfer += $input->readStructBegin($fname);
  667.   while (1) 
  668.   {
  669.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  670.     if ($ftype == TType::STOP) {
  671.       last;
  672.     }
  673.     SWITCH: for($fid)
  674.     {
  675.       /^0$/ && do{      if ($ftype == TType::STRUCT) {
  676.         $self->{success} = new ThriftHandle();
  677.         $xfer += $self->{success}->read($input);
  678.       } else {
  679.         $xfer += $input->skip($ftype);
  680.       }
  681.       last; };
  682.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  683.         $self->{ouch} = new ThriftIOException();
  684.         $xfer += $self->{ouch}->read($input);
  685.       } else {
  686.         $xfer += $input->skip($ftype);
  687.       }
  688.       last; };
  689.         $xfer += $input->skip($ftype);
  690.     }
  691.     $xfer += $input->readFieldEnd();
  692.   }
  693.   $xfer += $input->readStructEnd();
  694.   return $xfer;
  695. }
  696. sub write {
  697.   my $self   = shift;
  698.   my $output = shift;
  699.   my $xfer   = 0;
  700.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_open_result');
  701.   if (defined $self->{success}) {
  702.     $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0);
  703.     $xfer += $self->{success}->write($output);
  704.     $xfer += $output->writeFieldEnd();
  705.   }
  706.   if (defined $self->{ouch}) {
  707.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  708.     $xfer += $self->{ouch}->write($output);
  709.     $xfer += $output->writeFieldEnd();
  710.   }
  711.   $xfer += $output->writeFieldStop();
  712.   $xfer += $output->writeStructEnd();
  713.   return $xfer;
  714. }
  715. package ThriftHadoopFileSystem_append_args;
  716. use base('Class::Accessor');
  717. ThriftHadoopFileSystem_append_args->mk_accessors( qw( path ) );
  718. sub new {
  719. my $classname = shift;
  720. my $self      = {};
  721. my $vals      = shift || {};
  722. $self->{path} = undef;
  723.   if (UNIVERSAL::isa($vals,'HASH')) {
  724.     if (defined $vals->{path}) {
  725.       $self->{path} = $vals->{path};
  726.     }
  727.   }
  728. return bless($self,$classname);
  729. }
  730. sub getName {
  731.   return 'ThriftHadoopFileSystem_append_args';
  732. }
  733. sub read {
  734.   my $self  = shift;
  735.   my $input = shift;
  736.   my $xfer  = 0;
  737.   my $fname;
  738.   my $ftype = 0;
  739.   my $fid   = 0;
  740.   $xfer += $input->readStructBegin($fname);
  741.   while (1) 
  742.   {
  743.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  744.     if ($ftype == TType::STOP) {
  745.       last;
  746.     }
  747.     SWITCH: for($fid)
  748.     {
  749.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  750.         $self->{path} = new Pathname();
  751.         $xfer += $self->{path}->read($input);
  752.       } else {
  753.         $xfer += $input->skip($ftype);
  754.       }
  755.       last; };
  756.         $xfer += $input->skip($ftype);
  757.     }
  758.     $xfer += $input->readFieldEnd();
  759.   }
  760.   $xfer += $input->readStructEnd();
  761.   return $xfer;
  762. }
  763. sub write {
  764.   my $self   = shift;
  765.   my $output = shift;
  766.   my $xfer   = 0;
  767.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_append_args');
  768.   if (defined $self->{path}) {
  769.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  770.     $xfer += $self->{path}->write($output);
  771.     $xfer += $output->writeFieldEnd();
  772.   }
  773.   $xfer += $output->writeFieldStop();
  774.   $xfer += $output->writeStructEnd();
  775.   return $xfer;
  776. }
  777. package ThriftHadoopFileSystem_append_result;
  778. use base('Class::Accessor');
  779. ThriftHadoopFileSystem_append_result->mk_accessors( qw( success ) );
  780. sub new {
  781. my $classname = shift;
  782. my $self      = {};
  783. my $vals      = shift || {};
  784. $self->{success} = undef;
  785. $self->{ouch} = undef;
  786.   if (UNIVERSAL::isa($vals,'HASH')) {
  787.     if (defined $vals->{success}) {
  788.       $self->{success} = $vals->{success};
  789.     }
  790.     if (defined $vals->{ouch}) {
  791.       $self->{ouch} = $vals->{ouch};
  792.     }
  793.   }
  794. return bless($self,$classname);
  795. }
  796. sub getName {
  797.   return 'ThriftHadoopFileSystem_append_result';
  798. }
  799. sub read {
  800.   my $self  = shift;
  801.   my $input = shift;
  802.   my $xfer  = 0;
  803.   my $fname;
  804.   my $ftype = 0;
  805.   my $fid   = 0;
  806.   $xfer += $input->readStructBegin($fname);
  807.   while (1) 
  808.   {
  809.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  810.     if ($ftype == TType::STOP) {
  811.       last;
  812.     }
  813.     SWITCH: for($fid)
  814.     {
  815.       /^0$/ && do{      if ($ftype == TType::STRUCT) {
  816.         $self->{success} = new ThriftHandle();
  817.         $xfer += $self->{success}->read($input);
  818.       } else {
  819.         $xfer += $input->skip($ftype);
  820.       }
  821.       last; };
  822.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  823.         $self->{ouch} = new ThriftIOException();
  824.         $xfer += $self->{ouch}->read($input);
  825.       } else {
  826.         $xfer += $input->skip($ftype);
  827.       }
  828.       last; };
  829.         $xfer += $input->skip($ftype);
  830.     }
  831.     $xfer += $input->readFieldEnd();
  832.   }
  833.   $xfer += $input->readStructEnd();
  834.   return $xfer;
  835. }
  836. sub write {
  837.   my $self   = shift;
  838.   my $output = shift;
  839.   my $xfer   = 0;
  840.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_append_result');
  841.   if (defined $self->{success}) {
  842.     $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0);
  843.     $xfer += $self->{success}->write($output);
  844.     $xfer += $output->writeFieldEnd();
  845.   }
  846.   if (defined $self->{ouch}) {
  847.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  848.     $xfer += $self->{ouch}->write($output);
  849.     $xfer += $output->writeFieldEnd();
  850.   }
  851.   $xfer += $output->writeFieldStop();
  852.   $xfer += $output->writeStructEnd();
  853.   return $xfer;
  854. }
  855. package ThriftHadoopFileSystem_write_args;
  856. use base('Class::Accessor');
  857. ThriftHadoopFileSystem_write_args->mk_accessors( qw( handle data ) );
  858. sub new {
  859. my $classname = shift;
  860. my $self      = {};
  861. my $vals      = shift || {};
  862. $self->{handle} = undef;
  863. $self->{data} = undef;
  864.   if (UNIVERSAL::isa($vals,'HASH')) {
  865.     if (defined $vals->{handle}) {
  866.       $self->{handle} = $vals->{handle};
  867.     }
  868.     if (defined $vals->{data}) {
  869.       $self->{data} = $vals->{data};
  870.     }
  871.   }
  872. return bless($self,$classname);
  873. }
  874. sub getName {
  875.   return 'ThriftHadoopFileSystem_write_args';
  876. }
  877. sub read {
  878.   my $self  = shift;
  879.   my $input = shift;
  880.   my $xfer  = 0;
  881.   my $fname;
  882.   my $ftype = 0;
  883.   my $fid   = 0;
  884.   $xfer += $input->readStructBegin($fname);
  885.   while (1) 
  886.   {
  887.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  888.     if ($ftype == TType::STOP) {
  889.       last;
  890.     }
  891.     SWITCH: for($fid)
  892.     {
  893.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  894.         $self->{handle} = new ThriftHandle();
  895.         $xfer += $self->{handle}->read($input);
  896.       } else {
  897.         $xfer += $input->skip($ftype);
  898.       }
  899.       last; };
  900.       /^-1$/ && do{      if ($ftype == TType::STRING) {
  901.         $xfer += $input->readString($self->{data});
  902.       } else {
  903.         $xfer += $input->skip($ftype);
  904.       }
  905.       last; };
  906.         $xfer += $input->skip($ftype);
  907.     }
  908.     $xfer += $input->readFieldEnd();
  909.   }
  910.   $xfer += $input->readStructEnd();
  911.   return $xfer;
  912. }
  913. sub write {
  914.   my $self   = shift;
  915.   my $output = shift;
  916.   my $xfer   = 0;
  917.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_write_args');
  918.   if (defined $self->{handle}) {
  919.     $xfer += $output->writeFieldBegin('handle', TType::STRUCT, 1);
  920.     $xfer += $self->{handle}->write($output);
  921.     $xfer += $output->writeFieldEnd();
  922.   }
  923.   if (defined $self->{data}) {
  924.     $xfer += $output->writeFieldBegin('data', TType::STRING, -1);
  925.     $xfer += $output->writeString($self->{data});
  926.     $xfer += $output->writeFieldEnd();
  927.   }
  928.   $xfer += $output->writeFieldStop();
  929.   $xfer += $output->writeStructEnd();
  930.   return $xfer;
  931. }
  932. package ThriftHadoopFileSystem_write_result;
  933. use base('Class::Accessor');
  934. ThriftHadoopFileSystem_write_result->mk_accessors( qw( success ) );
  935. sub new {
  936. my $classname = shift;
  937. my $self      = {};
  938. my $vals      = shift || {};
  939. $self->{success} = undef;
  940. $self->{ouch} = undef;
  941.   if (UNIVERSAL::isa($vals,'HASH')) {
  942.     if (defined $vals->{success}) {
  943.       $self->{success} = $vals->{success};
  944.     }
  945.     if (defined $vals->{ouch}) {
  946.       $self->{ouch} = $vals->{ouch};
  947.     }
  948.   }
  949. return bless($self,$classname);
  950. }
  951. sub getName {
  952.   return 'ThriftHadoopFileSystem_write_result';
  953. }
  954. sub read {
  955.   my $self  = shift;
  956.   my $input = shift;
  957.   my $xfer  = 0;
  958.   my $fname;
  959.   my $ftype = 0;
  960.   my $fid   = 0;
  961.   $xfer += $input->readStructBegin($fname);
  962.   while (1) 
  963.   {
  964.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  965.     if ($ftype == TType::STOP) {
  966.       last;
  967.     }
  968.     SWITCH: for($fid)
  969.     {
  970.       /^0$/ && do{      if ($ftype == TType::BOOL) {
  971.         $xfer += $input->readBool($self->{success});
  972.       } else {
  973.         $xfer += $input->skip($ftype);
  974.       }
  975.       last; };
  976.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  977.         $self->{ouch} = new ThriftIOException();
  978.         $xfer += $self->{ouch}->read($input);
  979.       } else {
  980.         $xfer += $input->skip($ftype);
  981.       }
  982.       last; };
  983.         $xfer += $input->skip($ftype);
  984.     }
  985.     $xfer += $input->readFieldEnd();
  986.   }
  987.   $xfer += $input->readStructEnd();
  988.   return $xfer;
  989. }
  990. sub write {
  991.   my $self   = shift;
  992.   my $output = shift;
  993.   my $xfer   = 0;
  994.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_write_result');
  995.   if (defined $self->{success}) {
  996.     $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
  997.     $xfer += $output->writeBool($self->{success});
  998.     $xfer += $output->writeFieldEnd();
  999.   }
  1000.   if (defined $self->{ouch}) {
  1001.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  1002.     $xfer += $self->{ouch}->write($output);
  1003.     $xfer += $output->writeFieldEnd();
  1004.   }
  1005.   $xfer += $output->writeFieldStop();
  1006.   $xfer += $output->writeStructEnd();
  1007.   return $xfer;
  1008. }
  1009. package ThriftHadoopFileSystem_read_args;
  1010. use base('Class::Accessor');
  1011. ThriftHadoopFileSystem_read_args->mk_accessors( qw( handle offset size ) );
  1012. sub new {
  1013. my $classname = shift;
  1014. my $self      = {};
  1015. my $vals      = shift || {};
  1016. $self->{handle} = undef;
  1017. $self->{offset} = undef;
  1018. $self->{size} = undef;
  1019.   if (UNIVERSAL::isa($vals,'HASH')) {
  1020.     if (defined $vals->{handle}) {
  1021.       $self->{handle} = $vals->{handle};
  1022.     }
  1023.     if (defined $vals->{offset}) {
  1024.       $self->{offset} = $vals->{offset};
  1025.     }
  1026.     if (defined $vals->{size}) {
  1027.       $self->{size} = $vals->{size};
  1028.     }
  1029.   }
  1030. return bless($self,$classname);
  1031. }
  1032. sub getName {
  1033.   return 'ThriftHadoopFileSystem_read_args';
  1034. }
  1035. sub read {
  1036.   my $self  = shift;
  1037.   my $input = shift;
  1038.   my $xfer  = 0;
  1039.   my $fname;
  1040.   my $ftype = 0;
  1041.   my $fid   = 0;
  1042.   $xfer += $input->readStructBegin($fname);
  1043.   while (1) 
  1044.   {
  1045.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1046.     if ($ftype == TType::STOP) {
  1047.       last;
  1048.     }
  1049.     SWITCH: for($fid)
  1050.     {
  1051.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1052.         $self->{handle} = new ThriftHandle();
  1053.         $xfer += $self->{handle}->read($input);
  1054.       } else {
  1055.         $xfer += $input->skip($ftype);
  1056.       }
  1057.       last; };
  1058.       /^-1$/ && do{      if ($ftype == TType::I64) {
  1059.         $xfer += $input->readI64($self->{offset});
  1060.       } else {
  1061.         $xfer += $input->skip($ftype);
  1062.       }
  1063.       last; };
  1064.       /^-2$/ && do{      if ($ftype == TType::I32) {
  1065.         $xfer += $input->readI32($self->{size});
  1066.       } else {
  1067.         $xfer += $input->skip($ftype);
  1068.       }
  1069.       last; };
  1070.         $xfer += $input->skip($ftype);
  1071.     }
  1072.     $xfer += $input->readFieldEnd();
  1073.   }
  1074.   $xfer += $input->readStructEnd();
  1075.   return $xfer;
  1076. }
  1077. sub write {
  1078.   my $self   = shift;
  1079.   my $output = shift;
  1080.   my $xfer   = 0;
  1081.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_read_args');
  1082.   if (defined $self->{handle}) {
  1083.     $xfer += $output->writeFieldBegin('handle', TType::STRUCT, 1);
  1084.     $xfer += $self->{handle}->write($output);
  1085.     $xfer += $output->writeFieldEnd();
  1086.   }
  1087.   if (defined $self->{offset}) {
  1088.     $xfer += $output->writeFieldBegin('offset', TType::I64, -1);
  1089.     $xfer += $output->writeI64($self->{offset});
  1090.     $xfer += $output->writeFieldEnd();
  1091.   }
  1092.   if (defined $self->{size}) {
  1093.     $xfer += $output->writeFieldBegin('size', TType::I32, -2);
  1094.     $xfer += $output->writeI32($self->{size});
  1095.     $xfer += $output->writeFieldEnd();
  1096.   }
  1097.   $xfer += $output->writeFieldStop();
  1098.   $xfer += $output->writeStructEnd();
  1099.   return $xfer;
  1100. }
  1101. package ThriftHadoopFileSystem_read_result;
  1102. use base('Class::Accessor');
  1103. ThriftHadoopFileSystem_read_result->mk_accessors( qw( success ) );
  1104. sub new {
  1105. my $classname = shift;
  1106. my $self      = {};
  1107. my $vals      = shift || {};
  1108. $self->{success} = undef;
  1109. $self->{ouch} = undef;
  1110.   if (UNIVERSAL::isa($vals,'HASH')) {
  1111.     if (defined $vals->{success}) {
  1112.       $self->{success} = $vals->{success};
  1113.     }
  1114.     if (defined $vals->{ouch}) {
  1115.       $self->{ouch} = $vals->{ouch};
  1116.     }
  1117.   }
  1118. return bless($self,$classname);
  1119. }
  1120. sub getName {
  1121.   return 'ThriftHadoopFileSystem_read_result';
  1122. }
  1123. sub read {
  1124.   my $self  = shift;
  1125.   my $input = shift;
  1126.   my $xfer  = 0;
  1127.   my $fname;
  1128.   my $ftype = 0;
  1129.   my $fid   = 0;
  1130.   $xfer += $input->readStructBegin($fname);
  1131.   while (1) 
  1132.   {
  1133.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1134.     if ($ftype == TType::STOP) {
  1135.       last;
  1136.     }
  1137.     SWITCH: for($fid)
  1138.     {
  1139.       /^0$/ && do{      if ($ftype == TType::STRING) {
  1140.         $xfer += $input->readString($self->{success});
  1141.       } else {
  1142.         $xfer += $input->skip($ftype);
  1143.       }
  1144.       last; };
  1145.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1146.         $self->{ouch} = new ThriftIOException();
  1147.         $xfer += $self->{ouch}->read($input);
  1148.       } else {
  1149.         $xfer += $input->skip($ftype);
  1150.       }
  1151.       last; };
  1152.         $xfer += $input->skip($ftype);
  1153.     }
  1154.     $xfer += $input->readFieldEnd();
  1155.   }
  1156.   $xfer += $input->readStructEnd();
  1157.   return $xfer;
  1158. }
  1159. sub write {
  1160.   my $self   = shift;
  1161.   my $output = shift;
  1162.   my $xfer   = 0;
  1163.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_read_result');
  1164.   if (defined $self->{success}) {
  1165.     $xfer += $output->writeFieldBegin('success', TType::STRING, 0);
  1166.     $xfer += $output->writeString($self->{success});
  1167.     $xfer += $output->writeFieldEnd();
  1168.   }
  1169.   if (defined $self->{ouch}) {
  1170.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  1171.     $xfer += $self->{ouch}->write($output);
  1172.     $xfer += $output->writeFieldEnd();
  1173.   }
  1174.   $xfer += $output->writeFieldStop();
  1175.   $xfer += $output->writeStructEnd();
  1176.   return $xfer;
  1177. }
  1178. package ThriftHadoopFileSystem_close_args;
  1179. use base('Class::Accessor');
  1180. ThriftHadoopFileSystem_close_args->mk_accessors( qw( out ) );
  1181. sub new {
  1182. my $classname = shift;
  1183. my $self      = {};
  1184. my $vals      = shift || {};
  1185. $self->{out} = undef;
  1186.   if (UNIVERSAL::isa($vals,'HASH')) {
  1187.     if (defined $vals->{out}) {
  1188.       $self->{out} = $vals->{out};
  1189.     }
  1190.   }
  1191. return bless($self,$classname);
  1192. }
  1193. sub getName {
  1194.   return 'ThriftHadoopFileSystem_close_args';
  1195. }
  1196. sub read {
  1197.   my $self  = shift;
  1198.   my $input = shift;
  1199.   my $xfer  = 0;
  1200.   my $fname;
  1201.   my $ftype = 0;
  1202.   my $fid   = 0;
  1203.   $xfer += $input->readStructBegin($fname);
  1204.   while (1) 
  1205.   {
  1206.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1207.     if ($ftype == TType::STOP) {
  1208.       last;
  1209.     }
  1210.     SWITCH: for($fid)
  1211.     {
  1212.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1213.         $self->{out} = new ThriftHandle();
  1214.         $xfer += $self->{out}->read($input);
  1215.       } else {
  1216.         $xfer += $input->skip($ftype);
  1217.       }
  1218.       last; };
  1219.         $xfer += $input->skip($ftype);
  1220.     }
  1221.     $xfer += $input->readFieldEnd();
  1222.   }
  1223.   $xfer += $input->readStructEnd();
  1224.   return $xfer;
  1225. }
  1226. sub write {
  1227.   my $self   = shift;
  1228.   my $output = shift;
  1229.   my $xfer   = 0;
  1230.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_close_args');
  1231.   if (defined $self->{out}) {
  1232.     $xfer += $output->writeFieldBegin('out', TType::STRUCT, 1);
  1233.     $xfer += $self->{out}->write($output);
  1234.     $xfer += $output->writeFieldEnd();
  1235.   }
  1236.   $xfer += $output->writeFieldStop();
  1237.   $xfer += $output->writeStructEnd();
  1238.   return $xfer;
  1239. }
  1240. package ThriftHadoopFileSystem_close_result;
  1241. use base('Class::Accessor');
  1242. ThriftHadoopFileSystem_close_result->mk_accessors( qw( success ) );
  1243. sub new {
  1244. my $classname = shift;
  1245. my $self      = {};
  1246. my $vals      = shift || {};
  1247. $self->{success} = undef;
  1248. $self->{ouch} = undef;
  1249.   if (UNIVERSAL::isa($vals,'HASH')) {
  1250.     if (defined $vals->{success}) {
  1251.       $self->{success} = $vals->{success};
  1252.     }
  1253.     if (defined $vals->{ouch}) {
  1254.       $self->{ouch} = $vals->{ouch};
  1255.     }
  1256.   }
  1257. return bless($self,$classname);
  1258. }
  1259. sub getName {
  1260.   return 'ThriftHadoopFileSystem_close_result';
  1261. }
  1262. sub read {
  1263.   my $self  = shift;
  1264.   my $input = shift;
  1265.   my $xfer  = 0;
  1266.   my $fname;
  1267.   my $ftype = 0;
  1268.   my $fid   = 0;
  1269.   $xfer += $input->readStructBegin($fname);
  1270.   while (1) 
  1271.   {
  1272.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1273.     if ($ftype == TType::STOP) {
  1274.       last;
  1275.     }
  1276.     SWITCH: for($fid)
  1277.     {
  1278.       /^0$/ && do{      if ($ftype == TType::BOOL) {
  1279.         $xfer += $input->readBool($self->{success});
  1280.       } else {
  1281.         $xfer += $input->skip($ftype);
  1282.       }
  1283.       last; };
  1284.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1285.         $self->{ouch} = new ThriftIOException();
  1286.         $xfer += $self->{ouch}->read($input);
  1287.       } else {
  1288.         $xfer += $input->skip($ftype);
  1289.       }
  1290.       last; };
  1291.         $xfer += $input->skip($ftype);
  1292.     }
  1293.     $xfer += $input->readFieldEnd();
  1294.   }
  1295.   $xfer += $input->readStructEnd();
  1296.   return $xfer;
  1297. }
  1298. sub write {
  1299.   my $self   = shift;
  1300.   my $output = shift;
  1301.   my $xfer   = 0;
  1302.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_close_result');
  1303.   if (defined $self->{success}) {
  1304.     $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
  1305.     $xfer += $output->writeBool($self->{success});
  1306.     $xfer += $output->writeFieldEnd();
  1307.   }
  1308.   if (defined $self->{ouch}) {
  1309.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  1310.     $xfer += $self->{ouch}->write($output);
  1311.     $xfer += $output->writeFieldEnd();
  1312.   }
  1313.   $xfer += $output->writeFieldStop();
  1314.   $xfer += $output->writeStructEnd();
  1315.   return $xfer;
  1316. }
  1317. package ThriftHadoopFileSystem_rm_args;
  1318. use base('Class::Accessor');
  1319. ThriftHadoopFileSystem_rm_args->mk_accessors( qw( path recursive ) );
  1320. sub new {
  1321. my $classname = shift;
  1322. my $self      = {};
  1323. my $vals      = shift || {};
  1324. $self->{path} = undef;
  1325. $self->{recursive} = undef;
  1326.   if (UNIVERSAL::isa($vals,'HASH')) {
  1327.     if (defined $vals->{path}) {
  1328.       $self->{path} = $vals->{path};
  1329.     }
  1330.     if (defined $vals->{recursive}) {
  1331.       $self->{recursive} = $vals->{recursive};
  1332.     }
  1333.   }
  1334. return bless($self,$classname);
  1335. }
  1336. sub getName {
  1337.   return 'ThriftHadoopFileSystem_rm_args';
  1338. }
  1339. sub read {
  1340.   my $self  = shift;
  1341.   my $input = shift;
  1342.   my $xfer  = 0;
  1343.   my $fname;
  1344.   my $ftype = 0;
  1345.   my $fid   = 0;
  1346.   $xfer += $input->readStructBegin($fname);
  1347.   while (1) 
  1348.   {
  1349.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1350.     if ($ftype == TType::STOP) {
  1351.       last;
  1352.     }
  1353.     SWITCH: for($fid)
  1354.     {
  1355.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1356.         $self->{path} = new Pathname();
  1357.         $xfer += $self->{path}->read($input);
  1358.       } else {
  1359.         $xfer += $input->skip($ftype);
  1360.       }
  1361.       last; };
  1362.       /^2$/ && do{      if ($ftype == TType::BOOL) {
  1363.         $xfer += $input->readBool($self->{recursive});
  1364.       } else {
  1365.         $xfer += $input->skip($ftype);
  1366.       }
  1367.       last; };
  1368.         $xfer += $input->skip($ftype);
  1369.     }
  1370.     $xfer += $input->readFieldEnd();
  1371.   }
  1372.   $xfer += $input->readStructEnd();
  1373.   return $xfer;
  1374. }
  1375. sub write {
  1376.   my $self   = shift;
  1377.   my $output = shift;
  1378.   my $xfer   = 0;
  1379.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_rm_args');
  1380.   if (defined $self->{path}) {
  1381.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  1382.     $xfer += $self->{path}->write($output);
  1383.     $xfer += $output->writeFieldEnd();
  1384.   }
  1385.   if (defined $self->{recursive}) {
  1386.     $xfer += $output->writeFieldBegin('recursive', TType::BOOL, 2);
  1387.     $xfer += $output->writeBool($self->{recursive});
  1388.     $xfer += $output->writeFieldEnd();
  1389.   }
  1390.   $xfer += $output->writeFieldStop();
  1391.   $xfer += $output->writeStructEnd();
  1392.   return $xfer;
  1393. }
  1394. package ThriftHadoopFileSystem_rm_result;
  1395. use base('Class::Accessor');
  1396. ThriftHadoopFileSystem_rm_result->mk_accessors( qw( success ) );
  1397. sub new {
  1398. my $classname = shift;
  1399. my $self      = {};
  1400. my $vals      = shift || {};
  1401. $self->{success} = undef;
  1402. $self->{ouch} = undef;
  1403.   if (UNIVERSAL::isa($vals,'HASH')) {
  1404.     if (defined $vals->{success}) {
  1405.       $self->{success} = $vals->{success};
  1406.     }
  1407.     if (defined $vals->{ouch}) {
  1408.       $self->{ouch} = $vals->{ouch};
  1409.     }
  1410.   }
  1411. return bless($self,$classname);
  1412. }
  1413. sub getName {
  1414.   return 'ThriftHadoopFileSystem_rm_result';
  1415. }
  1416. sub read {
  1417.   my $self  = shift;
  1418.   my $input = shift;
  1419.   my $xfer  = 0;
  1420.   my $fname;
  1421.   my $ftype = 0;
  1422.   my $fid   = 0;
  1423.   $xfer += $input->readStructBegin($fname);
  1424.   while (1) 
  1425.   {
  1426.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1427.     if ($ftype == TType::STOP) {
  1428.       last;
  1429.     }
  1430.     SWITCH: for($fid)
  1431.     {
  1432.       /^0$/ && do{      if ($ftype == TType::BOOL) {
  1433.         $xfer += $input->readBool($self->{success});
  1434.       } else {
  1435.         $xfer += $input->skip($ftype);
  1436.       }
  1437.       last; };
  1438.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1439.         $self->{ouch} = new ThriftIOException();
  1440.         $xfer += $self->{ouch}->read($input);
  1441.       } else {
  1442.         $xfer += $input->skip($ftype);
  1443.       }
  1444.       last; };
  1445.         $xfer += $input->skip($ftype);
  1446.     }
  1447.     $xfer += $input->readFieldEnd();
  1448.   }
  1449.   $xfer += $input->readStructEnd();
  1450.   return $xfer;
  1451. }
  1452. sub write {
  1453.   my $self   = shift;
  1454.   my $output = shift;
  1455.   my $xfer   = 0;
  1456.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_rm_result');
  1457.   if (defined $self->{success}) {
  1458.     $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
  1459.     $xfer += $output->writeBool($self->{success});
  1460.     $xfer += $output->writeFieldEnd();
  1461.   }
  1462.   if (defined $self->{ouch}) {
  1463.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  1464.     $xfer += $self->{ouch}->write($output);
  1465.     $xfer += $output->writeFieldEnd();
  1466.   }
  1467.   $xfer += $output->writeFieldStop();
  1468.   $xfer += $output->writeStructEnd();
  1469.   return $xfer;
  1470. }
  1471. package ThriftHadoopFileSystem_rename_args;
  1472. use base('Class::Accessor');
  1473. ThriftHadoopFileSystem_rename_args->mk_accessors( qw( path dest ) );
  1474. sub new {
  1475. my $classname = shift;
  1476. my $self      = {};
  1477. my $vals      = shift || {};
  1478. $self->{path} = undef;
  1479. $self->{dest} = undef;
  1480.   if (UNIVERSAL::isa($vals,'HASH')) {
  1481.     if (defined $vals->{path}) {
  1482.       $self->{path} = $vals->{path};
  1483.     }
  1484.     if (defined $vals->{dest}) {
  1485.       $self->{dest} = $vals->{dest};
  1486.     }
  1487.   }
  1488. return bless($self,$classname);
  1489. }
  1490. sub getName {
  1491.   return 'ThriftHadoopFileSystem_rename_args';
  1492. }
  1493. sub read {
  1494.   my $self  = shift;
  1495.   my $input = shift;
  1496.   my $xfer  = 0;
  1497.   my $fname;
  1498.   my $ftype = 0;
  1499.   my $fid   = 0;
  1500.   $xfer += $input->readStructBegin($fname);
  1501.   while (1) 
  1502.   {
  1503.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1504.     if ($ftype == TType::STOP) {
  1505.       last;
  1506.     }
  1507.     SWITCH: for($fid)
  1508.     {
  1509.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1510.         $self->{path} = new Pathname();
  1511.         $xfer += $self->{path}->read($input);
  1512.       } else {
  1513.         $xfer += $input->skip($ftype);
  1514.       }
  1515.       last; };
  1516.       /^2$/ && do{      if ($ftype == TType::STRUCT) {
  1517.         $self->{dest} = new Pathname();
  1518.         $xfer += $self->{dest}->read($input);
  1519.       } else {
  1520.         $xfer += $input->skip($ftype);
  1521.       }
  1522.       last; };
  1523.         $xfer += $input->skip($ftype);
  1524.     }
  1525.     $xfer += $input->readFieldEnd();
  1526.   }
  1527.   $xfer += $input->readStructEnd();
  1528.   return $xfer;
  1529. }
  1530. sub write {
  1531.   my $self   = shift;
  1532.   my $output = shift;
  1533.   my $xfer   = 0;
  1534.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_rename_args');
  1535.   if (defined $self->{path}) {
  1536.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  1537.     $xfer += $self->{path}->write($output);
  1538.     $xfer += $output->writeFieldEnd();
  1539.   }
  1540.   if (defined $self->{dest}) {
  1541.     $xfer += $output->writeFieldBegin('dest', TType::STRUCT, 2);
  1542.     $xfer += $self->{dest}->write($output);
  1543.     $xfer += $output->writeFieldEnd();
  1544.   }
  1545.   $xfer += $output->writeFieldStop();
  1546.   $xfer += $output->writeStructEnd();
  1547.   return $xfer;
  1548. }
  1549. package ThriftHadoopFileSystem_rename_result;
  1550. use base('Class::Accessor');
  1551. ThriftHadoopFileSystem_rename_result->mk_accessors( qw( success ) );
  1552. sub new {
  1553. my $classname = shift;
  1554. my $self      = {};
  1555. my $vals      = shift || {};
  1556. $self->{success} = undef;
  1557. $self->{ouch} = undef;
  1558.   if (UNIVERSAL::isa($vals,'HASH')) {
  1559.     if (defined $vals->{success}) {
  1560.       $self->{success} = $vals->{success};
  1561.     }
  1562.     if (defined $vals->{ouch}) {
  1563.       $self->{ouch} = $vals->{ouch};
  1564.     }
  1565.   }
  1566. return bless($self,$classname);
  1567. }
  1568. sub getName {
  1569.   return 'ThriftHadoopFileSystem_rename_result';
  1570. }
  1571. sub read {
  1572.   my $self  = shift;
  1573.   my $input = shift;
  1574.   my $xfer  = 0;
  1575.   my $fname;
  1576.   my $ftype = 0;
  1577.   my $fid   = 0;
  1578.   $xfer += $input->readStructBegin($fname);
  1579.   while (1) 
  1580.   {
  1581.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1582.     if ($ftype == TType::STOP) {
  1583.       last;
  1584.     }
  1585.     SWITCH: for($fid)
  1586.     {
  1587.       /^0$/ && do{      if ($ftype == TType::BOOL) {
  1588.         $xfer += $input->readBool($self->{success});
  1589.       } else {
  1590.         $xfer += $input->skip($ftype);
  1591.       }
  1592.       last; };
  1593.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1594.         $self->{ouch} = new ThriftIOException();
  1595.         $xfer += $self->{ouch}->read($input);
  1596.       } else {
  1597.         $xfer += $input->skip($ftype);
  1598.       }
  1599.       last; };
  1600.         $xfer += $input->skip($ftype);
  1601.     }
  1602.     $xfer += $input->readFieldEnd();
  1603.   }
  1604.   $xfer += $input->readStructEnd();
  1605.   return $xfer;
  1606. }
  1607. sub write {
  1608.   my $self   = shift;
  1609.   my $output = shift;
  1610.   my $xfer   = 0;
  1611.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_rename_result');
  1612.   if (defined $self->{success}) {
  1613.     $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
  1614.     $xfer += $output->writeBool($self->{success});
  1615.     $xfer += $output->writeFieldEnd();
  1616.   }
  1617.   if (defined $self->{ouch}) {
  1618.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  1619.     $xfer += $self->{ouch}->write($output);
  1620.     $xfer += $output->writeFieldEnd();
  1621.   }
  1622.   $xfer += $output->writeFieldStop();
  1623.   $xfer += $output->writeStructEnd();
  1624.   return $xfer;
  1625. }
  1626. package ThriftHadoopFileSystem_mkdirs_args;
  1627. use base('Class::Accessor');
  1628. ThriftHadoopFileSystem_mkdirs_args->mk_accessors( qw( path ) );
  1629. sub new {
  1630. my $classname = shift;
  1631. my $self      = {};
  1632. my $vals      = shift || {};
  1633. $self->{path} = undef;
  1634.   if (UNIVERSAL::isa($vals,'HASH')) {
  1635.     if (defined $vals->{path}) {
  1636.       $self->{path} = $vals->{path};
  1637.     }
  1638.   }
  1639. return bless($self,$classname);
  1640. }
  1641. sub getName {
  1642.   return 'ThriftHadoopFileSystem_mkdirs_args';
  1643. }
  1644. sub read {
  1645.   my $self  = shift;
  1646.   my $input = shift;
  1647.   my $xfer  = 0;
  1648.   my $fname;
  1649.   my $ftype = 0;
  1650.   my $fid   = 0;
  1651.   $xfer += $input->readStructBegin($fname);
  1652.   while (1) 
  1653.   {
  1654.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1655.     if ($ftype == TType::STOP) {
  1656.       last;
  1657.     }
  1658.     SWITCH: for($fid)
  1659.     {
  1660.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1661.         $self->{path} = new Pathname();
  1662.         $xfer += $self->{path}->read($input);
  1663.       } else {
  1664.         $xfer += $input->skip($ftype);
  1665.       }
  1666.       last; };
  1667.         $xfer += $input->skip($ftype);
  1668.     }
  1669.     $xfer += $input->readFieldEnd();
  1670.   }
  1671.   $xfer += $input->readStructEnd();
  1672.   return $xfer;
  1673. }
  1674. sub write {
  1675.   my $self   = shift;
  1676.   my $output = shift;
  1677.   my $xfer   = 0;
  1678.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_mkdirs_args');
  1679.   if (defined $self->{path}) {
  1680.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  1681.     $xfer += $self->{path}->write($output);
  1682.     $xfer += $output->writeFieldEnd();
  1683.   }
  1684.   $xfer += $output->writeFieldStop();
  1685.   $xfer += $output->writeStructEnd();
  1686.   return $xfer;
  1687. }
  1688. package ThriftHadoopFileSystem_mkdirs_result;
  1689. use base('Class::Accessor');
  1690. ThriftHadoopFileSystem_mkdirs_result->mk_accessors( qw( success ) );
  1691. sub new {
  1692. my $classname = shift;
  1693. my $self      = {};
  1694. my $vals      = shift || {};
  1695. $self->{success} = undef;
  1696. $self->{ouch} = undef;
  1697.   if (UNIVERSAL::isa($vals,'HASH')) {
  1698.     if (defined $vals->{success}) {
  1699.       $self->{success} = $vals->{success};
  1700.     }
  1701.     if (defined $vals->{ouch}) {
  1702.       $self->{ouch} = $vals->{ouch};
  1703.     }
  1704.   }
  1705. return bless($self,$classname);
  1706. }
  1707. sub getName {
  1708.   return 'ThriftHadoopFileSystem_mkdirs_result';
  1709. }
  1710. sub read {
  1711.   my $self  = shift;
  1712.   my $input = shift;
  1713.   my $xfer  = 0;
  1714.   my $fname;
  1715.   my $ftype = 0;
  1716.   my $fid   = 0;
  1717.   $xfer += $input->readStructBegin($fname);
  1718.   while (1) 
  1719.   {
  1720.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1721.     if ($ftype == TType::STOP) {
  1722.       last;
  1723.     }
  1724.     SWITCH: for($fid)
  1725.     {
  1726.       /^0$/ && do{      if ($ftype == TType::BOOL) {
  1727.         $xfer += $input->readBool($self->{success});
  1728.       } else {
  1729.         $xfer += $input->skip($ftype);
  1730.       }
  1731.       last; };
  1732.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1733.         $self->{ouch} = new ThriftIOException();
  1734.         $xfer += $self->{ouch}->read($input);
  1735.       } else {
  1736.         $xfer += $input->skip($ftype);
  1737.       }
  1738.       last; };
  1739.         $xfer += $input->skip($ftype);
  1740.     }
  1741.     $xfer += $input->readFieldEnd();
  1742.   }
  1743.   $xfer += $input->readStructEnd();
  1744.   return $xfer;
  1745. }
  1746. sub write {
  1747.   my $self   = shift;
  1748.   my $output = shift;
  1749.   my $xfer   = 0;
  1750.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_mkdirs_result');
  1751.   if (defined $self->{success}) {
  1752.     $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
  1753.     $xfer += $output->writeBool($self->{success});
  1754.     $xfer += $output->writeFieldEnd();
  1755.   }
  1756.   if (defined $self->{ouch}) {
  1757.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  1758.     $xfer += $self->{ouch}->write($output);
  1759.     $xfer += $output->writeFieldEnd();
  1760.   }
  1761.   $xfer += $output->writeFieldStop();
  1762.   $xfer += $output->writeStructEnd();
  1763.   return $xfer;
  1764. }
  1765. package ThriftHadoopFileSystem_exists_args;
  1766. use base('Class::Accessor');
  1767. ThriftHadoopFileSystem_exists_args->mk_accessors( qw( path ) );
  1768. sub new {
  1769. my $classname = shift;
  1770. my $self      = {};
  1771. my $vals      = shift || {};
  1772. $self->{path} = undef;
  1773.   if (UNIVERSAL::isa($vals,'HASH')) {
  1774.     if (defined $vals->{path}) {
  1775.       $self->{path} = $vals->{path};
  1776.     }
  1777.   }
  1778. return bless($self,$classname);
  1779. }
  1780. sub getName {
  1781.   return 'ThriftHadoopFileSystem_exists_args';
  1782. }
  1783. sub read {
  1784.   my $self  = shift;
  1785.   my $input = shift;
  1786.   my $xfer  = 0;
  1787.   my $fname;
  1788.   my $ftype = 0;
  1789.   my $fid   = 0;
  1790.   $xfer += $input->readStructBegin($fname);
  1791.   while (1) 
  1792.   {
  1793.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1794.     if ($ftype == TType::STOP) {
  1795.       last;
  1796.     }
  1797.     SWITCH: for($fid)
  1798.     {
  1799.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1800.         $self->{path} = new Pathname();
  1801.         $xfer += $self->{path}->read($input);
  1802.       } else {
  1803.         $xfer += $input->skip($ftype);
  1804.       }
  1805.       last; };
  1806.         $xfer += $input->skip($ftype);
  1807.     }
  1808.     $xfer += $input->readFieldEnd();
  1809.   }
  1810.   $xfer += $input->readStructEnd();
  1811.   return $xfer;
  1812. }
  1813. sub write {
  1814.   my $self   = shift;
  1815.   my $output = shift;
  1816.   my $xfer   = 0;
  1817.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_exists_args');
  1818.   if (defined $self->{path}) {
  1819.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  1820.     $xfer += $self->{path}->write($output);
  1821.     $xfer += $output->writeFieldEnd();
  1822.   }
  1823.   $xfer += $output->writeFieldStop();
  1824.   $xfer += $output->writeStructEnd();
  1825.   return $xfer;
  1826. }
  1827. package ThriftHadoopFileSystem_exists_result;
  1828. use base('Class::Accessor');
  1829. ThriftHadoopFileSystem_exists_result->mk_accessors( qw( success ) );
  1830. sub new {
  1831. my $classname = shift;
  1832. my $self      = {};
  1833. my $vals      = shift || {};
  1834. $self->{success} = undef;
  1835. $self->{ouch} = undef;
  1836.   if (UNIVERSAL::isa($vals,'HASH')) {
  1837.     if (defined $vals->{success}) {
  1838.       $self->{success} = $vals->{success};
  1839.     }
  1840.     if (defined $vals->{ouch}) {
  1841.       $self->{ouch} = $vals->{ouch};
  1842.     }
  1843.   }
  1844. return bless($self,$classname);
  1845. }
  1846. sub getName {
  1847.   return 'ThriftHadoopFileSystem_exists_result';
  1848. }
  1849. sub read {
  1850.   my $self  = shift;
  1851.   my $input = shift;
  1852.   my $xfer  = 0;
  1853.   my $fname;
  1854.   my $ftype = 0;
  1855.   my $fid   = 0;
  1856.   $xfer += $input->readStructBegin($fname);
  1857.   while (1) 
  1858.   {
  1859.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1860.     if ($ftype == TType::STOP) {
  1861.       last;
  1862.     }
  1863.     SWITCH: for($fid)
  1864.     {
  1865.       /^0$/ && do{      if ($ftype == TType::BOOL) {
  1866.         $xfer += $input->readBool($self->{success});
  1867.       } else {
  1868.         $xfer += $input->skip($ftype);
  1869.       }
  1870.       last; };
  1871.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1872.         $self->{ouch} = new ThriftIOException();
  1873.         $xfer += $self->{ouch}->read($input);
  1874.       } else {
  1875.         $xfer += $input->skip($ftype);
  1876.       }
  1877.       last; };
  1878.         $xfer += $input->skip($ftype);
  1879.     }
  1880.     $xfer += $input->readFieldEnd();
  1881.   }
  1882.   $xfer += $input->readStructEnd();
  1883.   return $xfer;
  1884. }
  1885. sub write {
  1886.   my $self   = shift;
  1887.   my $output = shift;
  1888.   my $xfer   = 0;
  1889.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_exists_result');
  1890.   if (defined $self->{success}) {
  1891.     $xfer += $output->writeFieldBegin('success', TType::BOOL, 0);
  1892.     $xfer += $output->writeBool($self->{success});
  1893.     $xfer += $output->writeFieldEnd();
  1894.   }
  1895.   if (defined $self->{ouch}) {
  1896.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  1897.     $xfer += $self->{ouch}->write($output);
  1898.     $xfer += $output->writeFieldEnd();
  1899.   }
  1900.   $xfer += $output->writeFieldStop();
  1901.   $xfer += $output->writeStructEnd();
  1902.   return $xfer;
  1903. }
  1904. package ThriftHadoopFileSystem_stat_args;
  1905. use base('Class::Accessor');
  1906. ThriftHadoopFileSystem_stat_args->mk_accessors( qw( path ) );
  1907. sub new {
  1908. my $classname = shift;
  1909. my $self      = {};
  1910. my $vals      = shift || {};
  1911. $self->{path} = undef;
  1912.   if (UNIVERSAL::isa($vals,'HASH')) {
  1913.     if (defined $vals->{path}) {
  1914.       $self->{path} = $vals->{path};
  1915.     }
  1916.   }
  1917. return bless($self,$classname);
  1918. }
  1919. sub getName {
  1920.   return 'ThriftHadoopFileSystem_stat_args';
  1921. }
  1922. sub read {
  1923.   my $self  = shift;
  1924.   my $input = shift;
  1925.   my $xfer  = 0;
  1926.   my $fname;
  1927.   my $ftype = 0;
  1928.   my $fid   = 0;
  1929.   $xfer += $input->readStructBegin($fname);
  1930.   while (1) 
  1931.   {
  1932.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1933.     if ($ftype == TType::STOP) {
  1934.       last;
  1935.     }
  1936.     SWITCH: for($fid)
  1937.     {
  1938.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  1939.         $self->{path} = new Pathname();
  1940.         $xfer += $self->{path}->read($input);
  1941.       } else {
  1942.         $xfer += $input->skip($ftype);
  1943.       }
  1944.       last; };
  1945.         $xfer += $input->skip($ftype);
  1946.     }
  1947.     $xfer += $input->readFieldEnd();
  1948.   }
  1949.   $xfer += $input->readStructEnd();
  1950.   return $xfer;
  1951. }
  1952. sub write {
  1953.   my $self   = shift;
  1954.   my $output = shift;
  1955.   my $xfer   = 0;
  1956.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_stat_args');
  1957.   if (defined $self->{path}) {
  1958.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  1959.     $xfer += $self->{path}->write($output);
  1960.     $xfer += $output->writeFieldEnd();
  1961.   }
  1962.   $xfer += $output->writeFieldStop();
  1963.   $xfer += $output->writeStructEnd();
  1964.   return $xfer;
  1965. }
  1966. package ThriftHadoopFileSystem_stat_result;
  1967. use base('Class::Accessor');
  1968. ThriftHadoopFileSystem_stat_result->mk_accessors( qw( success ) );
  1969. sub new {
  1970. my $classname = shift;
  1971. my $self      = {};
  1972. my $vals      = shift || {};
  1973. $self->{success} = undef;
  1974. $self->{ouch} = undef;
  1975.   if (UNIVERSAL::isa($vals,'HASH')) {
  1976.     if (defined $vals->{success}) {
  1977.       $self->{success} = $vals->{success};
  1978.     }
  1979.     if (defined $vals->{ouch}) {
  1980.       $self->{ouch} = $vals->{ouch};
  1981.     }
  1982.   }
  1983. return bless($self,$classname);
  1984. }
  1985. sub getName {
  1986.   return 'ThriftHadoopFileSystem_stat_result';
  1987. }
  1988. sub read {
  1989.   my $self  = shift;
  1990.   my $input = shift;
  1991.   my $xfer  = 0;
  1992.   my $fname;
  1993.   my $ftype = 0;
  1994.   my $fid   = 0;
  1995.   $xfer += $input->readStructBegin($fname);
  1996.   while (1) 
  1997.   {
  1998.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  1999.     if ($ftype == TType::STOP) {
  2000.       last;
  2001.     }
  2002.     SWITCH: for($fid)
  2003.     {
  2004.       /^0$/ && do{      if ($ftype == TType::STRUCT) {
  2005.         $self->{success} = new FileStatus();
  2006.         $xfer += $self->{success}->read($input);
  2007.       } else {
  2008.         $xfer += $input->skip($ftype);
  2009.       }
  2010.       last; };
  2011.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2012.         $self->{ouch} = new ThriftIOException();
  2013.         $xfer += $self->{ouch}->read($input);
  2014.       } else {
  2015.         $xfer += $input->skip($ftype);
  2016.       }
  2017.       last; };
  2018.         $xfer += $input->skip($ftype);
  2019.     }
  2020.     $xfer += $input->readFieldEnd();
  2021.   }
  2022.   $xfer += $input->readStructEnd();
  2023.   return $xfer;
  2024. }
  2025. sub write {
  2026.   my $self   = shift;
  2027.   my $output = shift;
  2028.   my $xfer   = 0;
  2029.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_stat_result');
  2030.   if (defined $self->{success}) {
  2031.     $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0);
  2032.     $xfer += $self->{success}->write($output);
  2033.     $xfer += $output->writeFieldEnd();
  2034.   }
  2035.   if (defined $self->{ouch}) {
  2036.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  2037.     $xfer += $self->{ouch}->write($output);
  2038.     $xfer += $output->writeFieldEnd();
  2039.   }
  2040.   $xfer += $output->writeFieldStop();
  2041.   $xfer += $output->writeStructEnd();
  2042.   return $xfer;
  2043. }
  2044. package ThriftHadoopFileSystem_listStatus_args;
  2045. use base('Class::Accessor');
  2046. ThriftHadoopFileSystem_listStatus_args->mk_accessors( qw( path ) );
  2047. sub new {
  2048. my $classname = shift;
  2049. my $self      = {};
  2050. my $vals      = shift || {};
  2051. $self->{path} = undef;
  2052.   if (UNIVERSAL::isa($vals,'HASH')) {
  2053.     if (defined $vals->{path}) {
  2054.       $self->{path} = $vals->{path};
  2055.     }
  2056.   }
  2057. return bless($self,$classname);
  2058. }
  2059. sub getName {
  2060.   return 'ThriftHadoopFileSystem_listStatus_args';
  2061. }
  2062. sub read {
  2063.   my $self  = shift;
  2064.   my $input = shift;
  2065.   my $xfer  = 0;
  2066.   my $fname;
  2067.   my $ftype = 0;
  2068.   my $fid   = 0;
  2069.   $xfer += $input->readStructBegin($fname);
  2070.   while (1) 
  2071.   {
  2072.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  2073.     if ($ftype == TType::STOP) {
  2074.       last;
  2075.     }
  2076.     SWITCH: for($fid)
  2077.     {
  2078.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2079.         $self->{path} = new Pathname();
  2080.         $xfer += $self->{path}->read($input);
  2081.       } else {
  2082.         $xfer += $input->skip($ftype);
  2083.       }
  2084.       last; };
  2085.         $xfer += $input->skip($ftype);
  2086.     }
  2087.     $xfer += $input->readFieldEnd();
  2088.   }
  2089.   $xfer += $input->readStructEnd();
  2090.   return $xfer;
  2091. }
  2092. sub write {
  2093.   my $self   = shift;
  2094.   my $output = shift;
  2095.   my $xfer   = 0;
  2096.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_listStatus_args');
  2097.   if (defined $self->{path}) {
  2098.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  2099.     $xfer += $self->{path}->write($output);
  2100.     $xfer += $output->writeFieldEnd();
  2101.   }
  2102.   $xfer += $output->writeFieldStop();
  2103.   $xfer += $output->writeStructEnd();
  2104.   return $xfer;
  2105. }
  2106. package ThriftHadoopFileSystem_listStatus_result;
  2107. use base('Class::Accessor');
  2108. ThriftHadoopFileSystem_listStatus_result->mk_accessors( qw( success ) );
  2109. sub new {
  2110. my $classname = shift;
  2111. my $self      = {};
  2112. my $vals      = shift || {};
  2113. $self->{success} = undef;
  2114. $self->{ouch} = undef;
  2115.   if (UNIVERSAL::isa($vals,'HASH')) {
  2116.     if (defined $vals->{success}) {
  2117.       $self->{success} = $vals->{success};
  2118.     }
  2119.     if (defined $vals->{ouch}) {
  2120.       $self->{ouch} = $vals->{ouch};
  2121.     }
  2122.   }
  2123. return bless($self,$classname);
  2124. }
  2125. sub getName {
  2126.   return 'ThriftHadoopFileSystem_listStatus_result';
  2127. }
  2128. sub read {
  2129.   my $self  = shift;
  2130.   my $input = shift;
  2131.   my $xfer  = 0;
  2132.   my $fname;
  2133.   my $ftype = 0;
  2134.   my $fid   = 0;
  2135.   $xfer += $input->readStructBegin($fname);
  2136.   while (1) 
  2137.   {
  2138.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  2139.     if ($ftype == TType::STOP) {
  2140.       last;
  2141.     }
  2142.     SWITCH: for($fid)
  2143.     {
  2144.       /^0$/ && do{      if ($ftype == TType::LIST) {
  2145.         {
  2146.           my $_size14 = 0;
  2147.           $self->{success} = [];
  2148.           my $_etype17 = 0;
  2149.           $xfer += $input->readListBegin($_etype17, $_size14);
  2150.           for (my $_i18 = 0; $_i18 < $_size14; ++$_i18)
  2151.           {
  2152.             my $elem19 = undef;
  2153.             $elem19 = new FileStatus();
  2154.             $xfer += $elem19->read($input);
  2155.             push(@{$self->{success}},$elem19);
  2156.           }
  2157.           $xfer += $input->readListEnd();
  2158.         }
  2159.       } else {
  2160.         $xfer += $input->skip($ftype);
  2161.       }
  2162.       last; };
  2163.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2164.         $self->{ouch} = new ThriftIOException();
  2165.         $xfer += $self->{ouch}->read($input);
  2166.       } else {
  2167.         $xfer += $input->skip($ftype);
  2168.       }
  2169.       last; };
  2170.         $xfer += $input->skip($ftype);
  2171.     }
  2172.     $xfer += $input->readFieldEnd();
  2173.   }
  2174.   $xfer += $input->readStructEnd();
  2175.   return $xfer;
  2176. }
  2177. sub write {
  2178.   my $self   = shift;
  2179.   my $output = shift;
  2180.   my $xfer   = 0;
  2181.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_listStatus_result');
  2182.   if (defined $self->{success}) {
  2183.     $xfer += $output->writeFieldBegin('success', TType::LIST, 0);
  2184.     {
  2185.       $output->writeListBegin(TType::STRUCT, scalar(@{$self->{success}}));
  2186.       {
  2187.         foreach my $iter20 (@{$self->{success}}) 
  2188.         {
  2189.           $xfer += ${iter20}->write($output);
  2190.         }
  2191.       }
  2192.       $output->writeListEnd();
  2193.     }
  2194.     $xfer += $output->writeFieldEnd();
  2195.   }
  2196.   if (defined $self->{ouch}) {
  2197.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  2198.     $xfer += $self->{ouch}->write($output);
  2199.     $xfer += $output->writeFieldEnd();
  2200.   }
  2201.   $xfer += $output->writeFieldStop();
  2202.   $xfer += $output->writeStructEnd();
  2203.   return $xfer;
  2204. }
  2205. package ThriftHadoopFileSystem_chmod_args;
  2206. use base('Class::Accessor');
  2207. ThriftHadoopFileSystem_chmod_args->mk_accessors( qw( path mode ) );
  2208. sub new {
  2209. my $classname = shift;
  2210. my $self      = {};
  2211. my $vals      = shift || {};
  2212. $self->{path} = undef;
  2213. $self->{mode} = undef;
  2214.   if (UNIVERSAL::isa($vals,'HASH')) {
  2215.     if (defined $vals->{path}) {
  2216.       $self->{path} = $vals->{path};
  2217.     }
  2218.     if (defined $vals->{mode}) {
  2219.       $self->{mode} = $vals->{mode};
  2220.     }
  2221.   }
  2222. return bless($self,$classname);
  2223. }
  2224. sub getName {
  2225.   return 'ThriftHadoopFileSystem_chmod_args';
  2226. }
  2227. sub read {
  2228.   my $self  = shift;
  2229.   my $input = shift;
  2230.   my $xfer  = 0;
  2231.   my $fname;
  2232.   my $ftype = 0;
  2233.   my $fid   = 0;
  2234.   $xfer += $input->readStructBegin($fname);
  2235.   while (1) 
  2236.   {
  2237.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  2238.     if ($ftype == TType::STOP) {
  2239.       last;
  2240.     }
  2241.     SWITCH: for($fid)
  2242.     {
  2243.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2244.         $self->{path} = new Pathname();
  2245.         $xfer += $self->{path}->read($input);
  2246.       } else {
  2247.         $xfer += $input->skip($ftype);
  2248.       }
  2249.       last; };
  2250.       /^2$/ && do{      if ($ftype == TType::I16) {
  2251.         $xfer += $input->readI16($self->{mode});
  2252.       } else {
  2253.         $xfer += $input->skip($ftype);
  2254.       }
  2255.       last; };
  2256.         $xfer += $input->skip($ftype);
  2257.     }
  2258.     $xfer += $input->readFieldEnd();
  2259.   }
  2260.   $xfer += $input->readStructEnd();
  2261.   return $xfer;
  2262. }
  2263. sub write {
  2264.   my $self   = shift;
  2265.   my $output = shift;
  2266.   my $xfer   = 0;
  2267.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_chmod_args');
  2268.   if (defined $self->{path}) {
  2269.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  2270.     $xfer += $self->{path}->write($output);
  2271.     $xfer += $output->writeFieldEnd();
  2272.   }
  2273.   if (defined $self->{mode}) {
  2274.     $xfer += $output->writeFieldBegin('mode', TType::I16, 2);
  2275.     $xfer += $output->writeI16($self->{mode});
  2276.     $xfer += $output->writeFieldEnd();
  2277.   }
  2278.   $xfer += $output->writeFieldStop();
  2279.   $xfer += $output->writeStructEnd();
  2280.   return $xfer;
  2281. }
  2282. package ThriftHadoopFileSystem_chmod_result;
  2283. use base('Class::Accessor');
  2284. ThriftHadoopFileSystem_chmod_result->mk_accessors( qw( ) );
  2285. sub new {
  2286. my $classname = shift;
  2287. my $self      = {};
  2288. my $vals      = shift || {};
  2289. $self->{ouch} = undef;
  2290.   if (UNIVERSAL::isa($vals,'HASH')) {
  2291.     if (defined $vals->{ouch}) {
  2292.       $self->{ouch} = $vals->{ouch};
  2293.     }
  2294.   }
  2295. return bless($self,$classname);
  2296. }
  2297. sub getName {
  2298.   return 'ThriftHadoopFileSystem_chmod_result';
  2299. }
  2300. sub read {
  2301.   my $self  = shift;
  2302.   my $input = shift;
  2303.   my $xfer  = 0;
  2304.   my $fname;
  2305.   my $ftype = 0;
  2306.   my $fid   = 0;
  2307.   $xfer += $input->readStructBegin($fname);
  2308.   while (1) 
  2309.   {
  2310.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  2311.     if ($ftype == TType::STOP) {
  2312.       last;
  2313.     }
  2314.     SWITCH: for($fid)
  2315.     {
  2316.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2317.         $self->{ouch} = new ThriftIOException();
  2318.         $xfer += $self->{ouch}->read($input);
  2319.       } else {
  2320.         $xfer += $input->skip($ftype);
  2321.       }
  2322.       last; };
  2323.         $xfer += $input->skip($ftype);
  2324.     }
  2325.     $xfer += $input->readFieldEnd();
  2326.   }
  2327.   $xfer += $input->readStructEnd();
  2328.   return $xfer;
  2329. }
  2330. sub write {
  2331.   my $self   = shift;
  2332.   my $output = shift;
  2333.   my $xfer   = 0;
  2334.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_chmod_result');
  2335.   if (defined $self->{ouch}) {
  2336.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  2337.     $xfer += $self->{ouch}->write($output);
  2338.     $xfer += $output->writeFieldEnd();
  2339.   }
  2340.   $xfer += $output->writeFieldStop();
  2341.   $xfer += $output->writeStructEnd();
  2342.   return $xfer;
  2343. }
  2344. package ThriftHadoopFileSystem_chown_args;
  2345. use base('Class::Accessor');
  2346. ThriftHadoopFileSystem_chown_args->mk_accessors( qw( path owner group ) );
  2347. sub new {
  2348. my $classname = shift;
  2349. my $self      = {};
  2350. my $vals      = shift || {};
  2351. $self->{path} = undef;
  2352. $self->{owner} = undef;
  2353. $self->{group} = undef;
  2354.   if (UNIVERSAL::isa($vals,'HASH')) {
  2355.     if (defined $vals->{path}) {
  2356.       $self->{path} = $vals->{path};
  2357.     }
  2358.     if (defined $vals->{owner}) {
  2359.       $self->{owner} = $vals->{owner};
  2360.     }
  2361.     if (defined $vals->{group}) {
  2362.       $self->{group} = $vals->{group};
  2363.     }
  2364.   }
  2365. return bless($self,$classname);
  2366. }
  2367. sub getName {
  2368.   return 'ThriftHadoopFileSystem_chown_args';
  2369. }
  2370. sub read {
  2371.   my $self  = shift;
  2372.   my $input = shift;
  2373.   my $xfer  = 0;
  2374.   my $fname;
  2375.   my $ftype = 0;
  2376.   my $fid   = 0;
  2377.   $xfer += $input->readStructBegin($fname);
  2378.   while (1) 
  2379.   {
  2380.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  2381.     if ($ftype == TType::STOP) {
  2382.       last;
  2383.     }
  2384.     SWITCH: for($fid)
  2385.     {
  2386.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2387.         $self->{path} = new Pathname();
  2388.         $xfer += $self->{path}->read($input);
  2389.       } else {
  2390.         $xfer += $input->skip($ftype);
  2391.       }
  2392.       last; };
  2393.       /^2$/ && do{      if ($ftype == TType::STRING) {
  2394.         $xfer += $input->readString($self->{owner});
  2395.       } else {
  2396.         $xfer += $input->skip($ftype);
  2397.       }
  2398.       last; };
  2399.       /^3$/ && do{      if ($ftype == TType::STRING) {
  2400.         $xfer += $input->readString($self->{group});
  2401.       } else {
  2402.         $xfer += $input->skip($ftype);
  2403.       }
  2404.       last; };
  2405.         $xfer += $input->skip($ftype);
  2406.     }
  2407.     $xfer += $input->readFieldEnd();
  2408.   }
  2409.   $xfer += $input->readStructEnd();
  2410.   return $xfer;
  2411. }
  2412. sub write {
  2413.   my $self   = shift;
  2414.   my $output = shift;
  2415.   my $xfer   = 0;
  2416.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_chown_args');
  2417.   if (defined $self->{path}) {
  2418.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  2419.     $xfer += $self->{path}->write($output);
  2420.     $xfer += $output->writeFieldEnd();
  2421.   }
  2422.   if (defined $self->{owner}) {
  2423.     $xfer += $output->writeFieldBegin('owner', TType::STRING, 2);
  2424.     $xfer += $output->writeString($self->{owner});
  2425.     $xfer += $output->writeFieldEnd();
  2426.   }
  2427.   if (defined $self->{group}) {
  2428.     $xfer += $output->writeFieldBegin('group', TType::STRING, 3);
  2429.     $xfer += $output->writeString($self->{group});
  2430.     $xfer += $output->writeFieldEnd();
  2431.   }
  2432.   $xfer += $output->writeFieldStop();
  2433.   $xfer += $output->writeStructEnd();
  2434.   return $xfer;
  2435. }
  2436. package ThriftHadoopFileSystem_chown_result;
  2437. use base('Class::Accessor');
  2438. ThriftHadoopFileSystem_chown_result->mk_accessors( qw( ) );
  2439. sub new {
  2440. my $classname = shift;
  2441. my $self      = {};
  2442. my $vals      = shift || {};
  2443. $self->{ouch} = undef;
  2444.   if (UNIVERSAL::isa($vals,'HASH')) {
  2445.     if (defined $vals->{ouch}) {
  2446.       $self->{ouch} = $vals->{ouch};
  2447.     }
  2448.   }
  2449. return bless($self,$classname);
  2450. }
  2451. sub getName {
  2452.   return 'ThriftHadoopFileSystem_chown_result';
  2453. }
  2454. sub read {
  2455.   my $self  = shift;
  2456.   my $input = shift;
  2457.   my $xfer  = 0;
  2458.   my $fname;
  2459.   my $ftype = 0;
  2460.   my $fid   = 0;
  2461.   $xfer += $input->readStructBegin($fname);
  2462.   while (1) 
  2463.   {
  2464.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  2465.     if ($ftype == TType::STOP) {
  2466.       last;
  2467.     }
  2468.     SWITCH: for($fid)
  2469.     {
  2470.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2471.         $self->{ouch} = new ThriftIOException();
  2472.         $xfer += $self->{ouch}->read($input);
  2473.       } else {
  2474.         $xfer += $input->skip($ftype);
  2475.       }
  2476.       last; };
  2477.         $xfer += $input->skip($ftype);
  2478.     }
  2479.     $xfer += $input->readFieldEnd();
  2480.   }
  2481.   $xfer += $input->readStructEnd();
  2482.   return $xfer;
  2483. }
  2484. sub write {
  2485.   my $self   = shift;
  2486.   my $output = shift;
  2487.   my $xfer   = 0;
  2488.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_chown_result');
  2489.   if (defined $self->{ouch}) {
  2490.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  2491.     $xfer += $self->{ouch}->write($output);
  2492.     $xfer += $output->writeFieldEnd();
  2493.   }
  2494.   $xfer += $output->writeFieldStop();
  2495.   $xfer += $output->writeStructEnd();
  2496.   return $xfer;
  2497. }
  2498. package ThriftHadoopFileSystem_setReplication_args;
  2499. use base('Class::Accessor');
  2500. ThriftHadoopFileSystem_setReplication_args->mk_accessors( qw( path replication ) );
  2501. sub new {
  2502. my $classname = shift;
  2503. my $self      = {};
  2504. my $vals      = shift || {};
  2505. $self->{path} = undef;
  2506. $self->{replication} = undef;
  2507.   if (UNIVERSAL::isa($vals,'HASH')) {
  2508.     if (defined $vals->{path}) {
  2509.       $self->{path} = $vals->{path};
  2510.     }
  2511.     if (defined $vals->{replication}) {
  2512.       $self->{replication} = $vals->{replication};
  2513.     }
  2514.   }
  2515. return bless($self,$classname);
  2516. }
  2517. sub getName {
  2518.   return 'ThriftHadoopFileSystem_setReplication_args';
  2519. }
  2520. sub read {
  2521.   my $self  = shift;
  2522.   my $input = shift;
  2523.   my $xfer  = 0;
  2524.   my $fname;
  2525.   my $ftype = 0;
  2526.   my $fid   = 0;
  2527.   $xfer += $input->readStructBegin($fname);
  2528.   while (1) 
  2529.   {
  2530.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  2531.     if ($ftype == TType::STOP) {
  2532.       last;
  2533.     }
  2534.     SWITCH: for($fid)
  2535.     {
  2536.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2537.         $self->{path} = new Pathname();
  2538.         $xfer += $self->{path}->read($input);
  2539.       } else {
  2540.         $xfer += $input->skip($ftype);
  2541.       }
  2542.       last; };
  2543.       /^2$/ && do{      if ($ftype == TType::I16) {
  2544.         $xfer += $input->readI16($self->{replication});
  2545.       } else {
  2546.         $xfer += $input->skip($ftype);
  2547.       }
  2548.       last; };
  2549.         $xfer += $input->skip($ftype);
  2550.     }
  2551.     $xfer += $input->readFieldEnd();
  2552.   }
  2553.   $xfer += $input->readStructEnd();
  2554.   return $xfer;
  2555. }
  2556. sub write {
  2557.   my $self   = shift;
  2558.   my $output = shift;
  2559.   my $xfer   = 0;
  2560.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_setReplication_args');
  2561.   if (defined $self->{path}) {
  2562.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  2563.     $xfer += $self->{path}->write($output);
  2564.     $xfer += $output->writeFieldEnd();
  2565.   }
  2566.   if (defined $self->{replication}) {
  2567.     $xfer += $output->writeFieldBegin('replication', TType::I16, 2);
  2568.     $xfer += $output->writeI16($self->{replication});
  2569.     $xfer += $output->writeFieldEnd();
  2570.   }
  2571.   $xfer += $output->writeFieldStop();
  2572.   $xfer += $output->writeStructEnd();
  2573.   return $xfer;
  2574. }
  2575. package ThriftHadoopFileSystem_setReplication_result;
  2576. use base('Class::Accessor');
  2577. ThriftHadoopFileSystem_setReplication_result->mk_accessors( qw( ) );
  2578. sub new {
  2579. my $classname = shift;
  2580. my $self      = {};
  2581. my $vals      = shift || {};
  2582. $self->{ouch} = undef;
  2583.   if (UNIVERSAL::isa($vals,'HASH')) {
  2584.     if (defined $vals->{ouch}) {
  2585.       $self->{ouch} = $vals->{ouch};
  2586.     }
  2587.   }
  2588. return bless($self,$classname);
  2589. }
  2590. sub getName {
  2591.   return 'ThriftHadoopFileSystem_setReplication_result';
  2592. }
  2593. sub read {
  2594.   my $self  = shift;
  2595.   my $input = shift;
  2596.   my $xfer  = 0;
  2597.   my $fname;
  2598.   my $ftype = 0;
  2599.   my $fid   = 0;
  2600.   $xfer += $input->readStructBegin($fname);
  2601.   while (1) 
  2602.   {
  2603.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  2604.     if ($ftype == TType::STOP) {
  2605.       last;
  2606.     }
  2607.     SWITCH: for($fid)
  2608.     {
  2609.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2610.         $self->{ouch} = new ThriftIOException();
  2611.         $xfer += $self->{ouch}->read($input);
  2612.       } else {
  2613.         $xfer += $input->skip($ftype);
  2614.       }
  2615.       last; };
  2616.         $xfer += $input->skip($ftype);
  2617.     }
  2618.     $xfer += $input->readFieldEnd();
  2619.   }
  2620.   $xfer += $input->readStructEnd();
  2621.   return $xfer;
  2622. }
  2623. sub write {
  2624.   my $self   = shift;
  2625.   my $output = shift;
  2626.   my $xfer   = 0;
  2627.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_setReplication_result');
  2628.   if (defined $self->{ouch}) {
  2629.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  2630.     $xfer += $self->{ouch}->write($output);
  2631.     $xfer += $output->writeFieldEnd();
  2632.   }
  2633.   $xfer += $output->writeFieldStop();
  2634.   $xfer += $output->writeStructEnd();
  2635.   return $xfer;
  2636. }
  2637. package ThriftHadoopFileSystem_getFileBlockLocations_args;
  2638. use base('Class::Accessor');
  2639. ThriftHadoopFileSystem_getFileBlockLocations_args->mk_accessors( qw( path start length ) );
  2640. sub new {
  2641. my $classname = shift;
  2642. my $self      = {};
  2643. my $vals      = shift || {};
  2644. $self->{path} = undef;
  2645. $self->{start} = undef;
  2646. $self->{length} = undef;
  2647.   if (UNIVERSAL::isa($vals,'HASH')) {
  2648.     if (defined $vals->{path}) {
  2649.       $self->{path} = $vals->{path};
  2650.     }
  2651.     if (defined $vals->{start}) {
  2652.       $self->{start} = $vals->{start};
  2653.     }
  2654.     if (defined $vals->{length}) {
  2655.       $self->{length} = $vals->{length};
  2656.     }
  2657.   }
  2658. return bless($self,$classname);
  2659. }
  2660. sub getName {
  2661.   return 'ThriftHadoopFileSystem_getFileBlockLocations_args';
  2662. }
  2663. sub read {
  2664.   my $self  = shift;
  2665.   my $input = shift;
  2666.   my $xfer  = 0;
  2667.   my $fname;
  2668.   my $ftype = 0;
  2669.   my $fid   = 0;
  2670.   $xfer += $input->readStructBegin($fname);
  2671.   while (1) 
  2672.   {
  2673.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  2674.     if ($ftype == TType::STOP) {
  2675.       last;
  2676.     }
  2677.     SWITCH: for($fid)
  2678.     {
  2679.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2680.         $self->{path} = new Pathname();
  2681.         $xfer += $self->{path}->read($input);
  2682.       } else {
  2683.         $xfer += $input->skip($ftype);
  2684.       }
  2685.       last; };
  2686.       /^2$/ && do{      if ($ftype == TType::I64) {
  2687.         $xfer += $input->readI64($self->{start});
  2688.       } else {
  2689.         $xfer += $input->skip($ftype);
  2690.       }
  2691.       last; };
  2692.       /^3$/ && do{      if ($ftype == TType::I64) {
  2693.         $xfer += $input->readI64($self->{length});
  2694.       } else {
  2695.         $xfer += $input->skip($ftype);
  2696.       }
  2697.       last; };
  2698.         $xfer += $input->skip($ftype);
  2699.     }
  2700.     $xfer += $input->readFieldEnd();
  2701.   }
  2702.   $xfer += $input->readStructEnd();
  2703.   return $xfer;
  2704. }
  2705. sub write {
  2706.   my $self   = shift;
  2707.   my $output = shift;
  2708.   my $xfer   = 0;
  2709.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_getFileBlockLocations_args');
  2710.   if (defined $self->{path}) {
  2711.     $xfer += $output->writeFieldBegin('path', TType::STRUCT, 1);
  2712.     $xfer += $self->{path}->write($output);
  2713.     $xfer += $output->writeFieldEnd();
  2714.   }
  2715.   if (defined $self->{start}) {
  2716.     $xfer += $output->writeFieldBegin('start', TType::I64, 2);
  2717.     $xfer += $output->writeI64($self->{start});
  2718.     $xfer += $output->writeFieldEnd();
  2719.   }
  2720.   if (defined $self->{length}) {
  2721.     $xfer += $output->writeFieldBegin('length', TType::I64, 3);
  2722.     $xfer += $output->writeI64($self->{length});
  2723.     $xfer += $output->writeFieldEnd();
  2724.   }
  2725.   $xfer += $output->writeFieldStop();
  2726.   $xfer += $output->writeStructEnd();
  2727.   return $xfer;
  2728. }
  2729. package ThriftHadoopFileSystem_getFileBlockLocations_result;
  2730. use base('Class::Accessor');
  2731. ThriftHadoopFileSystem_getFileBlockLocations_result->mk_accessors( qw( success ) );
  2732. sub new {
  2733. my $classname = shift;
  2734. my $self      = {};
  2735. my $vals      = shift || {};
  2736. $self->{success} = undef;
  2737. $self->{ouch} = undef;
  2738.   if (UNIVERSAL::isa($vals,'HASH')) {
  2739.     if (defined $vals->{success}) {
  2740.       $self->{success} = $vals->{success};
  2741.     }
  2742.     if (defined $vals->{ouch}) {
  2743.       $self->{ouch} = $vals->{ouch};
  2744.     }
  2745.   }
  2746. return bless($self,$classname);
  2747. }
  2748. sub getName {
  2749.   return 'ThriftHadoopFileSystem_getFileBlockLocations_result';
  2750. }
  2751. sub read {
  2752.   my $self  = shift;
  2753.   my $input = shift;
  2754.   my $xfer  = 0;
  2755.   my $fname;
  2756.   my $ftype = 0;
  2757.   my $fid   = 0;
  2758.   $xfer += $input->readStructBegin($fname);
  2759.   while (1) 
  2760.   {
  2761.     $xfer += $input->readFieldBegin($fname, $ftype, $fid);
  2762.     if ($ftype == TType::STOP) {
  2763.       last;
  2764.     }
  2765.     SWITCH: for($fid)
  2766.     {
  2767.       /^0$/ && do{      if ($ftype == TType::LIST) {
  2768.         {
  2769.           my $_size21 = 0;
  2770.           $self->{success} = [];
  2771.           my $_etype24 = 0;
  2772.           $xfer += $input->readListBegin($_etype24, $_size21);
  2773.           for (my $_i25 = 0; $_i25 < $_size21; ++$_i25)
  2774.           {
  2775.             my $elem26 = undef;
  2776.             $elem26 = new BlockLocation();
  2777.             $xfer += $elem26->read($input);
  2778.             push(@{$self->{success}},$elem26);
  2779.           }
  2780.           $xfer += $input->readListEnd();
  2781.         }
  2782.       } else {
  2783.         $xfer += $input->skip($ftype);
  2784.       }
  2785.       last; };
  2786.       /^1$/ && do{      if ($ftype == TType::STRUCT) {
  2787.         $self->{ouch} = new ThriftIOException();
  2788.         $xfer += $self->{ouch}->read($input);
  2789.       } else {
  2790.         $xfer += $input->skip($ftype);
  2791.       }
  2792.       last; };
  2793.         $xfer += $input->skip($ftype);
  2794.     }
  2795.     $xfer += $input->readFieldEnd();
  2796.   }
  2797.   $xfer += $input->readStructEnd();
  2798.   return $xfer;
  2799. }
  2800. sub write {
  2801.   my $self   = shift;
  2802.   my $output = shift;
  2803.   my $xfer   = 0;
  2804.   $xfer += $output->writeStructBegin('ThriftHadoopFileSystem_getFileBlockLocations_result');
  2805.   if (defined $self->{success}) {
  2806.     $xfer += $output->writeFieldBegin('success', TType::LIST, 0);
  2807.     {
  2808.       $output->writeListBegin(TType::STRUCT, scalar(@{$self->{success}}));
  2809.       {
  2810.         foreach my $iter27 (@{$self->{success}}) 
  2811.         {
  2812.           $xfer += ${iter27}->write($output);
  2813.         }
  2814.       }
  2815.       $output->writeListEnd();
  2816.     }
  2817.     $xfer += $output->writeFieldEnd();
  2818.   }
  2819.   if (defined $self->{ouch}) {
  2820.     $xfer += $output->writeFieldBegin('ouch', TType::STRUCT, 1);
  2821.     $xfer += $self->{ouch}->write($output);
  2822.     $xfer += $output->writeFieldEnd();
  2823.   }
  2824.   $xfer += $output->writeFieldStop();
  2825.   $xfer += $output->writeStructEnd();
  2826.   return $xfer;
  2827. }
  2828. package ThriftHadoopFileSystemIf;
  2829. sub setInactivityTimeoutPeriod{
  2830.   my $self = shift;
  2831.   my $periodInSeconds = shift;
  2832.   die 'implement interface';
  2833. }
  2834. sub shutdown{
  2835.   my $self = shift;
  2836.   my $status = shift;
  2837.   die 'implement interface';
  2838. }
  2839. sub create{
  2840.   my $self = shift;
  2841.   my $path = shift;
  2842.   die 'implement interface';
  2843. }
  2844. sub createFile{
  2845.   my $self = shift;
  2846.   my $path = shift;
  2847.   my $mode = shift;
  2848.   my $overwrite = shift;
  2849.   my $bufferSize = shift;
  2850.   my $block_replication = shift;
  2851.   my $blocksize = shift;
  2852.   die 'implement interface';
  2853. }
  2854. sub open{
  2855.   my $self = shift;
  2856.   my $path = shift;
  2857.   die 'implement interface';
  2858. }
  2859. sub append{
  2860.   my $self = shift;
  2861.   my $path = shift;
  2862.   die 'implement interface';
  2863. }
  2864. sub write{
  2865.   my $self = shift;
  2866.   my $handle = shift;
  2867.   my $data = shift;
  2868.   die 'implement interface';
  2869. }
  2870. sub read{
  2871.   my $self = shift;
  2872.   my $handle = shift;
  2873.   my $offset = shift;
  2874.   my $size = shift;
  2875.   die 'implement interface';
  2876. }
  2877. sub close{
  2878.   my $self = shift;
  2879.   my $out = shift;
  2880.   die 'implement interface';
  2881. }
  2882. sub rm{
  2883.   my $self = shift;
  2884.   my $path = shift;
  2885.   my $recursive = shift;
  2886.   die 'implement interface';
  2887. }
  2888. sub rename{
  2889.   my $self = shift;
  2890.   my $path = shift;
  2891.   my $dest = shift;
  2892.   die 'implement interface';
  2893. }
  2894. sub mkdirs{
  2895.   my $self = shift;
  2896.   my $path = shift;
  2897.   die 'implement interface';
  2898. }
  2899. sub exists{
  2900.   my $self = shift;
  2901.   my $path = shift;
  2902.   die 'implement interface';
  2903. }
  2904. sub stat{
  2905.   my $self = shift;
  2906.   my $path = shift;
  2907.   die 'implement interface';
  2908. }
  2909. sub listStatus{
  2910.   my $self = shift;
  2911.   my $path = shift;
  2912.   die 'implement interface';
  2913. }
  2914. sub chmod{
  2915.   my $self = shift;
  2916.   my $path = shift;
  2917.   my $mode = shift;
  2918.   die 'implement interface';
  2919. }
  2920. sub chown{
  2921.   my $self = shift;
  2922.   my $path = shift;
  2923.   my $owner = shift;
  2924.   my $group = shift;
  2925.   die 'implement interface';
  2926. }
  2927. sub setReplication{
  2928.   my $self = shift;
  2929.   my $path = shift;
  2930.   my $replication = shift;
  2931.   die 'implement interface';
  2932. }
  2933. sub getFileBlockLocations{
  2934.   my $self = shift;
  2935.   my $path = shift;
  2936.   my $start = shift;
  2937.   my $length = shift;
  2938.   die 'implement interface';
  2939. }
  2940. package ThriftHadoopFileSystemRest;
  2941. sub new {
  2942.   my $classname=shift;
  2943.   my $impl     =shift;
  2944.   my $self     ={ impl => $impl };
  2945.   return bless($self,$classname);
  2946. }
  2947. sub setInactivityTimeoutPeriod{
  2948.   my $self = shift;
  2949.   my $request = shift;
  2950.   my $periodInSeconds = ($request->{'periodInSeconds'}) ? $request->{'periodInSeconds'} : undef;
  2951.   return $self->{impl}->setInactivityTimeoutPeriod($periodInSeconds);
  2952. }
  2953. sub shutdown{
  2954.   my $self = shift;
  2955.   my $request = shift;
  2956.   my $status = ($request->{'status'}) ? $request->{'status'} : undef;
  2957.   return $self->{impl}->shutdown($status);
  2958. }
  2959. sub create{
  2960.   my $self = shift;
  2961.   my $request = shift;
  2962.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  2963.   return $self->{impl}->create($path);
  2964. }
  2965. sub createFile{
  2966.   my $self = shift;
  2967.   my $request = shift;
  2968.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  2969.   my $mode = ($request->{'mode'}) ? $request->{'mode'} : undef;
  2970.   my $overwrite = ($request->{'overwrite'}) ? $request->{'overwrite'} : undef;
  2971.   my $bufferSize = ($request->{'bufferSize'}) ? $request->{'bufferSize'} : undef;
  2972.   my $block_replication = ($request->{'block_replication'}) ? $request->{'block_replication'} : undef;
  2973.   my $blocksize = ($request->{'blocksize'}) ? $request->{'blocksize'} : undef;
  2974.   return $self->{impl}->createFile($path, $mode, $overwrite, $bufferSize, $block_replication, $blocksize);
  2975. }
  2976. sub open{
  2977.   my $self = shift;
  2978.   my $request = shift;
  2979.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  2980.   return $self->{impl}->open($path);
  2981. }
  2982. sub append{
  2983.   my $self = shift;
  2984.   my $request = shift;
  2985.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  2986.   return $self->{impl}->append($path);
  2987. }
  2988. sub write{
  2989.   my $self = shift;
  2990.   my $request = shift;
  2991.   my $handle = ($request->{'handle'}) ? $request->{'handle'} : undef;
  2992.   my $data = ($request->{'data'}) ? $request->{'data'} : undef;
  2993.   return $self->{impl}->write($handle, $data);
  2994. }
  2995. sub read{
  2996.   my $self = shift;
  2997.   my $request = shift;
  2998.   my $handle = ($request->{'handle'}) ? $request->{'handle'} : undef;
  2999.   my $offset = ($request->{'offset'}) ? $request->{'offset'} : undef;
  3000.   my $size = ($request->{'size'}) ? $request->{'size'} : undef;
  3001.   return $self->{impl}->read($handle, $offset, $size);
  3002. }
  3003. sub close{
  3004.   my $self = shift;
  3005.   my $request = shift;
  3006.   my $out = ($request->{'out'}) ? $request->{'out'} : undef;
  3007.   return $self->{impl}->close($out);
  3008. }
  3009. sub rm{
  3010.   my $self = shift;
  3011.   my $request = shift;
  3012.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  3013.   my $recursive = ($request->{'recursive'}) ? $request->{'recursive'} : undef;
  3014.   return $self->{impl}->rm($path, $recursive);
  3015. }
  3016. sub rename{
  3017.   my $self = shift;
  3018.   my $request = shift;
  3019.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  3020.   my $dest = ($request->{'dest'}) ? $request->{'dest'} : undef;
  3021.   return $self->{impl}->rename($path, $dest);
  3022. }
  3023. sub mkdirs{
  3024.   my $self = shift;
  3025.   my $request = shift;
  3026.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  3027.   return $self->{impl}->mkdirs($path);
  3028. }
  3029. sub exists{
  3030.   my $self = shift;
  3031.   my $request = shift;
  3032.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  3033.   return $self->{impl}->exists($path);
  3034. }
  3035. sub stat{
  3036.   my $self = shift;
  3037.   my $request = shift;
  3038.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  3039.   return $self->{impl}->stat($path);
  3040. }
  3041. sub listStatus{
  3042.   my $self = shift;
  3043.   my $request = shift;
  3044.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  3045.   return $self->{impl}->listStatus($path);
  3046. }
  3047. sub chmod{
  3048.   my $self = shift;
  3049.   my $request = shift;
  3050.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  3051.   my $mode = ($request->{'mode'}) ? $request->{'mode'} : undef;
  3052.   return $self->{impl}->chmod($path, $mode);
  3053. }
  3054. sub chown{
  3055.   my $self = shift;
  3056.   my $request = shift;
  3057.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  3058.   my $owner = ($request->{'owner'}) ? $request->{'owner'} : undef;
  3059.   my $group = ($request->{'group'}) ? $request->{'group'} : undef;
  3060.   return $self->{impl}->chown($path, $owner, $group);
  3061. }
  3062. sub setReplication{
  3063.   my $self = shift;
  3064.   my $request = shift;
  3065.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  3066.   my $replication = ($request->{'replication'}) ? $request->{'replication'} : undef;
  3067.   return $self->{impl}->setReplication($path, $replication);
  3068. }
  3069. sub getFileBlockLocations{
  3070.   my $self = shift;
  3071.   my $request = shift;
  3072.   my $path = ($request->{'path'}) ? $request->{'path'} : undef;
  3073.   my $start = ($request->{'start'}) ? $request->{'start'} : undef;
  3074.   my $length = ($request->{'length'}) ? $request->{'length'} : undef;
  3075.   return $self->{impl}->getFileBlockLocations($path, $start, $length);
  3076. }
  3077. package ThriftHadoopFileSystemClient;
  3078. use base('ThriftHadoopFileSystemIf');
  3079. sub new {
  3080.   my $classname = shift;
  3081.   my $input     = shift;
  3082.   my $output    = shift;
  3083.   my $self      = {};
  3084.     $self->{input}  = $input;
  3085.     $self->{output} = defined $output ? $output : $input;
  3086.     $self->{seqid}  = 0;
  3087.   return bless($self,$classname);
  3088. }
  3089. sub setInactivityTimeoutPeriod{
  3090.   my $self = shift;
  3091.   my $periodInSeconds = shift;
  3092.     $self->send_setInactivityTimeoutPeriod($periodInSeconds);
  3093.   $self->recv_setInactivityTimeoutPeriod();
  3094. }
  3095. sub send_setInactivityTimeoutPeriod{
  3096.   my $self = shift;
  3097.   my $periodInSeconds = shift;
  3098.   $self->{output}->writeMessageBegin('setInactivityTimeoutPeriod', TMessageType::CALL, $self->{seqid});
  3099.   my $args = new ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args();
  3100.   $args->{periodInSeconds} = $periodInSeconds;
  3101.   $args->write($self->{output});
  3102.   $self->{output}->writeMessageEnd();
  3103.   $self->{output}->getTransport()->flush();
  3104. }
  3105. sub recv_setInactivityTimeoutPeriod{
  3106.   my $self = shift;
  3107.   my $rseqid = 0;
  3108.   my $fname;
  3109.   my $mtype = 0;
  3110.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3111.   if ($mtype == TMessageType::EXCEPTION) {
  3112.     my $x = new TApplicationException();
  3113.     $x->read($self->{input});
  3114.     $self->{input}->readMessageEnd();
  3115.     die $x;
  3116.   }
  3117.   my $result = new ThriftHadoopFileSystem_setInactivityTimeoutPeriod_result();
  3118.   $result->read($self->{input});
  3119.   $self->{input}->readMessageEnd();
  3120.   return;
  3121. }
  3122. sub shutdown{
  3123.   my $self = shift;
  3124.   my $status = shift;
  3125.     $self->send_shutdown($status);
  3126.   $self->recv_shutdown();
  3127. }
  3128. sub send_shutdown{
  3129.   my $self = shift;
  3130.   my $status = shift;
  3131.   $self->{output}->writeMessageBegin('shutdown', TMessageType::CALL, $self->{seqid});
  3132.   my $args = new ThriftHadoopFileSystem_shutdown_args();
  3133.   $args->{status} = $status;
  3134.   $args->write($self->{output});
  3135.   $self->{output}->writeMessageEnd();
  3136.   $self->{output}->getTransport()->flush();
  3137. }
  3138. sub recv_shutdown{
  3139.   my $self = shift;
  3140.   my $rseqid = 0;
  3141.   my $fname;
  3142.   my $mtype = 0;
  3143.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3144.   if ($mtype == TMessageType::EXCEPTION) {
  3145.     my $x = new TApplicationException();
  3146.     $x->read($self->{input});
  3147.     $self->{input}->readMessageEnd();
  3148.     die $x;
  3149.   }
  3150.   my $result = new ThriftHadoopFileSystem_shutdown_result();
  3151.   $result->read($self->{input});
  3152.   $self->{input}->readMessageEnd();
  3153.   return;
  3154. }
  3155. sub create{
  3156.   my $self = shift;
  3157.   my $path = shift;
  3158.     $self->send_create($path);
  3159.   return $self->recv_create();
  3160. }
  3161. sub send_create{
  3162.   my $self = shift;
  3163.   my $path = shift;
  3164.   $self->{output}->writeMessageBegin('create', TMessageType::CALL, $self->{seqid});
  3165.   my $args = new ThriftHadoopFileSystem_create_args();
  3166.   $args->{path} = $path;
  3167.   $args->write($self->{output});
  3168.   $self->{output}->writeMessageEnd();
  3169.   $self->{output}->getTransport()->flush();
  3170. }
  3171. sub recv_create{
  3172.   my $self = shift;
  3173.   my $rseqid = 0;
  3174.   my $fname;
  3175.   my $mtype = 0;
  3176.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3177.   if ($mtype == TMessageType::EXCEPTION) {
  3178.     my $x = new TApplicationException();
  3179.     $x->read($self->{input});
  3180.     $self->{input}->readMessageEnd();
  3181.     die $x;
  3182.   }
  3183.   my $result = new ThriftHadoopFileSystem_create_result();
  3184.   $result->read($self->{input});
  3185.   $self->{input}->readMessageEnd();
  3186.   if (defined $result->{success} ) {
  3187.     return $result->{success};
  3188.   }
  3189.   if (defined $result->{ouch}) {
  3190.     die $result->{ouch};
  3191.   }
  3192.   die "create failed: unknown result";
  3193. }
  3194. sub createFile{
  3195.   my $self = shift;
  3196.   my $path = shift;
  3197.   my $mode = shift;
  3198.   my $overwrite = shift;
  3199.   my $bufferSize = shift;
  3200.   my $block_replication = shift;
  3201.   my $blocksize = shift;
  3202.     $self->send_createFile($path, $mode, $overwrite, $bufferSize, $block_replication, $blocksize);
  3203.   return $self->recv_createFile();
  3204. }
  3205. sub send_createFile{
  3206.   my $self = shift;
  3207.   my $path = shift;
  3208.   my $mode = shift;
  3209.   my $overwrite = shift;
  3210.   my $bufferSize = shift;
  3211.   my $block_replication = shift;
  3212.   my $blocksize = shift;
  3213.   $self->{output}->writeMessageBegin('createFile', TMessageType::CALL, $self->{seqid});
  3214.   my $args = new ThriftHadoopFileSystem_createFile_args();
  3215.   $args->{path} = $path;
  3216.   $args->{mode} = $mode;
  3217.   $args->{overwrite} = $overwrite;
  3218.   $args->{bufferSize} = $bufferSize;
  3219.   $args->{block_replication} = $block_replication;
  3220.   $args->{blocksize} = $blocksize;
  3221.   $args->write($self->{output});
  3222.   $self->{output}->writeMessageEnd();
  3223.   $self->{output}->getTransport()->flush();
  3224. }
  3225. sub recv_createFile{
  3226.   my $self = shift;
  3227.   my $rseqid = 0;
  3228.   my $fname;
  3229.   my $mtype = 0;
  3230.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3231.   if ($mtype == TMessageType::EXCEPTION) {
  3232.     my $x = new TApplicationException();
  3233.     $x->read($self->{input});
  3234.     $self->{input}->readMessageEnd();
  3235.     die $x;
  3236.   }
  3237.   my $result = new ThriftHadoopFileSystem_createFile_result();
  3238.   $result->read($self->{input});
  3239.   $self->{input}->readMessageEnd();
  3240.   if (defined $result->{success} ) {
  3241.     return $result->{success};
  3242.   }
  3243.   if (defined $result->{ouch}) {
  3244.     die $result->{ouch};
  3245.   }
  3246.   die "createFile failed: unknown result";
  3247. }
  3248. sub open{
  3249.   my $self = shift;
  3250.   my $path = shift;
  3251.     $self->send_open($path);
  3252.   return $self->recv_open();
  3253. }
  3254. sub send_open{
  3255.   my $self = shift;
  3256.   my $path = shift;
  3257.   $self->{output}->writeMessageBegin('open', TMessageType::CALL, $self->{seqid});
  3258.   my $args = new ThriftHadoopFileSystem_open_args();
  3259.   $args->{path} = $path;
  3260.   $args->write($self->{output});
  3261.   $self->{output}->writeMessageEnd();
  3262.   $self->{output}->getTransport()->flush();
  3263. }
  3264. sub recv_open{
  3265.   my $self = shift;
  3266.   my $rseqid = 0;
  3267.   my $fname;
  3268.   my $mtype = 0;
  3269.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3270.   if ($mtype == TMessageType::EXCEPTION) {
  3271.     my $x = new TApplicationException();
  3272.     $x->read($self->{input});
  3273.     $self->{input}->readMessageEnd();
  3274.     die $x;
  3275.   }
  3276.   my $result = new ThriftHadoopFileSystem_open_result();
  3277.   $result->read($self->{input});
  3278.   $self->{input}->readMessageEnd();
  3279.   if (defined $result->{success} ) {
  3280.     return $result->{success};
  3281.   }
  3282.   if (defined $result->{ouch}) {
  3283.     die $result->{ouch};
  3284.   }
  3285.   die "open failed: unknown result";
  3286. }
  3287. sub append{
  3288.   my $self = shift;
  3289.   my $path = shift;
  3290.     $self->send_append($path);
  3291.   return $self->recv_append();
  3292. }
  3293. sub send_append{
  3294.   my $self = shift;
  3295.   my $path = shift;
  3296.   $self->{output}->writeMessageBegin('append', TMessageType::CALL, $self->{seqid});
  3297.   my $args = new ThriftHadoopFileSystem_append_args();
  3298.   $args->{path} = $path;
  3299.   $args->write($self->{output});
  3300.   $self->{output}->writeMessageEnd();
  3301.   $self->{output}->getTransport()->flush();
  3302. }
  3303. sub recv_append{
  3304.   my $self = shift;
  3305.   my $rseqid = 0;
  3306.   my $fname;
  3307.   my $mtype = 0;
  3308.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3309.   if ($mtype == TMessageType::EXCEPTION) {
  3310.     my $x = new TApplicationException();
  3311.     $x->read($self->{input});
  3312.     $self->{input}->readMessageEnd();
  3313.     die $x;
  3314.   }
  3315.   my $result = new ThriftHadoopFileSystem_append_result();
  3316.   $result->read($self->{input});
  3317.   $self->{input}->readMessageEnd();
  3318.   if (defined $result->{success} ) {
  3319.     return $result->{success};
  3320.   }
  3321.   if (defined $result->{ouch}) {
  3322.     die $result->{ouch};
  3323.   }
  3324.   die "append failed: unknown result";
  3325. }
  3326. sub write{
  3327.   my $self = shift;
  3328.   my $handle = shift;
  3329.   my $data = shift;
  3330.     $self->send_write($handle, $data);
  3331.   return $self->recv_write();
  3332. }
  3333. sub send_write{
  3334.   my $self = shift;
  3335.   my $handle = shift;
  3336.   my $data = shift;
  3337.   $self->{output}->writeMessageBegin('write', TMessageType::CALL, $self->{seqid});
  3338.   my $args = new ThriftHadoopFileSystem_write_args();
  3339.   $args->{handle} = $handle;
  3340.   $args->{data} = $data;
  3341.   $args->write($self->{output});
  3342.   $self->{output}->writeMessageEnd();
  3343.   $self->{output}->getTransport()->flush();
  3344. }
  3345. sub recv_write{
  3346.   my $self = shift;
  3347.   my $rseqid = 0;
  3348.   my $fname;
  3349.   my $mtype = 0;
  3350.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3351.   if ($mtype == TMessageType::EXCEPTION) {
  3352.     my $x = new TApplicationException();
  3353.     $x->read($self->{input});
  3354.     $self->{input}->readMessageEnd();
  3355.     die $x;
  3356.   }
  3357.   my $result = new ThriftHadoopFileSystem_write_result();
  3358.   $result->read($self->{input});
  3359.   $self->{input}->readMessageEnd();
  3360.   if (defined $result->{success} ) {
  3361.     return $result->{success};
  3362.   }
  3363.   if (defined $result->{ouch}) {
  3364.     die $result->{ouch};
  3365.   }
  3366.   die "write failed: unknown result";
  3367. }
  3368. sub read{
  3369.   my $self = shift;
  3370.   my $handle = shift;
  3371.   my $offset = shift;
  3372.   my $size = shift;
  3373.     $self->send_read($handle, $offset, $size);
  3374.   return $self->recv_read();
  3375. }
  3376. sub send_read{
  3377.   my $self = shift;
  3378.   my $handle = shift;
  3379.   my $offset = shift;
  3380.   my $size = shift;
  3381.   $self->{output}->writeMessageBegin('read', TMessageType::CALL, $self->{seqid});
  3382.   my $args = new ThriftHadoopFileSystem_read_args();
  3383.   $args->{handle} = $handle;
  3384.   $args->{offset} = $offset;
  3385.   $args->{size} = $size;
  3386.   $args->write($self->{output});
  3387.   $self->{output}->writeMessageEnd();
  3388.   $self->{output}->getTransport()->flush();
  3389. }
  3390. sub recv_read{
  3391.   my $self = shift;
  3392.   my $rseqid = 0;
  3393.   my $fname;
  3394.   my $mtype = 0;
  3395.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3396.   if ($mtype == TMessageType::EXCEPTION) {
  3397.     my $x = new TApplicationException();
  3398.     $x->read($self->{input});
  3399.     $self->{input}->readMessageEnd();
  3400.     die $x;
  3401.   }
  3402.   my $result = new ThriftHadoopFileSystem_read_result();
  3403.   $result->read($self->{input});
  3404.   $self->{input}->readMessageEnd();
  3405.   if (defined $result->{success} ) {
  3406.     return $result->{success};
  3407.   }
  3408.   if (defined $result->{ouch}) {
  3409.     die $result->{ouch};
  3410.   }
  3411.   die "read failed: unknown result";
  3412. }
  3413. sub close{
  3414.   my $self = shift;
  3415.   my $out = shift;
  3416.     $self->send_close($out);
  3417.   return $self->recv_close();
  3418. }
  3419. sub send_close{
  3420.   my $self = shift;
  3421.   my $out = shift;
  3422.   $self->{output}->writeMessageBegin('close', TMessageType::CALL, $self->{seqid});
  3423.   my $args = new ThriftHadoopFileSystem_close_args();
  3424.   $args->{out} = $out;
  3425.   $args->write($self->{output});
  3426.   $self->{output}->writeMessageEnd();
  3427.   $self->{output}->getTransport()->flush();
  3428. }
  3429. sub recv_close{
  3430.   my $self = shift;
  3431.   my $rseqid = 0;
  3432.   my $fname;
  3433.   my $mtype = 0;
  3434.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3435.   if ($mtype == TMessageType::EXCEPTION) {
  3436.     my $x = new TApplicationException();
  3437.     $x->read($self->{input});
  3438.     $self->{input}->readMessageEnd();
  3439.     die $x;
  3440.   }
  3441.   my $result = new ThriftHadoopFileSystem_close_result();
  3442.   $result->read($self->{input});
  3443.   $self->{input}->readMessageEnd();
  3444.   if (defined $result->{success} ) {
  3445.     return $result->{success};
  3446.   }
  3447.   if (defined $result->{ouch}) {
  3448.     die $result->{ouch};
  3449.   }
  3450.   die "close failed: unknown result";
  3451. }
  3452. sub rm{
  3453.   my $self = shift;
  3454.   my $path = shift;
  3455.   my $recursive = shift;
  3456.     $self->send_rm($path, $recursive);
  3457.   return $self->recv_rm();
  3458. }
  3459. sub send_rm{
  3460.   my $self = shift;
  3461.   my $path = shift;
  3462.   my $recursive = shift;
  3463.   $self->{output}->writeMessageBegin('rm', TMessageType::CALL, $self->{seqid});
  3464.   my $args = new ThriftHadoopFileSystem_rm_args();
  3465.   $args->{path} = $path;
  3466.   $args->{recursive} = $recursive;
  3467.   $args->write($self->{output});
  3468.   $self->{output}->writeMessageEnd();
  3469.   $self->{output}->getTransport()->flush();
  3470. }
  3471. sub recv_rm{
  3472.   my $self = shift;
  3473.   my $rseqid = 0;
  3474.   my $fname;
  3475.   my $mtype = 0;
  3476.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3477.   if ($mtype == TMessageType::EXCEPTION) {
  3478.     my $x = new TApplicationException();
  3479.     $x->read($self->{input});
  3480.     $self->{input}->readMessageEnd();
  3481.     die $x;
  3482.   }
  3483.   my $result = new ThriftHadoopFileSystem_rm_result();
  3484.   $result->read($self->{input});
  3485.   $self->{input}->readMessageEnd();
  3486.   if (defined $result->{success} ) {
  3487.     return $result->{success};
  3488.   }
  3489.   if (defined $result->{ouch}) {
  3490.     die $result->{ouch};
  3491.   }
  3492.   die "rm failed: unknown result";
  3493. }
  3494. sub rename{
  3495.   my $self = shift;
  3496.   my $path = shift;
  3497.   my $dest = shift;
  3498.     $self->send_rename($path, $dest);
  3499.   return $self->recv_rename();
  3500. }
  3501. sub send_rename{
  3502.   my $self = shift;
  3503.   my $path = shift;
  3504.   my $dest = shift;
  3505.   $self->{output}->writeMessageBegin('rename', TMessageType::CALL, $self->{seqid});
  3506.   my $args = new ThriftHadoopFileSystem_rename_args();
  3507.   $args->{path} = $path;
  3508.   $args->{dest} = $dest;
  3509.   $args->write($self->{output});
  3510.   $self->{output}->writeMessageEnd();
  3511.   $self->{output}->getTransport()->flush();
  3512. }
  3513. sub recv_rename{
  3514.   my $self = shift;
  3515.   my $rseqid = 0;
  3516.   my $fname;
  3517.   my $mtype = 0;
  3518.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3519.   if ($mtype == TMessageType::EXCEPTION) {
  3520.     my $x = new TApplicationException();
  3521.     $x->read($self->{input});
  3522.     $self->{input}->readMessageEnd();
  3523.     die $x;
  3524.   }
  3525.   my $result = new ThriftHadoopFileSystem_rename_result();
  3526.   $result->read($self->{input});
  3527.   $self->{input}->readMessageEnd();
  3528.   if (defined $result->{success} ) {
  3529.     return $result->{success};
  3530.   }
  3531.   if (defined $result->{ouch}) {
  3532.     die $result->{ouch};
  3533.   }
  3534.   die "rename failed: unknown result";
  3535. }
  3536. sub mkdirs{
  3537.   my $self = shift;
  3538.   my $path = shift;
  3539.     $self->send_mkdirs($path);
  3540.   return $self->recv_mkdirs();
  3541. }
  3542. sub send_mkdirs{
  3543.   my $self = shift;
  3544.   my $path = shift;
  3545.   $self->{output}->writeMessageBegin('mkdirs', TMessageType::CALL, $self->{seqid});
  3546.   my $args = new ThriftHadoopFileSystem_mkdirs_args();
  3547.   $args->{path} = $path;
  3548.   $args->write($self->{output});
  3549.   $self->{output}->writeMessageEnd();
  3550.   $self->{output}->getTransport()->flush();
  3551. }
  3552. sub recv_mkdirs{
  3553.   my $self = shift;
  3554.   my $rseqid = 0;
  3555.   my $fname;
  3556.   my $mtype = 0;
  3557.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3558.   if ($mtype == TMessageType::EXCEPTION) {
  3559.     my $x = new TApplicationException();
  3560.     $x->read($self->{input});
  3561.     $self->{input}->readMessageEnd();
  3562.     die $x;
  3563.   }
  3564.   my $result = new ThriftHadoopFileSystem_mkdirs_result();
  3565.   $result->read($self->{input});
  3566.   $self->{input}->readMessageEnd();
  3567.   if (defined $result->{success} ) {
  3568.     return $result->{success};
  3569.   }
  3570.   if (defined $result->{ouch}) {
  3571.     die $result->{ouch};
  3572.   }
  3573.   die "mkdirs failed: unknown result";
  3574. }
  3575. sub exists{
  3576.   my $self = shift;
  3577.   my $path = shift;
  3578.     $self->send_exists($path);
  3579.   return $self->recv_exists();
  3580. }
  3581. sub send_exists{
  3582.   my $self = shift;
  3583.   my $path = shift;
  3584.   $self->{output}->writeMessageBegin('exists', TMessageType::CALL, $self->{seqid});
  3585.   my $args = new ThriftHadoopFileSystem_exists_args();
  3586.   $args->{path} = $path;
  3587.   $args->write($self->{output});
  3588.   $self->{output}->writeMessageEnd();
  3589.   $self->{output}->getTransport()->flush();
  3590. }
  3591. sub recv_exists{
  3592.   my $self = shift;
  3593.   my $rseqid = 0;
  3594.   my $fname;
  3595.   my $mtype = 0;
  3596.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3597.   if ($mtype == TMessageType::EXCEPTION) {
  3598.     my $x = new TApplicationException();
  3599.     $x->read($self->{input});
  3600.     $self->{input}->readMessageEnd();
  3601.     die $x;
  3602.   }
  3603.   my $result = new ThriftHadoopFileSystem_exists_result();
  3604.   $result->read($self->{input});
  3605.   $self->{input}->readMessageEnd();
  3606.   if (defined $result->{success} ) {
  3607.     return $result->{success};
  3608.   }
  3609.   if (defined $result->{ouch}) {
  3610.     die $result->{ouch};
  3611.   }
  3612.   die "exists failed: unknown result";
  3613. }
  3614. sub stat{
  3615.   my $self = shift;
  3616.   my $path = shift;
  3617.     $self->send_stat($path);
  3618.   return $self->recv_stat();
  3619. }
  3620. sub send_stat{
  3621.   my $self = shift;
  3622.   my $path = shift;
  3623.   $self->{output}->writeMessageBegin('stat', TMessageType::CALL, $self->{seqid});
  3624.   my $args = new ThriftHadoopFileSystem_stat_args();
  3625.   $args->{path} = $path;
  3626.   $args->write($self->{output});
  3627.   $self->{output}->writeMessageEnd();
  3628.   $self->{output}->getTransport()->flush();
  3629. }
  3630. sub recv_stat{
  3631.   my $self = shift;
  3632.   my $rseqid = 0;
  3633.   my $fname;
  3634.   my $mtype = 0;
  3635.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3636.   if ($mtype == TMessageType::EXCEPTION) {
  3637.     my $x = new TApplicationException();
  3638.     $x->read($self->{input});
  3639.     $self->{input}->readMessageEnd();
  3640.     die $x;
  3641.   }
  3642.   my $result = new ThriftHadoopFileSystem_stat_result();
  3643.   $result->read($self->{input});
  3644.   $self->{input}->readMessageEnd();
  3645.   if (defined $result->{success} ) {
  3646.     return $result->{success};
  3647.   }
  3648.   if (defined $result->{ouch}) {
  3649.     die $result->{ouch};
  3650.   }
  3651.   die "stat failed: unknown result";
  3652. }
  3653. sub listStatus{
  3654.   my $self = shift;
  3655.   my $path = shift;
  3656.     $self->send_listStatus($path);
  3657.   return $self->recv_listStatus();
  3658. }
  3659. sub send_listStatus{
  3660.   my $self = shift;
  3661.   my $path = shift;
  3662.   $self->{output}->writeMessageBegin('listStatus', TMessageType::CALL, $self->{seqid});
  3663.   my $args = new ThriftHadoopFileSystem_listStatus_args();
  3664.   $args->{path} = $path;
  3665.   $args->write($self->{output});
  3666.   $self->{output}->writeMessageEnd();
  3667.   $self->{output}->getTransport()->flush();
  3668. }
  3669. sub recv_listStatus{
  3670.   my $self = shift;
  3671.   my $rseqid = 0;
  3672.   my $fname;
  3673.   my $mtype = 0;
  3674.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3675.   if ($mtype == TMessageType::EXCEPTION) {
  3676.     my $x = new TApplicationException();
  3677.     $x->read($self->{input});
  3678.     $self->{input}->readMessageEnd();
  3679.     die $x;
  3680.   }
  3681.   my $result = new ThriftHadoopFileSystem_listStatus_result();
  3682.   $result->read($self->{input});
  3683.   $self->{input}->readMessageEnd();
  3684.   if (defined $result->{success} ) {
  3685.     return $result->{success};
  3686.   }
  3687.   if (defined $result->{ouch}) {
  3688.     die $result->{ouch};
  3689.   }
  3690.   die "listStatus failed: unknown result";
  3691. }
  3692. sub chmod{
  3693.   my $self = shift;
  3694.   my $path = shift;
  3695.   my $mode = shift;
  3696.     $self->send_chmod($path, $mode);
  3697.   $self->recv_chmod();
  3698. }
  3699. sub send_chmod{
  3700.   my $self = shift;
  3701.   my $path = shift;
  3702.   my $mode = shift;
  3703.   $self->{output}->writeMessageBegin('chmod', TMessageType::CALL, $self->{seqid});
  3704.   my $args = new ThriftHadoopFileSystem_chmod_args();
  3705.   $args->{path} = $path;
  3706.   $args->{mode} = $mode;
  3707.   $args->write($self->{output});
  3708.   $self->{output}->writeMessageEnd();
  3709.   $self->{output}->getTransport()->flush();
  3710. }
  3711. sub recv_chmod{
  3712.   my $self = shift;
  3713.   my $rseqid = 0;
  3714.   my $fname;
  3715.   my $mtype = 0;
  3716.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3717.   if ($mtype == TMessageType::EXCEPTION) {
  3718.     my $x = new TApplicationException();
  3719.     $x->read($self->{input});
  3720.     $self->{input}->readMessageEnd();
  3721.     die $x;
  3722.   }
  3723.   my $result = new ThriftHadoopFileSystem_chmod_result();
  3724.   $result->read($self->{input});
  3725.   $self->{input}->readMessageEnd();
  3726.   if (defined $result->{ouch}) {
  3727.     die $result->{ouch};
  3728.   }
  3729.   return;
  3730. }
  3731. sub chown{
  3732.   my $self = shift;
  3733.   my $path = shift;
  3734.   my $owner = shift;
  3735.   my $group = shift;
  3736.     $self->send_chown($path, $owner, $group);
  3737.   $self->recv_chown();
  3738. }
  3739. sub send_chown{
  3740.   my $self = shift;
  3741.   my $path = shift;
  3742.   my $owner = shift;
  3743.   my $group = shift;
  3744.   $self->{output}->writeMessageBegin('chown', TMessageType::CALL, $self->{seqid});
  3745.   my $args = new ThriftHadoopFileSystem_chown_args();
  3746.   $args->{path} = $path;
  3747.   $args->{owner} = $owner;
  3748.   $args->{group} = $group;
  3749.   $args->write($self->{output});
  3750.   $self->{output}->writeMessageEnd();
  3751.   $self->{output}->getTransport()->flush();
  3752. }
  3753. sub recv_chown{
  3754.   my $self = shift;
  3755.   my $rseqid = 0;
  3756.   my $fname;
  3757.   my $mtype = 0;
  3758.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3759.   if ($mtype == TMessageType::EXCEPTION) {
  3760.     my $x = new TApplicationException();
  3761.     $x->read($self->{input});
  3762.     $self->{input}->readMessageEnd();
  3763.     die $x;
  3764.   }
  3765.   my $result = new ThriftHadoopFileSystem_chown_result();
  3766.   $result->read($self->{input});
  3767.   $self->{input}->readMessageEnd();
  3768.   if (defined $result->{ouch}) {
  3769.     die $result->{ouch};
  3770.   }
  3771.   return;
  3772. }
  3773. sub setReplication{
  3774.   my $self = shift;
  3775.   my $path = shift;
  3776.   my $replication = shift;
  3777.     $self->send_setReplication($path, $replication);
  3778.   $self->recv_setReplication();
  3779. }
  3780. sub send_setReplication{
  3781.   my $self = shift;
  3782.   my $path = shift;
  3783.   my $replication = shift;
  3784.   $self->{output}->writeMessageBegin('setReplication', TMessageType::CALL, $self->{seqid});
  3785.   my $args = new ThriftHadoopFileSystem_setReplication_args();
  3786.   $args->{path} = $path;
  3787.   $args->{replication} = $replication;
  3788.   $args->write($self->{output});
  3789.   $self->{output}->writeMessageEnd();
  3790.   $self->{output}->getTransport()->flush();
  3791. }
  3792. sub recv_setReplication{
  3793.   my $self = shift;
  3794.   my $rseqid = 0;
  3795.   my $fname;
  3796.   my $mtype = 0;
  3797.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3798.   if ($mtype == TMessageType::EXCEPTION) {
  3799.     my $x = new TApplicationException();
  3800.     $x->read($self->{input});
  3801.     $self->{input}->readMessageEnd();
  3802.     die $x;
  3803.   }
  3804.   my $result = new ThriftHadoopFileSystem_setReplication_result();
  3805.   $result->read($self->{input});
  3806.   $self->{input}->readMessageEnd();
  3807.   if (defined $result->{ouch}) {
  3808.     die $result->{ouch};
  3809.   }
  3810.   return;
  3811. }
  3812. sub getFileBlockLocations{
  3813.   my $self = shift;
  3814.   my $path = shift;
  3815.   my $start = shift;
  3816.   my $length = shift;
  3817.     $self->send_getFileBlockLocations($path, $start, $length);
  3818.   return $self->recv_getFileBlockLocations();
  3819. }
  3820. sub send_getFileBlockLocations{
  3821.   my $self = shift;
  3822.   my $path = shift;
  3823.   my $start = shift;
  3824.   my $length = shift;
  3825.   $self->{output}->writeMessageBegin('getFileBlockLocations', TMessageType::CALL, $self->{seqid});
  3826.   my $args = new ThriftHadoopFileSystem_getFileBlockLocations_args();
  3827.   $args->{path} = $path;
  3828.   $args->{start} = $start;
  3829.   $args->{length} = $length;
  3830.   $args->write($self->{output});
  3831.   $self->{output}->writeMessageEnd();
  3832.   $self->{output}->getTransport()->flush();
  3833. }
  3834. sub recv_getFileBlockLocations{
  3835.   my $self = shift;
  3836.   my $rseqid = 0;
  3837.   my $fname;
  3838.   my $mtype = 0;
  3839.   $self->{input}->readMessageBegin($fname, $mtype, $rseqid);
  3840.   if ($mtype == TMessageType::EXCEPTION) {
  3841.     my $x = new TApplicationException();
  3842.     $x->read($self->{input});
  3843.     $self->{input}->readMessageEnd();
  3844.     die $x;
  3845.   }
  3846.   my $result = new ThriftHadoopFileSystem_getFileBlockLocations_result();
  3847.   $result->read($self->{input});
  3848.   $self->{input}->readMessageEnd();
  3849.   if (defined $result->{success} ) {
  3850.     return $result->{success};
  3851.   }
  3852.   if (defined $result->{ouch}) {
  3853.     die $result->{ouch};
  3854.   }
  3855.   die "getFileBlockLocations failed: unknown result";
  3856. }
  3857. package ThriftHadoopFileSystemProcessor;
  3858. sub new {
  3859.     my $classname = shift;
  3860.     my $handler   = shift;
  3861.     my $self      = {};
  3862.     $self->{handler} = $handler;
  3863.     return bless($self,$classname);
  3864. }
  3865. sub process {
  3866.     my $self   = shift;
  3867.     my $input  = shift;
  3868.     my $output = shift;
  3869.     my $rseqid = 0;
  3870.     my $fname  = undef;
  3871.     my $mtype  = 0;
  3872.     $input->readMessageBegin($fname, $mtype, $rseqid);
  3873.     my $methodname = 'process_'.$fname;
  3874.     if (!method_exists($self, $methodname)) {
  3875.       $input->skip(TType::STRUCT);
  3876.       $input->readMessageEnd();
  3877.       my $x = new TApplicationException('Function '.$fname.' not implemented.', TApplicationException::UNKNOWN_METHOD);
  3878.       $output->writeMessageBegin($fname, TMessageType::EXCEPTION, $rseqid);
  3879.       $x->write($output);
  3880.       $output->writeMessageEnd();
  3881.       $output->getTransport()->flush();
  3882.       return;
  3883.     }
  3884.     $self->$methodname($rseqid, $input, $output);
  3885.     return 1;
  3886.   }
  3887. sub process_setInactivityTimeoutPeriod{
  3888.     my $self = shift;
  3889.     my ($seqid, $input, $output); 
  3890.     my $args = new ThriftHadoopFileSystem_setInactivityTimeoutPeriod_args();
  3891.     $args->read($input);
  3892.     $input->readMessageEnd();
  3893.     my $result = new ThriftHadoopFileSystem_setInactivityTimeoutPeriod_result();
  3894.     $self->{handler}->setInactivityTimeoutPeriod($args->periodInSeconds);
  3895.       $output->writeMessageBegin('setInactivityTimeoutPeriod', TMessageType::REPLY, $seqid);
  3896.       $result->write($output);
  3897.       $output->getTransport()->flush();
  3898.   }
  3899. sub process_shutdown{
  3900.     my $self = shift;
  3901.     my ($seqid, $input, $output); 
  3902.     my $args = new ThriftHadoopFileSystem_shutdown_args();
  3903.     $args->read($input);
  3904.     $input->readMessageEnd();
  3905.     my $result = new ThriftHadoopFileSystem_shutdown_result();
  3906.     $self->{handler}->shutdown($args->status);
  3907.       $output->writeMessageBegin('shutdown', TMessageType::REPLY, $seqid);
  3908.       $result->write($output);
  3909.       $output->getTransport()->flush();
  3910.   }
  3911. sub process_create{
  3912.     my $self = shift;
  3913.     my ($seqid, $input, $output); 
  3914.     my $args = new ThriftHadoopFileSystem_create_args();
  3915.     $args->read($input);
  3916.     $input->readMessageEnd();
  3917.     my $result = new ThriftHadoopFileSystem_create_result();
  3918.     eval {
  3919.       $result->{success} = $self->{handler}->create($args->path);
  3920.     }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  3921.       $result->{ouch} = $@;
  3922.     }
  3923.     $output->writeMessageBegin('create', TMessageType::REPLY, $seqid);
  3924.     $result->write($output);
  3925.     $output->getTransport()->flush();
  3926. }
  3927. sub process_createFile{
  3928.   my $self = shift;
  3929.   my ($seqid, $input, $output); 
  3930.   my $args = new ThriftHadoopFileSystem_createFile_args();
  3931.   $args->read($input);
  3932.   $input->readMessageEnd();
  3933.   my $result = new ThriftHadoopFileSystem_createFile_result();
  3934.   eval {
  3935.     $result->{success} = $self->{handler}->createFile($args->path, $args->mode, $args->overwrite, $args->bufferSize, $args->block_replication, $args->blocksize);
  3936.   }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  3937.     $result->{ouch} = $@;
  3938.   }
  3939.   $output->writeMessageBegin('createFile', TMessageType::REPLY, $seqid);
  3940.   $result->write($output);
  3941.   $output->getTransport()->flush();
  3942. }
  3943. sub process_open{
  3944. my $self = shift;
  3945. my ($seqid, $input, $output); 
  3946. my $args = new ThriftHadoopFileSystem_open_args();
  3947. $args->read($input);
  3948. $input->readMessageEnd();
  3949. my $result = new ThriftHadoopFileSystem_open_result();
  3950. eval {
  3951.   $result->{success} = $self->{handler}->open($args->path);
  3952. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  3953.   $result->{ouch} = $@;
  3954. }
  3955. $output->writeMessageBegin('open', TMessageType::REPLY, $seqid);
  3956. $result->write($output);
  3957. $output->getTransport()->flush();
  3958. }
  3959. sub process_append{
  3960. my $self = shift;
  3961. my ($seqid, $input, $output); 
  3962. my $args = new ThriftHadoopFileSystem_append_args();
  3963. $args->read($input);
  3964. $input->readMessageEnd();
  3965. my $result = new ThriftHadoopFileSystem_append_result();
  3966. eval {
  3967. $result->{success} = $self->{handler}->append($args->path);
  3968. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  3969. $result->{ouch} = $@;
  3970. }
  3971. $output->writeMessageBegin('append', TMessageType::REPLY, $seqid);
  3972. $result->write($output);
  3973. $output->getTransport()->flush();
  3974. }
  3975. sub process_write{
  3976. my $self = shift;
  3977. my ($seqid, $input, $output); 
  3978. my $args = new ThriftHadoopFileSystem_write_args();
  3979. $args->read($input);
  3980. $input->readMessageEnd();
  3981. my $result = new ThriftHadoopFileSystem_write_result();
  3982. eval {
  3983. $result->{success} = $self->{handler}->write($args->handle, $args->data);
  3984. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  3985. $result->{ouch} = $@;
  3986. }
  3987. $output->writeMessageBegin('write', TMessageType::REPLY, $seqid);
  3988. $result->write($output);
  3989. $output->getTransport()->flush();
  3990. }
  3991. sub process_read{
  3992. my $self = shift;
  3993. my ($seqid, $input, $output); 
  3994. my $args = new ThriftHadoopFileSystem_read_args();
  3995. $args->read($input);
  3996. $input->readMessageEnd();
  3997. my $result = new ThriftHadoopFileSystem_read_result();
  3998. eval {
  3999. $result->{success} = $self->{handler}->read($args->handle, $args->offset, $args->size);
  4000. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4001. $result->{ouch} = $@;
  4002. }
  4003. $output->writeMessageBegin('read', TMessageType::REPLY, $seqid);
  4004. $result->write($output);
  4005. $output->getTransport()->flush();
  4006. }
  4007. sub process_close{
  4008. my $self = shift;
  4009. my ($seqid, $input, $output); 
  4010. my $args = new ThriftHadoopFileSystem_close_args();
  4011. $args->read($input);
  4012. $input->readMessageEnd();
  4013. my $result = new ThriftHadoopFileSystem_close_result();
  4014. eval {
  4015. $result->{success} = $self->{handler}->close($args->out);
  4016. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4017. $result->{ouch} = $@;
  4018. }
  4019. $output->writeMessageBegin('close', TMessageType::REPLY, $seqid);
  4020. $result->write($output);
  4021. $output->getTransport()->flush();
  4022. }
  4023. sub process_rm{
  4024. my $self = shift;
  4025. my ($seqid, $input, $output); 
  4026. my $args = new ThriftHadoopFileSystem_rm_args();
  4027. $args->read($input);
  4028. $input->readMessageEnd();
  4029. my $result = new ThriftHadoopFileSystem_rm_result();
  4030. eval {
  4031. $result->{success} = $self->{handler}->rm($args->path, $args->recursive);
  4032. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4033. $result->{ouch} = $@;
  4034. }
  4035. $output->writeMessageBegin('rm', TMessageType::REPLY, $seqid);
  4036. $result->write($output);
  4037. $output->getTransport()->flush();
  4038. }
  4039. sub process_rename{
  4040. my $self = shift;
  4041. my ($seqid, $input, $output); 
  4042. my $args = new ThriftHadoopFileSystem_rename_args();
  4043. $args->read($input);
  4044. $input->readMessageEnd();
  4045. my $result = new ThriftHadoopFileSystem_rename_result();
  4046. eval {
  4047. $result->{success} = $self->{handler}->rename($args->path, $args->dest);
  4048. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4049. $result->{ouch} = $@;
  4050. }
  4051. $output->writeMessageBegin('rename', TMessageType::REPLY, $seqid);
  4052. $result->write($output);
  4053. $output->getTransport()->flush();
  4054. }
  4055. sub process_mkdirs{
  4056. my $self = shift;
  4057. my ($seqid, $input, $output); 
  4058. my $args = new ThriftHadoopFileSystem_mkdirs_args();
  4059. $args->read($input);
  4060. $input->readMessageEnd();
  4061. my $result = new ThriftHadoopFileSystem_mkdirs_result();
  4062. eval {
  4063. $result->{success} = $self->{handler}->mkdirs($args->path);
  4064. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4065. $result->{ouch} = $@;
  4066. }
  4067. $output->writeMessageBegin('mkdirs', TMessageType::REPLY, $seqid);
  4068. $result->write($output);
  4069. $output->getTransport()->flush();
  4070. }
  4071. sub process_exists{
  4072. my $self = shift;
  4073. my ($seqid, $input, $output); 
  4074. my $args = new ThriftHadoopFileSystem_exists_args();
  4075. $args->read($input);
  4076. $input->readMessageEnd();
  4077. my $result = new ThriftHadoopFileSystem_exists_result();
  4078. eval {
  4079. $result->{success} = $self->{handler}->exists($args->path);
  4080. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4081. $result->{ouch} = $@;
  4082. }
  4083. $output->writeMessageBegin('exists', TMessageType::REPLY, $seqid);
  4084. $result->write($output);
  4085. $output->getTransport()->flush();
  4086. }
  4087. sub process_stat{
  4088. my $self = shift;
  4089. my ($seqid, $input, $output); 
  4090. my $args = new ThriftHadoopFileSystem_stat_args();
  4091. $args->read($input);
  4092. $input->readMessageEnd();
  4093. my $result = new ThriftHadoopFileSystem_stat_result();
  4094. eval {
  4095. $result->{success} = $self->{handler}->stat($args->path);
  4096. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4097. $result->{ouch} = $@;
  4098. }
  4099. $output->writeMessageBegin('stat', TMessageType::REPLY, $seqid);
  4100. $result->write($output);
  4101. $output->getTransport()->flush();
  4102. }
  4103. sub process_listStatus{
  4104. my $self = shift;
  4105. my ($seqid, $input, $output); 
  4106. my $args = new ThriftHadoopFileSystem_listStatus_args();
  4107. $args->read($input);
  4108. $input->readMessageEnd();
  4109. my $result = new ThriftHadoopFileSystem_listStatus_result();
  4110. eval {
  4111. $result->{success} = $self->{handler}->listStatus($args->path);
  4112. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4113. $result->{ouch} = $@;
  4114. }
  4115. $output->writeMessageBegin('listStatus', TMessageType::REPLY, $seqid);
  4116. $result->write($output);
  4117. $output->getTransport()->flush();
  4118. }
  4119. sub process_chmod{
  4120. my $self = shift;
  4121. my ($seqid, $input, $output); 
  4122. my $args = new ThriftHadoopFileSystem_chmod_args();
  4123. $args->read($input);
  4124. $input->readMessageEnd();
  4125. my $result = new ThriftHadoopFileSystem_chmod_result();
  4126. eval {
  4127. $self->{handler}->chmod($args->path, $args->mode);
  4128. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4129. $result->{ouch} = $@;
  4130. }
  4131. $output->writeMessageBegin('chmod', TMessageType::REPLY, $seqid);
  4132. $result->write($output);
  4133. $output->getTransport()->flush();
  4134. }
  4135. sub process_chown{
  4136. my $self = shift;
  4137. my ($seqid, $input, $output); 
  4138. my $args = new ThriftHadoopFileSystem_chown_args();
  4139. $args->read($input);
  4140. $input->readMessageEnd();
  4141. my $result = new ThriftHadoopFileSystem_chown_result();
  4142. eval {
  4143. $self->{handler}->chown($args->path, $args->owner, $args->group);
  4144. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4145. $result->{ouch} = $@;
  4146. }
  4147. $output->writeMessageBegin('chown', TMessageType::REPLY, $seqid);
  4148. $result->write($output);
  4149. $output->getTransport()->flush();
  4150. }
  4151. sub process_setReplication{
  4152. my $self = shift;
  4153. my ($seqid, $input, $output); 
  4154. my $args = new ThriftHadoopFileSystem_setReplication_args();
  4155. $args->read($input);
  4156. $input->readMessageEnd();
  4157. my $result = new ThriftHadoopFileSystem_setReplication_result();
  4158. eval {
  4159. $self->{handler}->setReplication($args->path, $args->replication);
  4160. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4161. $result->{ouch} = $@;
  4162. }
  4163. $output->writeMessageBegin('setReplication', TMessageType::REPLY, $seqid);
  4164. $result->write($output);
  4165. $output->getTransport()->flush();
  4166. }
  4167. sub process_getFileBlockLocations{
  4168. my $self = shift;
  4169. my ($seqid, $input, $output); 
  4170. my $args = new ThriftHadoopFileSystem_getFileBlockLocations_args();
  4171. $args->read($input);
  4172. $input->readMessageEnd();
  4173. my $result = new ThriftHadoopFileSystem_getFileBlockLocations_result();
  4174. eval {
  4175. $result->{success} = $self->{handler}->getFileBlockLocations($args->path, $args->start, $args->length);
  4176. }; if( UNIVERSAL::isa($@,'ThriftIOException') ){ 
  4177. $result->{ouch} = $@;
  4178. }
  4179. $output->writeMessageBegin('getFileBlockLocations', TMessageType::REPLY, $seqid);
  4180. $result->write($output);
  4181. $output->getTransport()->flush();
  4182. }
  4183. 1;