rinku 1.0.0

data/COPYING

@@ -0,0 +1,13 @@
+Copyright (c) 2011, Vicent Marti
+
+Permission to use, copy, modify, and distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

data/README.markdown

@@ -0,0 +1,87 @@
+Rinku does linking
+==================
+
+Rinku is a Ruby library that does autolinking.
+It parses text and turns anything that remotely resembles a link into an HTML link,
+just like the Ruby on Rails `auto_link` method -- but it's about 20 times faster,
+because it's written in C, and it's about 20 times smarter when linking,
+because it does actual parsing instead of RegEx replacements.
+
+Rinku is a Ruby Gem 
+-------------------
+
+Rinku is available as a Ruby gem:
+
+    $ [sudo] gem install rinku
+
+The Rinku source is available at GitHub:
+
+    $ git clone git://github.com/tanoku/rinku.git
+
+Rinku is a drop-in replacement for Rails `auto_link`
+----------------------------------------------------
+
+And I'm a lazy bum, so I've copied and pasted the Rails API docs here.
+Yes, the Rinku API is 100% compatible.
+
+~~~~~~ruby
+# Turns all URLs and e-mail addresses into clickable links. The <tt>:link</tt> option
+# will limit what should be linked. You can add HTML attributes to the links using
+# <tt>:html</tt>. Possible values for <tt>:link</tt> are <tt>:all</tt> (default),
+# <tt>:email_addresses</tt>, and <tt>:urls</tt>. If a block is given, each URL and
+# e-mail address is yielded and the result is used as the link text.
+#
+# ==== Examples
+#   auto_link("Go to http://www.rubyonrails.org and say hello to david@loudthinking.com")
+#   # => "Go to <a href=\"http://www.rubyonrails.org\">http://www.rubyonrails.org</a> and
+#   #     say hello to <a href=\"mailto:david@loudthinking.com\">david@loudthinking.com</a>"
+#
+#   auto_link("Visit http://www.loudthinking.com/ or e-mail david@loudthinking.com", :link => :urls)
+#   # => "Visit <a href=\"http://www.loudthinking.com/\">http://www.loudthinking.com/</a>
+#   #     or e-mail david@loudthinking.com"
+#
+#   auto_link("Visit http://www.loudthinking.com/ or e-mail david@loudthinking.com", :link => :email_addresses)
+#   # => "Visit http://www.loudthinking.com/ or e-mail <a href=\"mailto:david@loudthinking.com\">david@loudthinking.com</a>"
+#
+#   post_body = "Welcome to my new blog at http://www.myblog.com/.  Please e-mail me at me@email.com."
+#   auto_link(post_body, :html => { :target => '_blank' }) do |text|
+#     truncate(text, :length => 15)
+#   end
+#   # => "Welcome to my new blog at <a href=\"http://www.myblog.com/\" target=\"_blank\">http://www.m...</a>.
+#         Please e-mail me at <a href=\"mailto:me@email.com\">me@email.com</a>."
+#
+#
+# You can still use <tt>auto_link</tt> with the old API that accepts the
+# +link+ as its optional second parameter and the +html_options+ hash
+# as its optional third parameter:
+#   post_body = "Welcome to my new blog at http://www.myblog.com/. Please e-mail me at me@email.com."
+#   auto_link(post_body, :urls)     # => Once upon\na time
+#   # => "Welcome to my new blog at <a href=\"http://www.myblog.com/\">http://www.myblog.com</a>.
+#         Please e-mail me at me@email.com."
+#
+#   auto_link(post_body, :all, :target => "_blank")     # => Once upon\na time
+#   # => "Welcome to my new blog at <a href=\"http://www.myblog.com/\" target=\"_blank\">http://www.myblog.com</a>.
+#         Please e-mail me at <a href=\"mailto:me@email.com\">me@email.com</a>."
+~~~~~~~~~
+
+Rinku is written by me
+----------------------
+
+I am Vicent Marti, and I wrote Rinku.
+While Rinku is busy doing autolinks, you should be busy following me on twitter. `@tanoku`. Do it.
+
+Rinku has an awesome license
+----------------------------
+
+Permission to use, copy, modify, and/or distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+

data/Rakefile

