Sync up with the current environment.

diff --git a/Ideograph-R072-Sun.ttl b/Ideograph-R072-Sun.ttl
index f18f5e4..38a5aad 100644 (file)
--- a/Ideograph-R072-Sun.ttl
+++ b/Ideograph-R072-Sun.ttl
@@ -294,7 +294,7 @@ a.ucs_component:0x65E5
     ideo:radical          72 ; # ⽇ 
     ideo:strokes           0 ;
     ideo:total-strokes     4 ;
-    :eq a.iwds-1:0118             ; # &IWDS1-118;
+    :eq a.iwds-1:0118             ; # &A-compU+65E5;
     .
     a.iwds-1:0118
            :abstract-character-of         iwds-1:0118    .
@@ -2348,6 +2348,54 @@ a.ucs:0x2314D
     rep.cbeta:03191
                :abstract-glyph-of          cbeta:03191   .
 
+a.ucs:0x23158
+    a chisegg:abstract-character ;
+    :abstract-character-of ucs:0x23158 ;
+    ideo:radical          72 ; # ⽇ 
+    ideo:strokes           3 ;
+    ideo:total-strokes     7 ;
+    isd:structure [ a idc:⿱ ;
+        isd:above    a.ucs_component:0x65E5 ; # &A-compU+65E5;
+        isd:below    a.ucs_component:0x4E8F   # &A-compU+4E8F;
+    ] ;
+    .
+
+rep.ucs-var-001:0x23158
+    a chisegg:abstract-glyph ;
+    :abstract-glyph-of ucs-var-001:0x23158 ;
+    :denotation-of
+        a.ucs:0x23158        ;
+    ideo:radical          72 ; # ⽇ 
+    ideo:strokes           3 ;
+    ideo:total-strokes     7 ;
+    isd:structure [ a idc:⿱ ;
+        isd:above    a.ucs:0x65E5 ; # 日
+        isd:below    a.ucs:0x4E90   # 亐
+    ] ;
+    .
+
+rep.ucs_iso:0x23158
+    a chisegg:abstract-glyph ;
+    :abstract-glyph-of [ :context domain:iso     ;
+                         :target     ucs:0x23158 ] ;
+    :denotation-of
+        a.ucs:0x23158        ;
+    ideo:radical          72 ; # ⽇ 
+    ideo:strokes           3 ;
+    ideo:total-strokes     7 ;
+    isd:structure [ a idc:⿱ ;
+        isd:above    a.ucs:0x65E5 ; # 日
+        isd:below    a.ucs:0x4E8F   # 亏
+    ] ;
+    :subsume
+        g2.ucs_iso:0x23158   ;
+    .
+    g2.ucs_iso:0x23158
+        a chisegg:abstract-glyph-form ;
+        :abstract-glyph-form-of [ :context domain:iso     ;
+                                  :target     ucs:0x23158 ] ;
+        .
+
 a.ucs-itaiji-002:0x81FD
     a chisegg:abstract-character ;
     :abstract-character-of ucs-itaiji-002:0x81FD ;
@@ -2366,10 +2414,10 @@ rep.ucs-itaiji-002:0x81FD
         isd:above    a.ucs:0x2008A ; # 𠂊
         isd:below    a.ucs:0x65E7   # 旧
     ] ;
