| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
# Mexico Stock Exchange (BMV) setups. |
|
2
|
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
# Copyright 2005, 2006, 2007, 2008, 2009 Kevin Ryde |
|
4
|
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
# This file is part of Chart. |
|
6
|
|
|
|
|
|
|
# |
|
7
|
|
|
|
|
|
|
# Chart is free software; you can redistribute it and/or modify it under the |
|
8
|
|
|
|
|
|
|
# terms of the GNU General Public License as published by the Free Software |
|
9
|
|
|
|
|
|
|
# Foundation; either version 3, or (at your option) any later version. |
|
10
|
|
|
|
|
|
|
# |
|
11
|
|
|
|
|
|
|
# Chart is distributed in the hope that it will be useful, but WITHOUT ANY |
|
12
|
|
|
|
|
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
|
13
|
|
|
|
|
|
|
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
|
14
|
|
|
|
|
|
|
# details. |
|
15
|
|
|
|
|
|
|
# |
|
16
|
|
|
|
|
|
|
# You should have received a copy of the GNU General Public License along |
|
17
|
|
|
|
|
|
|
# with Chart. If not, see <http://www.gnu.org/licenses/>. |
|
18
|
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
package App::Chart::Suffix::MX; |
|
20
|
1
|
|
|
1
|
|
413
|
use 5.006; |
|
|
1
|
|
|
|
|
3
|
|
|
21
|
1
|
|
|
1
|
|
4
|
use strict; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
17
|
|
|
22
|
1
|
|
|
1
|
|
4
|
use warnings; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
28
|
|
|
23
|
1
|
|
|
1
|
|
4
|
use Locale::TextDomain 'App-Chart'; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
8
|
|
|
24
|
|
|
|
|
|
|
|
|
25
|
1
|
|
|
1
|
|
452
|
use App::Chart; |
|
|
0
|
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
use App::Chart::Sympred; |
|
27
|
|
|
|
|
|
|
use App::Chart::TZ; |
|
28
|
|
|
|
|
|
|
use App::Chart::Weblink; |
|
29
|
|
|
|
|
|
|
use App::Chart::Yahoo; |
|
30
|
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
our $timezone_mexico = App::Chart::TZ->new |
|
33
|
|
|
|
|
|
|
(name => __('Mexico City'), |
|
34
|
|
|
|
|
|
|
choose => [ 'America/Mexico_City' ], |
|
35
|
|
|
|
|
|
|
fallback => 'CST+6'); |
|
36
|
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
# ^MXX ipc |
|
38
|
|
|
|
|
|
|
my $pred_indexes = App::Chart::Sympred::Prefix->new ('^MX'); |
|
39
|
|
|
|
|
|
|
my $pred_shares = App::Chart::Sympred::Suffix->new ('.MX'); |
|
40
|
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
my $pred_any = App::Chart::Sympred::Any->new ($pred_indexes, $pred_shares); |
|
42
|
|
|
|
|
|
|
$timezone_mexico->setup_for_symbol ($pred_any); |
|
43
|
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
#------------------------------------------------------------------------------ |
|
46
|
|
|
|
|
|
|
# weblink - only the home page for now ... |
|
47
|
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
App::Chart::Weblink->new |
|
49
|
|
|
|
|
|
|
(pred => $pred_any, |
|
50
|
|
|
|
|
|
|
name => __('_BMV Home Page'), |
|
51
|
|
|
|
|
|
|
desc => __('Open web browser at the Mexico Stock Exchange home page'), |
|
52
|
|
|
|
|
|
|
url => 'http://www.bmv.com.mx'); |
|
53
|
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
1; |
|
56
|
|
|
|
|
|
|
__END__ |