[latex3-commits] [git/LaTeX3-latex3-xcolor] testl3color: load backend, handle ps, named model (ba27384)

[Ulrike Fischer]

Repository : https://github.com/latex3/xcolor
On branch  : testl3color
Link       : https://github.com/latex3/xcolor/commit/ba273844aef8c2c85e9e04006e45ef3bb875717f

>---------------------------------------------------------------

commit ba273844aef8c2c85e9e04006e45ef3bb875717f
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Tue Aug 16 20:08:19 2022 +0200

    load backend, handle ps, named model


>---------------------------------------------------------------

ba273844aef8c2c85e9e04006e45ef3bb875717f
 xcolor.dtx | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/xcolor.dtx b/xcolor.dtx
index 316c73f..8b35f1c 100644
--- a/xcolor.dtx
+++ b/xcolor.dtx
@@ -5388,6 +5388,9 @@
 %    \begin{macrocode}
 \let\XC at ori@set at color\set at color
 \ExplSyntaxOn
+\str_if_exist:NF \c_sys_backend_str
+      { \sys_load_backend:n { } }
+
 \cs_new_protected:Npn \XC at set@color #1#2#3#4#5
  {
   \tl_if_eq:NnTF \current at color {#3}
@@ -5398,7 +5401,16 @@
         { cmy }{ \color_select:nn{cmyk}{#5,0} }
        }
        {
-         \color_select:nn{#4}{#5}
+         \str_if_eq:VnTF\c_sys_backend_str { dvips }
+          {
+            \str_case:nnF {#2}
+              {
+                {ps}     { \XC at ori@set at color }
+                {named}  { \XC at ori@set at color }
+              }
+              { \color_select:nn{#4}{#5}}
+          }
+          { \color_select:nn{#4}{#5} }
        }
     }
     {