--- /dev/null
+/*
+ * Autotitle - copyright (C)1991 Ian Jackson (iwj10@phx.cam.ac.uk)
+ *
+ * Automatically set window titles, prompts etc.
+ *
+ * Will output the string in AUTOTITLE_STDOUT (in the environment)
+ * to standard output, eg for use in your prompt.
+ * If it can find your X server or your TERM is xterm it will
+ * set your icon name to AUTOTITLE_ICON and your window name
+ * to AUTOTITLE_WINDOW.
+ *
+ * Defaults are, respectively,
+ * "" (ie no output)
+ * "%h: %d2. %Y.[U..[U..[D./..%X.L]..R]./.."
+ * "%h - %d. %Y.[U..[U..[D./..%X.L]..R]./.. %U%?G(%G)%!"
+ *
+ * Environment configuration strings work a bit like printf etc:
+ *
+ * Conversion characters
+ * %x Left edge position of window (if WINDOWID and DISPLAY set).
+ * %y Top edge height.
+ * %X.p..q..r./.s. (pqrstrings)[ len(str)*ypos/(yscreen-ysize+1)+0.5 ]
+ * %Y.p..q..r./.s. Same for x,y. If window is off screen, is string s.
+ * The dots are delimiters - any char allowed, must
+ * be same at both ends of one string p, q or r etc.
+ * Number of strings may be 1..oo but /.string. is mandatory.
+ * %d***. Current directory; examples of ***'s:
+ * %d2. Last two components only
+ * %d~. Display home directory as ~ (as opposed to '' or ~)
+ * %de. Never use PWD environment variable even if it is correct.
+ * %dE. Always use PWD environment variable.
+ * %dU. Use home directory for uid from passwd file, not $HOME
+ * %d3~U. Combination of the above.
+ * %n Nice value
+ * %N.p..q..r./.s. Like %Y and %X only for nice value (range 0..39)
+ * %U Name of uid
+ * %u Numerical uid
+ * %G Name of gid
+ * %g Numerical gid
+ * %E***. Environment variable ***, or null string.
+ * %m Umask in numerical form (3 digits) (as set by umask)
+ * %M Umask in rwx--- form (shows perms of file opened 777)
+ * %h Hostname, but truncated to just the host, not FQDN
+ * %H Hostname - FQDN if available, otherwise just machine
+ * %?g***%! Do *** if gid != default for this uid
+ * %?G***%! Do *** if gid or group name != $GROUP (or uid's grp if no $GROUP)
+ * %?u***%! Do *** if uid != $USER (or $LOGNAME if no $USER)
+ * %?n***%! Do *** if nice value != 20
+ * %?mXXX***%! Do *** if umask != XXX
+ * %?E###.***%! Do *** if ### is not an environment variable.
+ *
+ */
+
+#ifndef NOXWINDOWS
+#include <X11/X.h>
+#include <X11/Xlib.h>
+#include <X11/Xutil.h>
+#endif
+#ifndef NOSTDLIB
+#include <stdlib.h>
+#endif
+#include <stdio.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <pwd.h>
+#include <grp.h>
+#include <limits.h>
+#include <string.h>
+#include <unistd.h>
+#include <math.h>
+#include <ctype.h>
+#include <values.h>
+#ifndef PATH_MAX
+#define PATH_MAX 1024
+#endif
+
+#define forever for(;;)
+
+/* #define NOXWINDOWS /* Define this to remove the X handling code */
+/* #define NODETACH /* Define this to stop autotitle from forking ever */
+/* #define NOXTERM /* Define this to make autotitle not set xterm's titles */
+/* #define NOSTDOUT /* Define this to disable the stdout output */
+#define DEFAULTTITLE "%h - %d. %Y.[U..[U..[D./..%X.L]..R]./.. %U%?G(%G)%!"
+#define DEFAULTICON "%h: %d2. %Y.[U..[U..[D./..%X.L]..R]./.."
+
+#define BUILDMAX 1000
+#define SMALLBUFMAX 20
+#define MAXSCALED 15
+
+#ifndef __HPUX
+static char lto_buf[20];
+char *ltoa(n) long n; { sprintf(lto_buf,"%ld",n); return lto_buf; }
+char *ltoaoct(n) long n; { sprintf(lto_buf,"%lo",n); return lto_buf; }
+#else
+# define ltoaoct(n) ltostr((n),8)
+#endif
+
+#ifndef NOXWINDOWS
+struct geom {
+ int valid;
+ struct geom *child;
+ Window window, root;
+ int x,y;
+ unsigned w,h;
+};
+void geom_force();
+struct geom wg, rg={0,&wg};
+void X_force();
+int X_error_handler();
+#endif /* !NOXWINDOWS */
+
+char *user_name(), *user_nameonly(), *user_home();
+void user_force();
+gid_t user_gid();
+struct passwd *pwent;
+void uid_force();
+uid_t uid;
+
+char *group_name();
+void group_force();
+struct group *grent;
+void gid_force();
+gid_t gid;
+
+char *cwd_force();
+void cwd_setmode();
+int cwd_mode;
+
+void mkstring();
+
+char build[BUILDMAX], *bp;
+char *bp_end= build+BUILDMAX;
+char *cp;
+char *envuser=0;
+
+int umsk;
+
+#ifndef NOXWINDOWS
+Display *display;
+Window window;
+#endif
+int iflevel, ifskiplevel;
+
+void add_string(), add_number(), add_scaled(), add_currentdir();
+void add_umask(), detach(), add_envir();
+char *scaledstr_chop();
+
+main(){
+ char *controlstring, *termtype;
+ int child, newfd;
+
+ umsk= umask(0); umask(umsk);
+
+#ifndef NOSTDOUT
+ mkstring(0,0, "AUTOTITLE_STDOUT","");
+ if (*build) {
+ write(1,build,strlen(build));
+ }
+#endif /* !NOSTDOUT */
+
+#ifndef NOXTERM
+ termtype= getenv("TERM");
+ if (termtype && !strcmp(termtype,"xterm")) {
+# if !defined(NODETACH) && !defined(NOEARLYDETACH)
+ newfd=dup(2);
+ detach();
+ dup(newfd);
+ close(newfd);
+# endif
+ mkstring("\033]2;","\007", "AUTOTITLE_WINDOW",DEFAULTTITLE);
+ write(2,build,strlen(build));
+ mkstring("\033]1;","\007", "AUTOTITLE_ICON",DEFAULTICON);
+ write(2,build,strlen(build));
+# if !defined(NODETACH) && defined(NOEARLYDETACH)
+ detach();
+# endif
+ } else {
+#endif /* !NOXTERM */
+#ifndef NOXWINDOWS
+# ifndef NODETACH
+ detach();
+# endif /* !NODETACH */
+ X_force();
+ if (window) {
+ mkstring(0,0, "AUTOTITLE_WINDOW",DEFAULTTITLE);
+ XStoreName(display,window,build);
+ mkstring(0,0, "AUTOTITLE_ICON",DEFAULTICON);
+ XSetIconName(display,window,build);
+ XSync(display,0);
+ }
+#endif /* ~ NOXWINDOWS */
+#ifndef NOXTERM
+ }
+#endif
+ exit(0);
+}
+
+void mkstring(initialstring,finalstring,controlenv,controlstring)
+ char *initialstring, *finalstring;
+ char *controlenv, *controlstring;
+{
+ static char *envuser=0, *envstring, *envgroup=0;
+ int inc, chkum, ifskipthis;
+ char smallbuffer[SMALLBUFMAX+1], *p;
+
+ envstring= getenv(controlenv);
+ if (envstring) controlstring= envstring;
+
+ bp= build;
+ ifskiplevel=0; iflevel=0;
+ cp=controlstring;
+ if (initialstring) add_string(initialstring);
+ forever {
+ char *pcp= strchr(cp,'%');
+ if (!pcp) {
+ add_string(cp);
+ break;
+ }
+ *pcp= 0;
+ add_string(cp);
+ cp= pcp+1;
+ switch (*cp++) {
+#ifndef NOXWINDOWS
+ case 'y': geom_force(&wg); add_number(wg.y); break;
+ case 'Y': geom_force(&rg); add_scaled(wg.y,rg.h-wg.h+1); break;
+ case 'x': geom_force(&wg); add_number(wg.x); break;
+ case 'X': geom_force(&rg); add_scaled(wg.x,rg.w-wg.w+1); break;
+#else
+ case 'X': case 'Y': add_scaled(MAXINT,0); /* skip scaled parameter */
+ case 'x': case 'y': break;
+#endif /* !NOXWINDOWS */
+ case 'd': add_currentdir(); break;
+ case 'G': add_string(group_name()); break;
+ case 'g': gid_force(); add_number((long)gid); break;
+ case 'U': add_string(user_name()); break;
+ case 'u': uid_force(); add_number((long)uid); break;
+ case 'n': add_number(nice(0)); break;
+ case 'N': add_scaled(nice(0)+20,40); break;
+ case 'm': add_string(ltoaoct((long)umsk)); break;
+ case 'M': add_umask(umsk); break;
+ case 'E': add_envir(); break;
+ case 'h': case 'H':
+ if (!gethostname(smallbuffer,SMALLBUFMAX)) {
+ if (cp[-1] == 'h') {
+ p=strchr(smallbuffer,'.');
+ if (p) *p=0;
+ }
+ add_string(smallbuffer);
+ }
+ break;
+ case '!':
+ if (iflevel>0) iflevel--;
+ if (ifskiplevel>0) ifskiplevel--;
+ break;
+ case '%': add_string("%%"); break;
+ case '?':
+ switch (*cp++) {
+ case 'E':
+ p= strchr(cp,'.');
+ if (p) {
+ *p=0;
+ ifskipthis= 0!=getenv(cp);
+ cp= p+1;
+ } else ifskipthis=0;
+ break;
+ case 'g': gid_force(); ifskipthis= (gid==user_gid()); break;
+ case 'G':
+ gid_force();
+ envgroup= envgroup?envgroup: getenv("GROUP");
+ ifskipthis=
+ envgroup ? (gid==atol(envgroup) || !strcmp(group_name(),envgroup))
+ : (gid==user_gid());
+ break;
+ case 'u':
+ envuser= envuser?envuser: getenv("USER");
+ envuser= envuser?envuser: getenv("LOGNAME");
+ ifskipthis= (envuser && user_nameonly() &&
+ !strcmp(envuser,user_nameonly()));
+ break;
+ case 'n': ifskipthis= (nice(0)==0); break;
+ case 'm':
+ if (sscanf(cp,"%3o%n",&chkum,&inc)==1) {
+ cp+=inc;
+ ifskipthis= umsk==chkum;
+ }
+ } /* switch() for if's */
+ iflevel+=1;
+ ifskiplevel+= ifskiplevel ? 1 : ifskipthis;
+ break;
+ } /* switch for %'s */
+ }
+ if (finalstring) add_string(finalstring);
+}
+
+void add_envir() {
+ char *p, *e;
+
+ p= strchr(cp,'.');
+ if (p) {
+ *p=0;
+ e=getenv(cp);
+ cp=p+1;
+ if (e) add_string(e);
+ }
+}
+
+void add_string(ns)
+ char *ns;
+{
+ char *nbp= bp+strlen(ns);
+ if (ifskiplevel || nbp > bp_end) return;
+ strcpy(bp,ns);
+ bp=nbp;
+}
+
+void add_number(number)
+ long number;
+{
+ add_string(ltoa(number));
+}
+
+void add_scaled(num,denom)
+ int num,denom;
+{
+ char *sd, *sn[MAXSCALED];
+ int n= 0;
+ double v;
+
+ while (*cp && n<MAXSCALED && *cp!='/') {
+ sn[n++]= scaledstr_chop();
+ }
+ if (*cp) cp++; /* skip the '/' */
+ sd= scaledstr_chop();
+ if (num==MAXINT && denom==0) return;
+ v= denom? (num/(double)denom) : -1;
+ if (v<0 || v>1) {
+ add_string(sd);
+ } else {
+ add_string(sn[(int)(v*n)]);
+ }
+}
+
+char *scaledstr_chop() {
+ char tc= *cp++;
+ char *rp= cp;
+ char *ep= strchr(cp,tc);
+ if (ep) {
+ cp= ep;
+ *cp++= 0;
+ }
+ return(rp);
+}
+
+void add_umask(u)
+ int u;
+{
+ char buf[4], *bp;
+ int oi, h;
+
+ if (ifskiplevel) return;
+
+ for (oi=3;
+ oi;
+ oi--, u<<=3) {
+ strcpy(buf,"rwx");
+ h= ((u>>6) & 7);
+ for (bp=buf;
+ bp<buf+3;
+ h<<=1, bp++) {
+ if (h&4) *bp='-';
+ }
+ add_string(buf);
+ }
+}
+
+void add_currentdir() {
+ char *homestring="", *p, *homedir, *amdhome;
+ int comps=10000, chars, totalslashes, skipslashes, len, homeskip;
+ char *buf, nbuf[PATH_MAX+10], nhome[PATH_MAX+10];
+
+ amdhome= getenv("HOME_AMDTMP");
+ homedir= getenv("HOME");
+ cwd_mode= 0;
+ if (ifskiplevel) return;
+ while (*cp && *cp!='.') {
+ if (*cp == 'U') {
+ homedir= 0;
+ cp++;
+ } else if (*cp == 'E') {
+ cwd_setmode(2); cp++;
+ } else if (*cp == 'e') {
+ cwd_setmode(1); cp++;
+ } else if (*cp == '~') {
+ homestring="~/";
+ cp++;
+ } else if (isdigit(*cp)) {
+ if (sscanf(cp,"%d%n",&comps,&chars)==1) {
+ cp+= chars;
+ } else
+ cp++;
+ }
+ }
+ if (*cp) cp++;
+ if (!homedir) {
+ homedir= user_home();
+ }
+ buf= cwd_force();
+ homeskip= 0;
+ if (homedir) {
+ len=strlen(homedir);
+ if (homedir[len-1] != '/') {
+ strcpy(nhome, homedir);
+ strcat(nhome, "/");
+ homedir= nhome;
+ len++;
+ }
+ if (len>1 && !strncmp(buf,homedir,len-1) &&
+ (buf[len-1]=='/' || !(buf[len-1]))) {
+ strcpy(nbuf,homestring);
+ strcat(nbuf,buf+len);
+ buf= nbuf;
+ if (!strlen(buf)) buf="~";
+ homeskip= strlen(homestring);
+ }
+ }
+ if (amdhome) {
+ len=strlen(amdhome);
+ if (amdhome[len-1] != '/') {
+ strcpy(nhome, amdhome);
+ strcat(nhome, "/");
+ amdhome= nhome;
+ len++;
+ }
+ if (len>1 && !strncmp(buf,amdhome,len-1) &&
+ (buf[len-1]=='/' || !(buf[len-1]))) {
+ strcpy(nbuf,homestring);
+ strcat(nbuf,buf+len);
+ buf= nbuf;
+ if (!strlen(buf)) buf="~";
+ homeskip= strlen(homestring);
+ }
+ }
+ totalslashes=0;
+ for (p= buf+homeskip; *p; p++)
+ if (*p=='/') totalslashes++;
+ while (p>buf && p[-1]=='/') { *--p=0; totalslashes--; }
+ skipslashes= totalslashes-comps+1;
+
+ for (p= buf+homeskip;
+ skipslashes>0;
+ p++)
+ if (*p=='/') skipslashes--;
+ if (p==buf+1 || p==buf+homeskip || p==buf+homeskip) p=buf;
+
+ add_string(p);
+}
+
+gid_t user_gid() {
+ user_force();
+ return pwent? pwent->pw_gid: -1;
+}
+
+char *user_nameonly() {
+ user_force();
+ return pwent? pwent->pw_name: 0;
+}
+
+char *user_home() {
+ user_force();
+ return pwent? pwent->pw_dir: 0;
+}
+
+char *user_name() {
+ user_force();
+ if (pwent) return(pwent->pw_name);
+ return(ltoa((long)uid));
+}
+
+void uid_force() {
+ static int valid;
+ if (valid) return;
+ uid= getuid();
+}
+
+void user_force() {
+ static int valid;
+ if (valid) return;
+ uid_force();
+ valid=1;
+ pwent= getpwuid(uid);
+}
+
+char *group_name() {
+ group_force();
+ if (grent) return(grent->gr_name);
+ return(ltoa((long)gid));
+}
+
+void group_force() {
+ static int valid;
+ if (valid) return;
+ gid_force();
+ valid=1;
+ grent= getgrgid(gid);
+}
+
+void gid_force() {
+ static int valid;
+ if (valid) return;
+ gid= getgid();
+}
+
+void cwd_setmode(mode)
+ int mode;
+{
+ cwd_mode=mode; /* 0= default, 1= 'e', 2= 'E' */
+}
+
+int different_files(a,b)
+ char *a, *b;
+{
+ struct stat staa, stab;
+
+ return stat(a,&staa) || stat(b,&stab) ||
+ staa.st_ino != stab.st_ino || staa.st_dev != stab.st_dev;
+}
+
+char *cwd_force() {
+ static int valid=0, fail;
+ static char buffer[PATH_MAX+1];
+ if (!valid) {
+ if (cwd_mode!=1 /* not 'e' */) {
+ char *result= getenv("PWD");
+ if (result && (cwd_mode /* 'E' */ || !different_files(".",result))) {
+ strncpy(buffer,result,PATH_MAX); buffer[PATH_MAX]=0;
+ valid= 1;
+ }
+ }
+ if (!valid) {
+ valid= getcwd(buffer,PATH_MAX)!=0;
+ }
+ valid=1;
+ }
+ return buffer;
+}
+
+#if (!defined(NOXWINDOWS) || !defined(NOXTERM)) && !defined(NODETACH)
+void detach() {
+ close(0); close(1); close(2); if (fork()!=0) exit(0);
+}
+#endif /* !NODETACH */
+
+#ifndef NOXWINDOWS
+
+void X_force() {
+ static valid;
+ char *widname, *dispname;
+
+ if (valid) return;
+ window= (XID)0; display= (Display*)0;
+ XSetErrorHandler(X_error_handler);
+
+ dispname= getenv("DISPLAY");
+ if (!dispname) return;
+ display= XOpenDisplay(dispname);
+ if (!display) return;
+
+ widname= getenv("WINDOWID");
+ if (!widname) return;
+ window= (XID)(atol(widname));
+ wg.window= window;
+}
+
+int X_error_handler(edisp,eevent)
+ Display *edisp;
+ XErrorEvent *eevent;
+{
+ display= (Display*)0;
+ window= (XID)0;
+ wg.window= rg.window= window;
+ wg.x= wg.y= rg.x= rg.y= -1000;
+ return(0);
+}
+
+void geom_force(g)
+ struct geom *g;
+{
+ unsigned dummyu;
+ int dummys;
+ Window dummyw;
+
+ if (g->valid) return;
+ if (g->child) {
+ geom_force(g->child);
+ g->window= g->child->root;
+ }
+ X_force();
+ if (g->window) {
+ XGetGeometry(display,
+ g->window,&g->root,
+ &dummys,&dummys,&g->w,&g->h,
+ &dummyu,&dummyu);
+ XTranslateCoordinates(display,g->window,g->root,0,0,&g->x,&g->y,&dummyw);
+ } else {
+ g->x= -1000;
+ g->y= -1000;
+ }
+ g->valid= 1;
+}
+#endif /* !NOXWINDOWS */