#!perl

use strict;
use warnings;

use SPVM::Global;
use SPVM::Builder::Util;
use SPVM::Builder::DependencyAnalyzer;

SPVM::Builder::Util::getopt
  # spvm,spvmcc,spvmdeps common
  'h|help'          => \my $help,
  'v|version'       => \my $show_version,
  'I=s' => \my @spvm_include_dirs,
  'Mblib'            => \my $blib,
  
  # spvmdeps only
  'json' => \my $json_option_on,
  'cpanm' => \my $cpanm_option_on,
  'cpanfile' => \my $cpanfile_option_on,
  'with-version' => \my $with_version_option_on,
  'exclude=s' => \my @excluded_class_names,
  'resource-info' => \my $show_resource_info,
;

if ($help) {
  print SPVM::Builder::Util::extract_usage;
  exit 0;
}
elsif ($show_version) {
  my $version_string = "spvmdeps v$SPVM::VERSION";
  print "$version_string\n";
  exit 0;
}

my $script_name = shift;

unless (defined $script_name) {
  die "[spvmdeps command]spvmdeps command needs SCRIPT_NAME."
}

my $source = "";
eval { $source = SPVM::Builder::Util::slurp_binary($script_name); };

SPVM::Builder::Util::setup_spvm_command_environment($script_name, $source, $blib, \@spvm_include_dirs, undef, undef, undef, undef);

my $dependency_analyzer = SPVM::Builder::DependencyAnalyzer->new(
  script_name => $script_name,
  with_version => $with_version_option_on,
  excluded_class_names => \@excluded_class_names,
);

if ($show_resource_info) {
  
  my $resource_info = $dependency_analyzer->dump_resource_info;
  
  print $resource_info;
}
elsif ($cpanm_option_on) {
  
  my $cpanm_commands = $dependency_analyzer->to_cpanm_commands;
  
  my $cpanm_commands_lines = SPVM::Builder::DependencyAnalyzer->to_lines($cpanm_commands);
  
  print $cpanm_commands_lines;
}
elsif ($cpanfile_option_on) {
  
  my $cpanfile_commands = $dependency_analyzer->to_cpanfile_commands;
  
  my $cpanfile_commands_lines = SPVM::Builder::DependencyAnalyzer->to_lines($cpanfile_commands);
  
  print $cpanfile_commands_lines;
}
elsif ($json_option_on) {
  my $json = $dependency_analyzer->to_json;
  
  print $json;
}
else {
  my $class_names = $dependency_analyzer->to_class_names;
  
  my $class_names_lines = SPVM::Builder::DependencyAnalyzer->to_lines($class_names);
  
  print $class_names_lines;
}

=encoding utf8

=head1 Name

spvmdeps - Class Dependencies Analyzer

=head1 Description

C<spvmdeps> command is a class dependencies analyzer.

=head1 Usage

  Usage: spvmdeps [OPTIONS] SCRIPT_NAME
    
    spvmdeps myapp.spvm
    
    spvmdeps --with-version myapp.spvm
    
    spvmdeps --cpanm --with-version myapp.spvm
    
    spvmdeps --cpanfile --with-version myapp.spvm
    
  Options:
    -h, --help                      Shows this message
    -v, --version                   Shows the version
    -I DIRECTORY                    Adds a include directory
    -Mblib                          Same as "-Mblib" in perl
    
    --json                          Prints JSON that contains all dependent class information.
    --cpanm                         Prints cpanm commands that contains dependent cpan modules
    --cpanfile                      Prints cpanfile that contains dependent cpan modules
    --with-version                  Output(default, --cpanm, --json) contains version information.
    --exclude CLASS_NAME            Excludes a class name. This option can be used repeatedly.
    --resource-info                 Shows config files of dependent resources

=head1 Details

  spvmdeps [OPTIONS] SCRIPT_NAME

The C<spvmdeps> command prints class dependency information.

Output Examples:

  Sys
  Regex
  Foo
  Bar
  
  # --with-version
  Sys 1.201
  Regex 0.980
  Foo (version_from Sys)
  Bar

I<OPTIONS> are L<options|/"Options">.

I<SCRIPT_NAME> is a script name that contains a L<bootstrap method|SPVM::Document::Language::Class/"Bootstrap Method"> in an L<anon class|SPVM::Document::Language::Class/"Anon Class">.

  class {
    static method main : void () {
      
    }
  }

