unix/src/aix-ps2-1-2/Uin.m3


Copyright (C) 1994, Digital Equipment Corp.
 Big-endian version. 

UNSAFE MODULE Uin EXPORTS Uin;
Only unsafe because it needs Usocket.AF_INET and Usocket is unsafe.

FROM Utypes IMPORT u_long, u_short;
IMPORT Usocket, Word;

PROCEDURE IN_CLASSA(i: INTEGER): BOOLEAN =
  BEGIN
    RETURN Word.And(i, Word.Shift(16_800000, 8)) = 0;
  END IN_CLASSA;

PROCEDURE IN_CLASSB(i: INTEGER): BOOLEAN =
  BEGIN
    RETURN Word.And(i, Word.Shift(16_c00000, 8)) = Word.Shift(16_800000, 8);
  END IN_CLASSB;

PROCEDURE IN_CLASSC(i: INTEGER): BOOLEAN =
  BEGIN
    RETURN Word.And(i, Word.Shift(16_e00000, 8)) = Word.Shift(16_c00000, 8);
  END IN_CLASSC;

PROCEDURE IN_CLASSD(i: INTEGER): BOOLEAN =
  BEGIN
    RETURN Word.And(i, Word.Shift(16_f00000, 8)) = Word.Shift(16_e00000, 8);
  END IN_CLASSD;

PROCEDURE IN_MULTICAST(i: INTEGER): BOOLEAN =
  BEGIN
    RETURN IN_CLASSD(i);
  END IN_MULTICAST;

PROCEDURE IN_EXPERIMENTAL(i: INTEGER): BOOLEAN =
  BEGIN
    RETURN Word.And(i, Word.Shift(16_e00000, 8)) = Word.Shift(16_e00000, 8);
  END IN_EXPERIMENTAL;

PROCEDURE IN_BADCLASS(i: INTEGER): BOOLEAN =
  BEGIN
    RETURN Word.And(i, Word.Shift(16_f00000, 8)) = Word.Shift(16_f00000, 8);
  END IN_BADCLASS;

PROCEDURE IN_SET_LOOPBACK_ADDR(a: struct_sockaddr_in_star) =
  BEGIN
    a.sin_addr.s_addr := htonl(INADDR_LOOPBACK);
    a.sin_family := Usocket.AF_INET;
  END IN_SET_LOOPBACK_ADDR;
Big-endian versions; simply return the argument.
PROCEDURE ntohl(x: u_long): u_long =
  BEGIN
    RETURN x;
  END ntohl;

PROCEDURE ntohs(x: u_short): u_short =
  BEGIN
    RETURN x;
  END ntohs;

PROCEDURE htonl(x: u_long): u_long =
  BEGIN
    RETURN x;
  END htonl;

PROCEDURE htons(x: u_short): u_short =
  BEGIN
    RETURN x;
  END htons;

BEGIN
END Uin.

interface Uin is in:


interface Utypes is in:


interface Usocket is in: