DnDTeX/statcalc.sty at master · crazytelli/DnDTeX · GitHub

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
83
84
85
86
87
88
89
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{statcalc}

\RequirePackage{pgfkeys}
\RequirePackage{pgffor}

%%%%% DON'T READ ME, I'M A MESS :) %%%%%

\pgfkeys{
	/get stat from string/.is family,
	/get stat from string,
	store in/.code={\def\@statvalue{#1}},
	store/.code={\expandafter\edef\@statvalue{#1}},
	.unknown/.style={store=\pgfkeyscurrentname}
}

\newcommand{\addstat}[2]{
	\xdef\key@temp{
		/get stat from string,#1/.style={store=#2}
	}
	\expandafter\pgfkeys\expandafter{\key@temp}
}

\def\getvalue#1#2{\pgfkeys{/get stat from string,store in=#2,#1}}

\newcommand{\statcalc@tocommalist}[3]{%
	\begingroup%
		\toks@{}%
		\let\@tmp\relax%
		\long\def\@tocommalist##1#2##2\@nil{%
			\ifx\@tmp\relax%
				\toks@{{##1}}%
			\else%
				\toks@\expandafter{\the\toks@,{##1}}%
			\fi%
			\def\@tmp{##2}%
			\ifx\@tmp\@empty%
				\expandafter\@gobbletwo%
			\fi%
			\@tocommalist##2\@nil%
    		}%
		\expandafter\@tocommalist#3#2\@nil%
	\expandafter\endgroup%
	\expandafter\def\expandafter#1\expandafter{\the\toks@}%
}

\def\isletter#1{\ifcat #1a11\else01\fi}

\def\@calculate#1{%
	\def\stat@string{}%
	\def\@formula{}%
	\statcalc@tocommalist{\formula@as@list}{}{#1}%
	\foreach \x in \formula@as@list{%
		\if\isletter{\x}%
			\xdef\stat@string{\stat@string\x}%
		\else%
			\ifx\stat@string\empty%
				\relax%
			\else%
				\getvalue{\stat@string}{\stat@value}%
				\xdef\@formula{\@formula\stat@value}%
				\xdef\stat@string{}%
			\fi%
			\xdef\@formula{\@formula\x}%
		\fi%
	}%
	\ifx\stat@string\empty%
		\relax%
	\else%
		\getvalue{\stat@string}{\stat@value}%
		\xdef\@formula{\@formula\stat@value}%
	\fi%
	\pgfmathparse{int(floor(\@formula))}%
}

\def\calculate@star#1#2{\@calculate{#1}\edef#2{\pgfmathresult}}
\def\calculate@nostar#1{\@calculate{#1}\pgfmathresult}
\def\calculate{\@ifstar{\calculate@star}{\calculate@nostar}}

\let\getstat\calculate

\newcommand{\statcalc@stripspaces}[2]{%
	\def\temp@argnospaces{}%
	\statcalc@tocommalist{\@argcharacters}{}{#1}%
	\foreach \@character in \@argcharacters{\xdef\temp@argnospaces{\temp@argnospaces\@character}}%
	\edef#2{\temp@argnospaces}%
}

\endinput