X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=ian-dotfiles.git;a=blobdiff_plain;f=from-cvs%2Fautotitle%2Fautotitle.c;fp=from-cvs%2Fautotitle%2Fautotitle.c;h=0000000000000000000000000000000000000000;hp=3ccf235eb885683eb0e28fb5d423633b3d615fbd;hb=a4fb2593ef5bcedf40605339860d685a654c301d;hpb=4ed6df107b1db703ad86565447aa20b6385d3116

diff --git a/from-cvs/autotitle/autotitle.c b/from-cvs/autotitle/autotitle.c
deleted file mode 100644
index 3ccf235..0000000
--- a/from-cvs/autotitle/autotitle.c
+++ /dev/null
@@ -1,609 +0,0 @@
-/*
- * 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>
-#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 10000
-#define SMALLBUFMAX 100
-#define MAXSCALED 50
-
-#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(INT_MAX,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==INT_MAX && 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 */