mirror of https://github.com/gnosygnu/xowa
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
107 lines
5.0 KiB
107 lines
5.0 KiB
/*
|
|
XOWA: the XOWA Offline Wiki Application
|
|
Copyright (C) 2012 gnosygnu@gmail.com
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU Affero General Public License as
|
|
published by the Free Software Foundation, either version 3 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 Affero General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Affero General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
package gplx.xowa.xtns.mapSources; import gplx.*; import gplx.xowa.*; import gplx.xowa.xtns.*;
|
|
import gplx.core.primitives.*;
|
|
import gplx.xowa.langs.*; import gplx.xowa.langs.msgs.*; import gplx.xowa.langs.kwds.*;
|
|
import gplx.xowa.xtns.pfuncs.*;
|
|
import gplx.xowa.parsers.*; import gplx.xowa.parsers.tmpls.*;
|
|
public class Map_geolink_func extends Pf_func_base {
|
|
@Override public int Id() {return Xol_kwd_grp_.Id_mapSources_geoLink;}
|
|
@Override public Pf_func New(int id, byte[] name) {return new Map_geolink_func().Name_(name);}
|
|
@Override public void Func_evaluate(Bry_bfr bfr, Xop_ctx ctx, Xot_invk caller, Xot_invk self, byte[] src) {
|
|
byte[] mer_x_val = null, mer_y_val = null, mer_x_pos = null, mer_x_neg = null, mer_y_pos = null, mer_y_neg = null;
|
|
int prec = 4;
|
|
int args_len = self.Args_len();
|
|
Bry_bfr tmp_bfr = ctx.Wiki().Utl__bfr_mkr().Get_b128();
|
|
try {
|
|
Xop_func_arg_itm func_arg = new Xop_func_arg_itm();
|
|
byte[] pattern = Eval_argx(ctx, src, caller, self);
|
|
for (int i = 0; i < args_len; i++) {
|
|
Arg_nde_tkn arg = self.Args_get_by_idx(i);
|
|
func_arg.Set(tmp_bfr, ctx, src, caller, self, arg);;
|
|
byte[] key = func_arg.key;
|
|
Object key_tid_obj = Key_hash.Get_by(key);
|
|
if (key_tid_obj != null) {
|
|
byte[] val = func_arg.val;
|
|
switch (((Byte_obj_val)key_tid_obj).Val()) {
|
|
case Key_tid_lat_val: mer_x_val = val; break;
|
|
case Key_tid_long_val: mer_y_val = val; break;
|
|
case Key_tid_lat_pos: mer_x_pos = val; break;
|
|
case Key_tid_lat_neg: mer_x_neg = val; break;
|
|
case Key_tid_long_pos: mer_y_pos = val; break;
|
|
case Key_tid_long_min: mer_y_neg = val; break;
|
|
case Key_tid_prec: prec = Bry_.To_int_or(val, prec); break;
|
|
}
|
|
}
|
|
}
|
|
Map_math mer_x_math = new Map_math();
|
|
Map_math mer_y_math = new Map_math();
|
|
boolean mer_x_pass = mer_x_math.Ctor(mer_x_val, prec, Map_math.Dir_lat_bry, 2);
|
|
boolean mer_y_pass = mer_y_math.Ctor(mer_y_val, prec, Map_math.Dir_long_bry, 2);
|
|
if (!mer_x_pass) mer_x_math.Fail(ctx, src, self, bfr, this.Name());
|
|
if (!mer_y_pass) mer_y_math.Fail(ctx, src, self, bfr, this.Name());
|
|
Object[] args = new Object[6];
|
|
args[0] = Xto_coord(tmp_bfr, mer_x_math, mer_x_pass, mer_x_math.Coord_dir_ns(), Bry_arg_0_fail);
|
|
args[1] = Xto_coord(tmp_bfr, mer_y_math, mer_y_pass, mer_y_math.Coord_dir_ew(), Bry_arg_1_fail);
|
|
args[2] = Xto_dms(ctx, mer_x_math, mer_x_pass, mer_x_pos, mer_x_neg);
|
|
args[3] = Xto_dms(ctx, mer_y_math, mer_y_pass, mer_y_pos, mer_y_neg);
|
|
args[4] = Xto_dec(tmp_bfr, mer_x_math, mer_x_pass);
|
|
args[5] = Xto_dec(tmp_bfr, mer_y_math, mer_y_pass);
|
|
bfr.Add(Xol_msg_itm_.eval_(tmp_bfr, tmp_msg_itm, pattern, args));
|
|
} finally {tmp_bfr.Mkr_rls();}
|
|
}
|
|
private static final Xol_msg_itm tmp_msg_itm = new Xol_msg_itm(-1, Bry_.Empty);
|
|
private static byte[] Xto_coord(Bry_bfr bfr, Map_math math, boolean pass, byte[] dir, byte[] or) {
|
|
return pass
|
|
? bfr.Add_double(Math_.Abs_double(math.Dec())).Add_byte(Byte_ascii.Underline).Add(dir).To_bry_and_clear()
|
|
: or
|
|
;
|
|
}
|
|
private static byte[] Xto_dms(Xop_ctx ctx, Map_math math, boolean pass, byte[] pos, byte[] neg) {
|
|
return pass
|
|
? math.Get_dms(pos, neg)
|
|
: ctx.Wiki().Msg_mgr().Val_by_key_obj("mapsources-math-incorrect-input")
|
|
;
|
|
}
|
|
private static byte[] Xto_dec(Bry_bfr bfr, Map_math math, boolean pass) {
|
|
return pass
|
|
? bfr.Add_double(math.Dec()).To_bry_and_clear()
|
|
: Bry_arg_5_fail
|
|
;
|
|
}
|
|
private static final byte[]
|
|
Bry_arg_0_fail = Bry_.new_a7("0_N")
|
|
, Bry_arg_1_fail = Bry_.new_a7("0_E")
|
|
, Bry_arg_5_fail = Bry_.new_a7("0")
|
|
;
|
|
/*
|
|
return wfMsgReplaceArgs( $pattern, $args );
|
|
*/
|
|
public static final Map_geolink_func Instance = new Map_geolink_func(); Map_geolink_func() {}
|
|
private static final byte Key_tid_lat_val = 1, Key_tid_long_val = 2, Key_tid_lat_pos = 3, Key_tid_lat_neg = 4, Key_tid_long_pos = 5, Key_tid_long_min = 6, Key_tid_prec = 7;
|
|
private static final Hash_adp_bry Key_hash = Hash_adp_bry.cs()
|
|
.Add_str_byte("lat" , Key_tid_lat_val)
|
|
.Add_str_byte("long" , Key_tid_long_val)
|
|
.Add_str_byte("plusLat" , Key_tid_lat_pos)
|
|
.Add_str_byte("minusLat" , Key_tid_lat_neg)
|
|
.Add_str_byte("plusLong" , Key_tid_long_pos)
|
|
.Add_str_byte("minusLong" , Key_tid_long_min)
|
|
.Add_str_byte("precision" , Key_tid_prec)
|
|
;
|
|
}
|