*! v 1.1 Loads data from my PWS site
* Also describes data (if description available)

** This script reads the info in file and shows all datasets available
** or datasets that start with some letters
mata:
	void dir_files(string scalar filex, string scalar srch){
		string matrix file_name
		real scalar slen
		file_name=sort(cat(filex),1)

		slen = strlen(srch)
		if (srch==" ") file_name
		else {
			select(file_name,substr(file_name,1,slen):==srch )
		}
	}
end
program frause,
	version 9
	syntax [anything(everything)], [* version DEScribe DIR DIR1(str)]

	if "`0'"=="" | "`version'"!="" {
		display "version: 1.1"
		addr scalar version = 1.1
		exit
	}

	if "`dir'`dir1'"!="" {
		dir_files, opt(`dir1')

		exit
	}
	** for descriptions, gather from site
	if "`describe'"=="" {
		qui:webuse set https://friosavila.github.io/playingwithstata/data2
		webuse `0'
		qui:webuse set
	}
	else {
		gettoken name 0:0
		local name = subinstr("`name'",",","",.)
		type "https://friosavila.github.io/playingwithstata/data2/`name'.des"
	}
end

program addr, rclass
	return `0'
end
** the mata wrapper
program dir_files
	syntax, [opt(str)]
	tempfile f1
	qui: copy "https://friosavila.github.io/playingwithstata/data2/afiles.txt" `f1'
	if "`opt'"=="" local opt =" "
	mata:dir_files("`f1'","`opt'")
end
** mataFrause