/*==================================================
project:       
Author:        R.Andres Castaneda 
----------------------------------------------------
Creation Date:    20 Jan 2022 - 09:44:03
==================================================*/

/*==================================================
0: Program set up
==================================================*/
program define pip_drop_frames, rclass
syntax, [frame_prefix(string)]

//========================================================
// Conditions
//========================================================

if ("`frame_prefix'" == "") {
	local frame_prefix "pip_"
}


//========================================================
//  Remove frames
//========================================================

qui {
	
	frame dir
	local av_frames "`r(frames)'"
	
	foreach fr of local av_frames {
		
		if (regexm("`fr'", "(^`frame_prefix')(.+)")) {
			
			frame drop `fr'
			
			local dropped "`dropped' `fr'"
		}
		
	} // loop over frames
	
	if ("`dropped'" == "") {
		noi disp in y "NO frame was dropped"
	}
	else {
		noi disp in r "frames `dropped' were dropped"
	}
	
} // end of qui


end
exit
/* End of do-file */

><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><