-    :eq rep.gt-k:03616            ; # &GT-K03616;
-    :eq g.gt-k:03318              ; # &GT-K03616;
-    :eq rep.gt-pj-k1:24132        ; # &GT-K03616;
-    :eq rep.ucs-itaiji-003:0x81FD ; # &GT-K03616;
+    :eq rep.gt-k:03616            ; # &U-i002+81FD;
+    :eq g.gt-k:03318              ; # &U-i002+81FD;
+    :eq rep.gt-pj-k1:24132        ; # &U-i002+81FD;
+    :eq rep.ucs-itaiji-003:0x81FD ; # &U-i002+81FD;
     :from.simplified     [ :context domain:component ;
                            :target  a.ucs:0x81FD         ] ;
     :from.simplified     [ :context domain:misc    ;
@@ -2413,7 +2461,7 @@ rep.ucs-itaiji-002:0x81FD
         g2.gt-k:03318
             a chisegg:abstract-glyph-form ;
             :abstract-glyph-form-of gt-k:03318 ;
-            :eq g2.ucs-itaiji-003:0x81FD  ; # &g2-GT-K03318;
+            :eq g2.ucs-itaiji-003:0x81FD  ; # &g2-U-i003+81FD;
             .
             g2.ucs-itaiji-003:0x81FD
                   :abstract-glyph-form-of ucs-itaiji-003:0x81FD  .
@@ -4461,7 +4509,7 @@ a.ucs:0x660B
     ideo:strokes           4 ;
     ideo:total-strokes     8 ;
     isd:structure [ a idc:⿱ ;
-        isd:above    a.ucs_component:0x5929 ; # &IWDS1-008;
+        isd:above    a.ucs_component:0x5929 ; # &A-compU+5929;
         isd:below    a.ucs:0x65E5   # 日
     ] ;
     .
@@ -10484,7 +10532,7 @@ a.ucs_component:0x6649
     ideo:radical          72 ; # ⽇ 
     ideo:strokes           6 ;
     ideo:total-strokes    10 ;
-    :eq a.iwds-1:0388             ; # &IWDS1-388;
+    :eq a.iwds-1:0388             ; # &A-compU+6649;
     .
     a.iwds-1:0388
            :abstract-character-of         iwds-1:0388    .
@@ -17116,16 +17164,72 @@ a.ucs:0x23205
     ideo:strokes           8 ;
     ideo:total-strokes    12 ;
     isd:structure [ a idc:⿱ ;
+        isd:above    a.ucs_component:0x6797 ; # &A-compU+6797;
+        isd:below    a.ucs:0x65E5   # 日
+    ] ;
+    .
+
+rep.ucs_iso:0x23205
+    a chisegg:abstract-glyph ;
+    :abstract-glyph-of [ :context domain:iso     ;
+                         :target     ucs:0x23205 ] ;
+    :denotation-of
+        a.ucs:0x23205        ;
+    ideo:radical          72 ; # ⽇ 
+    ideo:strokes           8 ;
+    ideo:total-strokes    12 ;
+    isd:structure [ a idc:⿱ ;
         isd:above    a.ucs:0x6797 ; # 林
         isd:below    a.ucs:0x65E5   # 日
     ] ;
-    :eq rep.daikanwa:14020        ; # &I-M-14020;
+    :eq rep.daikanwa:14020        ; # &M-14020;
     :eq rep.cbeta:04877           ; # &I-CB04877;
+    :subsume
+        g2.daikanwa:14020    ,
+        g2.ucs_iso:0x23205   ;
     .
     rep.daikanwa:14020
                :abstract-glyph-of       daikanwa:14020   .
     rep.cbeta:04877
                :abstract-glyph-of          cbeta:04877   .
+    g2.daikanwa:14020
+        a chisegg:abstract-glyph-form ;
+        :abstract-glyph-form-of daikanwa:14020 ;
+        .
+    g2.ucs_iso:0x23205
+        a chisegg:abstract-glyph-form ;
+        :abstract-glyph-form-of [ :context domain:iso     ;
+                                  :target     ucs:0x23205 ] ;
+        :eq g2.cbeta:04877            ; # &g2-CB04877;
+        :subsume
+            repi.ucs_iso:0x23205 ,
+            repi.cbeta:04877     ;
+        .
+        g2.cbeta:04877
+              :abstract-glyph-form-of          cbeta:04877   .
+        repi.ucs_iso:0x23205
+            a chisegg:glyph-image ;
+            :glyph-image-of [ :context domain:iso     ;
+                              :target     ucs:0x23205 ] ;
+            .
+        repi.cbeta:04877
+            a chisegg:glyph-image ;
+            :glyph-image-of cbeta:04877 ;
+            .
+
+rep.ucs-var-001:0x23205
+    a chisegg:abstract-glyph ;
+    :abstract-glyph-of ucs-var-001:0x23205 ;
+    :denotation-of
+        a.ucs:0x23205        ;
+    ideo:radical          72 ; # ⽇ 
+    ideo:strokes           8 ;
+    ideo:total-strokes    12 ;
+    isd:structure [ a idc:⿱ ;
+        isd:above    a.ucs:0x233DF ; # 𣏟
+        isd:below    a.ucs:0x65E5   # 日
+    ] ;
+    .
 
 a.ucs:0x231F1
     a chisegg:abstract-character ;