/* 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 "{p}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 "{p}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 {browse `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 {browse `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 {browse `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 "{hline}" di as smcl `"{bf:MathJax} successfully installed in "' _n /// "{browse $mathjax}" di as txt "{hline}" _n end