--- a/ResourcePack.st Fri Jun 28 10:44:40 2019 +0200
+++ b/ResourcePack.st Sun Jul 07 15:05:05 2019 +0200
@@ -54,6 +54,10 @@
The resourcePack initializes itself from a file found in 'resources/<className>.rs',
where 'className' is built by the usual abbreviation mechanism (see abbrev-files).
+ In addition, every resourcePack has references to one or multiple so called 'superPacks',
+ which are typically shared among all classees within a package (eg. libwidg, libtool, app-package),
+ and which themself usually have superpacks.
+
Conditional mappings are possible, by including lines as:
#if <expression>
#endif
@@ -1066,8 +1070,10 @@
or aKey starts with a '\', then lookup aKey without '\' and prepend '\' to the result.
or aKey starts with a '*', then lookup aKey without '*' and prepend '*' to the result.
or aKey starts with a '<', then lookup aKey without '<' and prepend '<' to the result.
+ or aKey starts with a '«', then lookup aKey without '«' and prepend '«' to the result.
or aKey ends with ''%1'' , then lookup aKey without ''%1'' and append ''%1'' to the result.
or aKey ends with a '>', then lookup aKey without '>' and append '>' to the result.
+ or aKey ends with a '»', then lookup aKey without '»' and append '»' to the result.
or aKey ends with a '\', then lookup aKey without '\' and append '\' to the result.
or aKey ends with a ':', then lookup aKey without ':' and append ':' to the result.
or aKey ends with a '=', then lookup aKey without '=' and append '=' to the result.
@@ -1171,7 +1177,7 @@
val notNil ifTrue:[^ val , '"%1"'].
].
- (';*:=.?!!,-><\/' includes:last) ifTrue:[
+ (';*:=.?!!,-><\/«»' includes:last) ifTrue:[
aKey size >= 2 ifTrue:[
usedKey := aKey copyButLast:1.
@@ -1179,7 +1185,7 @@
val notNil ifTrue:[^ val copyWith:last].
].
].
- (';*:=.?!!-><\/' includes:first) ifTrue:[
+ (';*:=.?!!-><\/«»' includes:first) ifTrue:[
aKey size >= 2 ifTrue:[
usedKey := aKey copyButFirst:1.
@@ -1188,13 +1194,6 @@
].
].
- (first == $( and:[last == $)]) ifTrue:[
- usedKey := aKey copyFrom:2 to:(aKey size - 1).
-
- val := self localAt:usedKey. "/ recursion
- val notNil ifTrue:[^ '(' , val , ')'].
- ].
-
(idx := aKey indexOf:$&) ~~ 0 ifTrue:[
(aKey at:idx+1 ifAbsent:nil) ~~ $& ifTrue:[
usedKey := (aKey copyTo:idx-1) , (aKey copyFrom:idx+1).