da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner* Copyright (c) 1985-2010 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Phong Vo <kpv@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Glenn Fowler
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * AT&T Research
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Time_t conversion support
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <tmx.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic unsigned char offset[7][3] =
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { 7, 6, 6 },
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { 1, 7, 7 },
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { 2, 1, 8 },
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { 3, 2, 9 },
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { 4, 3, 10},
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { 5, 4, 4 },
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { 6, 5, 5 },
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * type is week type
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * 0 sunday first day of week
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * 1 monday first day of week
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * 2 monday first day of iso week
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * if week<0 then return week for tm
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * if day<0 then set tm to first day of week
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * otherwise set tm to day in week
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * and return tm->tm_yday
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintmweek(Tm_t* tm, int type, int week, int day)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int d;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (week < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((day = tm->tm_wday - tm->tm_yday % 7) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin day += 7;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin week = (tm->tm_yday + offset[day][type]) / 7;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (type == 2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!week)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin week = (day > 0 && day < 6 || tmisleapyear(tm->tm_year - 1)) ? 53 : 52;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (week == 53 && (tm->tm_wday + (31 - tm->tm_mday)) < 4)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin week = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return week;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (day < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin day = type != 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tm->tm_mon = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tm->tm_mday = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tmfix(tm);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = tm->tm_wday;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tm->tm_mday = week * 7 - offset[d][type] + ((day || type != 2) ? day : 7);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tmfix(tm);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (d = tm->tm_wday - day)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tm->tm_mday -= d;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tmfix(tm);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return tm->tm_yday;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}