[BACK]Return to cull_options CVS log [TXT] [DIR] Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / rsync / packaging

Diff for /embedaddon/rsync/packaging/cull_options between versions 1.1.1.2 and 1.1.1.3

version 1.1.1.2, 2016/11/01 09:54:32 version 1.1.1.3, 2021/03/17 00:32:36
Line 1 Line 1
#!/usr/bin/perl#!/usr/bin/env perl
 # This script outputs some perl code that parses all possible options  # This script outputs some perl code that parses all possible options
 # that the code in options.c might send to the server.  This perl code  # that the code in options.c might send to the server.  This perl code
 # is included in the rrsync script.  # is included in the rrsync script.
 use strict;  use strict;
   
 our %short_no_arg;  our %short_no_arg;
our %short_with_num;our %short_with_num = ( '@' => 1 );
 our %long_opt = ( # These include some extra long-args that BackupPC uses:  our %long_opt = ( # These include some extra long-args that BackupPC uses:
     'block-size' => 1,      'block-size' => 1,
     'daemon' => -1,      'daemon' => -1,
Line 23  our %long_opt = ( # These include some extra long-args Line 23  our %long_opt = ( # These include some extra long-args
     'perms' => 0,      'perms' => 0,
     'recursive' => 0,      'recursive' => 0,
     'times' => 0,      'times' => 0,
       'write-devices' => -1,
 );  );
 our $last_long_opt;  our $last_long_opt;
   
Line 39  while (<IN>) { Line 40  while (<IN>) {
         $last_long_opt = $1;          $last_long_opt = $1;
         $long_opt{$1} = 0 unless exists $long_opt{$1};          $long_opt{$1} = 0 unless exists $long_opt{$1};
     } elsif (defined($last_long_opt)      } elsif (defined($last_long_opt)
        && /\Qargs[ac++]\E = ([^["\s]+);/ && $1 ne 'dest_option') {        && /\Qargs[ac++]\E = ([^["\s]+);/) {
         $long_opt{$last_long_opt} = 2;          $long_opt{$last_long_opt} = 2;
         undef $last_long_opt;          undef $last_long_opt;
    } elsif (/dest_option = "--([^"]+)"/) {    } elsif (/return "--([^"]+-dest)";/) {
         $long_opt{$1} = 2;          $long_opt{$1} = 2;
         undef $last_long_opt;          undef $last_long_opt;
    } elsif (/\Qasprintf(\E[^,]+, "--([^"=]+)=/ || /\Qargs[ac++]\E = "--([^"=]+)=/) {    } elsif (/\Qasprintf(\E[^,]+, "--([^"=]+)=/ || /\Qargs[ac++]\E = "--([^"=]+)=/ || /fmt = .*: "--([^"=]+)=/) {
         $long_opt{$1} = 1;          $long_opt{$1} = 1;
         undef $last_long_opt;          undef $last_long_opt;
     }      }
Line 76  foreach my $opt (sort keys %long_opt) { Line 77  foreach my $opt (sort keys %long_opt) {
     my $val = $long_opt{$opt};      my $val = $long_opt{$opt};
     $val = 1 if $opt =~ /^(max-|min-)/;      $val = 1 if $opt =~ /^(max-|min-)/;
     $val = 3 if $opt eq 'files-from';      $val = 3 if $opt eq 'files-from';
    $val = '$ro ? -1 : ' . $val if $opt =~ /^remove-/;    $val = q"$only eq 'r' ? -1 : " . $val if $opt =~ /^(remove-|log-file)/;
     $val = q"$only eq 'w' ? -1 : " . $val if $opt eq 'sender';
     print "  '$opt' => $val,\n";      print "  '$opt' => $val,\n";
 }  }
   
Removed from v.1.1.1.2  
changed lines
  Added in v.1.1.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>