monorail 0.0.1

data/ext/http.h

@@ -0,0 +1,154 @@
+/*****************************************************************************
+
+$Id: http.h 2357 2006-04-22 19:49:00Z francis $
+
+File:     http.h
+Date:     21Apr06
+
+Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+Gmail: garbagecat10
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+*****************************************************************************/
+
+
+#ifndef __HttpPersonality__H_
+#define __HttpPersonality__H_
+
+
+/**********************
+class HttpConnection_t
+**********************/
+
+class HttpConnection_t
+{
+  public:
+    HttpConnection_t();
+    virtual ~HttpConnection_t();
+
+		void ConsumeData (const char*, int);
+
+    virtual void SendData (const char*, int);
+    virtual void CloseConnection (bool after_writing);
+    virtual void ProcessRequest();
+
+  private:
+
+		enum {
+			BaseState,
+			PreheaderState,
+			HeaderState,
+			ReadingContentState,
+			DispatchState,
+			EndState
+		} ProtocolState;
+
+		enum {
+			MaxLeadingBlanks = 12,
+			MaxHeaderLineLength = 8 * 1024,
+			MaxContentLength = 20 * 1024 * 1024
+		};
+		int nLeadingBlanks;
+
+		char HeaderLine [MaxHeaderLineLength];
+		int HeaderLinePos;
+
+		int ContentLength;
+		int ContentPos;
+		char *_Content;
+
+		bool bRequestSeen;
+		bool bContentLengthSeen;
+
+
+	private:
+		bool _InterpretHeaderLine (const char*);
+		bool _InterpretRequest (const char*);
+		bool _DetectVerbAndSetEnvString (const char*, int);
+		void _SendError (int);
+};
+
+#endif // __HttpPersonality__H_
+
+
+
+
+//////////////////////////////////////////////////
+#if 0
+#ifndef __HttpPersonality__H_
+#define __HttpPersonality__H_
+
+
+void http_event_callback (const char*, int, const char*, int);
+
+
+/**********************
+class HttpConnection_t
+**********************/
+
+class HttpConnection_t
+{
+	public:
+		static void SetRequestCallback (void(*)(const char*, int, const char*, int));
+		static void (*RequestCallback)(const char*, int, const char*, int);
+
+
+	public:
+		HttpConnection_t (string&);
+		virtual ~HttpConnection_t();
+
+		void ConsumeData (const char*, int);
+
+	private:
+		string Signifier;
+
+		enum {
+			BaseState,
+			PreheaderState,
+			HeaderState,
+			ReadingContentState,
+			DispatchState,
+			EndState
+		} ProtocolState;
+
+		enum {
+			MaxLeadingBlanks = 12,
+			MaxHeaderLineLength = 8 * 1024,
+			MaxContentLength = 20 * 1024 * 1024
+		};
+		int nLeadingBlanks;
+
+		char HeaderLine [MaxHeaderLineLength];
+		int HeaderLinePos;
+
+		int ContentLength;
+		int ContentPos;
+		char *_Content;
+
+		bool bRequestSeen;
+		bool bContentLengthSeen;
+
+
+	private:
+		bool _InterpretHeaderLine (const char*);
+		bool _InterpretRequest (const char*);
+		bool _DetectVerbAndSetEnvString (const char*, int);
+		void _SendError (int);
+};
+
+
+#endif // __HttpPersonality__H_
+#endif

data/ext/rubyhttp.cpp