@@ -0,0 +1,71 @@
+require 'date'
+require 'rake/clean'
+require 'rake/extensiontask'
+require 'digest/md5'
+
+task :default => :test
+
+# ==========================================================
+# Ruby Extension
+# ==========================================================
+
+Rake::ExtensionTask.new('rinku')
+
+# ==========================================================
+# Testing
+# ==========================================================
+
+require 'rake/testtask'
+Rake::TestTask.new('test') do |t|
+  t.test_files = FileList['test/*_test.rb']
+  t.ruby_opts += ['-rubygems'] if defined? Gem
+end
+task 'test' => [:compile]
+
+# PACKAGING =================================================================
+
+require 'rubygems'
+$spec = eval(File.read('rinku.gemspec'))
+
+def package(ext='')
+  "pkg/rinku-#{$spec.version}" + ext
+end
+
+desc 'Build packages'
+task :package => package('.gem')
+
+desc 'Build and install as local gem'
+task :install => package('.gem') do
+  sh "gem install #{package('.gem')}"
+end
+
+desc 'Update the gemspec'
+task :update_gem => file('rinku.gemspec')
+
+directory 'pkg/'
+
+file package('.gem') => %w[pkg/ rinku.gemspec] + $spec.files do |f|
+  sh "gem build rinku.gemspec"
+  mv File.basename(f.name), f.name
+end
+
+# GEMSPEC HELPERS ==========================================================
+
+desc 'Gather required Upskirt sources into extension directory'
+task :gather => 'upskirt/src/markdown.h' do |t|
+  files =
+    FileList[
+      'upskirt/src/{buffer,autolink}.h',
+      'upskirt/src/{buffer,autolink}.c',
+      'upskirt/html/html_autolink.c'
+    ]
+  cp files, 'ext/rinku/',
+    :preserve => true,
+    :verbose => true
+end
+
+file 'upskirt/src/markdown.h' do |t|
+  abort "The Upskirt submodule is required."
+end
+
+

data/VERSION

@@ -0,0 +1 @@
+1.0.0

data/ext/rinku/autolink.c

