home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sockpli.zip / UTILS.COP < prev   
Text File  |  1995-06-27  |  3KB  |  160 lines
  1.  %dcl #_UTILS_32H char ext;
  2.  %if #_UTILS_32H = '' %then
  3.   %do;
  4.     %dcl #_UTILS_32H char ext;
  5.     %#_UTILS_32H = 'Y';
  6.  
  7.     dcl lswap entry (
  8.            unsigned fixed bin(31) )
  9.              returns( unsigned fixed bin(31) byvalue )
  10.               options(linkage(system) byvalue nodescriptor) external;
  11.     dcl bswap entry (
  12.            unsigned fixed bin(16) )
  13.              returns( unsigned fixed bin(16) byvalue )
  14.               options(linkage(system) byvalue nodescriptor) external;
  15.     dcl rexec entry (
  16.            pointer,
  17.            fixed bin(31),
  18.            pointer,
  19.            pointer,
  20.            pointer,
  21.            pointer)
  22.              returns( fixed bin(31) byvalue )
  23.               options(linkage(system) byvalue nodescriptor) external;
  24.  
  25.  %DCL HTONL ENTRY;
  26.  %HTONL: PROCEDURE (X);
  27.  
  28.  DCL X CHAR;
  29.  
  30.     ANS('LSWAP(' ││ X ││ ')');
  31.  
  32.  %END;
  33.  
  34.  %DCL NTOHL ENTRY;
  35.  %NTOHL: PROCEDURE (X);
  36.  
  37.  DCL X CHAR;
  38.  
  39.     ANS('LSWAP(' ││ X ││ ')');
  40.  
  41.  %END;
  42.  
  43.  %DCL HTONS ENTRY;
  44.  %HTONS: PROCEDURE (X);
  45.  
  46.  DCL X CHAR;
  47.  
  48.     ANS('BSWAP(' ││ X ││ ')');
  49.  
  50.  %END;
  51.  
  52.  %DCL NTOHS ENTRY;
  53.  %NTOHS: PROCEDURE (X);
  54.  
  55.  DCL X CHAR;
  56.  
  57.     ANS('BSWAP(' ││ X ││ ')');
  58.  
  59.  %END;
  60.  
  61.  %dcl X11 char ext;
  62.  %if X11 = '' %then
  63.  %do;
  64.     %DCL BZERO ENTRY;
  65.     %BZERO: PROCEDURE (X, Y) STATEMENT;
  66.  
  67.     DCL (X, Y) CHAR;
  68.  
  69.     ANS('CALL PLIFILL('││ X ││ ', ''00''X,' ││ Y ││')');
  70.  
  71.     %END;
  72.  
  73.     %DCL BCOPY ENTRY;
  74.     %BCOPY: PROCEDURE (X, Y, Z) STATEMENT;
  75.  
  76.     DCL (X, Y, Z) CHAR;
  77.  
  78.     ANS('/* Unsupported */');
  79.  
  80.     %END;
  81.  
  82.     %DCL BCMP ENTRY;
  83.     %BCMP: PROCEDURE (X, Y, Z) STATEMENT;
  84.  
  85.     DCL (X, Y, Z) CHAR;
  86.  
  87.     ANS('/* Unsupported */');
  88.  
  89.     %END;
  90.  %END;
  91.  
  92.  %DCL OVBCOPY ENTRY;
  93.  %OVBCOPY: PROCEDURE (X, Y, Z) STATEMENT;
  94.  
  95.  DCL (X, Y, Z) CHAR;
  96.  
  97.  ANS('/* Unsupported */');
  98.  
  99.  %END;
  100.  
  101.  %DCL COPYOUT ENTRY;
  102.  %COPYOYT: PROCEDURE (X, Y, Z) STATEMENT;
  103.  
  104.  DCL (X, Y, Z) CHAR;
  105.  
  106.  ANS('/* Unsupported */');
  107.  
  108.  %END;
  109.  
  110.  %DCL STRCASECMP ENTRY;
  111.  %STRCASECMP: PROCEDURE (X, Y, Z) STATEMENT;
  112.  
  113.  DCL (X, Y, Z) CHAR;
  114.  
  115.  ANS('/* Unsupported */');
  116.  
  117.  %END;
  118.  
  119.  %DCL STRNCASECMP ENTRY;
  120.  %STRNCASECMP: PROCEDURE (X, Y, Z) STATEMENT;
  121.  
  122.  DCL (X, Y, Z) CHAR;
  123.  
  124.  ANS('/* Unsupported */');
  125.  
  126.  %END;
  127.  
  128.  %DCL SLEEP ENTRY;
  129.  %SLEEP: PROCEDURE (X);
  130.  
  131.  DCL X CHAR;
  132.  
  133.  ANS('CALL DOSSLEEP(' ││ X ││ '* 1000)');
  134.  
  135.  %END;
  136.  
  137.  %DCL IMIN ENTRY;
  138.  %IMIN: PROCEDURE (A, B) STATEMENT;
  139.  
  140.  DCL (A, B) CHAR;
  141.  
  142.    ANS('MIN('││ A ││', '││ B ││ ')');
  143.  
  144.  %END;
  145.  
  146.  %DCL TIMERCMP ENTRY;
  147.  
  148.  %TIMERCMP: PROCEDURE(T1, T2, OP);
  149.  
  150.  DCL (T1, T2, OP) CHAR;
  151.  
  152.     ANS('((' ││ T1 ││ '->TV_SEC ' ││ OP ││ ' ' ││ T2 ││
  153.         '->TV_SEC) │ ((' ││ T1 ││ '->TV_SEC = ' ││ T2 ││
  154.         '->TV_SEC) & (' ││ T1 ││ '->TV_USEC ' ││ OP ││
  155.         ' ' ││ T2 ││ '->TV_USEC)))');
  156.  %END;
  157.  
  158.   %end;
  159.  /* __UTILS_32H */
  160.