]> git.pld-linux.org Git - packages/perl-Date-Pcalc.git/blame - build.patch
projects / packages / perl-Date-Pcalc.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
perl 5.38.0 rebuild
[packages/perl-Date-Pcalc.git] / build.patch
CommitLineData
efcc988a
JR		 1--- Date-Pcalc-6.1/src/C_XS/ToolBox.h~ 2013-06-13 17:00:05.523968595 +0200
2+++ Date-Pcalc-6.1/src/C_XS/ToolBox.h 2013-06-13 17:00:31.110914002 +0200
3@@ -93,7 +93,7 @@
4 #elif PERL_DARWIN
5 #define boolean bool
6 #else
7- typedef enum { false = FALSE, true = TRUE } boolean;
8+ typedef enum { _false = FALSE, _true = TRUE } boolean;
9 #endif
10 #endif
11
12--- Date-Pcalc-6.1/src/C_XS/DatePcalc.c~ 2013-06-13 17:00:05.523968595 +0200
13+++ Date-Pcalc-6.1/src/C_XS/DatePcalc.c 2013-06-13 17:01:19.212809930 +0200
14@@ -689,8 +689,8 @@
15 {
16 N_int i = (N_int) c;
17
18- if ((i >= 0x30) and (i <= 0x39)) return(true);
19- return(false);
20+ if ((i >= 0x30) and (i <= 0x39)) return(_true);
21+ return(_false);
22 }
23
24 static boolean DateCalc_is_alnum(N_char c)
25@@ -703,8 +703,8 @@
26 ((i >= 0xC0) and (i <= 0xD6)) or
27 ((i >= 0xD8) and (i <= 0xF6)) or
28 ((i >= 0xF8) and (i <= 0xFF)))
29- return(true);
30- return(false);
31+ return(_true);
32+ return(_false);
33 }
34
35 N_char DateCalc_ISO_LC(N_char c)
36@@ -742,14 +742,14 @@
37 { /* Mnemonic: COBOL "PIC 9" */
38 if ((str != NULL) and (idx >= 0) and (idx < len))
39 return( DateCalc_is_digit(str[idx]) XOR neg );
40- return(false);
41+ return(_false);
42 }
43
44 static boolean DateCalc_scanx(charptr str, Z_int len, Z_int idx, boolean neg)
45 { /* Mnemonic: COBOL "PIC X" */
46 if ((str != NULL) and (idx >= 0) and (idx < len))
47 return( DateCalc_is_alnum(str[idx]) XOR neg );
48- return(false);
49+ return(_false);
50 }
51
52 static Z_int DateCalc_Str2Int(charptr string, Z_int length)
53@@ -877,16 +877,16 @@
54 (month >= 1) and (month <= 12) and
55 (day >= 1) and
56 (day <= DateCalc_Days_in_Month_[DateCalc_leap_year(year)][month]))
57- return(true);
58- return(false);
59+ return(_true);
60+ return(_false);
61 }
62
63 boolean DateCalc_check_time(Z_int hour, Z_int min, Z_int sec)
64 {
65 if ((hour >= 0) and (min >= 0) and (sec >= 0) and
66 (hour < 24) and (min < 60) and (sec < 60))
67- return(true);
68- return(false);
69+ return(_true);
70+ return(_false);
71 }
72
73 boolean DateCalc_check_business_date(Z_int year, Z_int week, Z_int dow)
74@@ -894,8 +894,8 @@
75 if ((year >= 1) and
76 (week >= 1) and (week <= DateCalc_Weeks_in_Year(year)) and
77 (dow >= 1) and (dow <= 7))
78- return(true);
79- return(false);
80+ return(_true);
81+ return(_false);
82 }
83
84 Z_int DateCalc_Day_of_Year(Z_int year, Z_int month, Z_int day)
85@@ -965,9 +965,9 @@
86 *week = 1;
87 (*year)++;
88 }
89- return(true);
90+ return(_true);
91 }
92- return(false);
93+ return(_false);
94 }
95
96 boolean DateCalc_monday_of_week(Z_int week,
97@@ -994,14 +994,14 @@
98 (mm < 1) or (mm > 12) or
99 (dow < 1) or (dow > 7) or
100 (n < 1) or (n > 5))
101- return(false);
102+ return(_false);
103 first = DateCalc_Day_of_Week(*year,mm,1);
104 if (dow < first) dow += 7;
105 delta = (Z_long) (dow - first);
106 delta += (n-1) * 7L;
107 if (DateCalc_add_delta_days(year,month,day,delta) and (*month == mm))
108- return(true);
109- return(false);
110+ return(_true);
111+ return(_false);
112 }
113
114 boolean DateCalc_standard_to_business(Z_int *year, Z_int *week, Z_int *dow,
115@@ -1012,9 +1012,9 @@
116 if (DateCalc_week_of_year(week,year,month,day))
117 {
118 *dow = DateCalc_Day_of_Week(yy,month,day);
119- return(true);
120+ return(_true);
121 }
122- return(false);
123+ return(_false);
124 }
125
126 boolean DateCalc_business_to_standard(Z_int *year, Z_int *month, Z_int *day,
127@@ -1030,7 +1030,7 @@
128 delta = ((week + (first > 4) - 1) * 7L) + (dow - first);
129 return( DateCalc_add_delta_days(year,month,day,delta) );
130 }
131- return(false);
132+ return(_false);
133 }
134
135 Z_long DateCalc_Delta_Days(Z_int year1, Z_int month1, Z_int day1,
136@@ -1058,9 +1058,9 @@
137 *Dh = (Z_int) HH;
138 *Dm = (Z_int) MM;
139 *Ds = (Z_int) SS;
140- return(true);
141+ return(_true);
142 }
143- return(false);
144+ return(_false);
145 }
146
147 boolean DateCalc_delta_dhms(Z_long *Dd,
148@@ -1079,7 +1079,7 @@
149 hour1,min1,sec1,
150 hour2,min2,sec2) );
151 }
152- return(false);
153+ return(_false);
154 }
155
156 boolean DateCalc_delta_ymd(Z_int *year1, Z_int *month1, Z_int *day1,
157@@ -1091,9 +1091,9 @@
158 *day1 = day2 - *day1;
159 *month1 = month2 - *month1;
160 *year1 = year2 - *year1;
161- return(true);
162+ return(_true);
163 }
164- return(false);
165+ return(_false);
166 }
167
168 boolean DateCalc_delta_ymdhms(Z_int *D_y, Z_int *D_m, Z_int *D_d,
169@@ -1106,14 +1106,14 @@
170 Z_long Dd;
171
172 if (not DateCalc_delta_ymd(&year1,&month1,&day1, year2,month2,day2))
173- return(false);
174+ return(_false);
175 Dd = (Z_long) day1;
176 if (not DateCalc_delta_hms(&Dd,Dh,Dm,Ds, hour1,min1,sec1, hour2,min2,sec2))
177- return(false);
178+ return(_false);
179 *D_y = year1;
180 *D_m = month1;
181 *D_d = (Z_int) Dd;
182- return(true);
183+ return(_true);
184 }
185
186 boolean DateCalc_norm_delta_ymd(Z_int *year1, Z_int *month1, Z_int *day1,
187@@ -1136,26 +1136,26 @@
188 {
189 Dy = (Z_long) (year2 - *year1);
190 Dm = (Z_long) (month2 - *month1);
191- ty=*year1; tm=*month1; td=*day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td);
192+ ty=*year1; tm=*month1; td=*day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td);
193 if (!(((Dy >= 0L) and (Dm >= 0L) and (Dd >= 0L)) or
194 ((Dy <= 0L) and (Dm <= 0L) and (Dd <= 0L))))
195 {
196 if ((Dy < 0L) and (Dm > 0L)) { Dy++; Dm -= 12L; }
197 else if ((Dy > 0L) and (Dm < 0L)) { Dy--; Dm += 12L; }
198- if ((Dm < 0L) and (Dd > 0L)) { Dm++; ty=*year1; tm=*month1; td=*day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
199- else if ((Dm > 0L) and (Dd < 0L)) { Dm--; ty=*year1; tm=*month1; td=*day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
200+ if ((Dm < 0L) and (Dd > 0L)) { Dm++; ty=*year1; tm=*month1; td=*day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
201+ else if ((Dm > 0L) and (Dd < 0L)) { Dm--; ty=*year1; tm=*month1; td=*day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
202 if ((Dy < 0L) and (Dd > 0L)) { Dy++; Dm -= 12L; }
203 else if ((Dy > 0L) and (Dd < 0L)) { Dy--; Dm += 12L; }
204- if ((Dm < 0L) and (Dd > 0L)) { Dm++; ty=*year1; tm=*month1; td=*day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
205- else if ((Dm > 0L) and (Dd < 0L)) { Dm--; ty=*year1; tm=*month1; td=*day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
206+ if ((Dm < 0L) and (Dd > 0L)) { Dm++; ty=*year1; tm=*month1; td=*day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
207+ else if ((Dm > 0L) and (Dd < 0L)) { Dm--; ty=*year1; tm=*month1; td=*day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
208 }
209 }
210 *year1 = (Z_int) Dy;
211 *month1 = (Z_int) Dm;
212 *day1 = (Z_int) Dd;
213- return(true);
214+ return(_true);
215 }
216- return(false);
217+ return(_false);
218 }
219
220 boolean DateCalc_norm_delta_ymdhms(Z_int *D_y, Z_int *D_m, Z_int *D_d,
221@@ -1185,26 +1185,26 @@
222 {
223 Dy = (Z_long) (year2 - year1);
224 Dm = (Z_long) (month2 - month1);
225- ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td);
226+ ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td);
227 if (!(((Dy >= 0L) and (Dm >= 0L) and (Dd >= 0L) and (ss >= 0L)) or
228 ((Dy <= 0L) and (Dm <= 0L) and (Dd <= 0L) and (ss <= 0L))))
229 {
230 if ((Dy < 0L) and (Dm > 0L)) { Dy++; Dm -= 12L; }
231 else if ((Dy > 0L) and (Dm < 0L)) { Dy--; Dm += 12L; }
232- if ((Dm < 0L) and (Dd > 0L)) { Dm++; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
233- else if ((Dm > 0L) and (Dd < 0L)) { Dm--; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
234+ if ((Dm < 0L) and (Dd > 0L)) { Dm++; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
235+ else if ((Dm > 0L) and (Dd < 0L)) { Dm--; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
236 if ((Dy < 0L) and (Dd > 0L)) { Dy++; Dm -= 12L; }
237 else if ((Dy > 0L) and (Dd < 0L)) { Dy--; Dm += 12L; }
238- if ((Dm < 0L) and (Dd > 0L)) { Dm++; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
239- else if ((Dm > 0L) and (Dd < 0L)) { Dm--; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
240+ if ((Dm < 0L) and (Dd > 0L)) { Dm++; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
241+ else if ((Dm > 0L) and (Dd < 0L)) { Dm--; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
242 if ((Dd < 0L) and (ss > 0L)) { Dd++; ss -= 86400L; }
243 else if ((Dd > 0L) and (ss < 0L)) { Dd--; ss += 86400L; }
244- if ((Dm < 0L) and (ss > 0L)) { Dm++; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
245- else if ((Dm > 0L) and (ss < 0L)) { Dm--; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
246+ if ((Dm < 0L) and (ss > 0L)) { Dm++; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
247+ else if ((Dm > 0L) and (ss < 0L)) { Dm--; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
248 if ((Dy < 0L) and (ss > 0L)) { Dy++; Dm -= 12L; }
249 else if ((Dy > 0L) and (ss < 0L)) { Dy--; Dm += 12L; }
250- if ((Dm < 0L) and (ss > 0L)) { Dm++; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
251- else if ((Dm > 0L) and (ss < 0L)) { Dm--; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
252+ if ((Dm < 0L) and (ss > 0L)) { Dm++; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
253+ else if ((Dm > 0L) and (ss < 0L)) { Dm--; ty=year1; tm=month1; td=day1; if (!DateCalc_add_delta_ym(&ty,&tm,&td,Dy,Dm)) return(_false); Dd=d2-DateCalc_Date_to_Days(ty,tm,td); }
254 if ((Dd < 0L) and (ss > 0L)) { Dd++; ss -= 86400L; }
255 else if ((Dd > 0L) and (ss < 0L)) { Dd--; ss += 86400L; }
256 }
257@@ -1224,9 +1224,9 @@
258 *Dhh = (Z_int) hh;
259 *Dmm = (Z_int) mm;
260 *Dss = (Z_int) ss;
261- return(true);
262+ return(_true);
263 }
264- return(false);
265+ return(_false);
266 }
267
268 boolean DateCalc_add_delta_days(Z_int *year, Z_int *month, Z_int *day,
269@@ -1262,9 +1262,9 @@
270 }
271 }
272 }
273- return(true);
274+ return(_true);
275 }
276- return(false);
277+ return(_false);
278 }
279
280 boolean DateCalc_add_delta_dhms(Z_int *year, Z_int *month, Z_int *day,
281@@ -1295,7 +1295,7 @@
282 else *hour = *min = *sec = 0;
283 return( DateCalc_add_delta_days(year,month,day,Dd) );
284 }
285- return(false);
286+ return(_false);
287 }
288
289 boolean DateCalc_add_year_month(Z_int *year, Z_int *month,
290@@ -1303,7 +1303,7 @@
291 {
292 Z_long quot;
293
294- if ((*year < 1) or (*month < 1) or (*month > 12)) return(false);
295+ if ((*year < 1) or (*month < 1) or (*month > 12)) return(_false);
296 if (Dm != 0L)
297 {
298 Dm += (Z_long) (*month - 1);
299@@ -1322,8 +1322,8 @@
300 Dy += (Z_long) *year;
301 *year = (Z_int) Dy;
302 }
303- if (*year < 1) return(false);
304- return(true);
305+ if (*year < 1) return(_false);
306+ return(_true);
307 }
308
309 boolean DateCalc_add_delta_ym(Z_int *year, Z_int *month, Z_int *day,
310@@ -1331,19 +1331,19 @@
311 {
312 Z_int Dd;
313
314- if (not DateCalc_check_date(*year,*month,*day)) return(false);
315- if (not DateCalc_add_year_month(year,month,Dy,Dm)) return(false);
316+ if (not DateCalc_check_date(*year,*month,*day)) return(_false);
317+ if (not DateCalc_add_year_month(year,month,Dy,Dm)) return(_false);
318 if (*day >
319 (Dd = DateCalc_Days_in_Month_[DateCalc_leap_year(*year)][*month]))
320 *day = Dd;
321- return(true);
322+ return(_true);
323 }
324
325 boolean DateCalc_add_delta_ymd(Z_int *year, Z_int *month, Z_int *day,
326 Z_long Dy, Z_long Dm, Z_long Dd)
327 {
328- if (not DateCalc_check_date(*year,*month,*day)) return(false);
329- if (not DateCalc_add_year_month(year,month,Dy,Dm)) return(false);
330+ if (not DateCalc_check_date(*year,*month,*day)) return(_false);
331+ if (not DateCalc_add_year_month(year,month,Dy,Dm)) return(_false);
332 Dd += (Z_long) (*day - 1);
333 *day = 1;
334 return( DateCalc_add_delta_days(year,month,day,Dd) );
335@@ -1355,8 +1355,8 @@
336 Z_long Dh, Z_long Dm, Z_long Ds)
337 {
338 if (not (DateCalc_check_date(*year,*month,*day) and
339- DateCalc_check_time(*hour,*min,*sec))) return(false);
340- if (not DateCalc_add_year_month(year,month,D_y,D_m)) return(false);
341+ DateCalc_check_time(*hour,*min,*sec))) return(_false);
342+ if (not DateCalc_add_year_month(year,month,D_y,D_m)) return(_false);
343 D_d += (Z_long) (*day - 1);
344 *day = 1;
345 return( DateCalc_add_delta_dhms(year,month,day,hour,min,sec,D_d,Dh,Dm,Ds) );
346@@ -1365,7 +1365,7 @@
347 boolean DateCalc_add_norm_delta_ymd(Z_int *year, Z_int *month, Z_int *day,
348 Z_long Dy, Z_long Dm, Z_long Dd)
349 {
350- if (not DateCalc_add_delta_ym(year,month,day,Dy,Dm)) return(false);
351+ if (not DateCalc_add_delta_ym(year,month,day,Dy,Dm)) return(_false);
352 return( DateCalc_add_delta_days(year,month,day,Dd) );
353 }
354
355@@ -1374,7 +1374,7 @@
356 Z_long D_y, Z_long D_m, Z_long D_d,
357 Z_long Dh, Z_long Dm, Z_long Ds)
358 {
359- if (not DateCalc_add_delta_ym(year,month,day,D_y,D_m)) return(false);
360+ if (not DateCalc_add_delta_ym(year,month,day,D_y,D_m)) return(_false);
361 return( DateCalc_add_delta_dhms(year,month,day,hour,min,sec,D_d,Dh,Dm,Ds) );
362 }
363
364@@ -1406,10 +1406,10 @@
365 if (*dst < 0) *dst = -1;
366 else *dst = 1;
367 }
368- return(true);
369+ return(_true);
370 }
371 }
372- return(false);
373+ return(_false);
374 }
375
376 boolean DateCalc_gmtime(Z_int *year, Z_int *month, Z_int *day,
377@@ -1435,9 +1435,9 @@
378 if (*dst < 0) *dst = -1;
379 else *dst = 1;
380 }
381- return(true);
382+ return(_true);
383 }
384- return(false);
385+ return(_false);
386 }
387
388 boolean DateCalc_localtime(Z_int *year, Z_int *month, Z_int *day,
389@@ -1463,9 +1463,9 @@
390 if (*dst < 0) *dst = -1;
391 else *dst = 1;
392 }
393- return(true);
394+ return(_true);
395 }
396- return(false);
397+ return(_false);
398 }
399
400 /* MacOS (Classic): */
401@@ -1495,7 +1495,7 @@
402 (hour < 0) or (hour > 23) or
403 (min < 0) or (min > 59) or
404 (sec < 0) or (sec > 59) )
405- return(false);
406+ return(_false);
407
408 #ifdef MACOS_TRADITIONAL
409 if ( (year == 2040) and ( (month > 2) or
410@@ -1503,14 +1503,14 @@
411 ( (day == 6) and ( (hour > 6) or
412 ( (hour == 6) and ( (min > 28) or
413 ( (min == 28) and (sec > 15) ) ))))))) )
414- return(false);
415+ return(_false);
416 #else
417 if ( (year == 2038) and ( (month > 1) or
418 ( (month == 1) and ( (day > 19) or
419 ( (day == 19) and ( (hour > 3) or
420 ( (hour == 3) and ( (min > 14) or
421 ( (min == 14) and (sec > 7) ) ))))))) )
422- return(false);
423+ return(_false);
424 #endif
425
426 year -= 1900;
427@@ -1557,14 +1557,14 @@
428
429 if (when >= 0)
430 {
431- if ((date = gmtime(&when)) == NULL) return(false);
432+ if ((date = gmtime(&when)) == NULL) return(_false);
433 year1 = (*date).tm_year + 1900;
434 month1 = (*date).tm_mon + 1;
435 day1 = (*date).tm_mday;
436 hour1 = (*date).tm_hour;
437 min1 = (*date).tm_min;
438 sec1 = (*date).tm_sec;
439- if ((date = localtime(&when)) == NULL) return(false);
440+ if ((date = localtime(&when)) == NULL) return(_false);
441 year2 = (*date).tm_year + 1900;
442 month2 = (*date).tm_mon + 1;
443 day2 = (*date).tm_mday;
444@@ -1581,10 +1581,10 @@
445 if (*dst < 0) *dst = -1;
446 else *dst = 1;
447 }
448- return(true);
449+ return(_true);
450 }
451 }
452- return(false);
453+ return(_false);
454 }
455
456 /* MacOS (Classic): */
457@@ -1629,10 +1629,10 @@
458 #endif
459 (days > DateCalc_DAYS_TO_OVFLW) or
460 ( (days == DateCalc_DAYS_TO_OVFLW) and (secs > DateCalc_SECS_TO_OVFLW) ) )
461- return(false);
462+ return(_false);
463
464 *seconds = (time_t) (((days - DateCalc_DAYS_TO_EPOCH) * 86400L) + secs);
465- return(true);
466+ return(_true);
467 }
468
469 /* Substitute for POSIX's gmtime(3) function: */
470@@ -1658,7 +1658,7 @@
471 Z_long hh;
472 Z_long dd;
473
474- if (ss < 0L) return(false);
475+ if (ss < 0L) return(_false);
476 dd = (Z_long) (ss / 86400L);
477 ss -= dd * 86400L;
478 mm = (Z_long) (ss / 60L);
479@@ -1693,7 +1693,7 @@
480
481 Z_int a, b, c, d, e, m, n;
482
483- if ((*year < 1583) or (*year > 2299)) return(false);
484+ if ((*year < 1583) or (*year > 2299)) return(_false);
485
486 if (*year < 1700) { m = 22; n = 2; }
487 else if (*year < 1800) { m = 23; n = 3; }
488@@ -1717,7 +1717,7 @@
489 if ((*day == 26) and (*month == 4)) *day = 19;
490 if ((*day == 25) and (*month == 4) and
491 (d == 28) and (e == 6) and (a > 10)) *day = 18;
492- return(true);
493+ return(_true);
494 }
495
496 /* Carnival Monday / Rosenmontag / Veille du Mardi Gras = easter sunday - 48 */
497@@ -1751,10 +1751,10 @@
498
499 if ((lang < 1) or (lang > DateCalc_LANGUAGES)) lang = DateCalc_Language;
500 month = 0;
501- ok = true;
502+ ok = _true;
503 for ( i = 1; ok and (i <= 12); i++ )
504 {
505- same = true;
506+ same = _true;
507 for ( j = 0; same and (j < length); j++ )
508 {
509 same = ( DateCalc_ISO_UC(buffer[j]) ==
510@@ -1762,7 +1762,7 @@
511 }
512 if (same)
513 {
514- if (month > 0) ok = false;
515+ if (month > 0) ok = _false;
516 else month = i;
517 }
518 }
519@@ -1789,10 +1789,10 @@
520
521 if ((lang < 1) or (lang > DateCalc_LANGUAGES)) lang = DateCalc_Language;
522 day = 0;
523- ok = true;
524+ ok = _true;
525 for ( i = 1; ok and (i <= 7); i++ )
526 {
527- same = true;
528+ same = _true;
529 for ( j = 0; same and (j < length); j++ )
530 {
531 same = ( DateCalc_ISO_UC(buffer[j]) ==
532@@ -1800,7 +1800,7 @@
533 }
534 if (same)
535 {
536- if (day > 0) ok = false;
537+ if (day > 0) ok = _false;
538 else day = i;
539 }
540 }
541@@ -1826,10 +1826,10 @@
542 /*****************************************************************************/
543
544 lang = 0;
545- ok = true;
546+ ok = _true;
547 for ( i = 1; ok and (i <= DateCalc_LANGUAGES); i++ )
548 {
549- same = true;
550+ same = _true;
551 for ( j = 0; same and (j < length); j++ )
552 {
553 same = ( DateCalc_ISO_UC(buffer[j]) ==
554@@ -1837,7 +1837,7 @@
555 }
556 if (same)
557 {
558- if (lang > 0) ok = false;
559+ if (lang > 0) ok = _false;
560 else lang = i;
561 }
562 }
563@@ -1857,17 +1857,17 @@
564 if (length > 0)
565 {
566 i = 0;
567- while (DateCalc_scan9(buffer,length,i,true)) i++;
568+ while (DateCalc_scan9(buffer,length,i,_true)) i++;
569 j = length-1;
570- while (DateCalc_scan9(buffer,length,j,true)) j--;
571+ while (DateCalc_scan9(buffer,length,j,_true)) j--;
572 if (i+1 < j) /* at least 3 chars, else error! */
573 {
574 buffer += i;
575 length = j-i+1;
576 i = 1;
577- while (DateCalc_scan9(buffer,length,i,false)) i++;
578+ while (DateCalc_scan9(buffer,length,i,_false)) i++;
579 j = length-2;
580- while (DateCalc_scan9(buffer,length,j,false)) j--;
581+ while (DateCalc_scan9(buffer,length,j,_false)) j--;
582 if (j < i) /* only numerical chars without delimiters */
583 {
584 switch (length)
585@@ -1903,7 +1903,7 @@
586 *year = DateCalc_Str2Int(buffer+4,4);
587 break;
588 default:
589- return(false);
590+ return(_false);
591 break;
592 }
593 }
594@@ -1911,18 +1911,18 @@
595 {
596 *day = DateCalc_Str2Int(buffer,i);
597 *year = DateCalc_Str2Int(buffer+(j+1),length-(j+1));
598- while (DateCalc_scanx(buffer,length,i,true)) i++;
599- while (DateCalc_scanx(buffer,length,j,true)) j--;
600+ while (DateCalc_scanx(buffer,length,i,_true)) i++;
601+ while (DateCalc_scanx(buffer,length,j,_true)) j--;
602 if (i <= j) /* at least one char left for month */
603 {
604 buffer += i;
605 length = j-i+1;
606 i = 1;
607- while (DateCalc_scanx(buffer,length,i,false)) i++;
608+ while (DateCalc_scanx(buffer,length,i,_false)) i++;
609 if (i >= length) /* ok, no more delimiters */
610 {
611 i = 0;
612- while (DateCalc_scan9(buffer,length,i,false)) i++;
613+ while (DateCalc_scan9(buffer,length,i,_false)) i++;
614 if (i >= length) /* only digits for month */
615 {
616 *month = DateCalc_Str2Int(buffer,length);
617@@ -1932,14 +1932,14 @@
618 *month = DateCalc_Decode_Month(buffer,length,lang);
619 }
620 }
621- else return(false); /* delimiters inside month string */
622+ else return(_false); /* delimiters inside month string */
623 }
624- else return(false); /* no chars left for month */
625+ else return(_false); /* no chars left for month */
626 } /* at least one non-numerical char (i <= j) */
627 }
628- else return(false); /* less than 3 chars in buffer */
629+ else return(_false); /* less than 3 chars in buffer */
630 }
631- else return(false); /* length <= 0 */
632+ else return(_false); /* length <= 0 */
633 *year = DateCalc_Moving_Window(*year);
634 return( DateCalc_check_date(*year,*month,*day) );
635 }
636@@ -1956,17 +1956,17 @@
637 if (length > 0)
638 {
639 i = 0;
640- while (DateCalc_scanx(buffer,length,i,true)) i++;
641+ while (DateCalc_scanx(buffer,length,i,_true)) i++;
642 j = length-1;
643- while (DateCalc_scan9(buffer,length,j,true)) j--;
644+ while (DateCalc_scan9(buffer,length,j,_true)) j--;
645 if (i+1 < j) /* at least 3 chars, else error! */
646 {
647 buffer += i;
648 length = j-i+1;
649 i = 1;
650- while (DateCalc_scanx(buffer,length,i,false)) i++;
651+ while (DateCalc_scanx(buffer,length,i,_false)) i++;
652 j = length-2;
653- while (DateCalc_scan9(buffer,length,j,false)) j--;
654+ while (DateCalc_scan9(buffer,length,j,_false)) j--;
655 if (i >= length) /* only alphanumeric chars left */
656 {
657 if (j < 0) /* case 0 : xxxx999999xxxx */
658@@ -2004,7 +2004,7 @@
659 *year = DateCalc_Str2Int(buffer+4,4);
660 break;
661 default:
662- return(false);
663+ return(_false);
664 break;
665 }
666 }
667@@ -2036,7 +2036,7 @@
668 *year = DateCalc_Str2Int(buffer+2,4);
669 break;
670 default:
671- return(false);
672+ return(_false);
673 break;
674 }
675 }
676@@ -2044,7 +2044,7 @@
677 else /* case 2 : xxxxAAAxxxx9999xxxx _OR_ */
678 { /* case 3 : xxxxAAAxx99xx9999xx */
679 k = 0; /* 0 i j l */
680- while (DateCalc_scan9(buffer,length,k,false)) k++;
681+ while (DateCalc_scan9(buffer,length,k,_false)) k++;
682 if (k >= i) /* ok, only digits */
683 {
684 *month = DateCalc_Str2Int(buffer,i);
685@@ -2052,16 +2052,16 @@
686 else /* no, some non-digits */
687 {
688 *month = DateCalc_Decode_Month(buffer,i,lang);
689- if (*month == 0) return(false);
690+ if (*month == 0) return(_false);
691 }
692 buffer += i;
693 length -= i;
694 j -= i;
695 k = j+1; /* remember start posn of day+year(2)/year(3) */
696 i = 1;
697- while (DateCalc_scanx(buffer,length,i,true)) i++;
698+ while (DateCalc_scanx(buffer,length,i,_true)) i++;
699 j--;
700- while (DateCalc_scan9(buffer,length,j,true)) j--;
701+ while (DateCalc_scan9(buffer,length,j,_true)) j--;
702 if (j < i) /* case 2 : xxxxAAAxxxx9999xxxx */
703 { /* j0 i l */
704 buffer += k; /* k */
705@@ -2089,7 +2089,7 @@
706 *year = DateCalc_Str2Int(buffer+2,4);
707 break;
708 default:
709- return(false);
710+ return(_false);
711 break;
712 }
713 }
714@@ -2097,18 +2097,18 @@
715 { /* 0 ij k l */
716 *year = DateCalc_Str2Int(buffer+k,length-k);
717 k = i;
718- while (DateCalc_scan9(buffer,length,k,false)) k++;
719+ while (DateCalc_scan9(buffer,length,k,_false)) k++;
720 if (k > j) /* ok, only digits */
721 {
722 *day = DateCalc_Str2Int(buffer+i,j-i+1);
723 }
724- else return(false); /* non-digits inside day */
725+ else return(_false); /* non-digits inside day */
726 }
727 } /* i < length */
728 }
729- else return(false); /* less than 3 chars in buffer */
730+ else return(_false); /* less than 3 chars in buffer */
731 }
732- else return(false); /* length <= 0 */
733+ else return(_false); /* length <= 0 */
734 *year = DateCalc_Moving_Window(*year);
735 return( DateCalc_check_date(*year,*month,*day) );
736 }
737@@ -2202,7 +2202,7 @@
738 return( DateCalc_check_date(*century+*year,*month,*day) );
739 }
740 }
741- return(false);
742+ return(_false);
743 }
744
745 boolean DateCalc_check_compressed(Z_int date)
Date::Pcalc Perl module - Gregorian calendar date calculations
This page took 2.249297 seconds and 4 git commands to generate.