Index: TECH/Net/URI.cls.xml
===================================================================
diff -u
--- TECH/Net/URI.cls.xml	(revision 0)
+++ TECH/Net/URI.cls.xml	(revision 335)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Net.URI">
+<Super>%RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// N.B. De elementen van een URI of URL worden uitgebreid naargelang ze nodig worden.
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Zie bvb http://docs.oracle.com/javase/1.4.2/docs/api/java/net/URI.html voor de naamgeving van de elementen.
+
+]]></Content>
+</UDLText>
+
+<Parameter name="HierarchischeSeparator">
+<Type>%String</Type>
+<Default>/</Default>
+</Parameter>
+
+<Property name="Schema">
+<Type>%String</Type>
+</Property>
+
+<Property name="Host">
+<Type>%String</Type>
+</Property>
+
+<Property name="Path">
+<Type>%String</Type>
+</Property>
+
+<Property name="Query">
+<Type>%String</Type>
+</Property>
+
+<Property name="Fragment">
+<Type>%String</Type>
+</Property>
+
+<Method name="MaakVanURLZonderQueryNochFragment">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>URL:%String</FormalSpec>
+<ReturnType>TECH.Net.URI</ReturnType>
+<Implementation><![CDATA[
+		#dim URI As TECH.Net.URI = ..%New()
+		Set URI.Schema = $Piece(URL, ":", 1)
+		#dim VanafHost = $Piece(URL, "://", 2)
+		Set URI.Host = $Piece(VanafHost, ..#HierarchischeSeparator, 1)
+		Set URI.Path = ..#HierarchischeSeparator _ $Piece(VanafHost, ..#HierarchischeSeparator, 2)
+		
+		Quit URI
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeQueryElement">
+<FormalSpec>Naam:%String,Waarde:%String</FormalSpec>
+<Implementation><![CDATA[
+		If ("" = ..Query) {
+			Set ..Query = "?"
+		}
+		
+		If ("?" '= ..Query) {
+			Set ..Query = ..Query _ "&"
+		}
+		
+		Set ..Query = ..Query _ Naam _ "=" _ Waarde
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		// [scheme:][//authority][path][?query][#fragment] 
+		#dim Authority As %String = ..Host
+		
+		Quit ..Schema _ "://" _ Authority _ ..Path _ ..Query _ ..Fragment
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>