/*

Developed by E. F. Haghish (2014)
Center for Medical Biometry and Medical Informatics
University of Freiburg, Germany

haghish@imbi.uni-freiburg.de

* These software come with no warranty *

This program installs wkhtmltopdf software for Weaver package. The
software are downloaded from http://www.stata-blog.com/
*/

program define weavermath
version 11

di _n
di as txt ///
" ____ _ __ __ _ _ " _n ///
"| _ \| | ___ __ _ ___ ___ \ \ / /_ _(_) |_ " _n ///
"| |_) | |/ _ \/ _` / __|/ _ \ \ \ /\ / / _` | | __|" _n ///
"| __/| | __/ (_| \__ \ __/ \ V V / (_| | | |_ " _n ///
"|_| |_|\___|\__,_|___/\___| \_/\_/ \__,_|_|\__|" _n

di as txt "

make sure you are " ///
"connected to internet. This may take a while..." _n(2)

//Test for Internet connection
macro drop thenewestweaverversion
cap qui do "http://www.haghish.com/packages/update.do"
if missing("$thenewestweaverversion") {
di as err "

Internet connection not found!"
exit 0
}

//Test for Internet connection
macro drop thenewestweaverversion

********************************************************************
*MICROSOFT WINDOWS 32BIT & 64BIT
********************************************************************
if "`c(os)'" == "Windows" {

// save the current working directory
qui local location "`c(pwd)'"
qui cd "`c(sysdir_plus)'"
qui cd Weaver
local d : pwd

di as txt "Installing MathJax in `d'" _n

qui copy "http://www.haghish.com/software/MathJax-master.zip" ///
"MathJax-master.zip", replace

qui unzipfile MathJax-master, replace
cap qui erase MathJax-master.zip

// GETTING THE PATH TO mathjax
cap qui cd MathJax-master
if _rc == 0 {
local d : pwd
global mathjax : di "`d'\MathJax.js"
}

qui cd "`location'"

}

********************************************************************
*MAC 32BIT & 64BIT
********************************************************************
if "`c(os)'" == "MacOSX" {

// save the current working directory
qui local location "`c(pwd)'"
qui cd "`c(sysdir_plus)'"
cap qui mkdir Weaver
qui cd Weaver
local d : pwd

di as txt "Installing MathJax in `d'" _n

qui copy "http://www.haghish.com/software/MathJax-master.zip" ///
"MathJax-master.zip", replace

qui unzipfile MathJax-master, replace
cap qui erase MathJax-master.zip

// GETTING THE PATH TO mathjax
//When there is an error, _rc it's not 0

cap qui cd MathJax-master
if _rc == 0 {
local d : pwd
global mathjax : di "`d'/MathJax.js"
}

cd "`location'"

}

********************************************************************
*UNIX 32BIT & 64BIT
********************************************************************
if "`c(os)'"=="Unix" {

// save the current working directory
qui local location "`c(pwd)'"
qui cd "`c(sysdir_plus)'"
cap qui mkdir Weaver
qui cd Weaver
local d : pwd

di as txt "Installing MathJax in `d'" _n

qui copy "http://www.haghish.com/software/MathJax-master.zip" ///
"MathJax-master.zip", replace

qui unzipfile MathJax-master, replace
cap qui erase MathJax-master.zip

// GETTING THE PATH TO mathjax
cap qui cd MathJax-master
if _rc == 0 {
local d : pwd
global mathjax : di "`d'/MathJax.js"
}

cd "`location'"

}

di as txt "
"
di as smcl `"MathJax successfully installed in "' _n ///
"$mathjax"
di as txt "
"	_n

end