# lrdc.arch
# michael chen


# event aliases

set EVENT_ALIASES {
	{UIL.START_JAVA START_JAVA}
	{UIL.START_BROWSER START_BROWSER}
	{UIL.POSE_DISCUSSION_TOPIC POSE_TOPIC}
	{UIL.JOIN_DISCUSSION_SESSION_1 JOIN_DISCUSSION_1}
	{UIL.JOIN_DISCUSSION_SESSION_2 JOIN_DISCUSSION_2}
	{UIL.BROWSE_INFORMATION BROWSE_INFO}
	{UIL.CD.FD.PSROI.RECORD_POINTER_TO_ONLINE_INFO REFERENCE_THIS}
	{UIL.CD.FD.PSROI.POST_INFO_AS_FORMAL_STATEMENT POST_STATEMENT}
	{UIL.CD.FD.RELATE_FORMAL_STATEMENT_TO_DISCUSSION RELATE_STATEMENT}
	{UIL.CD.FD.REVISE_FORMAL_STATEMENT REVISE_STATEMENT}
	{UIL.AAFD.UNSPECIFIED_REQUEST_FOR_HELP HELP_REQUEST}
	{COL.IDA.START_BELVEDERE START_JAVA}
	{COL.IDA.NEW_INQUIRY_DIAGRAM NEW_INQUIRY_DIAGRAM}
	{COL.IDA.OPEN_INQUIRY_DIAGRAM OPEN_DIAGRAM}
	{COL.IDA.LIST_INQUIRY_DIAGRAM LIST_DIAGRAM}
	{COL.IDA.ADD_NODE ADD_NODE}
	{COL.IDA.ADD_EDGE ADD_EDGE}
	{COL.IDA.UPDATE_NODE UPDATE_NODE}
	{COL.IDA.REFERENCE_THIS REFERENCE_THIS}
	{COL.I_S.GET_URL GET_URL}
	{COL.I_S.START_BROWSER START_BROWSER}
	{COL.I_S.START_NETSCAPE START_BROWSER}
	{COL.AS.REQUEST_ADVICE REQUEST_ADVICE}
	{PB.HTMLPAGE HTML_PAGE}
	{PB.ADVICE ADVICE}
	{PB.RESPONSE RESPONSE}
	{PB.WEBSTARTUP WEB_STARTED}
	{PB.JAVASTARTUP JAVA_STARTED}
	{PB_IN.HTMLPAGE HTML_PAGE}
	{PB_IN.ADVICE ADVICE}
	{PB_IN.RESPONSE RESPONSE}
	{PB_IN.WEBSTARTUP WEB_STARTED}
	{PB_IN.JAVASTARTUP JAVA_STARTED}
}


# lrdc architecture

architecture lrdc_arch:1

dim 5 4.5

mod user_interface:1 "User Interface" rectangle {1.0 0.5} {4.0 1.0} \
	-fill "burlywood"
mod concepts_of_operation_interface:1 "Concepts of Operation" rectangle \
	{1.0 2.0} {4.0 2.5} -fill "maroon"
mod ail_arch:1 "Abstract Implementation" rectangle {1.0 3.5} {4.0 4.0} \
	-fill "darkolivegreen"

set smL_color "black"

path user_interface:1 concepts_of_operation_interface:1 {2.5 1.0} {2.5 2.0} \
	-twoway both -width 2
path concepts_of_operation_interface:1 ail_arch:1 {2.5 2.5} {2.5 3.5} \
	-twoway both -width 2

end 


#ail architecture

architecture ail_arch:1

dim 8 10

mod ClientArch:1 "Client PC" rectangle {3.0 2.0} {5.0 3.0} \
	-fill "dim gray"
mod ServerArch:1 "Sparc Server" rectangle {3.0 7.0} {5.0 8.0} \
	-fill "steelblue"

set smL_color "black"

path ail_arch:1 ClientArch:1 {4.0 0.0} {4.0 2.0} -twoway both -width 2
path ClientArch:1 ServerArch:1 {4.0 3.0} {4.0 7.0} -twoway both -width 2

