ideal • runtime • resources • base_resource

Implements a resource catalog backed by a resource store.

class base resource catalog

implements resource catalog, reference[dictionary[string, resource identifier] or null]

implicit import ideal • library • patterns

implicit import ideal • runtime • patterns

private static pattern[character] path separator : singleton pattern[character] • new('/')

private resource store the resource store

private immutable list[string] path

protected base resource catalog(resource store the resource store, immutable list[string] path)

this • the resource store = the resource store

this • path = path

override reference[dictionary[string, resource identifier] or null] content()

return this

override dictionary[string, resource identifier] or null get()

return missing • instance

override void set(dictionary[string, resource identifier] or null new value)

utilities • panic("can't set a catalog")

override resource identifier get id()

return base resource identifier • new(the resource store, path)

overload implement resource identifier resolve(string name)

if name • is empty

return base resource identifier • new(the resource store, path)

components : path separator • split(name)

var boolean absolute : false

var nonnegative index

result : base list[string] • new()

if components • first • is empty

if the resource store • allow up

absolute = true

else

pass

index = 1

else

index = 0

result • append all(path)

while index < components • size

component : components[index] !> string

index += 1

if component • is empty || component == resource util • CURRENT CATALOG

continue

else if component == resource util • PARENT CATALOG

if result • is empty

if the resource store • allow up

result • append(component)

else

pass

else

if result • last == resource util • PARENT CATALOG

assert the resource store • allow up

result • append(component)

else

result • remove last()

else

result • append(component)

if absolute

result • prepend("")

else if result • is empty

result • append(resource util • CURRENT CATALOG)

return base resource identifier • new(the resource store, result • frozen copy())

overload implement resource identifier resolve(string name, extension or null the extension)

if the extension is_not null

return resolve(base string • new(name, the extension • dot name))

else

return resolve(name)