1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#!/usr/bin/perl6
use v6;
my $self = $*PROGRAM-NAME;
sub MAIN(Str $name, *@args)
{
$name ~~ / ^<[\w .]>+ $ / or die "$self: NAME $name not alphanumeric\n";
my Str $psiPath = getPsiPath();
my $scriptsPath = $psiPath ~ "/dmrgpp/scripts";
my $command = findCommand($name, $scriptsPath);
shell $command ~ " " ~ @args.join(' ');
}
sub findCommand(Str $name2, Str $scriptsPath)
{
my Str $name = $name2;
my $extension = $name.IO.extension;
if ($extension eq "") {
my $b6 = ($name ~ ".pl6").IO ~~ :r & :x;
my $b5 = ($name ~ ".pl").IO ~~ :r & :x;
if ($b5 && $b6) {
die "$self: Failed for $name, both $b5 $b6 v6 and v5 exist\n";
}
if (!$b5 && !$b6) {
die "$self: Neither $name.pl nor $name.pl6 exist\n";
}
$extension = "pl" if ($b5);
$extension = "pl6" if ($b6);
$name ~= ".$extension" if ($extension);
}
die "$self: File $name with wrong extension\n" unless ($extension);
return commandFromNameAndExtension($name, $extension, $scriptsPath);
}
sub commandFromNameAndExtension(Str $name, Str $extension, Str $scriptsPath)
{
die "$self: scriptsPath/$name not in git index\n" unless isInGitIndex($name, $scriptsPath);
$name.IO ~~ :r & :x or die "$self: scriptsPath/$name is not read AND exec\n";
my $interpreter;
$interpreter = "/usr/bin/perl6" if ($extension eq "pl6");
$interpreter = "/usr/bin/perl" if ($extension eq "pl");
die "$self: Cannot find interpreter\n" unless ($interpreter);
my $argsForInterpreter = ($extension eq "pl") ?? " -I $scriptsPath " !! "";
return "$interpreter $argsForInterpreter $scriptsPath/$name ";
}
sub isInGitIndex(Str $name, Str $scriptsPath)
{
my $oldir = $*CWD.basename;
chdir $scriptsPath;
my $full = $scriptsPath ~ "/" ~ $name;
$name ~~ / ^<[\w .]>+ $ / or die "$self: NAME $name not alphanumeric\n";
my $capture = q:x/git ls-files $full/;
#q:x
return $capture.trim-trailing ~~ / "$name" /;
}
sub getPsiPath()
{
my Str $homeDir = %*ENV{"HOME"};
my Str $file = $homeDir ~ "/.config/PsimagLite/config";
my $psiDir;
for $file.IO.lines {
next if (/^\s* "#" /);
if (/"PSI_DIR" \s* "=" \s* (.+$) /) {
$psiDir = $0;
last;
}
}
($psiDir) or die "$self: Cannot find PSI_DIR in $file\n";
return ($psiDir ~~ /^ "/" /) ?? $psiDir !! $homeDir ~ "/" ~ $psiDir;
}
|