end


#client architecture

architecture ClientArch:1

dim 6 3

mod WebBrowser:1 "Netscape\nWeb Browser" rectangle {0.5 1.25} {2.5 1.75} \
	-fill "light grey"
mod JavaTools:1 "JAVA" rectangle {3.5 1.25} {5.5 1.75} -fill "light grey"

set smL_color "black"

path WebBrowser:1 ClientArch:1 {1.5 1.75} {2.75 2.375} {2.75 3.0} \
	-twoway both -width 2 -name WebAndServer
path JavaTools:1 ClientArch:1 {4.5 1.75} {3.25 2.375} {3.25 3.0} \
	 -twoway both -width 2 -name JavaAndServer
path ClientArch:1 WebBrowser:1 {2.75 0.0} {2.75 0.625} {1.5 1.25} \
	-twoway both  -width 2 -name WebFromArch
path ClientArch:1 JavaTools:1 {3.25 0.0} {3.25 0.625} {4.5 1.25} \
	-twoway both -width 2 -name JavaFromArch

end


#server architecture

architecture ServerArch:1

dim 8 4

mod HTTPServer:1 "Web Server" rectangle {0.5 1.0} {2.0 1.5} -fill "rosybrown"
mod SessionServer:1 "Session Server" rectangle {2.0 1.0} {3.5 1.5} \
	-fill "rosybrown"
mod Coach:1 "Coach" rectangle {6.0 1.0} {7.5 1.5} -fill "thistle"
mod Postgres:1 "Postgres" rectangle {4.0 3.0} {5.5 3.5} -fill "cadetblue"
mod Logfile:1 "WWW Logfile" rectangle {0.5 2.125} {2.0 2.625} -fill "rosybrown"
mod Tracker:1 "WWW Tracker" rectangle {0.5 3.25} {2.0 3.75} \
	-fill "rosybrown"

path HTTPServer:1 ServerArch:1 {1.25 1.0} {3.0 0.5} {3.0 0.0} \
	-twoway both -width 2
path Coach:1 ServerArch:1 {6.75 1.0} {5.0 0.5} {5.0 0.0} last -width 2
path SessionServer:1 ServerArch:1 {2.75 1.0} {4.0 0.5} {4.0 0.0} \
	-twoway both -width 2
path HTTPServer:1 Logfile:1 {1.25 1.5} {1.25 2.125} last -width 2
path Logfile:1 Tracker:1 {1.25 2.625} {1.25 3.25} last -width 2
path SessionServer:1 Coach:1 {3.5 1.25} {6.0 1.25} last -width 2
path Coach:1 Postgres:1 {6.75 1.5} {5.0 3.0} -twoway both -width 2
path SessionServer:1 Postgres:1 {2.75 1.5} {4.5 3.0} -twoway both -width 2


set EVENT_PATHS {
	{ClientArch:1 WebBrowser:1 GET_URL WebFromArch}
	{ClientArch:1 JavaTools:1 NEW_INQUIRY_DIAGRAM JavaFromArch}
	{ClientArch:1 JavaTools:1 OPEN_DIAGRAM JavaFromArch}
	{ClientArch:1 JavaTools:1 LIST_DIAGRAM JavaFromArch}
	{ClientArch:1 JavaTools:1 ADD_NODE JavaFromArch}
	{ClientArch:1 JavaTools:1 ADD_EDGE JavaFromArch}
	{ClientArch:1 JavaTools:1 UPDATE_NODE JavaFromArch}
	{JavaTools:1 ClientArch:1 RESPONSE JavaFromArch}
	{JavaTools:1 ClientArch:1 ADVICE JavaFromArch}
	{ClientArch:1 JavaTools:1 REQUEST_ADVICE JavaFromArch}
	{WebBrowser:1 ClientArch:1 Server_Request WebAndServer}
#	{WebBrowser:1 ClientArch:1 LinkRequests WebAndServer}
	{JavaTools:1 ClientArch:1 Server_Request JavaAndServer}
	{WebBrowser:1 ClientArch:1 HTMLPAGE WebFromArch}
	{ClientArch:1 WebBrowser:1 IN_HTMLPAGE WebAndServer}
#	{ClientArch:1 WebBrowser:1 PageLinks WebAndServer}
	{ClientArch:1 JavaTools:1 IN_RESPONSE JavaAndServer}
	{ClientArch:1 JavaTools:1 IN_ADVICE JavaAndServer}
	{ClientArch:1 WebBrowser:1 REF_THIS WebFromArch}
}






