#include <u.h>
#include <libc.h>
#include <libg.h>
#include <bio.h>
#include <regexp.h>
#include "dat.h"


char    machineused[64];
char    userused[64];
int     depthused;

/*
*  translate mail address into a file name
*/
char*
tryfile(char *machine, char *user, int ld)
{
       static char file[128];
       char *cp, *p;
       Biobuf *mf;

       sprint(file, "/lib/face/48x48x%d/.dict", 1<<ld);
       mf = Bopen(file, OREAD);
       if(mf == 0)
               return 0;

       sprint(file, "%s/%s", machine, user);
       while(cp = Brdline(mf, '\n')) {
               cp[Blinelen(mf)-1] = 0;
               p = strchr(cp, ' ');
               if(p == 0)
                       continue;
               *p = 0;
               if(strcmp(cp, file) == 0) {
                       sprint(file, "/lib/face/48x48x%d/%s", 1<<ld, p+1);
                       strncpy(machineused, machine, sizeof(machineused));
                       strncpy(userused, user, sizeof(userused));
                       depthused = ld;
                       Bclose(mf);
                       return file;
               }
       }
       Bclose(mf);
       return 0;
}

char*
tryfiles(char *machine, char *user, int ld)
{
       char *cp;

       cp = tryfile(machine, user, ld);
       if(cp)
               return cp;
       if(ld == 1)
               cp = tryfile(machine, user, 0);
       return cp;
}

char*
getfile(char *machine, char *user, int ld)
{
       char *fp;
       Biobuf *mf;
       char *cp, *dp, *ep;
       Reprog *exp;
       char buf[200];
       static char alnum[]=    "abcdefghijklmnopqrstuvwxyz0123456789"
                               "ABCDEFGHIJKLMNOPQRSTUVWXYZ";

       if(*user == 0)
               user = "unknown";
       if(*machine == 0)
               machine = "astro";      /* this is hopelessly provincial */

       fp = tryfiles(machine, user, ld);
       if(fp != 0)
               return fp;

       cp = strchr(machine, '.');
       ep = strrchr(machine, '.');
       while(cp != 0 && cp < ep){      /* try higher domain */
               if((fp = tryfiles(++cp, user, ld)) != 0)
                       return fp;
               cp = strchr(cp, '.');
       }

       mf = Bopen("/lib/face/.machinelist", OREAD);
       if(mf == 0)
               return 0;

       while(cp = Brdline(mf, '\n')){
               int clean = 1;
               if(*cp == '#' || (ep=strpbrk(cp, " \t")) == 0)
                       continue;
               cp[Blinelen(mf)-1] = 0;
               for(dp=&buf[1]; cp < ep; ){
                       if(strchr(alnum, *cp) == 0)
                               clean = 0;
                       *dp++ = *cp++;
               }
               *dp = '\0';
               ep += strspn(ep, "\t ");

               /*
                * skip expression processing for a simple compare
                */
               if(clean && (strcmp(&buf[1], machine) == 0))
                       return tryfiles(ep, user, ld);

               if(buf[1] != '^'){
                       buf[0] = '^';
                       cp = buf;
               } else
                       cp = buf+1;
               if(*(dp-1) != '$')
                       *dp++ = '$';
               *dp = '\0';

               exp = regcomp(cp);
               if(!exp)
                       error("error in regular expression");
               if(regexec(exp, machine, (Resub *)0, 0) != 0){
                       free(exp);
                       return tryfiles(ep, user, ld);
               }
               free(exp);
       }
       Bclose(mf);
       return 0;
}

void
makelower(char *cp)
{
       int c;

       for(; (c=*cp)!=0; cp++)
               if('A'<=c && c<='Z')
                       *cp += 'a'-'A';
}

void
geticon(SRC *into, char *machine, char *user)
{
       Biobuf *fd;
       int x, y;
       char *cp, *file;
       uchar *pp;
       ulong p, q, r;
       int depth;
       static uchar tab1[] = { 0, 85, 170, 255 };

       label = 0;

       makelower(machine);
       makelower(user);
       depth = screen.ldepth;
       if(depth > 1)
               depth = 1;

       file = getfile(machine, user, depth);
       if(file == 0)
               file = getfile(machine, "unknown", depth);
       if(file == 0)
               file = getfile("", "unknown", depth);

       if(file == 0){
   out:
               memset(into, 0, sizeof(SRC));
               label = machine;
               return;
       }

       strcpy(realmachine, machineused);

       fd = Bopen(file, OREAD);
       if(fd == 0)
               goto out;

       if(strcmp(userused, "unknown") == 0)
               label = machine;
       y = 0;
       while((cp=Brdline(fd, '\n')) != 0){
               p = strtoul(cp, &cp, 16);
               q = strtoul(cp+1, &cp, 16);     /* skip ',' */
               r = strtoul(cp+1, 0, 16);       /* skip ',' */
               pp = into->pix[y];
               for(x=0; x<16; x++){
                       if(depthused == 1){
                               pp[x] = tab1[(p&(3<<(30-2*x)))>>(30-2*x)];
                               pp[16+x] = tab1[(q&(3<<(30-2*x)))>>(30-2*x)];
                               pp[32+x] = tab1[(r&(3<<(30-2*x)))>>(30-2*x)];
                       }else{
                               pp[x]    = (p&(1<<(15-x)))?255:0;
                               pp[16+x] = (q&(1<<(15-x)))?255:0;
                               pp[32+x] = (r&(1<<(15-x)))?255:0;
                       }
               }
               if(y++ >= MAXY)
                       break;
       }
       Bclose(fd);
}

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.