Big Sky :: mod_psgiをWindowsポーティングした。

2009/10/05

mod_psgiをWindowsポーティングした。

spiritlooseさんがPSGIなapacheモジュールを書いてくれたのでWindowsにポーティングしてみた。

mod_psgi を実装してみた - spiritlooseのはてなダイアリー

PSGI を実装したApache2モジュール。
http://d.hatena.ne.jp/spiritloose/20091002/1254467284

ちょっと気持ち悪いpatchになるけど、一応動いている。
巷にあるライブラリなどではWindowsポーティングされた時にUN*Xライクな型を自前で定義している事があるんだけど、Apacheモジュールのapr.hなんかや、Perlなんかでuid_t/gid_t/pid_tなんかが定義されている事が多い。

apr.h


typedef int uid_t;

perl.h


typedef long uid_t;

もちろんこのヘッダを同時に読み込むとエラーになるんですが、こういう場合に私がよく使う手として


#define uid_t _uid_t

#include <apr.h>

#undef uid_t

#include <perl.h>

てな具合に前の宣言を逃してやって、後の宣言を有効に出来る。今回はこの気持ち悪いhackを使ってWindowsにポーティングしました。

Commit 03fb93ebf27f0b98c3fbcc616ce736129e747912 to mattn's mod_psgi - GitHub
http://github.com/mattn/mod_psgi/commit/03fb93ebf27f0b98c3fbcc616ce736129e747912

今の所ご機嫌よく動いていて


use strict;

use warnings;

my $count = 0;

my $handler = sub {

    my $content = "Hello World".$count++;

    return [ 200, [ "Content-Type" => "text/plain", "Content-Length" => length($content) ], [ $content ] ];

};

# vim:set ft=perl:

こんなPSGIなアプリもうまくちゃんとリクエスト毎にカウントアップされています。
もちろんpreforkだと同じ結果が現れる事がありますが
まだマージして頂いていないので、捨てコードになるかもしれませんが...

AWSWORD:perl:

Posted at 23:45 | WriteBacks () | Edit

Edit this entry...

wikieditish message: Ready to edit this entry.

New Name:

Title:

Body:

meta-tags: windows, mod_psgi, psgi, perl
meta-creation_date: 2009-10-05T23:45:36+09:00

spiritlooseさんがPSGIなapacheモジュールを書いてくれたのでWindowsにポーティングしてみた。 
<blockquote class="quote">
<a href="http://d.hatena.ne.jp/spiritloose/20091002/1254467284
" class="external" target="_blank" rel="noopener noreferrer">mod_psgi を実装してみた - spiritlooseのはてなダイアリー</a> 
PSGI を実装したApache2モジュール。
<cite>http://d.hatena.ne.jp/spiritloose/20091002/1254467284</cite>
</blockquote>
ちょっと気持ち悪いpatchになるけど、一応動いている。 
巷にあるライブラリなどではWindowsポーティングされた時にUN*Xライクな型を自前で定義している事があるんだけど、Apacheモジュールのapr.hなんかや、Perlなんかでuid_t/gid_t/pid_tなんかが定義されている事が多い。 
 
apr.h 
<code class="code">
typedef&nbsp;int&nbsp;uid_t; 
</code>
 
perl.h 
<code class="code">
typedef&nbsp;long&nbsp;uid_t; 
</code>
 
もちろんこのヘッダを同時に読み込むとエラーになるんですが、こういう場合に私がよく使う手として 
<code class="code">
#define uid_t _uid_t 
#include &lt;apr.h&gt; 
#undef uid_t 
#include &lt;perl.h&gt; 
</code>
てな具合に前の宣言を逃してやって、後の宣言を有効に出来る。今回はこの気持ち悪いhackを使ってWindowsにポーティングしました。 
 
<blockquote class="mention">
<a href="http://github.com/mattn/mod_psgi/commit/03fb93ebf27f0b98c3fbcc616ce736129e747912" class="external" target="_blank" rel="noopener noreferrer">Commit 03fb93ebf27f0b98c3fbcc616ce736129e747912 to mattn's mod_psgi - GitHub</a> 
<cite>http://github.com/mattn/mod_psgi/commit/03fb93ebf27f0b98c3fbcc616ce736129e747912</cite>
</blockquote>
今の所ご機嫌よく動いていて
<code class="code">
use strict; 
use warnings; 
my&nbsp;$count&nbsp;= 0; 
my&nbsp;$handler&nbsp;= sub { 
&nbsp;&nbsp;&nbsp;&nbsp;my&nbsp;$content&nbsp;= &quot;Hello World&quot;.$count++; 
&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;[ 200, [ &quot;Content-Type&quot;&nbsp;=&gt; &quot;text/plain&quot;, &quot;Content-Length&quot;&nbsp;=&gt; length($content) ], [ $content&nbsp;] ]; 
}; 
# vim:set ft=perl: 
</code>
こんなPSGIなアプリもうまくちゃんとリクエスト毎にカウントアップされています。 
もちろんpreforkだと同じ結果が現れる事がありますが 
まだマージして頂いていないので、捨てコードになるかもしれませんが... 
 
AWSWORD:perl:

Excerpt:

spiritlooseさんがPSGIなapacheモジュールを書いてくれたのでWindowsにポーティングしてみた。mod_psgi を実装してみた - spiritlooseのはてなダイアリーPSGI を実装したApache2モジュール。http://d.hatena.ne.jp/spiritloose/20091002/1254467284ちょっと気持ち悪いpatchになるけど、一応動いている。巷にあるライブラリなどではWindowsポーティングされた時にUN*Xライクな型を自前で定義している事があるんだけど、Apacheモジュールのapr.hなんかや、Perlなんかでuid_t/gid_t/pid_tなんかが定義されている事が多い。apr.htypedef int uid_t;perl.htypedef long uid_t;もちろんこのヘッダを同時に読み込むとエラーになるんですが、こういう場合に私がよく使う手として#define uid_t _uid_t#include <apr.h>#undef uid_t#include <perl.h>てな具合に前の宣言を逃してやって、後の宣言を有効に出来る。今回はこの気持ち悪いhackを使ってWindowsにポーティングしました。Commit 03fb93ebf27f0b98c3fbcc616ce736129e747912 to mattn's mod_psgi - GitHubhttp://github.com/mattn/mod_psgi/commit/03fb93ebf27f0b98c3fbcc616ce736129e747912今の所ご機嫌よく動いていてuse strict;use warnings;my $count = 0;my $handler = sub {    my $content = "Hello World".$count++;    return [ 200, [ "Content-Type" => "text/plain", "Content-Length" => length($content) ], [ $content ] ];};# vim:set ft=perl:こんなPSGIなアプリもうまくちゃんとリクエスト毎にカウントアップされています。もちろんpreforkだと同じ結果が現れる事がありますがまだマージして頂いていないので、捨てコードになるかもしれませんが...AWSWORD:perl:

Ping URLs:

File:

Password:

A quick preview will be rendered here when you click "Preview" button.