pragma runLim, 0 

#include <C:\Program Files (x86)\IBM\Rational\DOORS\9.5\lib\dxl\addins\services\chomsky.inc>

string PROJECT_BASE_NAME = "project_"
string MODULE_BASE_NAME = "module_"


const string paths[] = {
	"c:\\Users\\ddinev\\Desktop\\1.bmp",
	"c:\\Users\\ddinev\\Desktop\\2.bmp",
	"c:\\Users\\ddinev\\Desktop\\3.bmp",
	"c:\\Users\\ddinev\\Desktop\\4.bmp",
	"c:\\Users\\ddinev\\Desktop\\5.bmp",
	"c:\\Users\\ddinev\\Desktop\\6.bmp",
	"c:\\Users\\ddinev\\Desktop\\7.bmp"
	}

const int NUMBER_OF_PROJECTS = 1
const int NUMBER_OF_FODLERS = 3
const int NUMBER_OF_MODULES = 3


Project p
Folder f
Module m

int i = 0
int j = 0
int k = 0

void createOjects(string modulePath) {
	Module m = read(modulePath, false, true)
	hideExplorer(m)
	if (null m) then {errorBox("Run from open module"); halt}
	Object o = (Object create m)
	Object new  = o
	int i
	int j 
	
	for(i=0; i<10;i++){
		j = random(1000)
			
			if(j%7==0){
					oleInsert(new, paths[random(sizeof(paths))],false)
			} else if( j%10==0){
					new = create o
					new."Object Heading" = getPhrase(introPhrases)
					new."Object Text" = getRandomText()
			} else if(j%3==0){
					new = create(last(below(o)))
					new."Object Heading" = getPhrase(introPhrases)
					new."Object Text" = getRandomText()
			} else if(j%2==0){
					new = create(last(below(new)))
					new."Object Heading" = getPhrase(introPhrases)
					new."Object Text" = getRandomText()
			} else {
					new = create new
					new."Object Text" = getRandomText()
			}
		 save(m) // Saves the Open module
		 //close(m)
	}
}

//Base function which role is to generate the whole structure of the projct/folder/module/object
void createStructure() {
	string projectName
	for (i=0; i< NUMBER_OF_PROJECTS; i++) {
		projectName = "/" PROJECT_BASE_NAME i ""
		print projectName "\n"
	
		string msg = create(projectName, "This is generated project.", p)
		print msg "\n"
		
			for (j=0; j<NUMBER_OF_FODLERS; j++) {
				
			fldName = projectName "/f" j ""
			create (fldName, "", f)
			
				for (k=0; k<NUMBER_OF_MODULES; k++) {
					moduleName = fldName "/"MODULE_BASE_NAME k ""
					create (moduleName, "", "", 1, m)
					createOjects(moduleName)
				}
			}
	}
}

createStructure()