home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / comms / netsoftware / nethandler.lha / NetHandler / subs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-09-17  |  3.2 KB  |  133 lines
  1. /* Subs.c - Basic network handler support routines */
  2.  
  3. /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
  4. /* |_o_o|\\ Copyright (c) 1987 The Software Distillery.  All Rights Reserved */
  5. /* |. o.| || This program may not be distributed without the permission of   */
  6. /* | .  | || the author.                                           BBS:      */
  7. /* | o  | ||   John Toebes                                   (919)-471-6436  */
  8. /* |  . |//                                                                  */
  9. /* ======                                                                    */
  10. /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
  11. #define NETCOMMON
  12. #include "netcomm.h"
  13. #include "proto.h"
  14. /* misc.c  - support routines - Phillip Lindsay (C) Commodore 1986  
  15.  *  You may freely distribute this source and use it for Amiga Development -
  16.  *  as long as the Copyright notice is left intact.
  17.  *
  18.  * 30-SEP-86
  19.  */
  20.  
  21. /* returnpkt() - packet support routine 
  22.  * here is the guy who sends the packet back to the sender...
  23.  */
  24.  
  25. void retpkt(global, packet)
  26. NGLOBAL global;
  27. struct DosPacket *packet;
  28. {
  29.  struct Message *mess;
  30.  struct MsgPort *replyport;
  31.  
  32.  replyport                = packet->dp_Port;
  33.  mess                     = packet->dp_Link;
  34.  packet->dp_Port          = global->n.port;
  35.  
  36.  PutMsg(replyport,mess); 
  37. }
  38.  
  39. /*
  40.  * taskwait() ... Waits for a message to arrive at your port and 
  41.  *   extracts the packet address which is returned to you.
  42.  */
  43.  
  44. struct DosPacket *taskwait(global)
  45. NGLOBAL global;
  46. {
  47.  struct Message *mymess;
  48.  
  49.  WaitPort(global->n.port); /* wait for packet */
  50.  mymess = (struct Message *) GetMsg(global->n.port);
  51.  
  52.  global->pkt = (struct DosPacket *) mymess->mn_Node.ln_Name;
  53.  
  54.  return(global->pkt);
  55. } 
  56.  
  57. char *DosAllocMem(global, len)
  58. NGLOBAL global;
  59. long len;
  60. {
  61. long *p;
  62.  
  63. if (( p = (long *)AllocMem(len+4, MEMF_PUBLIC | MEMF_CLEAR)) == NULL)
  64.    {
  65.    if (global->pkt != NULL)
  66.       {
  67.       global->pkt->dp_Res1 = DOS_FALSE;
  68.       global->pkt->dp_Res2 = ERROR_NO_FREE_STORE;
  69.       }
  70.    else
  71.       {
  72.       /* Gee.  Out of memory AND there is nobody to tell about it ...  */
  73.       /* Only choice is to GURU.  Maybe we could do something clever   */
  74.       /* but I doubt it...                                             */
  75.       BUG(("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"));
  76.       BUG(("!!!!!!!!!!!!               !!!!!!!!\n"));
  77.       BUG(("!!!!!!!!!!!! OUT OF MEMORY !!!!!!!!\n"));
  78.       BUG(("!!!!!!!!!!!!               !!!!!!!!\n"));
  79.       BUG(("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"));
  80.       }
  81.    }
  82. else
  83.    *p++ = len;
  84.  
  85. return((char *)p);
  86. }
  87.  
  88. void DosFreeMem(p)
  89. char *p;
  90. {
  91. long *lp;
  92. long len;
  93.  
  94.    lp = (long *)p;
  95.    len = *--lp;
  96.    FreeMem((char *)lp, len);
  97. }
  98.  
  99. LONG checksum(c, len)
  100. char *c;
  101. int len;
  102. {
  103.    int i, l;
  104.    LONG sum, *lptr;
  105.    unsigned char *uc;
  106.  
  107.    l = len/sizeof(LONG);
  108.    lptr = (LONG *)c;
  109.    for(i=0, sum=0; i<l; i++, lptr++) sum += *lptr;
  110.  
  111.    l = len % sizeof(LONG);
  112.    uc = (unsigned char *)lptr;
  113.    for(i=0; i<l; i++, uc++) sum += *uc;
  114.  
  115.    return(sum);
  116. }
  117.  
  118. void CheckRP(r)
  119. struct RPacket *r;
  120. {
  121. #ifndef SMALLPACKET
  122.    /* Get checksum for RP */
  123.    if(r->DLen)
  124.       r->DCheck = checksum(r->Data, r->DLen);
  125.    else
  126.       r->DCheck = 0L;
  127.  
  128.    r->checksum = 0L;
  129.    r->checksum = checksum((char *)r, RPSIZE);
  130. #endif
  131. }
  132.  
  133.