File: ex-02-04

package info (click to toggle)
texlive-doc 2005.dfsg.2-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 125,100 kB
  • ctags: 12,558
  • sloc: xml: 24,267; perl: 14,394; makefile: 727; sh: 324; lisp: 276; java: 159; sed: 4
file content (33 lines) | stat: -rw-r--r-- 698 bytes parent folder | download | duplicates (2) 
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
 
    Documents Using RCS}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% RCS definitions...
%
\newif\ifdraft
\def\RCSID$#1${%
  \ifdraft{\tolerance=100000%
           \hbadness=100000%
           \raggedright%
           \marginpar{\tiny Draft #1}}%
           \typeout{Draft #1}%
  \else\typeout{Production run #1}\fi%
}

\def\RCSmargid$#1: #2 #3 #4 #5 #6 #7${%
% #1 = ``Id''
% #2 = filename
% #3 = vers
% #4 = date
% #5 = time
% #6 = author
% #7 = state [locker]
  \ifdraft
    \setbox0=\hbox to 0pt{%
        \tolerance=100000%
        \hbadness=100000%
        \parbox{4in}{%
          \rm\tiny #2\\ #3\\ #4}%
        \hss}%
    \marginpar{\box0}%
    \typeout{Draft Id: #2 #3 #4 #5 #6 #7}%
  \fi
}