See L<Class Search Directories|SPVM::Document::Language::Class/"Class Search Directories"> about default class search directories.

=head1 Options

=head2 --help

See L<spvm/"--help">.

=head2 -h

  -h

See L<spvm/"-h">.

=head2 --version

See L<spvm/"--version">.

=head2 -v

  -v

See L<spvm/"-v">.

=head2 -I

  -I DIR

See L<spvm/"-I">.

=head2 -B

  -B DIR

See L<spvm/"-B">.

=head2 -Mblib

  -Mblib

See L<spvm/"-Mblib">.

=head2 --json

  --json

Prints JSON that contains all dependent class information.

Output Examples:
  
  [
    {"class_name":"Address"},
    {"class_name":"Bool"},
    {"class_name":"Byte"},
    {"class_name":"CommandInfo"},
    {"class_name":"Double"},
    {"class_name":"Error"},
    {"class_name":"Error::Compile"},
    {"class_name":"Error::NotSupported"},
    {"class_name":"Error::System"},
    {"class_name":"Float"},
    {"class_name":"Int"},
    {"class_name":"Long"},
    {"class_name":"SPVM"},
    {"class_name":"Short"},
    {"class_name":"TestCase::NativeAPI2"},
    {"class_name":"TestCase::Precompile"}
  ]
  
  # --with-version
  [
    {"class_name":"Address","version_from":"SPVM"},
    {"class_name":"Bool","version_from":"SPVM"},
    {"class_name":"Byte","version_from":"SPVM"},
    {"class_name":"CommandInfo","version_from":"SPVM"},
    {"class_name":"Double","version_from":"SPVM"},
    {"class_name":"Error","version_from":"SPVM"},
    {"class_name":"Error::Compile","version_from":"SPVM"},
    {"class_name":"Error::NotSupported","version_from":"SPVM"},
    {"class_name":"Error::System","version_from":"SPVM"},
    {"class_name":"Float","version_from":"SPVM"},
    {"class_name":"Int","version_from":"SPVM"},
    {"class_name":"Long","version_from":"SPVM"},
    {"class_name":"SPVM","version":"0.990036"},
    {"class_name":"Short","version_from":"SPVM"},
    {"class_name":"TestCase::NativeAPI2","version":"1.002"},
    {"class_name":"TestCase::Precompile","version":"2.005"}
  ]

=head2 --cpanm

  --cpanm

Prints cpanm commands that contains dependent CPAN modules. Classes its version is specified are treated as dependent CPAN modules.

Output Examples:
  
  cpanm SPVM
  cpanm SPVM::Sys
  cpanm SPVM::Regex
  
  # --with-version
  cpanm SPVM@1.001
  cpanm SPVM::Sys@1.201
  cpanm SPVM::Regex@0.980

=head2 --cpanfile

  --cpanfile

Prints cpanfile that contains dependent CPAN modules. Classes its version is specified are treated as dependent CPAN modules.

Output Examples:

  requires 'SPVM';
  requires 'SPVM::Sys';
  requires 'SPVM::Regex';
  
  # --with-version
  requires 'SPVM', '== 1.001';
  requires 'SPVM::Sys', '== 1.201';
  requires 'SPVM::Regex', '== 0.980';

=head2 --with-version

  --with-version

Output(default, L</"--cpanm">, L</"--cpanfile">, L</"--json">) contains version information.

=head2 --exclude

  --exclude=<class_name>

Excludes a class name. This option can be used repeatedly.

Examples:

  --exclude TestCase::Foo

Wildcard C<*> can be used.

  --exclude TestCase::*

=head2 --resource-info

  --resource-info

Shows all config files loading resources.

=head1 lib Directive

If the source code specified by I<SCRIPT_NAME> contains lib directives, The directories specified by lib directive is prepeneded to L<class search directories|SPVM::Document::Language::Class/"Class Search Directories">.
  
  #lib "$FindBin::Bin/lib"
  
  class {
  
  }

This directories specified by lib directive is placed after the directories specified by L</"-I"> option.

=head1 Copyright & License

Copyright 2023 Yuki Kimoto. All Rights Reserved.

MIT License.
