source:
branches/UKMO/2015_V36_STABLE_CO6_CO5_zenv_pomsdwl/NEMOGCM/EXTERNAL/fcm/bin/fcm
@
5650
Last change on this file since 5650 was 5650, checked in by deazer, 9 years ago | |
---|---|
File size: 1.6 KB |
Rev | Line | |
---|---|---|
[1980] | 1 | #!/usr/bin/env perl |
2 | #------------------------------------------------------------------------------- | |
3 | # (C) Crown copyright Met Office. All rights reserved. | |
4 | # For further details please refer to the file COPYRIGHT.txt | |
5 | # which you should have received as part of this distribution. | |
6 | #------------------------------------------------------------------------------- | |
7 | use strict; | |
8 | use warnings; | |
9 | ||
10 | use FindBin; | |
11 | use lib "$FindBin::Bin/../lib"; | |
12 | use Fcm::CLI; | |
13 | use Fcm::Interactive; | |
14 | ||
15 | if (!caller()) { | |
16 | main(@ARGV); | |
17 | } | |
18 | ||
19 | sub main { | |
20 | local(@ARGV) = @_; | |
21 | if (@ARGV && $ARGV[0] eq 'gui-internal') { | |
22 | shift(@ARGV); | |
23 | Fcm::Interactive::set_impl( | |
24 | 'Fcm::Interactive::InputGetter::GUI', | |
25 | {geometry => shift(@ARGV)}, | |
26 | ); | |
27 | } | |
28 | Fcm::CLI::invoke(); | |
29 | } | |
30 | ||
31 | __END__ | |
32 | ||
33 | =head1 NAME | |
34 | ||
35 | fcm | |
36 | ||
37 | =head1 SYNOPSIS | |
38 | ||
39 | fcm SUBCOMMAND [OPTIONS] [ARGUMENTS] | |
40 | ||
41 | =head1 OVERVIEW | |
42 | ||
43 | B<fcm> is the command line client for code management commands, the extract | |
44 | system and the build system of the Flexible Configuration Management (FCM) | |
45 | system. For full detail of the system, please refer to the FCM user guide, | |
46 | which you should receive with this distribution in both HTML and PDF formats. | |
47 | ||
48 | Run "fcm help" to access the built-in tool documentation. | |
49 | ||
50 | =head1 AUTHOR | |
51 | ||
52 | FCM Team L<fcm-team@metoffice.gov.uk>. | |
53 | Please feedback any bug reports or feature requests to us by e-mail. | |
54 | ||
55 | =head1 SEE ALSO | |
56 | ||
57 | L<svn (1)|svn>, | |
58 | L<perl (1)| perl>, | |
59 | L<Fcm::CLI|Fcm::CLI> | |
60 | ||
61 | =head1 COPYRIGHT | |
62 | ||
63 | You can use this release of B<FCM> freely under the terms of the FCM LICENSE, | |
64 | which you should receive with this distribution. | |
65 | ||
66 | =cut |
Note: See TracBrowser
for help on using the repository browser.