summaryrefslogtreecommitdiff
path: root/vest/libcall.pl
diff options
context:
space:
mode:
authorChris Dyer <cdyer@cs.cmu.edu>2012-01-27 14:49:08 -0500
committerChris Dyer <cdyer@cs.cmu.edu>2012-01-27 14:49:08 -0500
commit47aa8d94d3ddff39295966cee67ce884c98be8da (patch)
tree2ff3eab22e44b2d02537a5b59460945f4aa98d9a /vest/libcall.pl
parent203c3c3357b9ed8cfe44932c2bf5ea19eba6238c (diff)
rename vest to dpmert (dynamic programming mert), rename variables and types to correspond to standard geometric concepts
Diffstat (limited to 'vest/libcall.pl')
-rw-r--r--vest/libcall.pl71
1 files changed, 0 insertions, 71 deletions
diff --git a/vest/libcall.pl b/vest/libcall.pl
deleted file mode 100644
index c7d0f128..00000000
--- a/vest/libcall.pl
+++ /dev/null
@@ -1,71 +0,0 @@
-use IPC::Open3;
-use Symbol qw(gensym);
-
-$DUMMY_STDERR = gensym();
-$DUMMY_STDIN = gensym();
-
-# Run the command and ignore failures
-sub unchecked_call {
- system("@_")
-}
-
-# Run the command and return its output, if any ignoring failures
-sub unchecked_output {
- return `@_`
-}
-
-# WARNING: Do not use this for commands that will return large amounts
-# of stdout or stderr -- they might block indefinitely
-sub check_output {
- print STDERR "Executing and gathering output: @_\n";
-
- my $pid = open3($DUMMY_STDIN, \*PH, $DUMMY_STDERR, @_);
- my $proc_output = "";
- while( <PH> ) {
- $proc_output .= $_;
- }
- waitpid($pid, 0);
- # TODO: Grab signal that the process died from
- my $child_exit_status = $? >> 8;
- if($child_exit_status == 0) {
- return $proc_output;
- } else {
- print STDERR "ERROR: Execution of @_ failed.\n";
- exit(1);
- }
-}
-
-# Based on Moses' safesystem sub
-sub check_call {
- print STDERR "Executing: @_\n";
- system(@_);
- my $exitcode = $? >> 8;
- if($exitcode == 0) {
- return 0;
- } elsif ($? == -1) {
- print STDERR "ERROR: Failed to execute: @_\n $!\n";
- exit(1);
-
- } elsif ($? & 127) {
- printf STDERR "ERROR: Execution of: @_\n died with signal %d, %s coredump\n",
- ($? & 127), ($? & 128) ? 'with' : 'without';
- exit(1);
-
- } else {
- print STDERR "Failed with exit code: $exitcode\n" if $exitcode;
- exit($exitcode);
- }
-}
-
-sub check_bash_call {
- my @args = ( "bash", "-auxeo", "pipefail", "-c", "@_");
- check_call(@args);
-}
-
-sub check_bash_output {
- my @args = ( "bash", "-auxeo", "pipefail", "-c", "@_");
- return check_output(@args);
-}
-
-# perl module weirdness...
-return 1;