- int i;
- register char *bp, *cp, *pp;
- char lc, *ap;
- register struct aka *ak = NULL;
- register FILE *fp;
-
- if (*file != '/'
- && (strncmp (file, "./", 2) && strncmp (file, "../", 3)))
- file = etcpath (file);
- if ((fp = fopen (file, "r")) == NULL) {
- akerrst = file;
- return AK_NOFILE;
- }
-
- while (vfgets (fp, &ap) == OK) {
- bp = ap;
- switch (*(pp = scanp (bp))) {
- case '<': /* recurse a level */
- if (!*(cp = getp (pp + 1))) {
- akerrst = "'<' without alias-file";
- fclose (fp);
- return AK_ERROR;
- }
- if ((i = alias (cp)) != AK_OK) {
- fclose (fp);
- return i;
- }
-
- case ':': /* comment */
- case ';':
- case '#':
- case 0:
- continue;
- }
-
- akerrst = bp;
- if (!*(cp = seekp (pp, &lc, &ap))) {
- fclose (fp);
- return AK_ERROR;
- }
- if (!(ak = akalloc (cp))) {
- fclose (fp);
- return AK_LIMIT;
+ int i;
+ register char *bp, *cp, *pp;
+ char lc, *ap;
+ register struct aka *ak = NULL;
+ register FILE *fp;
+
+ if (*file != '/'
+ && (strncmp (file, "./", 2) && strncmp (file, "../", 3)))
+ file = etcpath (file);
+ if ((fp = fopen (file, "r")) == NULL) {
+ akerrst = file;
+ return AK_NOFILE;