URL.c

Go to the documentation of this file.

/*
 * Objectively: Ultra-lightweight object oriented framework for GNU C.
 * Copyright (C) 2014 Jay Dolan <jay@jaydolan.com>
 *
 * This software is provided 'as-is', without any express or implied
 * warranty. In no event will the authors be held liable for any damages
 * arising from the use of this software.
 *
 * Permission is granted to anyone to use this software for any purpose,
 * including commercial applications, and to alter it and redistribute it
 * freely, subject to the following restrictions:
 *
 * 1. The origin of this software must not be misrepresented; you must not
 * claim that you wrote the original software. If you use this software
 * in a product, an acknowledgment in the product documentation would be
 * appreciated but is not required.
 *
 * 2. Altered source versions must be plainly marked as such, and must not be
 * misrepresented as being the original software.
 *
 * 3. This notice may not be removed or altered from any source distribution.
 */
 
#include <assert.h>
#include <stdlib.h>
 
#include "String.h"
#include "Regexp.h"
#include "URL.h"
 
#define _Class _URL
 
#pragma mark - Object
 
static Object *copy(const Object *self) {
 
  const URL *this = (URL *) self;
 
  return (Object *) $(alloc(URL), initWithString, this->urlString);
}
 
static void dealloc(Object *self) {
 
  URL *this = (URL *) self;
 
  release(this->fragment);
  release(this->host);
  release(this->path);
  release(this->query);
  release(this->scheme);
  release(this->urlString);
 
  super(Object, self, dealloc);
}
 
static String *description(const Object *self) {
 
  const URL *this = (URL *) self;
 
  return $((Object *) this->urlString, description);
}
 
static int hash(const Object *self) {
 
  const URL *this = (URL *) self;
 
  return $((Object *) this->urlString, hash);
}
 
static bool isEqual(const Object *self, const Object *other) {
 
  if (super(Object, self, isEqual, other)) {
    return true;
  }
 
  if (other && self->clazz == other->clazz) {
 
    const URL *this = (URL *) self;
    const URL *that = (URL *) other;
 
    return $((Object *) this->urlString, isEqual, (Object *) that->urlString);
  }
 
  return false;
}
 
#pragma mark - URL
 
static URL *baseURL(const URL *self) {
 
  String *string = $(alloc(String), init);
 
  $(string, appendString, self->scheme);
  $(string, appendFormat, "://");
 
  if (self->host) {
    $(string, appendString, self->host);
  }
 
  if (self->port) {
    $(string, appendFormat, ":%u", self->port);
  }
 
  URL *baseURL = $(alloc(URL), initWithString, (String *) string);
 
  release(string);
 
  return baseURL;
}
 
static Regexp *_re;
 
static URL *initWithCharacters(URL *self, const char *chars) {
 
  assert(chars);
 
  self = (URL *) super(Object, self, init);
  if (self) {
 
    Range *ranges;
    if ($(_re, matchesCharacters, chars, 0, &ranges)) {
 
      self->urlString = $(alloc(String), initWithCharacters, chars);
 
      Range *scheme = &ranges[1];
      Range *host = &ranges[2];
      Range *port = &ranges[3];
      Range *path = &ranges[4];
      Range *query = &ranges[5];
      Range *fragment = &ranges[6];
 
      self->scheme = $(self->urlString, substring, *scheme);
 
      if (host->location > -1) {
        self->host = $(self->urlString, substring, *host);
 
        if (port->location > -1) {
          const char *s = self->urlString->chars + port->location + 1;
          self->port = strtoul(s, NULL, 10);
        }
      }
 
      if (path->location > -1) {
        self->path = $(self->urlString, substring, *path);
      }
 
      if (query->location > -1) {
 
        query->location++;
        query->length--;
 
        self->query = $(self->urlString, substring, *query);
      }
 
      if (fragment->location > -1) {
 
        fragment->location++;
        fragment->length--;
 
        self->fragment = $(self->urlString, substring, *fragment);
      }
 
      free(ranges);
    } else {
      self = release(self);
    }
  }
 
  return self;
}
 
static URL *initWithString(URL *self, const String *string) {
 
  assert(string);
 
  return $(self, initWithCharacters, string->chars);
}
 
static Array *pathComponents(const URL *self) {
 
  return $(self->path, componentsSeparatedByCharacters, "/");
}
 
#pragma mark - Class lifecycle
 
static void destroy(Class *clazz) {
 
  release(_re);
}
 
static void initialize(Class *clazz) {
 
  ((ObjectInterface *) clazz->interface)->copy = copy;
  ((ObjectInterface *) clazz->interface)->dealloc = dealloc;
  ((ObjectInterface *) clazz->interface)->description = description;
  ((ObjectInterface *) clazz->interface)->hash = hash;
  ((ObjectInterface *) clazz->interface)->isEqual = isEqual;
 
  ((URLInterface *) clazz->interface)->baseURL = baseURL;
  ((URLInterface *) clazz->interface)->initWithCharacters = initWithCharacters;
  ((URLInterface *) clazz->interface)->initWithString = initWithString;
  ((URLInterface *) clazz->interface)->pathComponents = pathComponents;
 
  _re = re("([a-z]+)://([^:/\?]+)?(:[0-9]+)?(/[^\?#]+)?([^#]+)?(#.*)?", 0);
}
 
Class *_URL(void) {
  static Class *clazz;
  static Once once;
 
  do_once(&once, {
    clazz = _initialize(&(const ClassDef) {
      .name = "URL",
      .superclass = _Object(),
      .instanceSize = sizeof(URL),
      .interfaceOffset = offsetof(URL, interface),
      .interfaceSize = sizeof(URLInterface),
      .initialize = initialize,
      .destroy = destroy,
    });
  });
 
  return clazz;
}
 
#undef _Class