home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ctcoll95.zip / BASTELST / PAPI020.ZIP / PROT.C < prev    next >
C/C++ Source or Header  |  1993-10-06  |  775b  |  54 lines
  1. /* Common ISDN API C-Library Functions: protokoll handling
  2.     Author: Dietmar Friede
  3. Copyright (c) 1992 D.Friede
  4.  #include "copy"
  5.  #include "copying.doc"
  6. */
  7. #include "types.h"
  8.  
  9. static byte prot_size[6]= {0,0,2,0,0,0};
  10. typedef byte prot[2];
  11. static prot passiv[6] = 
  12.  { { 0 },
  13.    { 0 },
  14.    { 3 , 3 },
  15.    { 0 },
  16.    { 0 },
  17.    { 0 }
  18.  };
  19.  
  20. static prot activ[6] = 
  21.  { { 0 },
  22.    { 0 },
  23.    { 1 , 3 },
  24.    { 0 },
  25.    { 0 },
  26.    { 0 }
  27.  };
  28.  
  29. extern byte protokoll;
  30. extern word SendDir;
  31.  
  32. byte
  33. get_prot_size(void)
  34. {
  35.     return(prot_size[protokoll]);
  36. }
  37.  
  38. static byte *
  39. get_prot(void)
  40. {
  41.     if(SendDir) return(passiv[protokoll]);
  42.     return(activ[protokoll]);
  43. }
  44.  
  45. void
  46. set_prot(byte *p)
  47. {
  48.     byte * pr;
  49.     int i, l;
  50.     if((l= get_prot_size()) == 0) return;
  51.     pr= get_prot();
  52.     for(i= 0; i<l; i++,pr++,p++) *p= *pr;
  53. }
  54.