Erlang provides mechanism to communicate between Erlang and other programs written by C/C++ or other. This entry introduce how to create simple linked-in driver. Create shared library and Erlang interface to use Erlang's linked-in driver.Goal: To create HAVAL bindings for Erlang.HAVAL is fast cryptographic hash algorithm is invented by Yuliang Zheng, Josef Pieprzyk, and Jennifer Seberry in 1992. This library is pretty simple, so this is good choice for this tutorial.Step 0: Filesconfig.h (Generated by configure script in HAVAL package)haval.hhaval.chaval.erlhaval_drv.ccMakefilehaval.c and haval.h are included haval-1.1.tar.gz (C source code).You can checkout these sample sources with Git. see haval_erlang.% git://github.com/rakuto/erlang_haval.git erlang_havalStep 1: Create Erlang's interfaceErlang provides port mechanism in order to communicate between Erlang and other loaded shared object. See also Writing an Erlang Port using OTP Principles-module(haval).-author('Rakuto Furutani <xri://=rakuto>').-define(DRV_INFO, 1).-define(DRV_HAVAL_STRING, 2).-define(DRV_HAVAL_FILE, 3).-export([start/0, stop/0]).-export([info/0, haval_string/1, haval_file/1]).-ifdef(debug).-export([test/0, test/1]).-endif.%%%% Public interface%%start() -> start("haval_drv"), ok.start(SharedLib) -> case erl_ddll:load_driver(".", SharedLib) of ok -> ok; {error, already_loaded} -> ok; _ -> exit({error, could_not_load_driver}) end, register_lib(SharedLib).stop() -> [{port, Port}| _] = ets:lookup(haval_table, port), Port ! {close, self()}, ok.%% TODO: Implement this function return the information for moduleinfo() -> ok.%% Caluculate a value of HAVAL from stringhaval_string(Str) ->binary_to_term(control(?DRV_HAVAL_STRING, Str)).%% Caluculate a value of HAVAL from filehaval_file(FileName) -> binary_to_term(control(?DRV_HAVAL_FILE, FileName)).-ifdef(debug).test() -> haval:start(), Str = "I love Erlang.", FileName = "haval.erl", Hash1 = haval:haval_string(Str), Hash2 = haval:haval_file(FileName), io:format("HAVAL(~p) = ~p ~n", [Str, Hash1]), io:format("HAVAL(~p) = ~p ~n", [FileName, Hash2]), haval:stop(), halt().test([Str|_]) -> haval:start(), Hash = haval:haval_string(Str), io:format("HAVAL(~p) = ~p ~n", [Str, Hash]), haval:stop(), halt().-endif.%%%% Internal functions%%register_lib(SharedLib) -> Port = open_port({spawn, SharedLib}, []), Tab = ets:new(haval_table, [set, protected, named_table]), ets:insert(Tab, {port, Port}).control(Cmd, Data) -> [{port, Port}| _] = ets:lookup(haval_table, port), erlang:port_control(Port, Cmd, Data).Step 2: Create C/C++ shared libraryShared library writted by C++ is loaded by Erlang interface when call erl_ddll::load_driver/2./** * HAVAL (cryptographic hash function) bindings for Erlang * * @author Rakuto Furutani <xri://=rakuto> * @date 2008/06/28 */#include <stdio.h>#include <string.h>#include <stdarg.h>#include <new>#include "ei.h"#include "erl_driver.h"#include "erl_interface.h"extern "C" {// Define constant for haval.h#define PASS 3#define NUMBER_OF_BLOCKS 5000#define FPTLEN 256#ifndef LITTLE_ENDIAN#define LITTLE_ENDIAN 1#endif#include "haval.h"}// Functions are provided by this driver#define DRV_INFO 1#define DRV_HAVAL_STRING 2 #define DRV_HAVAL_FILE 3 /* Driver Interface Declarations */static ErlDrvData start_haval_driver(ErlDrvPort port, char *command);static void stop_haval_driver(ErlDrvData drv_data);static int control(ErlDrvData drv_data, unsigned int command, char *buf, int len, char **rbuf, int rlen);static void haval_to_hex(unsigned char*, char*);static ErlDrvBinary* ei_x_to_new_binary(const ei_x_buff*);/* Driver Entry */static ErlDrvEntry haval_driver_entry = { NULL, start_haval_driver, stop_haval_driver, NULL, NULL, NULL, "haval_drv", NULL, NULL, control, NULL, NULL};typedef struct _drv_data { ErlDrvPort port;} drv_data_t;/* DRIVER INTERFACE */static ErlDrvData start_haval_driver(ErlDrvPort port, char *command){ drv_data_t *data; data = (drv_data_t*) driver_alloc(sizeof(drv_data_t)); data->port = port; set_port_control_flags(port, PORT_CONTROL_FLAG_BINARY); return (ErlDrvData) data;}static void stop_haval_driver(ErlDrvData drv_data){ driver_free((char*) drv_data);}static int control(ErlDrvData drv_data, unsigned int command, char *buf, int len, char **rbuf, int rlen){ int ret = -1; char hex[(FPTLEN >> 3) << 1]; unsigned char fingerprint[FPTLEN >> 3]; char *arg1; ei_x_buff x_buff; try { // argument arg1 = new char[len + 1]; strncpy(arg1, buf, len); strcat(arg1, "ï¿0"); ei_x_new_with_version(&x_buff); switch(command) { case DRV_INFO: ei_x_encode_string(&x_buff, "info"); ret = sizeof("info") * sizeof(char); break; case DRV_HAVAL_STRING: haval_string(arg1, fingerprint); haval_to_hex(&fingerprint[0], &hex[0]); ret = sizeof(hex); ei_x_encode_string(&x_buff, hex); break; case DRV_HAVAL_FILE: if(!haval_file(arg1, fingerprint)) { haval_to_hex(&fingerprint[0], &hex[0]); ret = sizeof(hex); ei_x_encode_string(&x_buff, hex); } else { erl_err_sys("haval_file"); } break; } if(ret > 0) *rbuf = reinterpret_cast<char*>(ei_x_to_new_binary(&x_buff)); ei_x_free(&x_buff); } catch(std::bad_alloc) { erl_err_sys("can not allocate memory"); } return ret;}static void haval_to_hex(unsigned char *fingerprint, char *hex){ for(int i=0; i < FPTLEN >> 3; ++i) { sprintf(&hex[i << 1], "%02X", fingerprint[i]); }}// Init the driverextern "C" DRIVER_INIT(haval_drv){ return &haval_driver_entry;}// Utilitiesstatic ErlDrvBinary* ei_x_to_new_binary(const ei_x_buff *x_buff){ ErlDrvBinary *bin = driver_alloc_binary(x_buff->index); if(bin != NULL) { memcpy(bin->orig_bytes, x_buff->buff, x_buff->index); } return bin;}Step 3: Compile all sourcesCreate Makefile for build.FYI: If you want to build linked-in driveron Mac OS, see Compile Erlang linked-in driver on Mac OSX (Darwin).PHONY: clean.SUFFIXES: .o .c .cc .erl .beamOS= ${shell uname}CC=gccCXX=g++CXXFLAGS=-Wall -g# ErlangERL_INCLUDE = -I/usr/local/lib/erlang/usr/includeERL_LIBS = -L/usr/local/lib/erlang/usr/lib \ -lertsEI_INCLUDE = -I/usr/local/lib/erlang/lib/erl_interface-3.5.6/includeEI_LIBS = -L/usr/local/lib/erlang/lib/erl_interface-3.5.6/lib \ -lei \ -lerl_interfaceTARGET_LIB = haval_drv.soifeq ($(OS), Darwin) EXTRA_OPTIONS = -fno-common -bundle -undefined suppress -flat_namespaceendifALL: $(TARGET_LIB) haval.beam.erl.beam: erlc -W -Ddebug $<.c.o: $(CC) $(CFLAGS) -c $<.cc.o: $(CXX) $(CXXFLAGS) $(ERL_INCLUDE) $(EI_INCLUDE) -c $<haval_drv.so: haval.o haval_drv.o $(CXX) -o $@ $^ $(ERL_LIBS) $(EI_LIBS) $(EXTRA_OPTIONS) -fpic -O2clean: rm -f *.beam *.o *.soStep 4: Run and test% erl -noshell -run haval testHAVAL("I love Erlang.") = "3AECEDF5133ED147C704A25C2CCA9A994FBB984FBCB22C1A523F31963E418498"HAVAL("haval.erl") = "E006098555DFF788E73C7A263615DF60CC82396B1BCE7AEB5FB7050C376F2B03"

