*! Part of package matrixtools v. 0.25
*! Support: Niels Henrik Bruun, niels.henrik.bruun@gmail.com
* 2020-03-05 empty rownames not printet
* 2020-03-05 option no rowlabels
* 2019-06-11 Caption/Title added
* 2018-09-09 Option for removing row header from print
* 2017-01-06 Rewritten 
* TODO: To excel! to word?
program define matprint
	version 12.1
	syntax anything(name=matrixexpression) [using/]/*
		*/[,/*
			*/Style(string) /*
			*/Decimals(string) /*
			*/noRowheaders /*
			*/TItle(string) /*
			*/CAPtion(string) /*
			*/TOp(string) /*
			*/Undertop(string) /*
			*/Bottom(string) /*
			*/Replace /*
			*/noEqstrip /*
			*/Hidesmall(integer 0) /*
			*/CLEanupmata /*
		*/]

	if "`title'" != "" local caption `"`title'"'
	tempname matrixname
	matrix `matrixname' = `matrixexpression'

	capture mata: __decimals = `decimals'
	if _rc mata: __decimals = 2	
	if `=`hidesmall' <= 0' local hidesmall .
	
	// Returned lines lines are accessible from Mata in variable tbl
	mata: __matprint = nhb_mt_labelmatrix()
	mata: __matprint.from_matrix("`matrixname'")
	if "`rowheaders'" != "" {
		mata: __matprint.row_equations("")
		mata: __matprint.row_names("")
	}
    
	mata: __matprint.print(	"`style'",  __decimals, ///
							"`eqstrip'" == "", `hidesmall', ///
							"`caption'", "`top'", "`undertop'", "`bottom'", ///
							"`using'", "`replace'" == "replace")
	if `"`cleanupmata'"' != "" capture mata: mata drop __matprint
	capture mata: mata drop __decimals
	capture mata: mata drop __tbl
	capture mata: mata drop __rn
	end