/[svn]/liblscp/trunk/src/common.c
ViewVC logotype

Diff of /liblscp/trunk/src/common.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 187 by capela, Wed Jul 7 23:41:07 2004 UTC revision 623 by capela, Thu Jun 9 10:37:19 2005 UTC
# Line 2  Line 2 
2  //  //
3  /****************************************************************************  /****************************************************************************
4     liblscp - LinuxSampler Control Protocol API     liblscp - LinuxSampler Control Protocol API
5     Copyright (C) 2004, rncbc aka Rui Nuno Capela. All rights reserved.     Copyright (C) 2004-2005, rncbc aka Rui Nuno Capela. All rights reserved.
6    
7     This library is free software; you can redistribute it and/or     This library is free software; you can redistribute it and/or
8     modify it under the terms of the GNU Lesser General Public     modify it under the terms of the GNU Lesser General Public
# Line 49  void lscp_client_set_result ( lscp_clien Line 49  void lscp_client_set_result ( lscp_clien
49          pClient->pszResult = strdup(lscp_ltrim(pszResult));          pClient->pszResult = strdup(lscp_ltrim(pszResult));
50  }  }
51    
52  // The main client requester call executive.  
53  lscp_status_t lscp_client_call ( lscp_client_t *pClient, const char *pszQuery )  // The common client receiver executive.
54    lscp_status_t lscp_client_recv ( lscp_client_t *pClient, char *pchBuffer, int *pcchBuffer, int iTimeout )
55  {  {
56      fd_set fds;                         // File descriptor list for select().      fd_set fds;                         // File descriptor list for select().
57      int    fd, fdmax;                   // Maximum file descriptor number.      int    fd, fdmax;                   // Maximum file descriptor number.
58      struct timeval tv;                  // For specifying a timeout value.      struct timeval tv;                  // For specifying a timeout value.
59      int    iSelect;                     // Holds select return status.      int    iSelect;                     // Holds select return status.
60      int    iTimeout;  
61        lscp_status_t ret = LSCP_FAILED;
62    
63        if (pClient == NULL)
64            return ret;
65    
66        // Prepare for waiting on select...
67        fd = (int) pClient->cmd.sock;
68        FD_ZERO(&fds);
69        FD_SET((unsigned int) fd, &fds);
70        fdmax = fd;
71    
72        // Use the timeout select feature...
73        if (iTimeout < 1)
74            iTimeout = pClient->iTimeout;
75        if (iTimeout > 1000) {
76            tv.tv_sec = iTimeout / 1000;
77            iTimeout -= tv.tv_sec * 1000;
78        }
79        else tv.tv_sec = 0;
80        tv.tv_usec = iTimeout * 1000;
81    
82        // Wait for event...
83        iSelect = select(fdmax + 1, &fds, NULL, NULL, &tv);
84        if (iSelect > 0 && FD_ISSET(fd, &fds)) {
85            // May recv now...
86            *pcchBuffer = recv(pClient->cmd.sock, pchBuffer, *pcchBuffer, 0);
87            if (*pcchBuffer > 0)
88                ret = LSCP_OK;
89            else if (*pcchBuffer < 0)
90                lscp_socket_perror("lscp_client_recv: recv");
91            else if (*pcchBuffer == 0) {
92                // Damn, server probably disconnected,
93                // we better free everything down here.
94                lscp_socket_agent_free(&(pClient->evt));
95                lscp_socket_agent_free(&(pClient->cmd));
96                // Fake a result message.
97                ret = LSCP_QUIT;
98            }
99        }   // Check if select has timed out.
100        else if (iSelect == 0)
101            ret = LSCP_TIMEOUT;
102        else
103            lscp_socket_perror("lscp_client_recv: select");
104    
105        return ret;
106    }
107    
108    
109    // The main client requester call executive.
110    lscp_status_t lscp_client_call ( lscp_client_t *pClient, const char *pszQuery )
111    {
112      int    cchQuery;      int    cchQuery;
113      char   achResult[LSCP_BUFSIZ];      char   achResult[LSCP_BUFSIZ];
114      int    cchResult;      int    cchResult;
# Line 81  lscp_status_t lscp_client_call ( lscp_cl Line 133  lscp_status_t lscp_client_call ( lscp_cl
133          return ret;          return ret;
134      }      }
135    
136            // Check if last transaction has timed out, in which case
137            // we'll retry wait and flush for some pending garbage...
138            if (pClient->iTimeoutCount > 0) {
139                    cchResult = sizeof(achResult);
140                    ret = lscp_client_recv(pClient, achResult, &cchResult, pClient->iTimeout);
141                    if (ret == LSCP_OK) {
142                            // We've got rid of timeout trouble (hopefully).
143                            pClient->iTimeoutCount = 0;
144                    } else {
145                            // Things are worse than before. Fake a result message.
146                            iErrno = (int) ret;
147                            pszResult = "Failure during flush timeout operation";
148                            lscp_client_set_result(pClient, pszResult, iErrno);
149                            return ret;
150                    }
151            }
152    
153      // Send data, and then, wait for the result...      // Send data, and then, wait for the result...
154      cchQuery = strlen(pszQuery);      cchQuery = strlen(pszQuery);
155      if (send(pClient->cmd.sock, pszQuery, cchQuery, 0) < cchQuery) {      if (send(pClient->cmd.sock, pszQuery, cchQuery, 0) < cchQuery) {
156          lscp_socket_perror("_lscp_client_call: send");          lscp_socket_perror("lscp_client_call: send");
157          pszResult = "Failure during send operation";          pszResult = "Failure during send operation";
158          lscp_client_set_result(pClient, pszResult, iErrno);          lscp_client_set_result(pClient, pszResult, iErrno);
159          return ret;          return ret;
160      }      }
161    
162      // Prepare for waiting on select...      // Wait for receive event...
163      fd = (int) pClient->cmd.sock;      cchResult = sizeof(achResult);
164      FD_ZERO(&fds);      ret = lscp_client_recv(pClient, achResult, &cchResult, pClient->iTimeout);
165      FD_SET((unsigned int) fd, &fds);  
166      fdmax = fd;      switch (ret) {
167    
168      // Use the timeout select feature...        case LSCP_OK:
169      iTimeout = pClient->iTimeout;          // Always force the result to be null terminated (and trim trailing CRLFs)!
170      if (iTimeout > 1000) {          while (cchResult > 0 && (achResult[cchResult - 1] == '\n' || achResult[cchResult- 1] == '\r'))
171          tv.tv_sec = iTimeout / 1000;              cchResult--;
172          iTimeout -= tv.tv_sec * 1000;          achResult[cchResult] = (char) 0;
173      }          // Check if the response it's an error or warning message.
174      else tv.tv_sec = 0;          if (strncasecmp(achResult, "WRN:", 4) == 0)
175      tv.tv_usec = iTimeout * 1000;              ret = LSCP_WARNING;
176            else if (strncasecmp(achResult, "ERR:", 4) == 0)
177      // Wait for event...              ret = LSCP_ERROR;
178      iSelect = select(fdmax + 1, &fds, NULL, NULL, &tv);          // So we got a result...
179      if (iSelect > 0 && FD_ISSET(fd, &fds)) {          if (ret == LSCP_OK) {
180          // May recv now...              // Reset errno in case of success.
181          cchResult = recv(pClient->cmd.sock, achResult, sizeof(achResult), 0);              iErrno = 0;
182          if (cchResult > 0) {              // Is it a special successful response?
183              // Assume early success.              if (strncasecmp(achResult, "OK[", 3) == 0) {
184              ret = LSCP_OK;                  // Parse the OK message, get the return string under brackets...
             // Always force the result to be null terminated (and trim trailing CRLFs)!  
             while (cchResult > 0 && (achResult[cchResult - 1] == '\n' || achResult[cchResult- 1] == '\r'))  
                 cchResult--;  
             achResult[cchResult] = (char) 0;  
             // Check if the response it's an error or warning message.  
             if (strncasecmp(achResult, "WRN:", 4) == 0)  
                 ret = LSCP_WARNING;  
             else if (strncasecmp(achResult, "ERR:", 4) == 0)  
                 ret = LSCP_ERROR;  
             // So we got a result...  
             if (ret == LSCP_OK) {  
                 // Reset errno in case of success.  
                 iErrno = 0;  
                 // Is it a special successful response?  
                 if (strncasecmp(achResult, "OK[", 3) == 0) {  
                     // Parse the OK message, get the return string under brackets...  
                     pszToken = lscp_strtok(achResult, pszSeps, &(pch));  
                     if (pszToken)  
                         pszResult = lscp_strtok(NULL, pszSeps, &(pch));  
                 }  
                 else pszResult = achResult;  
                 // The result string is now set to the command response, if any.  
             } else {  
                 // Parse the error/warning message, skip first colon...  
185                  pszToken = lscp_strtok(achResult, pszSeps, &(pch));                  pszToken = lscp_strtok(achResult, pszSeps, &(pch));
186                    if (pszToken)
187                        pszResult = lscp_strtok(NULL, pszSeps, &(pch));
188                }
189                else pszResult = achResult;
190                // The result string is now set to the command response, if any.
191            } else {
192                // Parse the error/warning message, skip first colon...
193                pszToken = lscp_strtok(achResult, pszSeps, &(pch));
194                if (pszToken) {
195                    // Get the error number...
196                    pszToken = lscp_strtok(NULL, pszSeps, &(pch));
197                  if (pszToken) {                  if (pszToken) {
198                      // Get the error number...                      iErrno = atoi(pszToken);
199                      pszToken = lscp_strtok(NULL, pszSeps, &(pch));                      // And make the message text our final result.
200                      if (pszToken) {                      pszResult = lscp_strtok(NULL, pszSeps, &(pch));
                         iErrno = atoi(pszToken);  
                         // And make the message text our final result.  
                         pszResult = lscp_strtok(NULL, pszSeps, &(pch));  
                     }  
201                  }                  }
                 // The result string is set to the error/warning message text.  
202              }              }
203                // The result string is set to the error/warning message text.
204          }          }
205          else if (cchResult == 0) {          break;
206              // Damn, server disconnected, we better free everything down here.  
207              lscp_socket_agent_free(&(pClient->evt));        case LSCP_TIMEOUT:
208              lscp_socket_agent_free(&(pClient->cmd));                  // We have trouble...
209              // Fake a result message.          pClient->iTimeoutCount++;
             ret = LSCP_QUIT;  
             pszResult = "Server terminated the connection";  
             iErrno = (int) ret;  
         } else {  
             // What's down?  
             lscp_socket_perror("_lscp_client_call: recv");  
             pszResult = "Failure during receive operation";  
         }  
     }   // Check if select has timed out.  
     else if (iSelect == 0) {  
210          // Fake a result message.          // Fake a result message.
         ret = LSCP_TIMEOUT;  
211          pszResult = "Timeout during receive operation";          pszResult = "Timeout during receive operation";
212          iErrno = (int) ret;          iErrno = (int) ret;
213     }          break;
214      else lscp_socket_perror("_lscp_client_call: select");  
215          case LSCP_QUIT:
216            // Fake a result message.
217            pszResult = "Server terminated the connection";
218            iErrno = (int) ret;
219            break;
220    
221          case LSCP_FAILED:
222          default:
223            // What's down?
224            pszResult = "Failure during receive operation";
225            break;
226        }
227    
228      // Make the result official...      // Make the result official...
229      lscp_client_set_result(pClient, pszResult, iErrno);      lscp_client_set_result(pClient, pszResult, iErrno);
# Line 295  char **lscp_szsplit_create ( const char Line 348  char **lscp_szsplit_create ( const char
348              --pch;              --pch;
349          *pch = (char) 0;          *pch = (char) 0;
350          // Make it official.          // Make it official.
351          ppszSplit[i++] = lscp_unquote(&pszHead, 0);          ppszSplit[i] = lscp_unquote(&pszHead, 0);
352          // Do we need to grow?          // Do we need to grow?
353          if (i >= iSize) {          if (++i >= iSize) {
354              // Yes, but only grow in chunks.              // Yes, but only grow in chunks.
355              iSize += LSCP_SPLIT_CHUNK1;              iSize += LSCP_SPLIT_CHUNK1;
356              // Allocate and copy to new split array.              // Allocate and copy to new split array.
# Line 362  int *lscp_isplit_create ( const char *ps Line 415  int *lscp_isplit_create ( const char *ps
415      pchHead = lscp_ltrim((char *) pszCsv);      pchHead = lscp_ltrim((char *) pszCsv);
416      if (*pchHead == (char) 0)      if (*pchHead == (char) 0)
417          return NULL;          return NULL;
418        
419      // Initial size is one chunk away.      // Initial size is one chunk away.
420      iSize = LSCP_SPLIT_CHUNK1;      iSize = LSCP_SPLIT_CHUNK1;
421      // Allocate and split...      // Allocate and split...
# Line 383  int *lscp_isplit_create ( const char *ps Line 436  int *lscp_isplit_create ( const char *ps
436          // Pre-advance to next item.          // Pre-advance to next item.
437          pchHead = pch + cchSeps;          pchHead = pch + cchSeps;
438          // Make it official.          // Make it official.
439          piSplit[i++] = atoi(pchHead);          piSplit[i] = atoi(pchHead);
440          // Do we need to grow?          // Do we need to grow?
441          if (i >= iSize) {          if (++i >= iSize) {
442              // Yes, but only grow in chunks.              // Yes, but only grow in chunks.
443              iSize += LSCP_SPLIT_CHUNK1;              iSize += LSCP_SPLIT_CHUNK1;
444              // Allocate and copy to new split array.              // Allocate and copy to new split array.
# Line 547  void lscp_plist_free ( lscp_param_t **pp Line 600  void lscp_plist_free ( lscp_param_t **pp
600  {  {
601      lscp_param_t *pParams;      lscp_param_t *pParams;
602      int i;      int i;
603        
604      if (ppList) {      if (ppList) {
605          if (*ppList) {          if (*ppList) {
606              pParams = *ppList;              pParams = *ppList;
# Line 569  void lscp_plist_append ( lscp_param_t ** Line 622  void lscp_plist_append ( lscp_param_t **
622      lscp_param_t *pNewParams;      lscp_param_t *pNewParams;
623      int iSize, iNewSize;      int iSize, iNewSize;
624      int i = 0;      int i = 0;
625        
626      if (ppList && *ppList) {      if (ppList && *ppList) {
627          pParams = *ppList;          pParams = *ppList;
628          while (pParams[i].key) {          while (pParams[i].key) {
# Line 588  void lscp_plist_append ( lscp_param_t ** Line 641  void lscp_plist_append ( lscp_param_t **
641              iNewSize   = iSize + LSCP_SPLIT_CHUNK1;              iNewSize   = iSize + LSCP_SPLIT_CHUNK1;
642              pNewParams = (lscp_param_t *) malloc(iNewSize * sizeof(lscp_param_t));              pNewParams = (lscp_param_t *) malloc(iNewSize * sizeof(lscp_param_t));
643              for (i = 0; i < iSize; i++) {              for (i = 0; i < iSize; i++) {
644                  pParams[i].key   = pParams[i].key;                  pNewParams[i].key   = pParams[i].key;
645                  pParams[i].value = pParams[i].value;                  pNewParams[i].value = pParams[i].value;
646              }              }
647              for ( ; i < iNewSize; i++) {              for ( ; i < iNewSize; i++) {
648                  pNewParams[i].key   = NULL;                  pNewParams[i].key   = NULL;
# Line 626  int lscp_plist_size ( lscp_param_t **ppL Line 679  int lscp_plist_size ( lscp_param_t **ppL
679    
680    
681  //-------------------------------------------------------------------------  //-------------------------------------------------------------------------
682    // Server info struct helper functions.
683    
684    void lscp_server_info_init ( lscp_server_info_t *pServerInfo )
685    {
686        pServerInfo->description = NULL;
687        pServerInfo->version     = NULL;
688    }
689    
690    void lscp_server_info_free ( lscp_server_info_t *pServerInfo )
691    {
692        if (pServerInfo->description)
693            free(pServerInfo->description);
694        if (pServerInfo->version)
695            free(pServerInfo->version);
696    }
697    
698    void lscp_server_info_reset ( lscp_server_info_t *pServerInfo )
699    {
700        lscp_server_info_free(pServerInfo);
701        lscp_server_info_init(pServerInfo);
702    }
703    
704    
705    //-------------------------------------------------------------------------
706  // Engine info struct helper functions.  // Engine info struct helper functions.
707    
708  void lscp_engine_info_init ( lscp_engine_info_t *pEngineInfo )  void lscp_engine_info_init ( lscp_engine_info_t *pEngineInfo )
# Line 660  void lscp_channel_info_init ( lscp_chann Line 737  void lscp_channel_info_init ( lscp_chann
737      pChannelInfo->audio_routing     = NULL;      pChannelInfo->audio_routing     = NULL;
738      pChannelInfo->instrument_file   = NULL;      pChannelInfo->instrument_file   = NULL;
739      pChannelInfo->instrument_nr     = 0;      pChannelInfo->instrument_nr     = 0;
740        pChannelInfo->instrument_name   = NULL;
741      pChannelInfo->instrument_status = 0;      pChannelInfo->instrument_status = 0;
742      pChannelInfo->midi_device       = 0;      pChannelInfo->midi_device       = 0;
743      pChannelInfo->midi_port         = 0;      pChannelInfo->midi_port         = 0;
# Line 675  void lscp_channel_info_free ( lscp_chann Line 753  void lscp_channel_info_free ( lscp_chann
753          lscp_szsplit_destroy(pChannelInfo->audio_routing);          lscp_szsplit_destroy(pChannelInfo->audio_routing);
754      if (pChannelInfo->instrument_file)      if (pChannelInfo->instrument_file)
755          free(pChannelInfo->instrument_file);          free(pChannelInfo->instrument_file);
756        if (pChannelInfo->instrument_name)
757            free(pChannelInfo->instrument_name);
758  }  }
759    
760  void lscp_channel_info_reset ( lscp_channel_info_t *pChannelInfo )  void lscp_channel_info_reset ( lscp_channel_info_t *pChannelInfo )
# Line 817  int lscp_param_concat ( char *pszBuffer, Line 897  int lscp_param_concat ( char *pszBuffer,
897      if (cchBuffer + 2 < cchMaxBuffer) {      if (cchBuffer + 2 < cchMaxBuffer) {
898          pszBuffer[cchBuffer++] = '\r';          pszBuffer[cchBuffer++] = '\r';
899          pszBuffer[cchBuffer++] = '\n';          pszBuffer[cchBuffer++] = '\n';
900            pszBuffer[cchBuffer ]  = (char) 0;
901      }      }
902            
903      return cchBuffer;      return cchBuffer;
Legend:
Removed from v.187  
changed lines
  Added in v.623
  ViewVC Help
Powered by ViewVC