From aa8e32d6a4a89eb22f724356f48b4e72538205a1 Mon Sep 17 00:00:00 2001
From: Fred Gleason <fredg@paravelsystems.com>
Date: Fri, 25 Aug 2023 11:54:43 -0400
Subject: [PATCH] 2023-08-25 Fred Gleason <fredg@paravelsystems.com> 	*
 Added profiling code (disabled by default) to the 'RDCae' class.

Signed-off-by: Fred Gleason <fredg@paravelsystems.com>
---
 ChangeLog     |  2 ++
 lib/rdcae.cpp | 36 ++++++++++++++++++++++++++++++++++++
 2 files changed, 38 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 9c006edd..807cb87e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -24373,3 +24373,5 @@
 	* Added a feature to the 'Set Output Port' ['OP'] CAE command where
 	passing a '-1' for the 'port-num' argument will cause all output
 	stream volume controls for the specified stream to be muted.
+2023-08-25 Fred Gleason <fredg@paravelsystems.com>
+	* Added profiling code (disabled by default) to the 'RDCae' class.
diff --git a/lib/rdcae.cpp b/lib/rdcae.cpp
index 2f59a9ce..32296d4e 100644
--- a/lib/rdcae.cpp
+++ b/lib/rdcae.cpp
@@ -33,6 +33,11 @@
 #include "rddebug.h"
 #include "rdescape_string.h"
 
+//
+// Uncomment this to enable latency profiling in the syslog
+//
+// #define DEBUG_LATENCY
+
 RDCae::RDCae(RDStation *station,RDConfig *config,QObject *parent)
   : QObject(parent)
 {
@@ -161,6 +166,10 @@ void RDCae::enableMetering(QList<int> *cards)
 
 bool RDCae::loadPlay(int card,QString name,int *stream,int *handle)
 {
+#ifdef DEBUG_LATENCY
+  rda->syslog(LOG_NOTICE,"RDCae::loadPlay() starts",handle);
+#endif  // DEBUG_LATENCY
+
   int count=0;
 
   SendCommand("LP "+QString::asprintf(" %d ",card)+name+"!");
@@ -190,12 +199,19 @@ bool RDCae::loadPlay(int card,QString name,int *stream,int *handle)
       return false;
   }
 
+#ifdef DEBUG_LATENCY
+  rda->syslog(LOG_NOTICE,"RDCae::loadPlay(handle=%d) ends",*handle);
+#endif  // DEBUG_LATENCY
+
   return true;
 }
 
 
 void RDCae::unloadPlay(int handle)
 {
+#ifdef DEBUG_LATENCY
+  rda->syslog(LOG_NOTICE,"RDCae::unloadPlay(handle=%d) starts",handle);
+#endif  // DEBUG_LATENCY
   SendCommand(QString::asprintf("UP %d!",handle));
 }
 
@@ -211,6 +227,10 @@ void RDCae::positionPlay(int handle,int msec)
 
 void RDCae::play(int handle,unsigned length,int speed,bool pitch)
 {
+#ifdef DEBUG_LATENCY
+  rda->syslog(LOG_NOTICE,"RDCae::play(handle=%d) starts",handle);
+#endif  // DEBUG_LATENCY
+
   int pitch_state=0;
 
   if(pitch) {
@@ -223,6 +243,9 @@ void RDCae::play(int handle,unsigned length,int speed,bool pitch)
 
 void RDCae::stopPlay(int handle)
 {
+#ifdef DEBUG_LATENCY
+  rda->syslog(LOG_NOTICE,"RDCae::stopPlay(handle=%d) starts",handle);
+#endif  // DEBUG_LATENCY
   SendCommand(QString::asprintf("SP %d!",handle));
 }
 
@@ -240,6 +263,7 @@ void RDCae::loadRecord(int card,int stream,QString name,
 
 
 void RDCae::unloadRecord(int card,int stream)
+
 {
   SendCommand(QString::asprintf("UR %d %d!",card,stream));
 }
@@ -545,6 +569,10 @@ void RDCae::DispatchCommand(RDCmdCache *cmd)
 	  }
 	}
       }
+#ifdef DEBUG_LATENCY
+  rda->syslog(LOG_NOTICE,"RDCae::unloadPlay(handle=%d) ends ",
+	      GetHandle(cmd->arg(1)));
+#endif  // DEBUG_LATENCY
       emit playUnloaded(handle);
     }
   }
@@ -566,12 +594,20 @@ void RDCae::DispatchCommand(RDCmdCache *cmd)
 
   if(!strcmp(cmd->arg(0),"PY")) {   // Play
     if(cmd->arg(4)[0]=='+') {
+#ifdef DEBUG_LATENCY
+      rda->syslog(LOG_NOTICE,"RDCae::play(handle=%d) ends",
+		  GetHandle(cmd->arg(1)));
+#endif  // DEBUG_LATENCY
       emit playing(GetHandle(cmd->arg(1)));
     }
   }
 
   if(!strcmp(cmd->arg(0),"SP")) {   // Stop Play
     if(cmd->arg(2)[0]=='+') {
+#ifdef DEBUG_LATENCY
+  rda->syslog(LOG_NOTICE,"RDCae::stopPlay(handle=%d) ends ",
+	      GetHandle(cmd->arg(1)));
+#endif  // DEBUG_LATENCY
       emit playStopped(GetHandle(cmd->arg(1)));
     }
   }