home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / Programming / Source / WAIS / ir / wmessage.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-02  |  3.1 KB  |  126 lines
  1. /* WIDE AREA INFORMATION SERVER SOFTWARE
  2.    No guarantees or restrictions.  See the readme file for the full standard
  3.    disclaimer.    
  4.    3.26.90
  5. */
  6.  
  7. /* This file is for reading and writing the wais packet header.
  8.  * Morris@think.com
  9.  */
  10.  
  11. /* to do:
  12.  *  add check sum
  13.  *  what do you do when checksum is wrong?
  14.  */
  15.  
  16. #include <string.h>
  17. #include "wmessage.h"
  18. #include "ustubs.h"
  19. #include "cutil.h"
  20.  
  21. /*---------------------------------------------------------------------*/
  22.  
  23. void 
  24. readWAISPacketHeader(msgBuffer,header_struct)
  25. char* msgBuffer;
  26. WAISMessage *header_struct;
  27. {
  28.   /* msgBuffer is a string containing at least HEADER_LENGTH bytes. */
  29.             
  30.   memmove(header_struct->msg_len,msgBuffer,(size_t)10); 
  31.   header_struct->msg_type = char_downcase((unsigned long)msgBuffer[10]);
  32.   header_struct->hdr_vers = char_downcase((unsigned long)msgBuffer[11]);
  33.   memmove(header_struct->server,(void*)(msgBuffer + 12),(size_t)10);
  34.   header_struct->compression = char_downcase((unsigned long)msgBuffer[22]);
  35.   header_struct->encoding = char_downcase((unsigned long)msgBuffer[23]);
  36.   header_struct->msg_checksum = char_downcase((unsigned long)msgBuffer[24]);
  37. }
  38.  
  39. /*---------------------------------------------------------------------*/
  40.  
  41. long
  42. getWAISPacketLength(header)
  43. WAISMessage* header;
  44. /* interpret the length field, this is necessary since the lenght in the
  45.    message is not null terminated, so atol() may get confused.
  46.  */
  47. { 
  48.   char lenBuf[11];
  49.   memmove(lenBuf,header->msg_len,(size_t)10);
  50.   lenBuf[10] = '\0';
  51.   return(atol(lenBuf));
  52. }
  53.  
  54. /*---------------------------------------------------------------------*/
  55.  
  56. #ifdef NOTUSEDYET
  57.  
  58. static char checkSum _AP((char* string,long len));
  59.  
  60. static char
  61. checkSum(string,len)
  62. char* string;
  63. long len;
  64. /* XXX the problem with this routine is that it can generate 
  65.    non-ascii values.  Since these values are not being hexized,
  66.    they can (and will) hang up some communication channels.
  67.    */
  68. {
  69.   register long i;
  70.   register char chSum = '\0';
  71.       
  72.   for (i = 0; i < len; i++)
  73.     chSum = chSum ^ string[i];
  74.         
  75.   return(chSum);
  76. }    
  77. #endif /* def NOTUSEDYET */
  78.  
  79. /* this modifies the header argument.  See wais-message.h for the different
  80.  * options for the arguments.
  81.  */
  82.  
  83. void
  84. writeWAISPacketHeader(header,
  85.               dataLen,
  86.               type,
  87.               server,
  88.               compression,
  89.               encoding,
  90.               version)
  91. char* header;
  92. long dataLen;
  93. long type;
  94. char* server;
  95. long compression;
  96. long encoding;
  97. long version;
  98. /* Puts together the new wais before-the-z39-packet header. */
  99. {
  100.   char lengthBuf[11];
  101.   char serverBuf[11];
  102.  
  103.   long serverLen = strlen(server);
  104.   if (serverLen > 10)
  105.     serverLen = 10;
  106.  
  107.   sprintf(lengthBuf, "%010ld", dataLen);  
  108.   strncpy(header,lengthBuf,10);
  109.  
  110.   header[10] = type & 0xFF; 
  111.   header[11] = version & 0xFF;
  112.  
  113.   strncpy(serverBuf,server,serverLen);       
  114.   strncpy((char*)(header + 12),serverBuf,serverLen);
  115.  
  116.   header[22] = compression & 0xFF;    
  117.   header[23] = encoding & 0xFF;    
  118.   header[24] = '0'; /* checkSum(header + HEADER_LENGTH,dataLen);   XXX the result must be ascii */    
  119. }              
  120.               
  121. /*---------------------------------------------------------------------*/
  122.  
  123.  
  124.  
  125.  
  126.