brysonsteck/listen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

implement timeout flag, flag checking

Browse source
This commit is contained in:
Bryson Steck 2022-10-17 15:28:28 -06:00
parent 0c6c5eff51
commit 38eb8c9b47
1 changed files with 35 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
listen
View file

@ -1,7 +1,5 @@
#!/usr/bin/env perl
# TODO:
# implement -r flag
# implement --timeout flag in main loop
# possibly create a man page
#
# listen: a simple configurable build system
@ -52,7 +50,7 @@ sub flags {
foreach $arg (@ARGV) {
# shorthand args
if ($arg =~ m/-[aosrhv]/) {
if ($arg =~ m/^-[aosrhv]+$/) {
if ($arg =~ m/a/) {
$ALL_FLAG = "def";
}
@ -146,6 +144,13 @@ sub flags {
$ANY_FLAG = "def";
} elsif ($arg =~ m/--run/) {
$RUN_FLAG = "def";
# at this point, either it is an unknown flag or the start of the filename(s)
} elsif ($arg =~ m/^-[^aosrhv]+$/) {
print "listen: Unknown flag: $arg\n";
exit 2;
} elsif ($arg =~ m/^--[a-z]/) {
print "listen: Unknown flag: $arg\n";
exit 2;
} else {
last;
}
@ -323,7 +328,13 @@ sub start {
# if output differs, mark as modified
foreach $modified (@modified_files) {
if (@current_epoch[$counter] != @previous_epoch[$counter]) {
$modified = "yes";
if ($TIMEOUT) {
if (!($current_epoch[$counter] - $previous_epoch[$counter] <= $TIMEOUT)) {
$modified = "yes";
}
} else {
$modified = "yes";
}
}
$counter++;
}
@ -342,9 +353,17 @@ sub start {
# if output differs, run command
foreach (@current_epoch) {
if ($current_epoch[$counter] != $previous_epoch[$counter]) {
$run = "def";
$file_changed = $counter;
last;
if ($TIMEOUT) {
if (!($current_epoch[$counter] - $previous_epoch[$counter] <= $TIMEOUT)) {
$run = "def";
$file_changed = $counter;
last;
}
} else {
$run = "def";
$file_changed = $counter;
last;
}
}
$counter++;
}
@ -352,8 +371,15 @@ sub start {
# logic for singular files
} else {
if ($current_epoch[0] != $previous_epoch[0]) {
$run = "def";
$file_changed = 0;
if ($TIMEOUT) {
if (!($current_epoch[0] - $previous_epoch[0] <= $TIMEOUT)) {
$run = "def";
$file_changed = 0;
}
} else {
$run = "def";
$file_changed = 0;
}
}
}