<?xml version="1.0" encoding="Shift_JIS" ?>


<Define> ^map-res-ses <OpenSession/> </Define>


<Define> ^MapResistration ()
	<Argument> ^path </Argument>
<Sequence> ()
	<Define> ^meta-info 
		<Next><GetElement>
			<Load option="xl"> ^path </Load> ^'meta
		</GetElement></Next>
	</Define>
	<Define> ^map
		(+ "xlp://" (GetLocalHostName) ":" ServerPort "/"
				(Trunc (Leaf 1 path) ".mta"))
	</Define>
	<Define> ^src
		<ComposeURL> ^map
		<GetElement>
		<GetElement> ^meta-info ^'src </GetElement>
			1 </GetElement></ComposeURL>
	</Define>
	<Define> ^dest
		<ComposeURL> ^map
		<GetElement>
		<GetElement> ^meta-info ^'dest </GetElement>
			1 </GetElement></ComposeURL>
	</Define>
	<Define> ^mapdb-info-full
		<List>
			^'record
			<List> ^'src ^src </List>
			<List> ^'dest ^dest </List>
			<List> ^'map ^map </List>
			<GetElement> ^meta-info ^'dp </GetElement>
		</List>
	</Define>
	<IgnoreDelay>
	<RemoteSession> ^map-res-ses
		<URL> ^map </URL>
		<Command> Get </Command>
		<MPTrigger mode="force">
			 (Local (+ SessionPath SessionResource))
		</MPTrigger>
	</RemoteSession>
	</IgnoreDelay>
</Sequence></Define>


