File restructure #2

Modules/ado/plus/i/isvar.ado

@@ -0,0 +1,27 @@
+*! NJC 1.0.0 20 Sept 2005 
+program isvar, rclass  
+	version 8 
+	syntax anything 
+	
+	foreach v of local anything { 
+		capture unab V : `v' 
+		if _rc == 0 local varlist `varlist' `V' 
+		else        local badlist `badlist' `v' 
+	}
+
+	di 
+
+	if "`varlist'" != "" { 
+		local n : word count `varlist' 
+		local what = plural(`n', "variable") 
+		di as txt "{p}`what': " as res "`varlist'{p_end}" 
+		return local varlist "`varlist'" 
+	}	
+	
+	if "`badlist'" != "" {
+		local n : word count `badlist' 
+		local what = plural(`n', "not variable") 
+		di as txt "{p}`what': " as res "`badlist'{p_end}" 
+		return local badlist "`badlist'" 
+	}	
+end