duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix template, define regex once, cleanup indents

master
Zaahir Moolla 2016-02-15 17:02:07 -05:00
parent 0045bd84be
commit 90174a5bd4
2 changed files with 67 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

130
lib/DDG/Goodie/BashPrimaryExpressions.pm
View File

@ -1,4 +1,5 @@
package DDG::Goodie::BashPrimaryExpressions;
# ABSTRACT: human-readable descriptions of bash shell expressions
use strict;
@ -12,79 +13,80 @@ zci answer_type => 'expression_description';
zci is_cached => 1;
our %if_description = (
'-a' => ["true if ", "ARG2", " exists"],
'-b' => ["true if ", "ARG2", " exists and is a block-special file"],
'-c' => ["true if ", "ARG2", " exists and is a character-special file"],
'-d' => ["true if ", "ARG2", " exists and is a directory"],
'-e' => ["true if ", "ARG2", " exists"],
'-f' => ["true if ", "ARG2", " exists and is a regular file"],
'-g' => ["true if ", "ARG2", " exists and its SGID bit is set"],
'-h' => ["true if ", "ARG2", " exists and is a symbolic link"],
'-k' => ["true if ", "ARG2", " exists and its sticky bit is set"],
'-p' => ["true if ", "ARG2", " exists and is a named pipe (FIFO)"],
'-r' => ["true if ", "ARG2", " exists and is readable"],
'-s' => ["true if ", "ARG2", " exists and has a size greater than zero"],
'-t' => ["true if ", "ARG2", " descriptor FD is open and refers to a terminal"],
'-u' => ["true if ", "ARG2", " exists and its SUID (set user ID) bit is set"],
'-w' => ["true if ", "ARG2", " exists and is writable"],
'-x' => ["true if ", "ARG2", " exists and is executable"],
'-O' => ["true if ", "ARG2", " exists and is owned by the effective user ID"],
'-G' => ["true if ", "ARG2", " exists and is owned by the effective group ID"],
'-L' => ["true if ", "ARG2", " exists and is a symbolic link"],
'-N' => ["true if ", "ARG2", " exists and has been modified since it was last read"],
'-S' => ["true if ", "ARG2", " exists and is a socket"],
'-o' => ["true if shell option ", "ARG2", " is enabled"],
'-z' => ["true if the length of '", "ARG2", "' is zero"],
'-n' => ["true if the length of '", "ARG2", "' is non-zero"],
'==' => ["true if the strings ", "ARG1", " and ", "ARG2", " are equal"],
'!=' => ["true if the strings ", "ARG1", " and ", "ARG2", " are not equal"],
'<' => ["true if ", "ARG1", " string-sorts before ", "ARG2", " in the current locale"],
'>' => ["true if ", "ARG1", " string-sorts after ", "ARG2", " in the current locale"],
'-eq' => ["true if ", "ARG1", " and ", "ARG2", " are numerically equal"],
'-ne' => ["true if ", "ARG1", " and ", "ARG2", " are not numerically equal"],
'-lt' => ["true if ", "ARG1", " is numerically less than ", "ARG2"],
'-le' => ["true if ", "ARG1", " is numerically less than or equal to ", "ARG2"],
'-gt' => ["true if ", "ARG1", " is numerically greater than ", "ARG2"],
'-ge' => ["true if ", "ARG1", " is numerically greater than or equal to ", "ARG2"],
'-nt' => ["true if ", "ARG1", " has been changed more recently than ", "ARG2", " or if ", "ARG1", " exists and ", "ARG2", " does not"],
'-ot' => ["true if ", "ARG1", " is older than ", "ARG2", " or ", "ARG2", " exists and ", "ARG1", " does not"],
'-ef' => ["true if ", "ARG1", " and ", "ARG2", " refer to the same device and inode numbers"]
'-a' => ["true if ", "ARG2", " exists"],
'-b' => ["true if ", "ARG2", " exists and is a block-special file"],
'-c' => ["true if ", "ARG2", " exists and is a character-special file"],
'-d' => ["true if ", "ARG2", " exists and is a directory"],
'-e' => ["true if ", "ARG2", " exists"],
'-f' => ["true if ", "ARG2", " exists and is a regular file"],
'-g' => ["true if ", "ARG2", " exists and its SGID bit is set"],
'-h' => ["true if ", "ARG2", " exists and is a symbolic link"],
'-k' => ["true if ", "ARG2", " exists and its sticky bit is set"],
'-p' => ["true if ", "ARG2", " exists and is a named pipe (FIFO)"],
'-r' => ["true if ", "ARG2", " exists and is readable"],
'-s' => ["true if ", "ARG2", " exists and has a size greater than zero"],
'-t' => ["true if ", "ARG2", " descriptor FD is open and refers to a terminal"],
'-u' => ["true if ", "ARG2", " exists and its SUID (set user ID) bit is set"],
'-w' => ["true if ", "ARG2", " exists and is writable"],
'-x' => ["true if ", "ARG2", " exists and is executable"],
'-O' => ["true if ", "ARG2", " exists and is owned by the effective user ID"],
'-G' => ["true if ", "ARG2", " exists and is owned by the effective group ID"],
'-L' => ["true if ", "ARG2", " exists and is a symbolic link"],
'-N' => ["true if ", "ARG2", " exists and has been modified since it was last read"],
'-S' => ["true if ", "ARG2", " exists and is a socket"],
'-o' => ["true if shell option ", "ARG2", " is enabled"],
'-z' => ["true if the length of '", "ARG2", "' is zero"],
'-n' => ["true if the length of '", "ARG2", "' is non-zero"],
'==' => ["true if the strings ", "ARG1", " and ", "ARG2", " are equal"],
'!=' => ["true if the strings ", "ARG1", " and ", "ARG2", " are not equal"],
'<' => ["true if ", "ARG1", " string-sorts before ", "ARG2", " in the current locale"],
'>' => ["true if ", "ARG1", " string-sorts after ", "ARG2", " in the current locale"],
'-eq' => ["true if ", "ARG1", " and ", "ARG2", " are numerically equal"],
'-ne' => ["true if ", "ARG1", " and ", "ARG2", " are not numerically equal"],
'-lt' => ["true if ", "ARG1", " is numerically less than ", "ARG2"],
'-le' => ["true if ", "ARG1", " is numerically less than or equal to ", "ARG2"],
'-gt' => ["true if ", "ARG1", " is numerically greater than ", "ARG2"],
'-ge' => ["true if ", "ARG1", " is numerically greater than or equal to ", "ARG2"],
'-nt' => ["true if ", "ARG1", " has been changed more recently than ", "ARG2", " or if ", "ARG1", " exists and ", "ARG2", " does not"],
'-ot' => ["true if ", "ARG1", " is older than ", "ARG2", " or ", "ARG2", " exists and ", "ARG1", " does not"],
'-ef' => ["true if ", "ARG1", " and ", "ARG2", " refer to the same device and inode numbers"]
);
# This checks if our arguments in the `if` statement are valid.
my $re_args = '[^\[\]\s]+|".+"|\'.+\'';
my $re = qr/^
(?:if\s)? # Match `if` if there is one.
[\[]{1,2}\s # Match `[[` inside the `if` statement.
([!]\s)? # Capture the `!` in queries such as `bash if [ ! "something" -gt "150" ]`
(?:($re_args)\s)? # Capture the first argument in the `if`
(-[a-zA-Z]{1,2}|[<>]|[!=]{1,2})\s # Capture the options such as `-lt` for less than.
($re_args)\s # Capture the second argument.
[\]]{1,2} # Match `]]` that ends the `if` statement.
$/x;
handle remainder => sub {
# This checks if our arguments in the `if` statement are valid.
my $re_args = '[^\[\]\s]+|".+"|\'.+\'';
my $re = qr/^
(?:if\s)? # Match `if` if there is one.
[\[]{1,2}\s # Match `[[` inside the `if` statement.
([!]\s)? # Capture the `!` in queries such as `bash if [ ! "something" -gt "150" ]`
(?:($re_args)\s)? # Capture the first argument in the `if`
(-[a-zA-Z]{1,2}|[<>]|[!=]{1,2})\s # Capture the options such as `-lt` for less than.
($re_args)\s # Capture the second argument.
[\]]{1,2} # Match `]]` that ends the `if` statement.
$/x;
my ($not, $left_arg, $op, $right_arg) = ($_ =~ $re);
my ($not, $left_arg, $op, $right_arg) = ($_ =~ $re);
return unless ($op && $right_arg);
return unless $if_description{$op};
my $text_output = join("",@{$if_description{$op}});
$text_output =~ s/^true/false/ if $not;
return unless ($op && $right_arg);
return unless $if_description{$op};
if ($left_arg) {
$text_output =~ s/ARG1/$left_arg/g;
}
my $text_output = join("",@{$if_description{$op}});
$text_output =~ s/^true/false/ if $not;
$text_output =~ s/ARG2/$right_arg/g;
my @results;
if ($left_arg) {
$text_output =~ s/ARG1/$left_arg/g;
}
$text_output =~ s/ARG2/$right_arg/g;
my @results;
foreach my $el(@{$if_description{$op}}) {
my $temp;
if ($el eq 'ARG1') {
$temp->{text} = "";
$temp->{value} = $left_arg;
} elsif ($el eq 'ARG2') {
} elsif ($el eq 'ARG2') {
$temp->{text} = "";
$temp->{value} = $right_arg;
} else {
@ -93,9 +95,9 @@ handle remainder => sub {
}
push @results, $temp;
}
my $intro = "The Bash expression $_ results to";
return "$intro $text_output.",
my $intro = "The Bash expression $_ results to";
return "$intro $text_output.",
structured_answer => {
id => 'bash_primary_expressions',
name => 'Answer',

2
share/goodie/bash_primary_expressions/content.handlebars
View File

@ -1,4 +1,4 @@
The Bash expression <pre>{{intro}}</pre>
The Bash expression <pre>{{intro}}</pre> results to
{{#each results}}
{{#if text}}
{{text}}