[xiph-cvs] cvs commit: snatch libsnatch.c snatch.pl

[Monty]

xiphmont    01/11/11 13:37:16

  Modified:    .        libsnatch.c snatch.pl
  Log:
  previous cosmetic timer fixed failed testing.  New attempt :-)

Revision  Changes    Path
1.18      +2 -0      snatch/libsnatch.c

Index: libsnatch.c
===================================================================
RCS file: /usr/local/cvsroot/snatch/libsnatch.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- libsnatch.c	2001/11/11 20:42:49	1.17
+++ libsnatch.c	2001/11/11 21:37:15	1.18
@@ -3,6 +3,8 @@
 
 #define _GNU_SOURCE
 #define _REENTRANT
+#define _LARGEFILE_SOURCE 
+#define _LARGEFILE64_SOURCE
 
 #include <stdlib.h>
 #include <unistd.h>

1.27      +31 -28    snatch/snatch.pl

Index: snatch.pl
===================================================================
RCS file: /usr/local/cvsroot/snatch/snatch.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- snatch.pl	2001/11/11 20:50:16	1.26
+++ snatch.pl	2001/11/11 21:37:15	1.27
@@ -674,39 +674,42 @@
     if($mode=~/timer/){
         my$now=time();
 
-	Robot_Inactive() if($now>$next_timer_event);
-
-	my$waiting_seconds=$next_timer_event-$now;
-	
-	my$waiting_minutes=int($waiting_seconds/60);
-	$waiting_seconds-=$waiting_minutes*60;
-	
-	my$waiting_hours=int($waiting_minutes/60);
-	$waiting_minutes-=$waiting_hours*60;
-	
-	my$waiting_days=int($waiting_hours/24);
-	$waiting_hours-=$waiting_days*24;
-	my$prompt;
-	
-	if($waiting_days){
-	    $prompt=$waiting_days."d $waiting_hours:$waiting_minutes";
-	}elsif($waiting_hours){
-	    $prompt=$waiting_days."$waiting_hours:$waiting_minutes";
+	if($TIMER_ENDTIMES[$#TIMER]<$now){
+	    Robot_Inactive();
         }else{
-	    $prompt=$waiting_minutes."m ".$waiting_seconds."s";
-	}
+	    
+	    SetupTimerDispatch() if($now>=$next_timer_event);
 
-	if($recording_active){
-	    Status("Timer recording [$prompt]");
-	}else{
-	    if($recording_pending){
-		Status("Starting record...");
+	    my$waiting_seconds=$next_timer_event-$now;
+	    
+	    my$waiting_minutes=int($waiting_seconds/60);
+	    $waiting_seconds-=$waiting_minutes*60;
+	    
+	    my$waiting_hours=int($waiting_minutes/60);
+	    $waiting_minutes-=$waiting_hours*60;
+	    
+	    my$waiting_days=int($waiting_hours/24);
+	    $waiting_hours-=$waiting_days*24;
+	    my$prompt;
+	    
+	    if($waiting_days){
+		$prompt=$waiting_days."d $waiting_hours:$waiting_minutes";
+	    }elsif($waiting_hours){
+		$prompt=$waiting_days."$waiting_hours:$waiting_minutes";
+	    }else{
+		$prompt=$waiting_minutes."m ".$waiting_seconds."s";
+	    }
+	    
+	    if($recording_active){
+		Status("Timer recording [$prompt]");
             }else{
-		Status("Timer wait [$prompt]");
+		if($recording_pending){
+		    Status("Starting record...");
+		}else{
+		    Status("Timer wait [$prompt]");
+		}
             }
         }
-	
-	SetupTimerDispatch() if($now>=$next_timer_event);
     }else{
         if($recording_active){
 

--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.