#!/usr/bin/perl
use strict; use warnings; # Copyright 2011-2013, 2017, Michael Allan.  Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Votorola Software"), to deal in the Votorola Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicence, and/or sell copies of the Votorola Software, and to permit persons to whom the Votorola Software is furnished to do so, subject to the following conditions: The preceding copyright notice and this permission notice shall be included in all copies or substantial portions of the Votorola Software. THE VOTOROLA SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE VOTOROLA SOFTWARE OR THE USE OR OTHER DEALINGS IN THE VOTOROLA SOFTWARE.

=pod

=head1 NAME

gwt-devmode - serve one or more GWT modules in standard (now obsolete) development mode

=head1 SYNOPSIS

votorola/b/build x [xgwt [--module=I<module> | --module='I<module> I<module>...']]

votorola/b/gwt-devmode [--module=I<module> | --module='I<module> I<module>...'] [--verbose] &

http://HOST/PATH?gwt.codesvr=HOST:9997

votorola/b/gwt-devmode --help | --man

=cut

    sub _shift_options();
      #
      # Shifts command line options into %votorola::b::Build::option.
      #


{
    use votorola::b::GWT qw( devmode );

    _shift_options;
    devmode();
}


=pod

=head1 OPTIONS

=cut

sub _shift_options()
{
    use Getopt::Long ();
    use Pod::Usage qw( pod2usage );
    use votorola::b::Build qw( %option );
    use votorola::b::Console qw( $verbosity );

    my @specification;
    push @specification, 'help|?';

=pod

=over 8

=item --B<help>

Outputs a brief help message and exits.

=cut

    push @specification, 'man';

=pod

=item --B<man>

Outputs the full manual page and exits.

=cut

    push @specification, 'module:s';

=pod

=item --B<module>

The name of the GWT module to serve.  Ordinarily this is one of the entry modules votorola.s.*In in
a/web/context/ and votorola::b::GWT::compile.  The default value is votorola.s.gwt.pollwiki.PollwikiIn,
which appears to suffice for running almost any stage module.  For example:

   gwt-devmode &

To run the old "scenes" module, however, you might have to name it explicitly:

   votorola/b/gwt-devmode --module=votorola.s.gwt.scene.SceneIn &

To serve a bundled Google module in devmode, first ensure that its source code is prepended to
votorola::b::GWT::_classpath, then name the module as usual.  For example, for the GWT User module:

   votorola/b/gwt-devmode --module='votorola.s.gwt.pollwiki.PollwikiIn com.google.gwt.user.User' &

=cut

    push @specification, 'verbose';

=pod

=item --B<verbose>

Increases the level of console output.

=cut

    Getopt::Long::GetOptions( \%option, @specification ) or pod2usage( -verbose => 0 ); # and exits

    defined $option{'help'} and pod2usage( -verbose => 1 ); # and exits
    defined $option{'man'} and pod2usage( -verbose => 2 ); # and exits

    defined $option{'verbose'} and $verbosity = 1;
}

=pod

=back

=head1 SEE ALSO

votorola/b/gwt-codeserver - the replacement for standard devmode.

=cut