addons/Socket/source/IoIPAddress.c

   1 //metadoc IPAddress copyright Steve Dekorte, 2004
   2 //metadoc IPAddress license BSD revised
   3 //metadoc IPAddress description Object representation of an Internet Protocol Address.
   4 //metadoc IPAddress category Networking")
   5
   6 /*doc IPAddress setHostName(hostName)
   7         Translates hostName to an IP using asynchronous DNS and
   8         sets the host attribute. Returns self.
   9 */
  10
  11 #include "IoIPAddress.h"
  12 #include "IoState.h"
  13 #include "IoNumber.h"
  14 #include "IoSeq.h"
  15
  16 #define IPADDRESS(self) ((IPAddress *)IoObject_dataPointer(self))
  17
  18 IoIPAddress *IoMessage_locals_addressArgAt_(IoMessage *self, IoObject *locals, int n)
  19 {
  20         IoObject *v = IoMessage_locals_valueArgAt_(self, locals, n);
  21
  22         if (!ISIPADDRESS(v))
  23         {
  24                 IoMessage_locals_numberArgAt_errorForType_(self, locals, n, "IPAddress");
  25         }
  26
  27         return v;
  28 }
  29
  30 IPAddress *IoMessage_locals_rawIPAddressArgAt_(IoMessage *self, IoObject *locals, int n)
  31 {
  32         return IoIPAddress_rawIPAddress(IoMessage_locals_addressArgAt_(self, locals, n));
  33 }
  34
  35 IPAddress *IoIPAddress_rawIPAddress(IoIPAddress *self)
  36 {
  37         return IPADDRESS(self);
  38 }
  39
  40 IoTag *IoIPAddress_newTag(void *state)
  41 {
  42         IoTag *tag = IoTag_newWithName_("IPAddress");
  43         IoTag_state_(tag, state);
  44         IoTag_cloneFunc_(tag, (IoTagCloneFunc *)IoIPAddress_rawClone);
  45         IoTag_freeFunc_(tag, (IoTagFreeFunc *)IoIPAddress_free);
  46         return tag;
  47 }
  48
  49 IoIPAddress *IoIPAddress_proto(void *state)
  50 {
  51         IoObject *self = IoObject_new(state);
  52
  53         IoObject_tag_(self, IoIPAddress_newTag(state));
  54         IoObject_setDataPointer_(self, IPAddress_new());
  55
  56         IoState_registerProtoWithFunc_((IoState *)state, self, IoIPAddress_proto);
  57
  58         {
  59                 IoMethodTable methodTable[] = {
  60                 {"setIp", IoIPAddress_setIp},
  61                 {"ip", IoIPAddress_ip},
  62
  63                 {"setPort", IoIPAddress_setPort},
  64                 {"port", IoIPAddress_port},
  65
  66                 {NULL, NULL},
  67                 };
  68                 IoObject_addMethodTable_(self, methodTable);
  69         }
  70
  71         return self;
  72 }
  73
  74 IoIPAddress *IoIPAddress_rawClone(IoIPAddress *proto)
  75 {
  76         IoObject *self = IoObject_rawClonePrimitive(proto);
  77         IoObject_setDataPointer_(self, IPAddress_new());
  78         return self;
  79 }
  80
  81 IoIPAddress *IoIPAddress_new(void *state)
  82 {
  83         IoObject *proto = IoState_protoWithInitFunction_((IoState *)state, IoIPAddress_proto);
  84         return IOCLONE(proto);
  85 }
  86
  87 void IoIPAddress_free(IoIPAddress *self)
  88 {
  89         IPAddress_free(IPADDRESS(self));
  90 }
  91
  92 // -----------------------------------------------------------
  93
  94 /*
  95 IoIPAddress *IoIPAddress_newWithIPAddress_size_(void *state,
  96                                                                   struct sockaddr *address,
  97                                                                   size_t size)
  98 {
  99         IoIPAddress *self = IoIPAddress_new(state);
 100         free(DATA(self)->address);
 101         DATA(self)->address = malloc(size);
 102         DATA(self)->size = size;
 103         memcpy(DATA(self)->address, address, size);
 104         return self;
 105 }
 106 */
 107
 108 // ip
 109
 110 IoObject *IoIPAddress_setIp(IoIPAddress *self, IoObject *locals, IoMessage *m)
 111 {
 112         IoSeq *ip = IoMessage_locals_seqArgAt_(m, locals, 0);
 113         char *ipString = IoSeq_asCString(ip);
 114         IPAddress_setIp_(IPADDRESS(self), ipString);
 115         return self;
 116 }
 117
 118 IoObject *IoIPAddress_ip(IoIPAddress *self, IoObject *locals, IoMessage *m)
 119 {
 120         char *ip = IPAddress_ip(IPADDRESS(self));
 121         return IOSYMBOL(ip);
 122 }
 123
 124 // port
 125
 126 IoObject *IoIPAddress_setPort(IoIPAddress *self, IoObject *locals, IoMessage *m)
 127 {
 128         uint16_t port = IoMessage_locals_intArgAt_(m, locals, 0);
 129         IPAddress_setPort_(IPADDRESS(self), port);
 130         return self;
 131 }
 132
 133 IoObject *IoIPAddress_port(IoIPAddress *self, IoObject *locals, IoMessage *m)
 134 {
 135         int port = IPAddress_port(IPADDRESS(self));
 136         return IONUMBER(port);
 137 }