program test;
uses dvwin, dvcrt, weburl;
var b, r, s: string;
    result: boolean;
    scheme, net_loc, path, params, query, fragment: string;
begin
    sintInic (2, '');

    sintWriteln ('Entre uma url a compilar');
    sintReadln (s);
    completaEsquema (s);
    compilaURL (s, scheme, net_loc, path, params, query, fragment);
    sintWriteln ('esquema:' + scheme);
    sintWriteln ('netloc:' + net_loc);
    sintWriteln ('path:' + path);
    sintWriteln ('params:'+ params);
    sintWriteln ('query:' + query);
    sintWriteln ('fragmento:' + fragment);
    writeln;
exit;

    b := 'http://a/b/c/d;p?q#f';
    sintWriteln ('url basica');
    sintWriteln (b);
    repeat
        sintWriteln ('url relativa');
        sintReadln (r);
        montaURLrelativa (r, b, s);
        sintWriteln ('combinados:');
        sintWriteln (s);
    until false;
end.