Changeset 411 for trunk


Ignore:
Timestamp:
Sep 5, 2019, 11:07:43 PM (5 years ago)
Author:
g7moreau
Message:
  • Better help command (completion) and add completion on --dataset option
Location:
trunk/project-meta
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/project-meta/project-meta

    r410 r411  
    88use strict;
    99use warnings;
    10 use version; our $VERSION = version->declare('0.2.1');
     10use version; our $VERSION = version->declare('0.2.2');
    1111
    1212use File::Copy qw(copy);   
    … …  
    5656################################################################
    5757
     58#---------------------------------------------------------------
     59
     60sub get_cmd_name {
     61   my ($pkg, $sub) = split /::/, (caller(1))[3];
     62   $sub =~ s/^cmd_//;
     63   $sub =~ s/_/-/g;
     64   return $sub;
     65   }
     66
     67#---------------------------------------------------------------
     68
    5869sub print_ok {
    5970   my ($key, $test) = @_;
    … …  
    6273   }
    6374
    64 ################################################################
     75#---------------------------------------------------------------
    6576
    6677sub addfolder2list {
    … …  
    7586   }
    7687
    77 ################################################################
     88#---------------------------------------------------------------
    7889
    7990sub upgrade_version_1_to_2 {
    … …  
    103114   }
    104115
    105 ################################################################
     116#---------------------------------------------------------------
    106117
    107118sub load_metadata {
    … …  
    127138
    128139sub cmd_help {
    129    print <<'END';
     140   my ($cmd) = @_;
     141
     142   my $help = <<'END';
    130143project-meta - opendata project metafile manager
    131144
    … …  
    145158 project-meta upgrade
    146159END
    147    }
    148 
    149 ################################################################
     160
     161   if (defined $cmd) {
     162      #$help =~ s/$/ /mg;
     163      print join("\n", grep(/^\suser-kont\s$cmd(\s|$)/, split/\n/, $help)) . "\n";
     164      }
     165   else {
     166      print $help;
     167      }
     168   return;
     169   }
     170
     171#---------------------------------------------------------------
    150172
    151173sub cmd_version {
    … …  
    153175   }
    154176
    155 ################################################################
     177#---------------------------------------------------------------
    156178
    157179sub cmd_upgrade {
    … …  
    172194   }
    173195
    174 ################################################################
     196#---------------------------------------------------------------
    175197
    176198sub cmd_check {
    … …  
    188210   }
    189211
    190 ################################################################
     212#---------------------------------------------------------------
    191213
    192214sub cmd_dap_publish {
    … …  
    233255   }
    234256
    235 ################################################################
     257#---------------------------------------------------------------
    236258
    237259sub cmd_dap_unpublish {
    … …  
    248270   }
    249271
    250 ################################################################
     272#---------------------------------------------------------------
    251273
    252274sub cmd_dataset_list {
    … …  
    268290   }
    269291
    270 ################################################################
     292#---------------------------------------------------------------
    271293
    272294sub cmd_dataset_size {
    … …  
    300322   }
    301323
    302 ################################################################
     324#---------------------------------------------------------------
    303325
    304326sub cmd_make_zip {
    … …  
    364386   }
    365387
    366 ################################################################
     388#---------------------------------------------------------------
    367389
    368390sub cmd_make_allfiles {
    … …  
    372394   }
    373395
    374 ################################################################
     396#---------------------------------------------------------------
    375397
    376398sub cmd_make_file_author {
    … …  
    413435   }
    414436
    415 ################################################################
     437#---------------------------------------------------------------
    416438
    417439sub cmd_make_file_license {
    … …  
    439461   }
    440462
    441 ################################################################
     463#---------------------------------------------------------------
    442464
    443465sub cmd_make_file_copyright {
    … …  
    492514   }
    493515
    494 ################################################################
     516#---------------------------------------------------------------
    495517
    496518sub cmd_list_license {

  • trunk/project-meta/project-meta.bash_completion

    r185 r411  
    99   prev="${COMP_WORDS[COMP_CWORD-1]}"
    1010
     11   case $prev in
     12      -d|--dataset)
     13         local showlist=$(project-meta dataset-list|awk '{print $1}')
     14         COMPREPLY=($(compgen -W "${showlist}" -- "$cur"))
     15         return 0
     16         ;;
     17
     18      help)
     19         local showlist=$(project-meta help|grep '^ project-meta'|awk '{print $2}')
     20         COMPREPLY=($(compgen -W "${showlist}" -- "$cur"))
     21         return 0
     22         ;;
     23   esac
     24
    1125   if [[ "$cur" == '-*' || $COMP_CWORD -gt 1 ]]
    1226   then
Note: See TracChangeset for help on using the changeset viewer.