@@ -0,0 +1,239 @@
+/*
+ * Copyright (c) 2011, Vicent Marti
+ *
+ * Permission to use, copy, modify, and distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#include "buffer.h"
+
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <ctype.h>
+
+int
+is_safe_link(const char *link, size_t link_len)
+{
+	static const size_t valid_uris_count = 4;
+	static const char *valid_uris[] = {
+		"http://", "https://", "ftp://", "mailto://"
+	};
+
+	size_t i;
+
+	for (i = 0; i < valid_uris_count; ++i) {
+		size_t len = strlen(valid_uris[i]);
+
+		if (link_len > len &&
+			strncasecmp(link, valid_uris[i], len) == 0 &&
+			isalnum(link[len]))
+			return 1;
+	}
+
+	return 0;
+}
+
+static size_t
+autolink_delim(char *data, size_t link_end, size_t offset, size_t size)
+{
+	char cclose, copen = 0;
+
+	while (link_end > 0) {
+		if (strchr("?!.,", data[link_end - 1]) != NULL)
+			link_end--;
+
+		else if (data[link_end - 1] == ';') {
+			size_t new_end = link_end - 2;
+
+			while (new_end > 0 && isalpha(data[new_end]))
+				new_end--;
+
+			if (new_end < link_end - 2 && data[new_end] == '&')
+				link_end = new_end;
+			else
+				link_end--;
+		}
+
+		else if (data[link_end - 1] == '>') {
+			while (link_end > 0 && data[link_end] != '<')
+				link_end--;
+		}
+		else break;
+	}
+
+	if (link_end == 0)
+		return 0;
+
+	cclose = data[link_end - 1];
+
+	switch (cclose) {
+	case '"':	copen = '"'; break;
+	case '\'':	copen = '\''; break;
+	case ')':	copen = '('; break;
+	case ']':	copen = '['; break;
+	case '}':	copen = '{'; break;
+	}
+
+	if (copen != 0) {
+		size_t closing = 0;
+		size_t opening = 0;
+		size_t i = 0;
+
+		/* Try to close the final punctuation sign in this same line;
+		 * if we managed to close it outside of the URL, that means that it's
+		 * not part of the URL. If it closes inside the URL, that means it
+		 * is part of the URL.
+		 *
+		 * Examples:
+		 *
+		 *	foo http://www.pokemon.com/Pikachu_(Electric) bar
+		 *		=> http://www.pokemon.com/Pikachu_(Electric)
+		 *
+		 *	foo (http://www.pokemon.com/Pikachu_(Electric)) bar
+		 *		=> http://www.pokemon.com/Pikachu_(Electric)
+		 *
+		 *	foo http://www.pokemon.com/Pikachu_(Electric)) bar
+		 *		=> http://www.pokemon.com/Pikachu_(Electric))
+		 *
+		 *	(foo http://www.pokemon.com/Pikachu_(Electric)) bar
+		 *		=> foo http://www.pokemon.com/Pikachu_(Electric)
+		 */
+
+		while (i < link_end) {
+			if (data[i] == copen)
+				opening++;
+			else if (data[i] == cclose)
+				closing++;
+
+			i++;
+		}
+
+		if (closing != opening)
+			link_end--;
+	}
+
+	return link_end;
+}
+
+size_t
+ups_autolink__www(size_t *rewind_p, struct buf *link, char *data, size_t offset, size_t size)
+{
+	size_t link_end;
+	int np = 0;
+
+	if (offset > 0 && !ispunct(data[-1]) && !isspace(data[-1]))
+		return 0;
+
+	if (size < 4 || memcmp(data, "www.", STRLEN("www.")) != 0)
+		return 0;
+
+	link_end = 0;
+	while (link_end < size && !isspace(data[link_end])) {
+		if (data[link_end] == '.')
+			np++;
+
+		link_end++;
+	}
+
+	if (np < 2)
+		return 0;
+
+	link_end = autolink_delim(data, link_end, offset, size);
+
+	if (link_end == 0)
+		return 0;
+
+	bufput(link, data, link_end);
+	*rewind_p = 0;
+
+	return (int)link_end;
+}
+
+size_t
+ups_autolink__email(size_t *rewind_p, struct buf *link, char *data, size_t offset, size_t size)
+{
+	size_t link_end, rewind;
+	int nb = 0, np = 0;
+
+	for (rewind = 0; rewind < offset; ++rewind) {
+		char c = data[-rewind - 1];
+
+		if (isalnum(c))
+			continue;
+
+		if (strchr(".+-_", c) != NULL)
+			continue;
+
+		break;
+	}
+
+	if (rewind == 0)
+		return 0;
+
+	for (link_end = 0; link_end < size; ++link_end) {
+		char c = data[link_end];
+
+		if (isalnum(c))
+			continue;
+
+		if (c == '@')
+			nb++;
+		else if (c == '.' && link_end < size - 1)
+			np++;
+		else if (c != '-' && c != '_')
+			break;
+	}
+
+	if (link_end < 2 || nb != 1 || np == 0)
+		return 0;
+
+	link_end = autolink_delim(data, link_end, offset, size);
+
+	if (link_end == 0)
+		return 0;
+
+	bufput(link, data - rewind, link_end + rewind);
+	*rewind_p = rewind;
+
+	return link_end;
+}
+
+size_t
+ups_autolink__url(size_t *rewind_p, struct buf *link, char *data, size_t offset, size_t size)
+{
+	size_t link_end, rewind = 0;
+
+	if (size < 4 || data[1] != '/' || data[2] != '/')
+		return 0;
+
+	while (rewind < offset && isalpha(data[-rewind - 1]))
+		rewind++;
+
+	if (!is_safe_link(data - rewind, size + rewind))
+		return 0;
+
+	link_end = 0;
+	while (link_end < size && !isspace(data[link_end]))
+		link_end++;
+
+	link_end = autolink_delim(data, link_end, offset, size);
+
+	if (link_end == 0)
+		return 0;
+
+	bufput(link, data - rewind, link_end + rewind);
+	*rewind_p = rewind;
+
+	return link_end;
+}
+

data/ext/rinku/autolink.h

@@ -0,0 +1,39 @@
+/*
+ * Copyright (c) 2011, Vicent Marti
+ *
+ * Permission to use, copy, modify, and distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#ifndef UPSKIRT_AUTOLINK_H
+#define UPSKIRT_AUTOLINK_H_H
+
+#include "buffer.h"
+
+typedef enum {
+	AUTOLINK_URLS = (1 << 0),
+	AUTOLINK_EMAILS = (1 << 1),
+	AUTOLINK_ALL = AUTOLINK_URLS|AUTOLINK_EMAILS
+} autolink_mode;
+
+extern size_t
+ups_autolink__www(size_t *rewind_p, struct buf *link, char *data, size_t offset, size_t size);
+
+extern size_t
+ups_autolink__email(size_t *rewind_p, struct buf *link, char *data, size_t offset, size_t size);
+
+extern size_t
+ups_autolink__url(size_t *rewind_p, struct buf *link, char *data, size_t offset, size_t size);
+
+#endif
+
+/* vim: set filetype=c: */