In order to compile the Erlang linked-in driver on Darwin, we must specify some options when it will be linked. If you don't specify these options, you might see errors is as follows:

% gcc -o my_drv.dymlib my_drv.c -dynamiclib -fpic

/usr/bin/ld: Undefined symbols:
_driver_alloc
_driver_free
_driver_output

That's invalid, so it must specify some options below in order to create the shared object.

% gcc -o my_drv.so my_drv.c -bundle -flat_namespace -udefined suppress


see README in source code of Erlang/OTP for more details.

二週間ほど前に えーじさん から AtomPub のことで相談を受けて，あとで
ブログに書きますと言ったきりほったらかしてしまいました．Erlang 関係
でバタバタしてたもんですみません ＞＜

そういえば，数ヶ月前に "AtomPub のマニアックな話題について書いてい
きます" と言ったあと，ほとんど書いてない気もする…．

3月〜4月に書いたエントリに関連した標準化動向もあったことなので，
AtomPub についていくつか書いていこうと思います．Rails2 についても
ちょっとかくつもりです．

というわけで，久々に AtomPub の話題です．お題は OpenSocial の
XRDS-Simple です．

<a href=\"http://japan.cnet.com/blog/email/2008/06/25/entry_27003107/\">驚いた！こんな機能がJoomla CMSにあった！</a>という記事。なんでも、gmail のアドレスと、パスワードをJoomlaのサイトに入力すると、それでログインできるという話し。（下図参照）

