Changeset 189 for trunk


Ignore:
Timestamp:
Nov 10, 2004, 9:53:48 AM (20 years ago)
Author:
joergs
Message:

added help

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dasscm/dasscm

    r188 r189  
    1313#use POSIX qw/getpgrp tcgetpgrp/;
    1414
     15#####################################################################
     16#
    1517# global
     18#
    1619my $SVN = "svn ";
    1720
     21#####################################################################
     22#
    1823# util functions
     24#
    1925sub usage()
    2026{
    21         print "dasscm is intended to help versioning configuration files\n";
     27        print "dasscm is intended to help versioning configuration files\n\n";
     28       
     29        print "usage: dasscm <subcommand> [options] [args]\n\n";
     30        print "Available subcommands:\n";
     31        print "   add <filename>\n";
     32        print "   commit <filename>\n";
     33        print "   diff <filename>\n";
     34        print "   help <subcommand>\n";
    2235}
    2336
     
    91104
    92105
    93 
     106#####################################################################
     107#
    94108# functions
    95109
    96110sub help(;@)
    97111{
    98         print "help for @_\n";
     112        if( @_ == 0 ) {
     113                usage();
     114        } else {
     115                print "help for @_: ...\n";
     116        }
    99117}
    100118
     
    173191}
    174192
     193#####################################################################
     194#
    175195# main
     196#
    176197
    177198my $number_arguments = @ARGV;
Note: See TracChangeset for help on using the changeset viewer.