ResourcePack.st
changeset 8719 d001eda79109
parent 8710 6fa4acc9774d
child 8779 632b56b92513
--- 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).