12 lines
308 B
Text
12 lines
308 B
Text
MODULE URLEncoding;
|
|
IMPORT
|
|
Out := NPCT:Console,
|
|
ADT:StringBuffer,
|
|
URI := URI:String;
|
|
VAR
|
|
encodedUrl: StringBuffer.StringBuffer;
|
|
BEGIN
|
|
encodedUrl := NEW(StringBuffer.StringBuffer,512);
|
|
URI.AppendEscaped("http://foo bar/","",encodedUrl);
|
|
Out.String(encodedUrl.ToString());Out.Ln
|
|
END URLEncoding.
|