ING_DB
This commit is contained in:
Oliver Lehmann
parent
e7079ca001
commit
b1b31482f6
|
|
@ -0,0 +1,214 @@
|
||||||
|
# include "gen.h"
|
||||||
|
# include "../h/dbs.h"
|
||||||
|
# include "../h/aux.h"
|
||||||
|
# include "../h/bs.h"
|
||||||
|
# include <sys/timeb.h>
|
||||||
|
|
||||||
|
# ifdef ESER_PSU
|
||||||
|
# define PRIME_DATE 1980
|
||||||
|
# else
|
||||||
|
# define PRIME_DATE 1970
|
||||||
|
# endif
|
||||||
|
|
||||||
|
# ifdef DYSIZE
|
||||||
|
# define dysize(y) ((!(y%4) && y%100 || !(y%400))? 366: 365)
|
||||||
|
# endif
|
||||||
|
|
||||||
|
static int Dmsize[12] = {31,28,31,30,31,30,31,31,30,31,30,31};
|
||||||
|
|
||||||
|
struct monthtab
|
||||||
|
{
|
||||||
|
char *code;
|
||||||
|
int month;
|
||||||
|
};
|
||||||
|
|
||||||
|
static struct monthtab Monthtab[] =
|
||||||
|
{
|
||||||
|
"jan", 1,
|
||||||
|
"feb", 2,
|
||||||
|
"mar", 3,
|
||||||
|
"apr", 4,
|
||||||
|
"may", 5,
|
||||||
|
"jun", 6,
|
||||||
|
"jul", 7,
|
||||||
|
"aug", 8,
|
||||||
|
"sep", 9,
|
||||||
|
"oct", 10,
|
||||||
|
"nov", 11,
|
||||||
|
"dec", 12,
|
||||||
|
"january", 1,
|
||||||
|
"february", 2,
|
||||||
|
"march", 3,
|
||||||
|
"april", 4,
|
||||||
|
"june", 6,
|
||||||
|
"july", 7,
|
||||||
|
"august", 8,
|
||||||
|
"september", 9,
|
||||||
|
"october", 10,
|
||||||
|
"november", 11,
|
||||||
|
"december", 12,
|
||||||
|
(char *) 0
|
||||||
|
};
|
||||||
|
|
||||||
|
/*
|
||||||
|
** SAVE RELATION UNTIL DATE
|
||||||
|
**
|
||||||
|
** This function arranges to save a named relation until a
|
||||||
|
** specified date.
|
||||||
|
**
|
||||||
|
** Parameters:
|
||||||
|
** 0 -- relation name
|
||||||
|
** 1 -- month (1 -> 12 or "jan" -> "dec" or a variety
|
||||||
|
** of other codes)
|
||||||
|
** 2 -- day (1 -> 31)
|
||||||
|
** 3 -- year (PRIME_DATE -> ?)
|
||||||
|
**
|
||||||
|
** Returns:
|
||||||
|
** zero on success
|
||||||
|
** nonzero otherwise.
|
||||||
|
**
|
||||||
|
** Side Effects:
|
||||||
|
** Change expiration date for some relation in
|
||||||
|
** relation relation.
|
||||||
|
*/
|
||||||
|
save(parmc, parmv)
|
||||||
|
int parmc;
|
||||||
|
char **parmv;
|
||||||
|
{
|
||||||
|
long date;
|
||||||
|
register int i;
|
||||||
|
extern DESC Reldes;
|
||||||
|
struct tup_id tid;
|
||||||
|
struct relation relk;
|
||||||
|
struct relation relt;
|
||||||
|
short day;
|
||||||
|
short month;
|
||||||
|
short year;
|
||||||
|
struct timeb timeb;
|
||||||
|
extern char *AAusercode;
|
||||||
|
extern char *ctime();
|
||||||
|
# ifndef DYSIZE
|
||||||
|
extern int dysize(); /* defined in ctime(3) */
|
||||||
|
# endif
|
||||||
|
|
||||||
|
/* validate parameters */
|
||||||
|
if (AA_atoi(parmv[3], &year) || year < PRIME_DATE)
|
||||||
|
return (error(5603, parmv[3], (char *) 0)); /* bad year */
|
||||||
|
if (monthcheck(parmv[1], &month))
|
||||||
|
return (error(5601, parmv[1], (char *) 0)); /* bad month */
|
||||||
|
if (AA_atoi(parmv[2], &day) || day < 1 || day > monthsize(--month, year))
|
||||||
|
return (error(5602, parmv[2], (char *) 0)); /* bad day */
|
||||||
|
|
||||||
|
/* convert date */
|
||||||
|
/* "date" will be # of days from PRIME_DATE for a while */
|
||||||
|
date = 0;
|
||||||
|
|
||||||
|
/* do year conversion */
|
||||||
|
for (i = PRIME_DATE; i < year; i++)
|
||||||
|
{
|
||||||
|
date += dysize(i);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* do month conversion */
|
||||||
|
for (i = 0; i < month; i++)
|
||||||
|
date += Dmsize[i];
|
||||||
|
/* once again, allow for leapyears */
|
||||||
|
if (month >= 2 && dysize(year) == 366)
|
||||||
|
date += 1;
|
||||||
|
|
||||||
|
/* do day conversion */
|
||||||
|
date += day - 1;
|
||||||
|
|
||||||
|
/* we now convert date to be the # of hours since PRIME_DATE */
|
||||||
|
date *= 24;
|
||||||
|
|
||||||
|
/* do daylight savings computations */
|
||||||
|
/* <<<<< none now >>>>> */
|
||||||
|
|
||||||
|
/* convert to seconds */
|
||||||
|
date *= 60 * 60;
|
||||||
|
|
||||||
|
/* adjust to local time */
|
||||||
|
ftime(&timeb);
|
||||||
|
date += ((long) timeb.timezone) * 60;
|
||||||
|
|
||||||
|
# ifdef xZTR1
|
||||||
|
# ifdef ESER_VMX
|
||||||
|
AAtTfp(4, 1, "%s", ctime(date));
|
||||||
|
# else
|
||||||
|
AAtTfp(4, 1, "%s", ctime(&date));
|
||||||
|
# endif
|
||||||
|
# endif
|
||||||
|
|
||||||
|
/* let's check and see if the relation exists */
|
||||||
|
opencatalog(AA_REL, 2);
|
||||||
|
AAam_clearkeys(&Reldes);
|
||||||
|
AAam_setkey(&Reldes, &relk, parmv[0], RELID);
|
||||||
|
AAam_setkey(&Reldes, &relk, AAusercode, RELOWNER);
|
||||||
|
if (AAgetequal(&Reldes, &relk, &relt, &tid))
|
||||||
|
return (error(5604, parmv[0], (char *) 0)); /* relation not found */
|
||||||
|
|
||||||
|
/* check that it is not a system catalog */
|
||||||
|
if (relt.relstat & S_CATALOG)
|
||||||
|
return (error(5600, parmv[0], (char *) 0)); /* cannot save sys rel */
|
||||||
|
/* got it; lets change the date */
|
||||||
|
relt.relsave = date;
|
||||||
|
|
||||||
|
# ifdef xZTR2
|
||||||
|
if (AAtTf(4, 2))
|
||||||
|
AAprtup(&Reldes, &relt);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
if ((i = AAam_replace(&Reldes, &tid, &relt, 0)) < 0)
|
||||||
|
AAsyserr(11158, i);
|
||||||
|
|
||||||
|
/* that's all folks.... */
|
||||||
|
return (0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
monthcheck(input, output)
|
||||||
|
char *input;
|
||||||
|
short *output;
|
||||||
|
{
|
||||||
|
register struct monthtab *p;
|
||||||
|
short month;
|
||||||
|
|
||||||
|
/* month can be an integer, or an alphanumeric code */
|
||||||
|
if (!AA_atoi(input, &month))
|
||||||
|
{
|
||||||
|
*output = month;
|
||||||
|
return (month < 1 || month > 12);
|
||||||
|
}
|
||||||
|
for (p = Monthtab; p->code; p++)
|
||||||
|
{
|
||||||
|
if (AAsequal(input, p->code))
|
||||||
|
{
|
||||||
|
*output = p->month;
|
||||||
|
return (0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return (1);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** MONTHSIZE -- determine size of a particular month
|
||||||
|
*/
|
||||||
|
monthsize(month, year)
|
||||||
|
int month;
|
||||||
|
int year;
|
||||||
|
{
|
||||||
|
register int size;
|
||||||
|
extern int Dmsize[12];
|
||||||
|
# ifndef DYSIZE
|
||||||
|
extern int dysize(); /* defined in ctime(3) */
|
||||||
|
# endif
|
||||||
|
|
||||||
|
size = Dmsize[month];
|
||||||
|
if (month == 1 && dysize(year) == 366)
|
||||||
|
/* This is February of a leap year */
|
||||||
|
size++;
|
||||||
|
|
||||||
|
return (size);
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue