summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pmpostdir/psvgout.ch
blob: 5e624585709dbfe69db4e0e8a26b6e9c2d13be0d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
@x
#include <math.h>
@y
#include <math.h>
#include <ptexenc/ptexenc.h>
#ifdef UPMP
#include <ptexenc/unicode.h>
#endif
@z

@x 
@<Character |k| is not allowed in SVG output@>=
 (k=='&')||(k=='>')||(k=='<')
@y
@<Character |k| is not allowed in SVG output@>=
 (k=='&')||(k=='>')||(k=='<')||(k>=0x7F)
@z

@x
@ Now for outputting the actual graphic objects. 
@y
@ Now for outputting the actual graphic objects. 

@d yoko_jfm_id   11 /* `yoko-kumi' fonts */
@d tate_jfm_id   9  /* `tate-kumi' fonts */
@d font_jfm_p(A) (mp->font_id[(A)]!=0)
@z

@x Even if prologues=3, Japanese texts are not converted into paths.
  if (prologues == 3 ) {
@y
  if (prologues == 3 && mp->font_id[gr_font_n(p)]==0) {
@z

@x To realise vertical Japanese texts ...
    mp_svg_attribute(mp, "font-size", mp->svg->buf);
@y
    mp_svg_attribute(mp, "font-size", mp->svg->buf);
    if ( mp->font_id[gr_font_n(p)]==tate_jfm_id ) {
      mp_svg_reset_buf(mp);
      append_string("tb-rl");
      mp_svg_attribute(mp, "writing-mode", mp->svg->buf);
    }
@z

@x
    while (l-->0) {
@y
    if ( mp->font_id[gr_font_n(p)]!=0 ) {
#ifdef UPMP
        if  (is_internalUPTEX() ) { 
            while (l>0) {
               append_string("&#");
                mp_svg_store_int(mp,UTF8StoUCS(s));
                append_char(';');
                k = UTF8length((int)*s); s += k; l -= k; 
            }
        } else /* 1 charatcer = 2 bytes */
#endif
        {
            l >>= 1;
            while (l-->0) {
                k =((int)*s++)*0x100; k += (int)*s++;
                append_string("&#");
                mp_svg_store_int(mp,toUCS(k));
                append_char(';');
            }
        }
    } else
    while (l-->0) {
@z

@x
    mp_svg_print(mp, "<?xml version=\"1.0\"?>");
@y
    mp_svg_print(mp, "<?xml version=\"1.0\" encoding=\"utf-8\"?>");
@z