CoCalc -- numcompress.sty

Real-time collaboration for Jupyter Notebooks, Linux Terminals, LaTeX, VS Code, R IDE, and more,
all in one place. Commercial Alternative to JupyterHub.

GitHub Repository: sagemathinc/cocalc-example-files
Path: blob/master/RMarkdown/rticles/elsevier_article/numcompress.sty
Views: ¹⁰⁸³

1
%%
2
%% This is file 'numcompress'.
3
%%
4
%% Copyright (C) 2009-2012 River Valley Technologies 
5
%%                    <latex.support@river-valley.com>
6
%%   
7
%% This package may be distributed under the terms of the LaTeX Project 
8
%% Public License, as described in lppl.txt in the base LaTeX distribution.
9
%% Either version 1.0 or, at your option, any later version.
10
%%
11
%% $Id: numcompress.sty 187 2012-08-18 09:36:35Z rishi $
12
%% $URL: http://lenova.river-valley.com/svn/elsbst/trunk/numcompress.sty $
13
%%
14
\NeedsTeXFormat{LaTeX2e}
15
\def\Fileversion$#1: #2 ${\gdef\fileversion{#2}}
16
\def\Filedate$#1: #2-#3-#4 #5 #6 #7 ${\gdef\filedate{#2/#3/#4}} 
17
\Fileversion$Rev: 187 $
18
\Filedate$LastChangedDate: 2012-08-18 15:06:35 +0530 (Sat, 18 Aug 2012) $
19
\ProvidesPackage{numcompress}
20
   [\filedate\space\fileversion\space numcompress (CVR)]
21
\PackageWarningNoLine{numcompress}
22
   {****************************************\MessageBreak
23
    Package numcompress v,\fileversion\space loaded\MessageBreak
24
    [Compress numbers (CVR)]\MessageBreak
25
    ****************************************}
26
\newif\ifdots \dotsfalse
27
\newif\ifnumcompress \numcompresstrue
28

29
\DeclareOption{dots}{\global\dotstrue}
30
\DeclareOption{nodots}{\global\dotsfalse}
31
\DeclareOption{compress}{\global\numcompresstrue}
32
\DeclareOption{nocompress}{\global\numcompressfalse}
33

34
\ProcessOptions 
35

36
\def\removeDot#1{\def\tmp{#1}%
37
    \ifx\tmp\@empty\else\@removeDot#1\@nil\fi}
38

39
\def\@removeDot#1\@nil{\edef\fchar{\expandafter\@car#1\@nil}%
40
      \edef\rchar{\expandafter\@cdr#1!\@nil}%
41
      \def\@xmltempa{.}\def\@xmltempb{!}%
42
      \ifx\fchar\@xmltempb\relax\else%
43
      \ifx\fchar\@xmltempa\relax\else%
44
      \fchar\ignorespaces\fi\removeDot{\rchar}\fi}
45

46
\def\First[#1]{\csname First#1\endcsname}
47
\def\Second[#1]{\csname Second#1\endcsname}
48

49
\def\parseFirstPage#1{\@tempcnta=0
50
  \@tfor\@digits:=#1\do{%
51
    {\global\advance\@tempcnta by 1
52
      \expandafter\xdef\csname
53
      First\the\@tempcnta\endcsname{\@digits}%
54
      \xdef\flength{\the\@tempcnta}}}}
55

56
\def\parseSecondPage#1{\@tempcnta=0
57
  \@tfor\@digits:=#1\do{%
58
    {\global\advance\@tempcnta by 1
59
      \expandafter\xdef\csname
60
      Second\the\@tempcnta\endcsname{\@digits}%
61
      \xdef\llength{\the\@tempcnta}}}}
62

63
\newif\ifdissimilar\dissimilarfalse
64
\def\checkequal#1#2{\edef\Farg{#1}\edef\Sarg{#2}%
65
      \edef\One{A}%
66
      \ifcat\One\Farg \relax\else%
67
      \ifdissimilar\Sarg\else%
68
      \ifnum\Farg=\Sarg\relax\else\Sarg\dissimilartrue\fi\fi\fi}
