25 * is this a fully specified datakit name?
46 * Is this an internet domain name?
55 if(isalpha(*name) || *name == '-'){
71 * is this an ip address?
101 for(i = 0; i < ntup; i++){
103 Bprint(&out, "sys = %s\n", tup[i]);
109 for(i = 0; i < ntup; i++){
110 if(ttype[i] == Empty)
118 Bprint(&out, "dom=%s\n", tup[i]);
121 Bprint(&out, "ip=%s\n", tup[i]);
124 p = strrchr(tup[i], '/');
127 if((*p == 'C' || *p == 'R')
128 && strncmp(tup[i], "nj/astro/", p-tup[i]) == 0)
129 Bprint(&out, "flavor=console ");
131 Bprint(&out, "dk=%s\n", tup[i]);
134 Bprint(&out, "sys=%s\n", tup[i]);
143 * make a database file from a merged uucp/inet database
150 char *fields[NFIELDS];
154 Binit(&in, 0, OREAD);
155 Binit(&out, 1, OWRITE);
157 while(l = Brdline(&in, '\n')){
158 l[Blinelen(&in)-1] = 0;
159 n = getfields(l, fields, NFIELDS, 1, " \t");
161 for(i = 0; i < n; i++){
162 if(iscomment(fields[i])){
166 if(isdomain(fields[i])){
168 for(j = 0; j < ntup; j++)
169 if(ttype[j] == Domain && strcmp(fields[i], tup[j]) == 0){
174 } else if(isip(fields[i]))
176 else if(isdk(fields[i]))
185 for(i = 0; i < n; i++){
187 for(j = 0; j < ntup; j++){
188 if(ftype[i] == ttype[j] && strcmp(fields[i], tup[j]) == 0){
194 ttype[ntup] = ftype[i];
195 strcpy(tup[ntup], fields[i]);