File: mdprotocol.bs

package info (click to toggle)
storm-lang 0.7.5-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 52,028 kB
  • sloc: ansic: 261,471; cpp: 140,432; sh: 14,891; perl: 9,846; python: 2,525; lisp: 2,504; asm: 860; makefile: 678; pascal: 70; java: 52; xml: 37; awk: 12
file content (43 lines) | stat: -rw-r--r-- 682 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
use core:io;
use util:serialize;

/**
 * Custom protocol to represent "md" links.
 */
class MdProtocol : extends Protocol, serializable {
	// Create.
	init() {
		init {}
	}

	// Output.
	void toS(StrBuf to) : override {
		to << "md:/";
	}
}

/**
 * Parse a MD link.
 */
Url parseMdUrl(Str input) {
	Bool absolute = false;
	Bool first = true;
	Str[] parts;
	var pos = input.begin;
	while (pos != input.end) {
		var next = input.find('/', pos);
		Str part = input.cut(pos, next);
		if (first & part.empty)
			absolute = true;
		else if (part.any)
			parts << part;

		pos = next + 1;
		first = false;
	}

	if (absolute)
		return Url(MdProtocol(), parts);
	else
		return Url(parts);
}