Fix JP support and make buildable for 1.8.4.
Submitted by: Takeshi MUTOH <mutoh@info.nara-k.ac.jp>
This commit is contained in:
David E. O'Brien
parent
9934a9a30d
commit
f163bdd386
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=38027
3 changed files with 661 additions and 10 deletions
|
|
@ -6,20 +6,26 @@
|
|||
# $FreeBSD$
|
||||
#
|
||||
|
||||
BROKEN= "doesn't build properly from version 1.7.1"
|
||||
|
||||
PORTNAME= plan
|
||||
PORTVERSION= 1.8.4
|
||||
CATEGORIES= japanese
|
||||
|
||||
MAINTAINER= ports@FreeBSD.org
|
||||
|
||||
MAKE_ENV+= JAPANESE=yes
|
||||
|
||||
MASTERDIR= ${.CURDIR}/../../deskutils/plan
|
||||
|
||||
PLIST= ${WRKDIR}/PLIST
|
||||
EXTRA_PATCHES= ${.CURDIR}/files/patch-*
|
||||
|
||||
post-build:
|
||||
${ECHO} share/doc/plan/plan_calEUC.ps > ${WRKDIR}/PLIST
|
||||
${CAT} ${MASTERDIR}/pkg-plist >> ${WRKDIR}/PLIST
|
||||
|
||||
post-install:
|
||||
@${MKDIR} ${PREFIX}/share/netplan.dir
|
||||
${CHMOD} 1777 ${PREFIX}/share/netplan.dir
|
||||
${INSTALL_DATA} ${.CURDIR}/files/plan_calEUC.ps ${PREFIX}/share/doc/plan
|
||||
|
||||
.include "${MASTERDIR}/Makefile"
|
||||
|
||||
MAINTAINER= obrien@FreeBSD.org
|
||||
|
||||
PLIST= ${WRKDIR}/PLIST
|
||||
|
||||
pre-install:
|
||||
${ECHO} "share/doc/plan/plan_calSJ.ps" > ${PLIST}
|
||||
${CAT} ${PKGDIR}/pkg-plist >> ${PLIST}
|
||||
|
|
|
|||
20
japanese/plan/files/patch-print.c
Normal file
20
japanese/plan/files/patch-print.c
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
--- print.c.org Thu Feb 1 10:46:22 2001
|
||||
+++ print.c Thu Feb 1 10:47:00 2001
|
||||
@@ -34,7 +34,7 @@
|
||||
|
||||
#define PS_LIB "plan_cal.ps"
|
||||
#ifdef JAPAN
|
||||
-#define PS_LIB_SJ "plan_calSJ.ps"
|
||||
+#define PS_LIB_EUC "plan_calEUC.ps"
|
||||
extern char *localename;
|
||||
#endif
|
||||
#ifdef BSD
|
||||
@@ -521,7 +521,7 @@
|
||||
#ifdef JAPAN
|
||||
if (strcmp(localename, LOCALE_SJIS) == 0 ||
|
||||
strcmp(localename, LOCALE_EUC) == 0)
|
||||
- find_file(PsLib, PS_LIB_SJ, FALSE);
|
||||
+ find_file(PsLib, PS_LIB_EUC, FALSE);
|
||||
else
|
||||
#endif
|
||||
find_file(PsLib, PS_LIB, FALSE);
|
||||
625
japanese/plan/files/plan_calEUC.ps
Normal file
625
japanese/plan/files/plan_calEUC.ps
Normal file
|
|
@ -0,0 +1,625 @@
|
|||
%ifdef JAPAN
|
||||
%%BeginProcSet: cmpfont.ps 1 2
|
||||
% composite fonts for ASCII-EUC mixed string
|
||||
% Version 1.2 1/31/1990
|
||||
% Author Ken'ichi HANDA (handa@etl.go.jp)
|
||||
% Modified Norio Katayama (katayama@rd.nacsis.ac.jp),1998% Anyone can freely copy, modify, distribute this program.
|
||||
/copyfont { % font-dic extra-entry-count copyfont font-dic
|
||||
1 index maxlength add dict begin
|
||||
{ 1 index /FID ne 2 index /UniqueID ne and
|
||||
{def} {pop pop} ifelse
|
||||
} forall
|
||||
currentdict
|
||||
end
|
||||
} bind def
|
||||
|
||||
/compositefont { % ASCIIFontName EUCFontName compositefont font'
|
||||
userdict /fixeucfont_dict known not {
|
||||
userdict begin
|
||||
/fixeucfont_dict 2 dict begin
|
||||
/UpperByteEncoding [
|
||||
16#00 1 16#20 { pop 0 } for
|
||||
16#21 1 16#28 { 16#20 sub } for
|
||||
16#29 1 16#2F { pop 0 } for
|
||||
16#30 1 16#74 { 16#27 sub } for
|
||||
16#75 1 16#FF { pop 0 } for
|
||||
] def
|
||||
/LowerByteEncoding [
|
||||
16#00 1 16#A0 { pop /.notdef } for
|
||||
16#A1 1 16#FE { 16#80 sub 16 2 string cvrs
|
||||
(cXX) dup 1 4 -1 roll
|
||||
putinterval cvn } for
|
||||
/.notdef
|
||||
] def
|
||||
currentdict
|
||||
end def
|
||||
end
|
||||
} if
|
||||
findfont dup /FontType get 0 eq {
|
||||
12 dict begin
|
||||
%
|
||||
% 7+8 bit EUC font
|
||||
%
|
||||
12 dict begin
|
||||
/EUCFont exch def
|
||||
/FontInfo (7+8 bit EUC font) readonly def
|
||||
/PaintType 0 def
|
||||
/FontType 0 def
|
||||
/FontMatrix matrix def
|
||||
% /FontName
|
||||
/Encoding fixeucfont_dict /UpperByteEncoding get def
|
||||
/FMapType 2 def
|
||||
EUCFont /WMode known
|
||||
{ EUCFont /WMode get /WMode exch def }
|
||||
{ /WMode 0 def } ifelse
|
||||
/FDepVector [
|
||||
EUCFont /FDepVector get 0 get
|
||||
[ 16#21 1 16#28 {} for 16#30 1 16#74 {} for ]
|
||||
{
|
||||
13 dict begin
|
||||
/EUCFont EUCFont def
|
||||
/UpperByte exch 16#80 add def
|
||||
% /FontName
|
||||
/FontInfo (EUC lower byte font) readonly def
|
||||
/PaintType 0 def
|
||||
/FontType 3 def
|
||||
/FontMatrix matrix def
|
||||
/FontBBox {0 0 0 0} def
|
||||
/Encoding
|
||||
fixeucfont_dict /LowerByteEncoding get def
|
||||
% /UniqueID
|
||||
% /WMode
|
||||
/BuildChar {
|
||||
gsave
|
||||
exch dup /EUCFont get setfont
|
||||
/UpperByte get
|
||||
2 string
|
||||
dup 0 4 -1 roll put
|
||||
dup 1 4 -1 roll put
|
||||
dup stringwidth setcharwidth
|
||||
0 0 moveto show
|
||||
grestore
|
||||
} bind def
|
||||
currentdict
|
||||
end
|
||||
/lowerbytefont exch definefont
|
||||
} forall
|
||||
] def
|
||||
currentdict
|
||||
end
|
||||
/eucfont exch definefont
|
||||
exch
|
||||
findfont 1 copyfont dup begin
|
||||
/FontMatrix FontMatrix [1 0 0 1 0 0.05] matrix concatmatrix def
|
||||
end
|
||||
/asciifont exch definefont
|
||||
exch
|
||||
/FDepVector [ 4 2 roll ] def
|
||||
/FontType 0 def
|
||||
/WMode 0 def
|
||||
/FMapType 4 def
|
||||
/FontMatrix matrix def
|
||||
/Encoding [0 1] def
|
||||
/FontBBox {0 0 0 0} def
|
||||
currentdict
|
||||
end
|
||||
}{
|
||||
pop findfont 0 copyfont
|
||||
} ifelse
|
||||
} def
|
||||
|
||||
/slantfont { % FontName slant-degree slantfont font'
|
||||
exch findfont 1 copyfont begin
|
||||
[ 1 0 4 -1 roll 1 0 0 ] FontMatrix exch matrix concatmatrix
|
||||
/FontMatrix exch def
|
||||
currentdict
|
||||
end
|
||||
} def
|
||||
%%EndProcSet
|
||||
|
||||
% reencodeISO was modified to deal with a composite font correctly.
|
||||
% Modifier: Shigeru Chiba (chiba@is.s.u-tokyo.ac.jp)
|
||||
% Kazuhiro Kazama (kazama@expert-sun.ntt.jp)
|
||||
/reencodeISOa { % CompFontName font reencodeISOb font'
|
||||
dup length dict begin
|
||||
{ 1 index /FID ne { def }{ pop pop } ifelse } forall
|
||||
/Encoding ISOLatin1Encoding def
|
||||
currentdict end definefont
|
||||
} def
|
||||
|
||||
/reencodeISO { % FontName reencodeISO font
|
||||
dup dup findfont dup /FontType get 0 ne {
|
||||
reencodeISOa
|
||||
}{
|
||||
dup length dict begin {
|
||||
1 index dup /FID eq {
|
||||
pop pop pop
|
||||
}{ /FDepVector eq {
|
||||
dup length array copy
|
||||
dup dup 0 get 4 index exch reencodeISOa 0 exch put def
|
||||
}{
|
||||
def
|
||||
} ifelse } ifelse } forall
|
||||
currentdict end definefont
|
||||
} ifelse } def
|
||||
|
||||
/ISOLatin1Encoding [
|
||||
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
|
||||
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
|
||||
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
|
||||
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
|
||||
/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright
|
||||
/parenleft/parenright/asterisk/plus/comma/minus/period/slash
|
||||
/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
|
||||
/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
|
||||
/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright
|
||||
/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m
|
||||
/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde
|
||||
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
|
||||
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
|
||||
/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve
|
||||
/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut
|
||||
/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar
|
||||
/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot
|
||||
/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior
|
||||
/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine
|
||||
/guillemotright/onequarter/onehalf/threequarters/questiondown
|
||||
/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
|
||||
/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex
|
||||
/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis
|
||||
/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute
|
||||
/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis
|
||||
/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave
|
||||
/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex
|
||||
/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis
|
||||
/yacute/thorn/ydieresis
|
||||
] def
|
||||
|
||||
%%BeginSetup
|
||||
/Times-Ryumin
|
||||
/Times-Roman /Ryumin-Light-EUC-H compositefont definefont pop
|
||||
/Times-Ryumin reencodeISO def
|
||||
%%EndSetup
|
||||
%endif
|
||||
|
||||
/DefNormFont /Helvetica findfont
|
||||
dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
|
||||
/Encoding ISOLatin1Encoding def currentdict end
|
||||
/Helvetica-ISOLatin1 exch definefont
|
||||
def
|
||||
/DefBoldFont /Helvetica-Bold findfont
|
||||
dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
|
||||
/Encoding ISOLatin1Encoding def currentdict end
|
||||
/Helvetica-Bold-ISOLatin1 exch definefont
|
||||
def
|
||||
/DefItalFont /Helvetica-Oblique findfont
|
||||
dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
|
||||
/Encoding ISOLatin1Encoding def currentdict end
|
||||
/Helvetica-Oblique-ISOLatin1 exch definefont
|
||||
def
|
||||
%ifdef JAPAN
|
||||
/DefEUCFont /Times-Ryumin findfont def
|
||||
%endif
|
||||
/TopMarginOfs 10 def
|
||||
/BottomMarginOfs 20 def
|
||||
/LeftMarginOfs 20 def
|
||||
/RightMarginOfs 20 def
|
||||
|
||||
/Months [ ()
|
||||
(January) (February) (March) (April)
|
||||
(May) (June) (July) (August)
|
||||
(September) (October) (November) (December)
|
||||
] def
|
||||
|
||||
/WeekDays [ ()
|
||||
(Sun) (Mon) (Tue) (Wed) (Thu) (Fri) (Sat) (Sun)
|
||||
] def
|
||||
|
||||
/Days [ 0
|
||||
31 28 31 30 31 30 31 31 30 31 30 31
|
||||
] def
|
||||
|
||||
/Debug { pop } bind def
|
||||
/DebugValue { pop pop } bind def
|
||||
% /DebugBuf 256 string def
|
||||
% /Debug { print flush } bind def
|
||||
% /DebugValue { exch print DebugBuf cvs print (\n) print flush } def
|
||||
|
||||
/PosDict 400 dict def
|
||||
/CalDicts 10 dict def
|
||||
|
||||
/Register { % Name Size
|
||||
dict
|
||||
% Name dict
|
||||
exch
|
||||
% dict Name
|
||||
CalDicts
|
||||
% dict Name CalDicts
|
||||
exch
|
||||
% dict CalDicts Name
|
||||
2 index put
|
||||
} def
|
||||
|
||||
% Common Functions
|
||||
/_Mark {
|
||||
gsave
|
||||
36 dup scale
|
||||
0.0 setlinewidth
|
||||
-1 0 rmoveto 2 0 rlineto -1 -1 rmoveto 0 2 rlineto stroke
|
||||
grestore
|
||||
} def
|
||||
/Mark {
|
||||
gsave
|
||||
_Mark
|
||||
45 rotate 0.75 dup scale _Mark
|
||||
22.5 rotate 0.75 dup scale _Mark 45 rotate _Mark
|
||||
grestore
|
||||
} def
|
||||
/FontTopBot { % font -> TopYoffset BottomYoffset
|
||||
dup /FontBBox get aload pop 5 -1 roll /FontMatrix get dup
|
||||
4 1 roll dtransform exch pop 4 1 roll dtransform exch pop
|
||||
} def
|
||||
/box {
|
||||
4 copy
|
||||
moveto
|
||||
exch 3 -1 roll lineto
|
||||
4 -2 roll lineto lineto
|
||||
closepath
|
||||
} def
|
||||
|
||||
/rbox { % from currentpoint: Xsize Ysize
|
||||
currentpoint
|
||||
% Xsize Ysize X1 Y1
|
||||
currentpoint
|
||||
% Xsize Ysize X1 Y1 x2 y2
|
||||
exch 6 -1 roll
|
||||
% Ysize X1 Y1 y2 x2 Xsize
|
||||
add
|
||||
% Ysize X1 Y1 y2 X2
|
||||
exch 5 -1 roll
|
||||
% X1 Y1 X2 y2 Ysize
|
||||
add
|
||||
% X1 Y1 X2 Y2
|
||||
box
|
||||
} bind def
|
||||
|
||||
/Landscape {
|
||||
% Auto Rotate Page to Landscape
|
||||
newpath clippath pathbbox % llx lly urx ury
|
||||
pop exch pop exch % DevWidth
|
||||
add 0 translate 90 rotate
|
||||
} bind def
|
||||
|
||||
/SetMinMax {
|
||||
% Set MinX, MaxX, MinY MaxY from clippath
|
||||
newpath clippath pathbbox newpath % llx lly urx ury
|
||||
transform round 1 add exch round 1 sub exch itransform
|
||||
/MaxY exch def /MaxX exch def
|
||||
transform round 1 sub exch round 1 add exch itransform
|
||||
/MinY exch def /MinX exch def
|
||||
|
||||
% Fudge factor..
|
||||
/MinX MinX 2 add LeftMarginOfs add def
|
||||
/MaxX MaxX 2 sub RightMarginOfs sub def
|
||||
/MinY MinY 2 add BottomMarginOfs add def
|
||||
/MaxY MaxY 2 sub TopMarginOfs sub def
|
||||
} def
|
||||
|
||||
/CurY { currentpoint exch pop } bind def
|
||||
/CurX { currentpoint pop } bind def
|
||||
|
||||
/CenterShow {
|
||||
dup stringwidth pop -2 div 0 rmoveto show
|
||||
} bind def
|
||||
|
||||
/AdjWeekDay {
|
||||
SundayFirst not {
|
||||
1 sub dup 0 lt { pop 6 } if
|
||||
} if
|
||||
} bind def
|
||||
|
||||
% Define 'Year' Print Functions
|
||||
/Year 50 Register begin
|
||||
/MonthNameFont DefItalFont 11 scalefont def
|
||||
/MonthWeekDayFont DefNormFont 7 scalefont def
|
||||
/MonthWeekNumFont DefBoldFont 7 scalefont def
|
||||
/EntryFont DefBoldFont 3 scalefont def
|
||||
/HolidayFont DefItalFont 3 scalefont def
|
||||
%ifdef JAPAN
|
||||
/EntryJapanFont DefEUCFont 3 scalefont def
|
||||
/HolidayJapanFont DefEUCFont 3 scalefont def
|
||||
%endif
|
||||
|
||||
/MonthXofs 9 def
|
||||
/MonthYofs 12 def
|
||||
|
||||
/Init {
|
||||
(Year: Init...\n) Debug
|
||||
Landscape
|
||||
} def
|
||||
|
||||
/Start {
|
||||
% Put month dict onto stack under our own dict.
|
||||
currentdict end CalDicts /Month get begin begin
|
||||
|
||||
(Year: Start...\n) Debug
|
||||
|
||||
% Somewhere we can paint junk...
|
||||
MaxX MaxY moveto 8 dup rmoveto
|
||||
/undef PosDict exch [ currentpoint matrix currentmatrix 0 ] put
|
||||
|
||||
DefBoldFont 18 scalefont setfont
|
||||
MinX MaxX MinX sub 2 div add MaxY moveto
|
||||
0 currentfont FontTopBot sub neg rmoveto
|
||||
Year 6 string cvs CenterShow
|
||||
MinX currentpoint exch pop moveto
|
||||
|
||||
MonthXofs -9 rmoveto
|
||||
|
||||
/MonthWidth MaxX MinX sub 5 MonthXofs mul sub 4 div def
|
||||
/MonthHeight CurY MinY sub 3 MonthYofs mul sub 3 div def
|
||||
/MonthRowHeight MonthHeight MonthYofs add def
|
||||
/DayWidth MonthWidth 7 div def
|
||||
|
||||
1 1 12 {
|
||||
gsave
|
||||
gsave 0 MonthRowHeight neg rmoveto currentpoint grestore translate
|
||||
dup PaintMonth
|
||||
/WeekDay WeekDay SundayFirst not { 1 add 7 mod } if def
|
||||
grestore
|
||||
MonthWidth MonthXofs add 0 rmoveto
|
||||
4 mod 0 eq {
|
||||
MinX currentpoint exch pop moveto
|
||||
MonthXofs MonthRowHeight neg rmoveto
|
||||
} if
|
||||
} for
|
||||
} def
|
||||
/Finish {
|
||||
(Year: Finish...\n) Debug
|
||||
showpage
|
||||
} def
|
||||
end
|
||||
|
||||
% Define 'Month' Print Functions
|
||||
/Month 50 Register begin
|
||||
/MonthNameFont DefBoldFont 20 scalefont def
|
||||
/MonthWeekDayFont DefNormFont 12 scalefont def
|
||||
/MonthWeekNumFont DefBoldFont 16 scalefont def
|
||||
/EntryFont DefBoldFont 9 scalefont def
|
||||
/HolidayFont DefItalFont 9 scalefont def
|
||||
%ifdef JAPAN
|
||||
/EntryJapanFont DefEUCFont 9 scalefont def
|
||||
/HolidayJapanFont DefEUCFont 9 scalefont def
|
||||
%endif
|
||||
|
||||
/Init {
|
||||
(Month: Init...\n) Debug
|
||||
Landscape
|
||||
} def
|
||||
/Start {
|
||||
(Month: Start...\n) Debug
|
||||
|
||||
% Somewhere we can paint junk...
|
||||
MaxX MaxY moveto 8 dup rmoveto
|
||||
/undef PosDict exch [ currentpoint matrix currentmatrix 0 ] put
|
||||
|
||||
%
|
||||
/MonthWidth MaxX MinX sub 4 sub def
|
||||
MinX MinY translate
|
||||
0 MaxY MinY sub moveto
|
||||
Month PaintMonth
|
||||
gsave
|
||||
} def
|
||||
/PaintMonth {
|
||||
/CurMonth exch def
|
||||
(PaintMonth: CurMonth = ) CurMonth DebugValue
|
||||
|
||||
MonthNameFont setfont
|
||||
|
||||
Print_Mode (Month) ne {
|
||||
0 currentfont FontTopBot sub neg rmoveto
|
||||
Months CurMonth get show
|
||||
0 -6 rmoveto
|
||||
} {
|
||||
MonthWidth 2 div currentfont FontTopBot sub neg rmoveto
|
||||
|
||||
Year 6 string cvs dup stringwidth pop -2 div 0 rmoveto
|
||||
Months CurMonth get dup stringwidth pop -2 div 0 rmoveto
|
||||
( ) stringwidth pop -2 div 0 rmoveto
|
||||
show ( ) show show
|
||||
|
||||
0 -9 rmoveto
|
||||
} ifelse
|
||||
|
||||
0 currentpoint exch pop moveto
|
||||
|
||||
/MonthHeight CurY 2 sub def
|
||||
/DayWidth MonthWidth 7 div def
|
||||
|
||||
gsave
|
||||
0.48 setlinewidth
|
||||
|
||||
MonthWeekDayFont setfont
|
||||
0 currentfont FontTopBot /YO exch def neg rmoveto
|
||||
gsave
|
||||
SundayFirst { /D 0 def } { /D 1 def } ifelse
|
||||
7 {
|
||||
D 1 add WeekDays exch get
|
||||
gsave 3 2 rmoveto show grestore
|
||||
DayWidth 0 rmoveto
|
||||
/D D 1 add 7 mod def
|
||||
} repeat
|
||||
grestore
|
||||
0 YO rmoveto
|
||||
|
||||
/DayHeight CurY 6 div def
|
||||
|
||||
MonthWeekNumFont setfont
|
||||
/StartWeekDay WeekDay def
|
||||
gsave
|
||||
0 currentfont FontTopBot /YO exch def neg /YYO exch def YYO rmoveto
|
||||
/YYMM Year 1900 sub 10000 mul CurMonth 100 mul add def
|
||||
/CurWeek 0 def
|
||||
/DayStr 2 string def
|
||||
/WeekDay WeekDay AdjWeekDay def
|
||||
2 WeekDay DayWidth mul add 0 rmoveto
|
||||
|
||||
/DayNumYofs YYO def
|
||||
|
||||
1 1
|
||||
Days CurMonth get
|
||||
CurMonth 2 eq Year 4 mod 0 eq and { pop 29 } if
|
||||
{
|
||||
/CurDay exch def
|
||||
|
||||
CurDay DayStr cvs
|
||||
gsave
|
||||
CurX exch show CurX exch sub /DX exch def
|
||||
grestore
|
||||
|
||||
% Save position info for later use...
|
||||
gsave
|
||||
-2 YYO neg rmoveto
|
||||
YYMM CurDay add 10 string cvs cvn
|
||||
PosDict exch [ currentpoint matrix currentmatrix DX ] put
|
||||
grestore
|
||||
|
||||
/WeekDay WeekDay 1 add 7 mod def
|
||||
|
||||
WeekDay 0 eq {
|
||||
/CurWeek CurWeek 1 add def
|
||||
0 2 add currentpoint exch pop DayHeight sub moveto
|
||||
} {
|
||||
DayWidth 0 rmoveto
|
||||
} ifelse
|
||||
} for
|
||||
grestore
|
||||
|
||||
% Paint Gray Squares
|
||||
gsave
|
||||
StartWeekDay AdjWeekDay {
|
||||
gsave
|
||||
0.98 setgray
|
||||
DayWidth DayHeight neg rbox fill
|
||||
grestore
|
||||
DayWidth 0 rmoveto
|
||||
} repeat
|
||||
grestore
|
||||
|
||||
/W WeekDay def
|
||||
CurWeek 1 5 {
|
||||
/CurWeek exch def
|
||||
gsave
|
||||
W DayWidth mul CurWeek DayHeight mul neg rmoveto
|
||||
% Gray remaining boxes...
|
||||
7 W sub {
|
||||
gsave
|
||||
0.98 setgray
|
||||
DayWidth DayHeight neg rbox fill
|
||||
grestore
|
||||
DayWidth 0 rmoveto
|
||||
} repeat
|
||||
grestore
|
||||
/W 0 def
|
||||
} for
|
||||
|
||||
% Paint Grid...
|
||||
gsave
|
||||
6 {
|
||||
DayWidth 0 rmoveto
|
||||
gsave CurX 0 lineto stroke grestore
|
||||
} repeat
|
||||
grestore
|
||||
gsave
|
||||
5 {
|
||||
0 DayHeight neg rmoveto
|
||||
gsave MonthWidth CurY lineto stroke grestore
|
||||
} repeat
|
||||
grestore
|
||||
|
||||
% Paint outside box
|
||||
gsave
|
||||
1.44 setlinewidth
|
||||
MonthWidth CurY 0 0 box stroke
|
||||
grestore
|
||||
grestore
|
||||
} def
|
||||
/Finish {
|
||||
(Month: Finish...\n) Debug
|
||||
grestore
|
||||
showpage
|
||||
} def
|
||||
/NewDay {
|
||||
[ /CurJul /CurWeek /CurYear /CurDay /CurMonth ] { exch def } forall
|
||||
|
||||
grestore
|
||||
gsave
|
||||
CurYear 10000 mul CurMonth 100 mul add CurDay add 10 string cvs cvn
|
||||
PosDict exch 2 copy known not { pop /undef } if
|
||||
get aload pop /DayNumXofs exch def setmatrix moveto
|
||||
|
||||
EntryFont setfont
|
||||
/YO currentfont FontTopBot sub neg def
|
||||
|
||||
currentpoint
|
||||
DayWidth 1 sub DayHeight 1 sub neg rbox clip
|
||||
moveto
|
||||
|
||||
2 DayNumYofs rmoveto
|
||||
} def
|
||||
/PaintHolidays {
|
||||
DayNumXofs 0 rmoveto
|
||||
/Z DayNumXofs neg def
|
||||
/F currentfont def
|
||||
HolidayFont setfont
|
||||
{
|
||||
%ifdef JAPAN
|
||||
gsave ( ) show HolidayJapanFont setfont show grestore
|
||||
%endif
|
||||
Z YO rmoveto
|
||||
/Z 0 def
|
||||
} forall
|
||||
Z YO neg rmoveto
|
||||
F setfont
|
||||
} def
|
||||
/PaintEntry {
|
||||
[ /Entry_Message /Entry_Note /Entry_Time /Entry_Date ] { exch def } forall
|
||||
|
||||
0 YO rmoveto
|
||||
gsave
|
||||
% Entry_Date show ( ) show
|
||||
Entry_Time () ne { Entry_Time show ( ) show } if
|
||||
%ifdef JAPAN
|
||||
EntryJapanFont setfont
|
||||
%endif
|
||||
Entry_Note show
|
||||
grestore
|
||||
} def
|
||||
/PaintBGRect {
|
||||
gsave
|
||||
0 YO rmoveto
|
||||
%ifdef JAPAN
|
||||
EntryJapanFont setfont
|
||||
%endif
|
||||
CurX 1 sub CurY currentfont FontTopBot exch pop add newpath moveto
|
||||
DayWidth currentfont FontTopBot sub rbox fill
|
||||
grestore
|
||||
} def
|
||||
end
|
||||
|
||||
% Functions Common to all Calendars...
|
||||
/InitCal {
|
||||
% Make "Current Print Mode" Functions availble on Dict Stack...
|
||||
CalDicts Print_Mode cvn get begin
|
||||
|
||||
Init
|
||||
|
||||
SetMinMax
|
||||
|
||||
Start
|
||||
} def
|
||||
|
||||
/FinishCal {
|
||||
Finish
|
||||
end
|
||||
} def
|
||||
Loading…
Reference in a new issue