makelegendlabelsfromvarlabels.ado

program define makelegendlabelsfromvarlabels

	// Written by Shafique Jamal (shafique.jamal@gmail.com). 25 Nov 2012
	//
	
	// Wrote it to fix an annoyance with graph bar. I want graph bar to use variable labels, not variable names, in the legend, but it won't do this if I am using a "(stat)" rather than "(asis)"
	syntax varlist, local(name local) [c(integer 30)]
	version 9.1
	
	// local charlength = 30
	
	tempname count
	local `count' = 0
	tempname labeloptions
	tempname variablelabel
	foreach var of local varlist {
		local `count' = ``count'' + 1
		local `variablelabel' : variable label `var'
		
		// It would be great to break this up at a word boundary if the length is > 34 characters
		if (length(`"``variablelabel''"') > `c') {
			tempname variablelabel_part1
			tempname variablelabel_part2
			tempname variablelabel_tochange
			tempname positionofspace
			tempname positionofspace_prev
			tempname exitwhileloop
			local `exitwhileloop'   = 0
			local `positionofspace' = 0
			local `variablelabel_tochange' `"``variablelabel''"'
			while (``exitwhileloop'' == 0) {
			
				local `positionofspace' = strpos(`"``variablelabel_tochange''"', " ")
				if (``positionofspace'' >= `c' | ``positionofspace''==0) {
					local `exitwhileloop'   = 1
				} 
				else {
					local `positionofspace_prev' = ``positionofspace''
					local `variablelabel_tochange' = subinstr(`"``variablelabel_tochange''"'," ",".",1)
				}
			
			} 
			
			local `variablelabel_part1' = substr(`"``variablelabel''"', 1, ``positionofspace_prev'')
			local `variablelabel_part2' = substr(`"``variablelabel''"', ``positionofspace_prev'' + 1, . )
			local `labeloptions' `"``labeloptions'' label(``count'' `"``variablelabel_part1''"' `"``variablelabel_part2''"') "'
		}
		else {
			local `labeloptions' `"``labeloptions'' label(``count'' `"``variablelabel''"') "'
		}
	}
	
	// di `"labeloptions: ``labeloptions''"'
	// need to return this in a local macro
	c_local `local' `"``labeloptions''"'
	

end program