USES Common/std;
USES Common/Converters;
USES Common/CommonUtil;
USES Common/ModelDataRetreive;
USES Common/StringUtil;


proc main()
  Init();
  info = "UML check STARTED at \t"time()"\n";
  Szamossagok();
  info = "UML check STOPPED at \t"time()"\n";
end proc

proc Init()
	//Language
	setLanguage("SQL");
	mkdir([OutputDir]);
//	setOutput( [OutputDir] "/" "Szamossagok.bat" );	
end proc

proc Szamossagok()
    local count = 0;
    loop ( Instances -> MClass Where ( getStereotype([MClass]) == "Entity" ) )
        local associd = "";
        loop ( MClass -> MAssociation )
            [associd] = [MAssociation.id];
        end loop
        
        if ( [associd] != "" )
            [count] = incr([count]);        
        end if
    end loop
    info = "Asszociációs osztályok száma: " [count] "\n";
end proc