proc per_event {id name params caller} {

   global smE_boxcolor

   case $name {
	
	HELP_REQUEST		{set smE_boxcolor "red"}
	REQUEST_ADVICE		{set smE_boxcolor "red"}
	DATABASEQUERY		{set smE_boxcolor "red"}
	QUERYRESPONSE		{set smE_boxcolor "red"}
	ADVICE			{set smE_boxcolor "red"}
	IN_ADVICE		{set smE_boxcolor "red"}
	QUERY			{set smE_boxcolor "red"}
	BROWSE_INFO		{set smE_boxcolor "black"}
	GET_URL			{set smE_boxcolor "black"}
	HTMLPAGE		{set smE_boxcolor "black"}
	HTML_PAGE		{set smE_boxcolor "black"}
	IN_HTMLPAGE		{set smE_boxcolor "black"}
	ADDRESS			{set smE_boxcolor "black"}
	IN_ADDRESS		{set smE_boxcolor "black"}
#	LINKREQUESTS		{set smE_boxcolor "black"}
#	PAGELINKS		{set smE_boxcolor "black"}
	START_BROWSER		{set smE_boxcolor "purple"}
	START_JAVA		{set smE_boxcolor "purple"}
	WEB_STARTED		{set smE_boxcolor "purple"}
	JAVA_STARTED		{set smE_boxcolor "purple"}
	REFERENCE_THIS		{set smE_boxcolor "orange"}
	REF_THIS		{set smE_boxcolor "orange"}
	RESPONSE {
	    if {$params == {ADD_TO_INBOX} } {
		set smE_boxcolor "orange"
		}
	    }
	IN_RESPONSE {
	    if {$params == {ADD_TO_INBOX} } {
		set smE_boxcolor "orange"
		}
	    }
	SERVER_REQUEST {
	    if {$params == {2 REQUEST_ADVICE} } {
		set smE_boxcolor "red"
		}
	    if {$params == {1 DOCUMENT_REQUEST} } {
		set smE_boxcolor "black"
		}
	    if {$params == {2 REFERENCE_THIS} } {
		set smE_boxcolor "orange"
		}
	    }
	REQUEST {
	    if {$params == {REQUEST_ADVICE} } {
		set smE_boxcolor "red"
		}
	    if {$params == {DOCUMENT_REQUEST} } {
		set smE_boxcolor "black"
		}
	    if {$params == {REFERENCE_THIS} } {
		set smE_boxcolor "orange"
		}   
	    }
	TOCOACH {
	    if {$params == {REQUEST_ADVICE} } {
		set smE_boxcolor "red"
		}
	    }
	default			{set smE_boxcolor "blue"}
   }

   if {$name=="START"} {
	if {$caller=="CLIENTARCH:1"} {
	     rpChangeState CLIENTARCH:1 WEBBROWSER:1 invisible -p
	     rpChangeState CLIENTARCH:1 JAVATOOLS:1 invisible -p
	     }
   } elseif {$name=="WEBSTARTUP"} {
	if {$caller=="CLIENTARCH:1"} {
	     rpChangeState CLIENTARCH:1 WEBBROWSER:1 normal -p
	     }
   } elseif {$name=="JAVASTARTUP"} {
	if {$caller=="CLIENTARCH:1"} {
	     rpChangeState CLIENTARCH:1 JAVATOOLS:1 normal -p
	     }
	}
}