16 lines
463 B
Plaintext
16 lines
463 B
Plaintext
(defprop :Map<String,Entry> entries (new Map))
|
|
|
|
(defmethod :Void process [:Archive archive]
|
|
(doFor e (entries.iterator)
|
|
(processEntry archive e)
|
|
(archive.refreshEntry e)))
|
|
|
|
(defnew [&prop :EntryChecker canProcessEntry
|
|
&prop :EntryProcessor processEntry]
|
|
[])
|
|
|
|
(defmethod :Void checkEntryInOrOut [:Archive archive :Entry e]
|
|
(if (canProcessEntry archive e)
|
|
(dictSet entries e.id e)
|
|
(entries.remove e.id)))
|