1 rizwank 1.1 % 
 2             % Default simple header.
 3             % Copyright (c) 1995 Markku Rossi.
 4             % Author: Markku Rossi <mtr@iki.fi>
 5             %
 6             
 7             %
 8             % This file is part of GNU enscript.
 9             % 
10             % This program is free software; you can redistribute it and/or modify
11             % it under the terms of the GNU General Public License as published by
12             % the Free Software Foundation; either version 2, or (at your option)
13             % any later version.
14             %
15             % This program is distributed in the hope that it will be useful,
16             % but WITHOUT ANY WARRANTY; without even the implied warranty of
17             % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18             % GNU General Public License for more details.
19             %
20             % You should have received a copy of the GNU General Public License
21             % along with this program; see the file COPYING.  If not, write to
22 rizwank 1.1 % the Free Software Foundation, 59 Temple Place - Suite 330,
23             % Boston, MA 02111-1307, USA.
24             %
25             
26             % -- code follows this line --
27             %Format: fmodstr	$D{%a %b %d %H:%M:%S %Y}
28             %Format: pagenumstr	$V$%
29             
30             /do_header {	% print default simple header
31               gsave
32                 d_header_x d_header_y HFpt_h 3 div add translate
33             
34                 HF setfont
35                 user_header_p {
36                   5 0 moveto user_header_left_str show
37             
38                   d_header_w user_header_center_str stringwidth pop sub 2 div
39                   0 moveto user_header_center_str show
40             
41                   d_header_w user_header_right_str stringwidth pop sub 5 sub
42                   0 moveto user_header_right_str show
43 rizwank 1.1     } {
44                   5 0 moveto fname show
45                   45 0 rmoveto fmodstr show
46                   45 0 rmoveto pagenumstr show
47                 } ifelse
48             
49               grestore
50             } def