69
%
70
\let\@@fpage\@empty
71
\let\@@lpage\@empty
72
\def\fpage@compress#1{%
73
      \gdef\@@fpage{#1}%
74
            \edef\llength{0}%
75
            \parseFirstPage{#1}%
76
      \ifnum\flength=\llength%
77
       \gdef\@fpage{\@@fpage}%
78
       \gdef\@lpage{%
79
        \@ifundefined{Second1}{}{\checkequal{\First[1]}{\Second[1]}}%
80
        \@ifundefined{Second2}{}{\checkequal{\First[2]}{\Second[2]}}%
81
        \@ifundefined{Second3}{}{\checkequal{\First[3]}{\Second[3]}}%
82
        \@ifundefined{Second4}{}{\checkequal{\First[4]}{\Second[4]}}%
83
        \@ifundefined{Second5}{}{\checkequal{\First[5]}{\Second[5]}}%
84
      }%
85
      \else%
86
       \gdef\@fpage{\@@fpage}%
87
       \gdef\@lpage{\@@lpage}%
88
     \fi}
89

90
\def\lpage@compress#1{%
91
        \gdef\@@lpage{#1}%
92
        \parseSecondPage{#1}%
93
      \ifnum\flength=\llength%
94
       \gdef\@fpage{\@@fpage}%
95
       \gdef\@lpage{%
96
       \edef\One{A}%
97
       \edef\xFirst{\First[1]}%
98
       \edef\xSecond{\Second[1]}%
99
       \ifcat\One\xSecond\relax%
100
          \ifx\xFirst\xSecond%
101
           \@ifundefined{Second1}{}{\checkequal{\First[1]}{\Second[1]}}%
102
           \@ifundefined{Second2}{}{\checkequal{\First[2]}{\Second[2]}}%
103
           \@ifundefined{Second3}{}{\checkequal{\First[3]}{\Second[3]}}%
104
           \@ifundefined{Second4}{}{\checkequal{\First[4]}{\Second[4]}}%
105
           \@ifundefined{Second5}{}{\checkequal{\First[5]}{\Second[5]}}%
106
          \else#1\fi%
107
      \else%
108
          \ifx\xFirst\xSecond%
109
           \@ifundefined{Second1}{}{\checkequal{\First[1]}{\Second[1]}}%
110
           \@ifundefined{Second2}{}{\checkequal{\First[2]}{\Second[2]}}%
111
           \@ifundefined{Second3}{}{\checkequal{\First[3]}{\Second[3]}}%
112
           \@ifundefined{Second4}{}{\checkequal{\First[4]}{\Second[4]}}%
113
           \@ifundefined{Second5}{}{\checkequal{\First[5]}{\Second[5]}}%
114
        \else#1\fi%
115
      \fi%
116
      }%
117
    \else
118
      \gdef\@fpage{\@@fpage}%
119
      \gdef\@lpage{%
120
      \edef\Targ{#1}%
121
      \edef\One{A}%
122
      \edef\xFirst{\First[1]}%
123
      \edef\xSecond{\Second[1]}%
124
      \ifx\xFirst\xSecond
125
         \ifcat\One\xSecond\relax\else\@@lpage\fi%
126
      \else#1\fi%
127
      }%
128
  \fi}
129

130
%\newwrite\xx
131
%\immediate\openout\xx=tmpbib.tex
132
\gdef\@@lpage@compress#1--#2\@nil{\lpage@compress{#1}}
133
\gdef\@@@pages#1#2{\def\next{#2}%
134
%  \immediate\write\xx{[\the\c@NAT@ctr.]\space [#1][#2]}%
135
  \fpage@compress{#1}%\ifx\next\@empty\relax\else
136
   \@@lpage@compress#2\@nil%\fi
137
  {\@fpage\ifx\next\@empty\relax\else
138
    --\@lpage\fi}\resetall}
139

140
\gdef\@@@page#1{#1\resetall}
141

142
\def\mk@empty#1{\@tempcnta=1
143
  \loop\ifnum\@tempcnta<6
144
    \expandafter\let\csname#1\the\@tempcnta\endcsname\relax
145
    \advance\@tempcnta by 1 \repeat}
146
\def\resetall{\let\@lpage\@empty\let\@fpage\@empty
147
   \def\flength{0}\def\llength{0}%
148
   \let\@@fpage\@empty\let\@@lpage\@empty
149
   \mk@empty{First}\mk@empty{Second}}
150

151

152
\ifdots
153
 \gdef\xfnm[#1]{\unskip\space#1}
154
 \def\bibinfo#1#2{\@ifnextchar.{\@@bibinfo{#1}{#2}}{\@@@bibinfo{#1}{#2}}}
155
 \def\@@@bibinfo#1#2{\def\next{#1}%
156
   \def\@@@pg{pages}\def\@@@au{author}%
157
   \ifx\next\@@@pg\bibpages{#2}\else
158
   \ifx\next\@@@au\bibauthor{#2}\else
159
   #2\fi\fi}
160
 \def\@@bibinfo#1#2.{\def\next{#1}%
161
  \def\@@@pg{pages}\def\@@@au{author}%
162
  \ifx\next\@@@pg\bibpages{#2}.\else
163
  \ifx\next\@@@au\bibauthor{#2}\else
164
  #2.\fi\fi}
165
\else
166
 \gdef\xfnm[#1]{\unskip\space\removeDot{#1}}
167
 \def\bibinfo#1#2{\def\next{#1}%
168
   \def\@@@pg{pages}\def\@@@au{author}%
169
   \ifx\next\@@@pg\bibpages{#2}\else
170
   \ifx\next\@@@au\bibauthor{#2}\else
171
   #2\fi\fi}
172
\fi
173

174
\ifnumcompress
175
 \def\bibpages#1{\@@bibpages#1--\\\@nil}
176
 \def\@@bibpages#1--#2\@nil{%
177
   \ifx\\#2\relax\@@@page{#1}\else
178
   \@@@pages{#1}{#2}\fi}
179
 \else
180
 \def\bibpages#1{#1}
181
\fi
182

183
\def\bibauthor#1{#1}
184

185
\endinput
186

187
%%
188
%% End of package 'numcompress.sty'
189
%%
190

191

Real-time collaboration for Jupyter Notebooks, Linux Terminals, LaTeX, VS Code, R IDE, and more,
all in one place. Commercial Alternative to JupyterHub.

Product

Resources

Company

Real-time collaboration for Jupyter Notebooks, Linux Terminals, LaTeX, VS Code, R IDE, and more, all in one place. Commercial Alternative to JupyterHub.

Real-time collaboration for Jupyter Notebooks, Linux Terminals, LaTeX, VS Code, R IDE, and more,
all in one place. Commercial Alternative to JupyterHub.