<img src=\"http://japan.cnet.com/u/014/125/3b3a2fcd486233b3.jpg\" />

<font size=\"7\" color=\"red\">怖すぎる！</font>

これって、<font size=\"5\">フィッシングそのもの</a>でしょうが...。これをOpenIDと言われてしまうと...。

ちなみに：OpenIDでは、利用サイト側でIDとパスワードを一緒に入れることはありません。よい子のみんなは気をつけましょう！

http://japan.cnet.com/blog/email/2008/06/25/entry_27003107/

http://www.goyat.jp/goyat-news/1-latest-news/82-openid-gmail-address.html

昨日は表記の集まりに参加してきた. 幹事の水野さん, そして発表者のみなさん, どうもありがとうございました.

• 基調講演 (=nat さん)

  XRI の基礎 (コンタクト・サービスに mailto: を使ったりもできるんすね) から W3C TAG のネガティブ・キャンペーンの話, ORMS, JAL の OpenID 採用事例, そして @freeXRI の提供するツールの紹介まで, まさにキーノートと呼ぶにふさわしい内容.

• Apache2::AuthenOpenID (lopnor さん)

  「.htaccess に呪文を書けば結構動く」 というのは, たしかに敷居を下げるという意味で有効だよなー, OpenSSO のアイデンティティ・サービスも, .htaccess に

  AuthType OpenSSO
  ...

  みたいに書くだけで使えるようにするといいのかなー, などと個人的にいろいろ刺激をうけた.

• Attribute Exchange Sucks (ZIGOROu さん)

  「SAML はこの手の間接通信では JS で POST してる」 の件, いま思い出したけど, IdP と SP が直接通信できないような場合 (たとえば企業内部にあるアクセス管理 / SSO システム (IdP) を使って Google Apps (SP) にログインする) に対応するというのが, 理由としてあったかもしれない.

• ID-WSF (伊藤さん)

  実は最近あんま ID-WSF 関連はさわってなかったので, IdP が WSC (Web サービス・コンシューマ) に 「DS (ディスカバリ・サービス) にアクセスするときに提示するアサーション」 を発行したり, さらに DS が WSC に 「WSP (Web サービス・プロバイダ) にアクセスするときに提示するアサーション」 を発行したり, さらにそのアサーションが失効したら再度新しいアサーションを取得したり, といった, なんか基本的なことを自分がわかってないことがわかった... ちょっと OpenSSO でリハビリします.

そして飲み会は二次会まで楽しすぎた! ワインうまかった!