blob: e703f96fdc5ee239be7444ec56ddae6b72564220 (
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
78
79
80
81
82
|
%% This is part of OpTeX project, see http://petr.olsak.net/optex
\_codedecl \_hisyntaxpython {Syntax highlighting for Python sources <2020-04-04>}
\_newtoks \_hisyntaxpython \_newtoks \_hicolorspython
\_global\_hicolorspython={% colors for Python language
\_hicolor M \Orange % Multi line strings
\_hicolor S {\_visiblesp \Grey} % Single line strings
\_hicolor C \Green % Comments
\_hicolor K \LightBlue % Keywords
\_hicolor O \Blue % Operators
\_hicolor N \Red % Numbers
\_hicolor D \Magenta % def names
\_hicolor L \Black % class names
\_hicolor R \Magenta % Decorators
}
\_global\_hisyntaxpython={%
\_the\_hicolorspython
\_let\s=\_relax \_let\c=\_relax \_let\e=\_relax \_let\o=\_relax
\_replthis{\_string\"}{{\_string\"}} % protect \", \'
\_replthis{\_string\'}{{\_string\'}}
%
\_replfromto{\_string#}{^^J}{\z C{\##1}^^J} % comments
%
\_replthis{'''}{\_noexpand\_hipystr0{'''}M} % search string marks
\_replthis{"""}{\_noexpand\_hipystr1{"""}M}
\_replthis{"}{\_noexpand\_hipystr2{"}S}
\_replthis{'}{\_noexpand\_hipystr3{'}S}
\_edef\_tmpb{\_tmpb} % realize string marks
%
\_foreach {br}{Br}{bR}{BR}{rb}{rB}{Rb}{RB}uUrRbB % string prefixes
\_do {\_replthis{#1\s}{\_noexpand\_hipystrpre#1}}
\_def\s{}
\_edef\_tmpb{\_tmpb}
%
\_edef \_tmpa {+-*./=<>()[]:,;!|\_pcent % operators
\_string{\_string}@\_string&\_string~\_string^}
\_ea\_foreach \_tmpa
\_do {\_replthis{#1}{\n\o#1\n}}
%
\_foreach % keywords
{and}{as}{assert}{async}{await}{break}{continue}{del}{elif}{else}{except}%
{exec}{False}{finally}{for}{from}{global}{if}{import}{in}{is}{lambda}{None}%
{nonlocal}{not}{or}{pass}{print}{raise}{return}{True}{try}{while}{with}{yield}%
\_do {\_replthis{\n#1\n}{\z K{#1}}}
\_replfromto{\n def\n}{\n\o(\n}{\z K{def}\x D{#1}\n\o(\n}
\_replfromto{\n class\n}{\n\o(\n}{\z K{class}\x L{#1}\n\o(\n}
%
\_foreach 0123456789 % numbers
\_do {\_replfromto{\n#1}{\n}{\c#1##1\e}}
%
\_replthis{\e\o.\c}{.}
\_replthis{\e\o.\n}{.\e}
\_replthis{\n\o.\c}{\c.}
\_replthis{e\e\o+\c}{e+}\_replthis{e\e\o-\c}{e-}
\_replthis{E\e\o+\c}{E+}\_replthis{E\e\o-\c}{E-}
\_replthis{\e j}{j\e}
%
\_replfromto{\n\o@\n}{^^J}{\z R{#1}^^J} % decorators
%
\_def\o#1{\z O{#1}}
\_def\c#1\e{\z N{#1}}
}
\_gdef\_hipystr#1#2#3#4\_hipystr#5#6#7{%
\_ifx#1#5\s\x#3{#2#4#2}%
\_else \_afterfi{\_hipystr#1{#2}#3#4#6}\_fi
}
\_gdef\_hipystrpre#1\x#2{\x#2{#1}\x#2}
\_ifx\LightBlue\_undefined \_gdef\LightBlue {\_setcmykcolor{1 0.43 0 0}}\_fi
\_ifx\Orange\_undefined \_gdef\Orange {\_setcmykcolor{0 0.64 1 0}}\_fi
\_endcode %------------------------------------------------
This code was greatly inspired by the OPMac hisyntax macros for Python:
https://gitlab.fit.cvut.cz/krajnpet/PySyntax
created by Petr Krajnik.
|
