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