use strict;
use vars qw(%AJ15
$idsdata_file $ids_start $font_start
- $idc_regex $makefonts %ids
+ $idc_regex %ids
+ $omegadb_path $makefonts $u8j2otfk_dir
$opt_kage
$opt_ring $opt_comma $opt_period
$opt_latin
use Encode;
require 5.008;
+$omegadb_path=""; # Check the path of omegadb, if needed.
+$makefonts=""; # Check the path of makefonts.pl script, if needed.
+
+unless($omegadb_path){
+ if(-w '/usr/local/share/chise/omega'){
+ $omegadb_path='/usr/local/share/chise/omega';
+ }elsif(-w '/usr/share/chise/omega'){
+ $omegadb_path='/usr/share/chise/omega';
+ }elsif(-w '/sw/share/chise/omega'){
+ $omegadb_path='/sw/share/chise/omega';
+ }elsif(-w '/usr/local/lib/chise/omega'){
+ $omegadb_path='/usr/local/lib/chise/omega';
+ }else{
+ $omegadb_path=".";
+ }
+}
+$omegadb_path=~s!/$!!;
+
+$u8j2otfk_dir="";
+($u8j2otfk_dir=$0)=~s!^(.*)/.*$!$1!;
+
+unless($makefonts){
+ if(-e "$u8j2otfk_dir/makefonts"){
+ $makefonts="$u8j2otfk_dir/makefonts";
+ }elsif(-e "/usr/local/share/texmf/omega/ocp/chise_rqd/chise/makefonts.pl"){
+ $makefonts="/usr/local/share/texmf/omega/ocp/chise_rqd/chise/makefonts.pl";
+ }
+}
+
binmode(STDOUT,":encoding(euc-jp)");
&GetOptions("kage",\$opt_kage,
$AJ15{ṝ}='{\ifmmode \ucirc{\bar{r}}\else \ucirc{\={r}}\fi}';
}
-$idsdata_file="/sw/share/chise/omega/idsdata.txt";
-$makefonts="/usr/local/share/texmf/omega/ocp/chise_rqd/chise/makefonts.pl";
+$idsdata_file="$omegadb_path/idsdata.txt";
$ids_start=0x00;
$font_start=0;
$idc_regex="\x{2ff0}-\x{2fff}";