51 lines
1001 B
C
51 lines
1001 B
C
/* Copyright (c) 1990, 1991 UNIX System Laboratories, Inc. */
|
|
/* Copyright (c) 1988 AT&T */
|
|
/* All Rights Reserved */
|
|
|
|
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF */
|
|
/* UNIX System Laboratories, Inc. */
|
|
/* The copyright notice above does not evidence any */
|
|
/* actual or intended publication of such source code. */
|
|
|
|
/* #ident "@(#)sccs:lib/comobj/auxf.c 6.2" */
|
|
#ident "$Revision: 1.5 $"
|
|
# include "../../hdr/defines.h"
|
|
|
|
|
|
/*
|
|
Figures out names for g-file, l-file, x-file, etc.
|
|
|
|
File Module g-file l-file x-file & rest
|
|
|
|
a/s.m m m l.m a/x.m
|
|
|
|
Second argument is letter; 0 means module name is wanted.
|
|
*/
|
|
|
|
char *
|
|
auxf(sfile,ch)
|
|
register char *sfile;
|
|
register char ch;
|
|
{
|
|
static char auxfile[FILESIZE];
|
|
register char *snp;
|
|
|
|
snp = sname(sfile);
|
|
|
|
switch(ch) {
|
|
|
|
case 0:
|
|
case 'g': copy(&snp[2],auxfile);
|
|
break;
|
|
|
|
case 'l': copy(snp,auxfile);
|
|
auxfile[0] = 'l';
|
|
break;
|
|
|
|
default:
|
|
copy(sfile,auxfile);
|
|
auxfile[snp-sfile] = ch;
|
|
}
|
|
return(auxfile);
|
|
}
|