mlclock/mlclock.c
2020-03-07 12:02:09 -05:00

451 lines
11 KiB
C

/*
* Mlclock is "Macintsh like clock" .
* Written by Hideki Kimata.
* Send Email to hideki@hry.info.gifu-u.ac.jp.
* Access to http://www.hry.info.gifu-u.ac.jp/~hideki/index.html
*/
#include <X11/Xlib.h>
#include <X11/Xlocale.h>
#include <X11/Xutil.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <sys/time.h>
#include <unistd.h>
#define VERSION "1.1"
#define TRUE 1
#define FALSE 0
#define NONE -1
#define MAX_FORM 1000
#ifndef RCFILE
#define RCFILE ".mlclockrc"
#endif
#define FOCUS 0
#define CLICK 1
#define DEFAULTFONT "-*-*-medium-r-normal--14-*"
#define NEAR 10
#define FORM1 "(%a)%p%l:%M:%S"
#define FORM2 "(%a)%Y.%b.%d"
#define DEFAULTLANG "C"
int Mode; /* timing of change form */
int Near; /* the distance of activity */
int Head; /* space of window head */
char *Form1; /* display form of main */
char *Form2; /* display form of second */
char *LocaleName; /* locale name */
char *FSName; /* font set name */
char *RCFile; /* path of config file */
int Color[2][3]; /* the color for font and background */
int Bold = False; /* software bold font */
void SetFont(char *localename, Display *dpy, char *fsname);
void readrc();
void getRGB(char *color, int *store);
void usage(char *name);
Display *dpy;
Window win;
XEvent eve;
XRectangle ink, logical;
GC gc;
XFontSet fs;
Colormap cmap;
struct timeval wait;
int main(int argc, char **argv) {
char str[MAX_FORM], str2[MAX_FORM], *form = NULL;
int screen, sw = False, lsec = 0, uhead, width, height, i;
struct tm *tmm;
time_t tmt;
Window root, child;
int rootx, rooty, wx, wy;
unsigned int key;
XColor xcol;
XSizeHints hint;
int iro[2];
wait.tv_usec = 200000;
wait.tv_sec = 0;
str[0] = '\0';
i = 1;
while ( i < argc ) {
if ( !strcmp("-display", argv[i]) ) {
i++;
if ( argc >= argc )
usage(argv[0]);
strcpy(str, argv[i]);
break;
}
usage(argv[0]);
}
dpy = XOpenDisplay(NULL);
if ( dpy == NULL ) {
fprintf(stderr, "Can't open display.\n");
exit(0);
}
screen = DefaultScreen(dpy);
gc = DefaultGC(dpy, screen);
cmap = DefaultColormap(dpy, screen);
readrc();
if ( XSupportsLocale() == False )
fprintf(stderr,"X does not support the locale\n");
SetFont(LocaleName, dpy, FSName);
XSetForeground(dpy, gc, BlackPixel(dpy, screen));
setlocale(LC_TIME, LocaleName);
time(&tmt);
tmm = localtime(&tmt);
tmm->tm_sec = 59;
tmm->tm_min = 59;
tmm->tm_hour = 23;
tmm->tm_mday = 30;
tmm->tm_yday = 365;
strftime(str, MAX_FORM, Form1, tmm);
XmbTextExtents(fs, str, strlen(str), &ink, &logical);
width=logical.width;
uhead = logical.y;
height = logical.height;
strftime(str, MAX_FORM, Form2, tmm);
XmbTextExtents(fs, str, strlen(str), &ink, &logical);
if ( width < logical.width )
width = logical.width;
if ( uhead < logical.y )
uhead = logical.y;
if ( height < logical.height )
height = logical.height;
xcol.flags = DoRed|DoGreen|DoBlue;
for ( i = 0; i < 2; i++ ) {
xcol.red = Color[i][0];
xcol.green = Color[i][1];
xcol.blue = Color[i][2];
if ( XAllocColor(dpy, cmap, &xcol) )
iro[i] = xcol.pixel;
else
fprintf(stderr,"Can't allocate Color \n");
}
win = XCreateSimpleWindow(dpy, DefaultRootWindow(dpy),
0, 0, width + 3, height + Head + 2, 0,
iro[0], iro[1]);
hint.max_width = hint.min_width = width + 3;
hint.max_height = hint.min_height = height + Head + 2;
hint.flags = PMinSize | PMaxSize;
XSetNormalHints(dpy, win, &hint);
XSelectInput(dpy, win, ButtonReleaseMask);
XStoreName(dpy, win, "mlclock");
XSetForeground(dpy, gc, iro[0]);
XSync(dpy, 0);
XMapWindow(dpy, win);
XSync(dpy, 0);
str2[0] = '\0';
form = Form1;
while (1) {
select(0, (fd_set *)0, (fd_set *)0, (fd_set *)0, &wait);
time(&tmt);
tmm = localtime(&tmt);
if ( Mode == FOCUS ) {
XQueryPointer(dpy, win, &root, &child, &rootx, &rooty, &wx, &wy, &key);
if ( (-Near < wx) && (wx < width + Near) &&
(-Near < wy) && (wy < height + Near + Head) )
form = Form2;
else
form = Form1;
} else if ( Mode == CLICK ) {
if ( XEventsQueued(dpy, QueuedAfterFlush) ) {
XNextEvent(dpy, &eve);
if ( eve.type == ButtonRelease ) {
if ( !sw ) {
sw = True;
lsec = tmm->tm_sec;
form = Form2;
} else {
sw = False;
form = Form1;
}
}
}
if ( sw ) {
if ( tmm->tm_sec < lsec )
tmm->tm_sec += 60;
if ( tmm->tm_sec > lsec + 2 ) {
sw = False;
form = Form1;
}
}
}
strftime(str, sizeof(str), form, tmm);
if ( strcmp(str, str2) ) {
XClearWindow(dpy, win);
XmbDrawString(dpy, win, fs, gc, 1, - uhead + Head + 1, str, strlen(str));
if ( Bold )
XmbDrawString(dpy, win, fs, gc, 2, - uhead + Head + 1, str, strlen(str));
XSync(dpy, 0);
strcpy(str2, str);
}
}
return 0;
}
void SetFont(char *localename, Display *dpy, char *fsname) {
char **miss, *def;
int nMiss;
if ( setlocale(LC_ALL, localename) == NULL )
fprintf(stderr,"Can't set the locale\n");
fs = XCreateFontSet(dpy, fsname, &miss, &nMiss, &def);
if ( fs == NULL )
fprintf(stderr,"Can't get fontset.\n");
}
void readrc() {
int i, end, len, sw1, cn = 0;
char string[501], work[201], code[100], data[100], *ptr;
char *fore, *back;
struct _name {
char name[10];
int sw;
};
FILE *file;
struct _name N[] = {
{ "FORM1", 1 },
{ "FORM2", 2 },
{ "NEAR", 3 },
{ "EVENT", 4 },
{ "LOCALE", 5 },
{ "FONTSET", 6 },
{ "HEAD", 7 },
{ "FONTCOLOR", 8 },
{ "BACKCOLOR", 9 },
{ "BOLD", 10 },
{ "", 0 }
};
Mode = Near = Head = NONE;
Form1 = Form2 = LocaleName = FSName = NULL;
for ( i = 0; i < 3; i++ ) {
Color[0][i] = 0;
Color[1][i] = 0xffff;
}
RCFile = malloc(sizeof(RCFILE) + strlen(getenv("HOME")) + 3);
sprintf(RCFile, "%s/%s", getenv("HOME"), RCFILE);
if ( (file = fopen(RCFile, "r")) == NULL ) {
fprintf(stderr, "Can't open \"%s\" file.\n", RCFile);
fprintf(stderr, "Now making rc file '%s'.\n", RCFile);
if ( (file = fopen(RCFile, "a")) == NULL )
fprintf(stderr, "You can't make rc file in your own dirctory.\n");
else {
fprintf(file, "FORM1 = \"(%%a)%%l:%%M:%%S%%p\"\n");
fprintf(file, "FORM2 = \"(%%a)%%b-%%d\"\n");
fprintf(file, "EVENT = FOCUS ; FOCUS or CLICK\n");
fprintf(file, "NEAR = 10\n");
fprintf(file, "LOCALE = \"C\"\n");
fprintf(file, "FONTSET = \"-*-*-medium-r-normal--12-*\"\n");
fprintf(file, "HEAD = 5\n");
fprintf(file, "FONTCOLOR = \"blue\"\n");
fprintf(file, "BACKCOLOR = \"white\"\n");
fprintf(file, "BOLD = FALSE ; TRUE or FALSE\n");
fclose(file);
fprintf(stderr, "Created %s file.\n", RCFile);
}
} else {
while ( fgets(string, 500, file) ) {
end = FALSE;
i = 0;
sw1 = False;
while ( string[i] != ';' && string[i] != '\0' && string[i] != '\n' ) {
if ( string[i] == '=' && sw1 == False ) {
string[i] = ' ';
sw1 = True;
}
work[i] = string[i];
i++;
}
work[i] = '\0';
if ( sw1 == False )
continue;
code[0] = '\0';
data[0] = '\0';
sscanf(work, "%s %s", code, data);
if ( code[0] == '\0' )
continue;
i = 0;
while ( True ) {
if ( N[i].name[0] == '\0' ) {
cn = 0;
break;
}
if ( !strcmp(N[i].name, code) ) {
cn = N[i].sw;
break;
}
i++;
}
switch ( cn ) {
case 1:
len = strlen(data);
Form1 = malloc(len);
strcpy(Form1, &data[1]);
Form1[len-2] = '\0';
break;
case 2:
len = strlen(data);
Form2 = malloc(len);
strcpy(Form2, &data[1]);
Form2[len-2] = '\0';
break;
case 3:
Near = atoi(data);
break;
case 4:
if ( !strcmp(data, "FOCUS") ) {
Mode = FOCUS;
break;
}
if ( !strcmp(data, "CLICK") ) {
Mode = CLICK;
break;
}
break;
case 5:
len = strlen(data);
LocaleName = malloc(len);
strcpy(LocaleName, &data[1]);
LocaleName[len-2] = '\0';
break;
case 6:
len = strlen(data);
FSName = malloc(len);
strcpy(FSName, &data[1]);
FSName[len-2] = '\0';
break;
case 7:
Head = atoi(data);
break;
case 8:
len = strlen(data);
fore = malloc(len);
strcpy(fore, &data[1]);
fore[len-2] = '\0';
getRGB(fore, Color[0]);
break;
case 9:
len = strlen(data);
back = malloc(len);
strcpy(back, &data[1]);
back[len-2] = '\0';
getRGB(back, Color[1]);
break;
case 10:
if ( !strcmp(data, "TRUE") ) {
Bold = True;
break;
}
if ( !strcmp(data, "FALSE") ) {
Bold = False;
break;
}
break;
default:
break;
}
}
}
if ( Mode == NONE )
Mode = FOCUS;
if ( Near == NONE )
Near = NEAR;
if ( Head == NONE )
Head = 0;
if ( Form1 == NULL ) {
Form1 = malloc(strlen(FORM1) + 1);
strcpy(Form1, FORM1);
}
if ( Form2 == NULL ) {
Form2 = malloc(strlen(FORM2) + 1);
strcpy(Form2, FORM2);
}
if ( FSName == NULL ) {
FSName = malloc(strlen(DEFAULTFONT) + 1);
strcpy(FSName, DEFAULTFONT);
}
if ( LocaleName == NULL ) {
ptr = getenv("LANG");
if ( ptr == NULL )
ptr = DEFAULTLANG;
LocaleName = malloc(strlen(ptr) + 1);
strcpy(LocaleName, ptr);
}
}
void getRGB(char *color, int *store) {
int i;
char tmpcolor[3];
XColor rgb, hard;
if ( color[0] == '#' ) {
color++;
for ( i = 0; i < 3; i++ ) {
strncpy(tmpcolor, color, 2);
sscanf(tmpcolor, "%x", store);
(*store) *= 256;
color += 2;
}
}
else {
XLookupColor(dpy, cmap, color, &rgb, &hard);
store[0] = hard.red;
store[1] = hard.green;
store[2] = hard.blue;
}
}
void usage(char *name) {
printf("%s: usage\n", name);
printf(" -display display name\n\n");
printf(" Version %s\n", VERSION);
printf(" Written by Hideki Kimata\n");
printf(" EMail hideki@hry.info.gifu-u.ac.jp\n");
printf(" Access to http://www.hry.info.gifu-u.ac.jp/~hideki/index.html\n");
exit(0);
}