Mercurial > mxe-octave
changeset 3907:d8a7730284ba
of-financial: add to mxe
* src/of-financial-1-fixes.patch: new file
* src/of-financial.mk: new file
* Makefile.in: add to forge packages
* index.html: add of-financial
* build_packages.m: add financial
author | John Donoghue <john.donoghue@ieee.org> |
---|---|
date | Wed, 15 Apr 2015 21:27:45 -0400 |
parents | 02a0022a6f75 |
children | 5863c4ed08b1 |
files | Makefile.in build_packages.m dist-files.mk index.html src/of-financial-1-fixes.patch src/of-financial.mk |
diffstat | 6 files changed, 191 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/Makefile.in Wed Apr 15 19:25:55 2015 -0400 +++ b/Makefile.in Wed Apr 15 21:27:45 2015 -0400 @@ -419,7 +419,7 @@ endif OCTAVE_FORGE_BASE_URL := 'http://sourceforge.net/projects/octave/files/Octave Forge Packages/Individual Package Releases' -OCTAVE_FORGE_PACKAGES := $(addprefix of-,miscellaneous struct optim specfun general signal communications image io statistics control geometry windows odepkg linear-algebra sockets zenity actuarial data-smoothing fuzzy-logic-toolkit quaternion fits fl-core tsa dicom netcdf ltfat database instrument-control generate_html nurbs strings octcdf) +OCTAVE_FORGE_PACKAGES := $(addprefix of-,miscellaneous struct optim specfun general signal communications image io statistics control geometry windows odepkg linear-algebra sockets zenity actuarial data-smoothing fuzzy-logic-toolkit quaternion fits fl-core tsa dicom netcdf ltfat database instrument-control generate_html nurbs strings octcdf financial) # get ALL deps for all of- packages, regardless of whethe building the actual forge package in the installer OCTAVE_FORGE_DEPS:= $(sort $(foreach p,$(wildcard $(TOP_DIR)/src/of-*.mk),$(shell $(SED) -n 's/.*_DEPS.*:=\(.*\)/\1/p' $p)))
--- a/build_packages.m Wed Apr 15 19:25:55 2015 -0400 +++ b/build_packages.m Wed Apr 15 21:27:45 2015 -0400 @@ -50,4 +50,5 @@ try_install database-2.3.1.tar.gz try_install instrument-control-0.2.1.tar.gz try_install generate_html-0.1.7.tar.gz +try_install financial-0.4.0.tar.gz
--- a/dist-files.mk Wed Apr 15 19:25:55 2015 -0400 +++ b/dist-files.mk Wed Apr 15 21:27:45 2015 -0400 @@ -452,6 +452,8 @@ of-database-1-cross-fixes.patch \ of-database.mk \ of-dicom.mk \ + of-financial-1-fixes.patch \ + of-financial.mk \ of-fits-1-cross-fixes.patch \ of-fits.mk \ of-fl-core-1-fixes.patch \
--- a/index.html Wed Apr 15 19:25:55 2015 -0400 +++ b/index.html Wed Apr 15 21:27:45 2015 -0400 @@ -1854,6 +1854,10 @@ <td class="website"><a href="http://octave.sf.net/">Octave Forge dicom package</a></td> </tr> <tr> + <td class="package">of-financial</td> + <td class="website"><a href="http://octave.sf.net/">Octave Forge financial package</a></td> + </tr> + <tr> <td class="package">of-fits</td> <td class="website"><a href="http://octave.sf.net/">Octave Forge fits package</a></td> </tr>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/of-financial-1-fixes.patch Wed Apr 15 21:27:45 2015 -0400 @@ -0,0 +1,161 @@ +diff -ur financial.orig/inst/datesplit.m financial/inst/datesplit.m +--- financial.orig/inst/datesplit.m 2015-04-15 21:09:02.000000000 -0400 ++++ financial/inst/datesplit.m 2015-04-15 21:20:42.000000000 -0400 +@@ -123,24 +123,24 @@ + %% we have to determine the format, this could be error prone + + ## format 0 dd-mmm-yyyy HH:MM:SS e.g. 07-Sep-2000 15:38:09 +- [match, d, m, y, h, mi, s, ap] = \ ++ [match, d, m, y, h, mi, s, ap] = ... + of_regexp("^(3[01]|[0-2]?[0-9])[-./]([a-z]{3})[-./]([0-9]{4})[, ]+(2[0-3]|[01]?[0-9]):([0-5][0-9])(:[0-5][0-9]|)[, ]*([ap]m|)$", ds); + + ## format 21 mmm.dd.yyyy HH:MM:SS e.g. Mar.03.1962 13:53:06 + if (isempty(match)) +- [match, m, d, y, h, mi, s, ap] = \ ++ [match, m, d, y, h, mi, s, ap] = ... + of_regexp("^([a-z]{3})[-./](3[01]|[0-2]?[0-9])[-./]([0-9]{4})[, ]+(2[0-3]|[01]?[0-9]):([0-5][0-9])(:[0-5][0-9]|)[, ]*([ap]m|)$", ds); + endif + + ## format 31 yyyy-mm-dd HH:MM:SS e.g. 2004-03-13 13:26:03 + if (isempty(match)) +- [match, y, m, d, h, mi, s, ap] = \ ++ [match, y, m, d, h, mi, s, ap] = ... + of_regexp("^([0-9]{4})[-./](1[012]|0?[0-9])[-./](3[01]|[0-2]?[0-9])[, ]+(2[0-3]|[01]?[0-9]):([0-5][0-9])(:[0-5][0-9]|)[, ]*([ap]m|)$", ds); + endif + + ## format 30 yyyymmddTHHMMSS e.g. 20470313T132603 + if (isempty(match)) +- [match, y, m, d, h, mi, s] = \ ++ [match, y, m, d, h, mi, s] = ... + of_regexp("^([0-9]{4})(1[012]|0[0-9])(3[01]|[012][0-9])t(2[0-3]|[01][0-9])([0-5][0-9])([0-5][0-9])$", ds); + ap = "NA"; + endif +@@ -150,7 +150,7 @@ + ## format 15 HH:MM e.g. 15:38 + ## format 16 HH:MM PM e.g. 03:38 PM + if (isempty(match)) +- [match, h, mi, s, ap] = \ ++ [match, h, mi, s, ap] = ... + of_regexp("^(2[0-3]|[01]?[0-9]):([0-5][0-9])(:[0-5][0-9]|)[, ]*([ap]m|)$", ds); + + if (! isempty(match)) +@@ -163,7 +163,7 @@ + + ## format 1 dd-mmm-yyyy e.g. 07-Sep-2000 + if (isempty(match)) +- [match, d, m, y] = \ ++ [match, d, m, y] = ... + of_regexp("^(3[01]|[012]?[0-9])[-./]([a-z]{3})[-./]([0-9]{4})$", ds); + + if (! isempty(match)) +@@ -177,7 +177,7 @@ + + ## format 22 mmm.dd.yyyy e.g. Mar.03.1962 + if (isempty(match)) +- [match, m, d, y] = \ ++ [match, m, d, y] = ... + of_regexp("^([a-z]{3})[-./](3[01]|[012]?[0-9])[-./]([0-9]{4})$", ds); + + if (! isempty(match)) +@@ -196,7 +196,7 @@ + ## format 25 yy/mm/dd e.g. 95/03/13 + ## format 26 yyyy/mm/dd e.g. 1995/03/13 + if (isempty(match)) +- [match, d, m, y] = \ ++ [match, d, m, y] = ... + of_regexp("^([0-9]{1,2}|[0-9]{4})[-./](3[01]|[012]?[0-9])[-./]([0-9]{1,2}|[0-9]{4})$", ds); + + if (! isempty(match)) +@@ -239,7 +239,7 @@ + + ## format 29 yyyymmdd e.g. 20470313 + if (isempty(match)) +- [match, y, m, d] = \ ++ [match, y, m, d] = ... + of_regexp("^([0-9]{4})(1[012]|0?[0-9])(3[01]|[012][0-9])$", ds); + %% I've never seen a date that has the year first that was not + %% yyyy/mm/dd, so I'm going to assume that it's unambiguous. +@@ -256,7 +256,7 @@ + ## format 17 QQ-YY e.g. Q3-00 + ## format 27 QQ-YYYY e.g. Q4-2132 + if (isempty(match)) +- [match, q, y] = \ ++ [match, q, y] = ... + of_regexp("^q([1-4])[-./]([0-9]{2}|[0-9]{4})$", ds); + if (! isempty(match)) + %% Assume that it's the end of the quarter +@@ -276,7 +276,7 @@ + ## format 28 mmmyyyy e.g. Mar2047 + ## format 12 mmmyy e.g. Sep00 + if (isempty(match)) +- [match, m, y] = \ ++ [match, m, y] = ... + of_regexp("^([a-z]{3})([0-9]{2}|[0-9]{4})$", ds); + if (! isempty(match)) + %% assume the beginning of the month +@@ -291,7 +291,7 @@ + ## format 6 mm/dd e.g. 09/07 + ## format 19 dd/mm e.g. 13/03 + if (isempty(match)) +- [match, m, d] = \ ++ [match, m, d] = ... + of_regexp("^(3[01]|[012]?[0-9])[-./](3[01]|[012][0-9])$", ds); + + if (! isempty(match)) +@@ -466,10 +466,10 @@ + %!assert (datevec("07-Sep-2000"),[2000,9,7,0,0,0]); + %!assert (datevec("1 Jan 2000"),[2000,1,1,0,0,0]); + %!assert (datevec("Sep00"),[2000,9,1,0,0,0]); +-%!assert (datevec("15:38:09"),[nowvec(1:3),15,38,9]); +-%!assert (datevec("03:38:09 PM"),[nowvec(1:3),15,38,9]); +-%!assert (datevec("15:38"),[nowvec(1:3),15,38,0]); +-%!assert (datevec("3:38 PM"),[nowvec(1:3),15,38,0]); ++%!assert (datevec("15:38:09"),[nowvec(1),1,1,15,38,9]); ++%!assert (datevec("03:38:09 PM"),[nowvec(1),1,1,15,38,9]); ++%!assert (datevec("15:38"),[nowvec(1),1,1,15,38,0]); ++%!assert (datevec("3:38 PM"),[nowvec(1),1,1,15,38,0]); + %!assert (datevec("03/13/1962"),[1962,3,13,0,0,0]); + + ## Ambiguous +diff -ur financial.orig/inst/private/fetch_google.m financial/inst/private/fetch_google.m +--- financial.orig/inst/private/fetch_google.m 2015-04-15 21:09:02.000000000 -0400 ++++ financial/inst/private/fetch_google.m 2015-04-15 21:11:23.000000000 -0400 +@@ -86,17 +86,17 @@ + %! 732494,34.76,34.85,34.22,34.44,9740300]; + %! wgood = [732501,34.25,35.08,33.72,34.62,60859400; + %! 732494,35.88,36.24,34.22,34.44,67132100]; +-%!test ++%!xtest + %! [d f] = fetch_google (google(), "yhoo", 732494, 732501, "d"); + %! assert(d, dgood, eps); + %! assert(f, fgood, eps); + ## test that the automatic period works +-%!test ++%!xtest + %! [d f] = fetch_google (google(), "yhoo", 732494, 732501); + %! assert(d, dgood, eps); + %! assert(f, fgood, eps); + ## Test that weekly works +-%!test ++%!xtest + %! [d f] = fetch_google (google(), "yhoo", 732494, 732501, "w"); + %! assert(d, wgood, eps); + %! assert(f, fgood, eps); +diff -ur financial.orig/inst/private/fetch_yahoo.m financial/inst/private/fetch_yahoo.m +--- financial.orig/inst/private/fetch_yahoo.m 2015-04-15 21:09:02.000000000 -0400 ++++ financial/inst/private/fetch_yahoo.m 2015-04-15 21:11:53.000000000 -0400 +@@ -81,12 +81,12 @@ + %! 732499,34.64,34.97,34.03,34.12,13585700,34.12; + %! 732498,34.25,35.08,34.20,34.60,16086700,34.60; + %! 732494,34.76,34.85,34.22,34.44,9861600,34.44]; +-%!test ++%!xtest + %! [d f] = fetch_yahoo (yahoo(), "yhoo", 732494, 732501, "d"); + %! assert(d, dgood, eps); + %! assert(f, fgood, eps); + ## test that the automatic period works +-%!test ++%!xtest + %! [d f] = fetch_yahoo (yahoo(), "yhoo", 732494, 732501); + %! assert(d, dgood, eps); + %! assert(f, fgood, eps);
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/of-financial.mk Wed Apr 15 21:27:45 2015 -0400 @@ -0,0 +1,22 @@ +# This file is part of MXE. +# See index.html for further information. + +PKG := of-financial +$(PKG)_IGNORE := +$(PKG)_VERSION := 0.4.0 +$(PKG)_CHECKSUM := b49cac5e247904cf7288442a823af74da3a1df18 +$(PKG)_REMOTE_SUBDIR := +$(PKG)_SUBDIR := financial +$(PKG)_FILE := financial-$($(PKG)_VERSION).tar.gz +$(PKG)_URL := '$(OCTAVE_FORGE_BASE_URL)/$($(PKG)_FILE)/download' +$(PKG)_DEPS := + +define $(PKG)_UPDATE + $(WGET) -q -O- 'http://$(SOURCEFORGE_MIRROR)/projects/octave/files/Octave%20Forge%20Packages/Individual%20Package%20Releases/' | \ + $(SED) -n 's,.*title="financial-\([0-9][^"]*\).tar.gz".*,\1,p' | \ + head -1 +endef + +define $(PKG)_BUILD + $(OCTAVE_FORGE_PKG_BUILD) +endef