@@ -0,0 +1,165 @@
+/*****************************************************************************
+
+$Id: rubyhttp.cpp 2374 2006-04-24 02:51:49Z francis $
+
+File:     libmain.cpp
+Date:     06Apr06
+
+Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+Gmail: garbagecat10
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+*****************************************************************************/
+
+#include <iostream>
+#include <string>
+#include <stdexcept>
+
+using namespace std;
+
+#include <ruby.h>
+#include "http.h"
+
+
+
+/**************************
+class RubyHttpConnection_t
+**************************/
+
+class RubyHttpConnection_t: public HttpConnection_t
+{
+	public:
+		RubyHttpConnection_t (VALUE v): Myself(v) {}
+		virtual ~RubyHttpConnection_t() {}
+
+		virtual void SendData (const char*, int);
+		virtual void CloseConnection (bool after_writing);
+		virtual void ProcessRequest();
+
+	private:
+		VALUE Myself;
+};
+
+
+/******************************
+RubyHttpConnection_t::SendData
+******************************/
+
+void RubyHttpConnection_t::SendData (const char *data, int length)
+{
+	rb_funcall (Myself, rb_intern ("send_data"), 1, rb_str_new (data, length));
+}
+
+
+/*************************************
+RubyHttpConnection_t::CloseConnection
+*************************************/
+
+void RubyHttpConnection_t::CloseConnection (bool after_writing)
+{
+	VALUE v = rb_intern (after_writing ? "close_connection_after_writing" : "close_connection");
+	rb_funcall (Myself, v, 0);
+}
+
+
+/************************************
+RubyHttpConnection_t::ProcessRequest
+************************************/
+
+void RubyHttpConnection_t::ProcessRequest()
+{
+	rb_funcall (Myself, rb_intern ("process_http_request"), 0);
+}
+
+
+/*******
+Statics
+*******/
+
+
+
+/***********
+t_post_init
+***********/
+
+static VALUE t_post_init (VALUE self)
+{
+	RubyHttpConnection_t *hc = new RubyHttpConnection_t (self);
+	if (!hc)
+		throw std::runtime_error ("no http-connection object");
+
+	rb_ivar_set (self, rb_intern ("@http______conn"), INT2NUM ((int)hc));
+	return Qnil;
+}
+
+
+/**************
+t_receive_data
+**************/
+
+static VALUE t_receive_data (VALUE self, VALUE data)
+{
+	int length = NUM2INT (rb_funcall (data, rb_intern ("length"), 0));
+	RubyHttpConnection_t *hc = (RubyHttpConnection_t*)(NUM2INT (rb_ivar_get (self, rb_intern ("@http______conn"))));
+	if (hc)
+		hc->ConsumeData (StringValuePtr (data), length);
+	return Qnil;
+}
+
+
+/********
+t_unbind
+********/
+
+static VALUE t_unbind (VALUE self)
+{
+	RubyHttpConnection_t *hc = (RubyHttpConnection_t*)(NUM2INT (rb_ivar_get (self, rb_intern ("@http______conn"))));
+	if (hc)
+		delete hc;
+	return Qnil;
+}
+
+
+/**********************
+t_process_http_request
+**********************/
+
+static VALUE t_process_http_request (VALUE self)
+{
+	// This is a stub in case the caller doesn't define it.
+	rb_funcall (self, rb_intern ("send_data"), 1, rb_str_new2 ("HTTP/1.1 200 ...\r\nContent-type: text/plain\r\nContent-length: 8\r\n\r\nMonorail"));
+	return Qnil;
+}
+
+
+
+/********************
+Init_rubyhttpmachine
+********************/
+
+extern "C" void Init_rubyhttpmachine()
+{
+	// INCOMPLETE, we need to define class Connectons inside module EventMachine
+  
+  VALUE Monorail = rb_define_module ("Monorail");
+	VALUE EmModule = rb_define_module_under (Monorail, "HttpEventMachine");
+	rb_define_method (EmModule, "post_init", (VALUE(*)(...))t_post_init, 0);
+	rb_define_method (EmModule, "receive_data", (VALUE(*)(...))t_receive_data, 1);
+	rb_define_method (EmModule, "unbind", (VALUE(*)(...))t_unbind, 0);
+	rb_define_method (EmModule, "process_http_request", (VALUE(*)(...))t_process_http_request, 0);
+}
+
+

data/lib/monorail.rb

@@ -0,0 +1,137 @@
+# $Id: monorail.rb 2374 2006-04-24 02:51:49Z francis $
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+# Monorail is written and maintained by Francis Cianfrocca.
+# gmail: garbagecat10.
+
+# Monorail is a lightweight web-application framework that emphasizes
+# performance and security. It includes a native-code engine for
+# fast network I/O that eliminates the need for an outboard web server.
+#
+#--
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+
+
+
+
+require 'rubygems'
+require 'eventmachine'
+
+require 'rubyhttpmachine'
+require 'monorail/app'
+require 'monorail/monotreme'
+require 'monorail/monorail_webd'
+
+require 'stringio'
+
+
+module Monorail
+
+module HttpEventMachine
+
+  def process_http_request
+    send_data process_actual_request
+    close_connection_after_writing
+  end
+
+  def process_default
+    "Monorail default processor"
+  end
+
+  def process_rails_request
+    s = StringIO.new( "", "r+" )
+    Dispatcher.dispatch( nil, ActionController::CgiRequest::DEFAULT_SESSION_OPTIONS, s)
+    s.rewind
+    header = []
+    status = "HTTP/1.1 200 ...\r\n"
+    while line = s.gets and line.chomp! and line.length > 0
+      if line =~ /\AStatus:[\s]*([\d]{3})/i
+        status = "HTTP/1.1 #{$1} ...\r\n"
+      else
+        header << "#{line}\r\n"
+      end
+    end
+    header.unshift status
+    content = s.read
+    header << "Content-length: #{content.length}\r\n"
+    header << "\r\n"
+
+    header.join + content
+  end
+
+  def process_monorail_request
+    Monotreme.run
+  end
+
+
+end # module HttpEventMachine
+
+
+class Monorail
+
+  def initialize args
+    @args = args
+    block_given? and yield self
+
+    if @args.rails
+      initialize_for_rails
+    elsif @args.monorail
+      initialize_for_monorail
+    else
+      initialize_default
+    end
+
+  end
+
+
+  def run
+    $>.puts "starting the run..."
+    EventMachine.run {
+      EventMachine.start_server @args.host, @args.port, HttpEventMachine
+      EventMachine.add_periodic_timer(30) {p Time.now}
+    }
+  end
+
+
+  def initialize_for_monorail
+    $>.puts "initializing monorail environment..."
+    require @args.monorail + "/config"
+    HttpEventMachine.module_eval "alias_method :process_actual_request, :process_monorail_request"
+    $>.puts "done initializing monorail environment"
+  end
+
+  def initialize_for_rails
+    $>.puts "initializing rails environment..."
+    require @args.rails + "/config/environment"
+    require "dispatcher"
+    $>.puts "done initializing rails environment"
+    HttpEventMachine.module_eval "alias_method :process_actual_request, :process_rails_request"
+  end
+
+  def initialize_default
+    HttpEventMachine.module_eval "alias_method :process_actual_request, :process_default"
+  end
+
+
+end # class Monorail::Monorail
+end # module Monorail
+
+