program use_onig;
{$AppType Console}
uses onig;
procedure x1;
var
  regex: integer;
  ret: integer;
//  str, pat, encode: string;
begin
//  str := ParamStr(1);
//  pat := ParamStr(2);
//  encode := ParamStr(3);
//  ret := fn_mregexp(PChar(str), PChar(pat), PChar(encode));
//  writeln('ret=', ret);
(*
  ret := fn_mregexp('んあいえ', 'あいう|(.あいえ)', 'SJIS');
  writeln('ret=', ret);
*)
  ret := -123;
  regex := fn_onig_new('あいう|(.あいえ)', 'SJIS');
  writeln('regex=', regex);
  if regex > 0 then
  try
    ret := fn_onig_search(regex, 'んあいえ');
  finally
    fn_onig_free(regex);
  end;
  writeln('ret=', ret);
end;
var
  i: integer;
begin
  for i:=0 to 10-1 do
    x1;
end.