File: qualify-name.c

package info (click to toggle)
smlnj 110.79-8
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid
  • size: 82,564 kB
  • sloc: ansic: 32,532; asm: 6,314; sh: 2,296; makefile: 1,821; perl: 1,170; pascal: 295; yacc: 190; cs: 78; python: 77; lisp: 19
file content (33 lines) | stat: -rw-r--r-- 777 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
/* qualify-name.c
 *
 * COPYRIGHT (c) 1996 AT&T Research.
 */

#include <string.h>
#include "ml-base.h"
#include "machine-id.h"

#define SUFFIX	MACHINE_ID "-" OPSYS_ID

/* QualifyImageName:
 *
 * Given a pathname for an image file, this adds the architecture extension
 * to the pathname (if it doesn't already have it).  It returns TRUE, if the
 * extension was added.
 */
bool_t QualifyImageName (char *buf)
{
    int		len = strlen(buf);
    int		midLen = sizeof(SUFFIX); /* length of ID + 1 */

    if ((midLen+1 < len) && (buf[len-midLen] == '.')
    && (strcmp(&(buf[len-(midLen-1)]), SUFFIX) == 0))
      /* the pathname is already qualified by the machine ID and OPSYS */
	return FALSE;

    strcat (buf, "." SUFFIX);

    return TRUE;

} /* end of QualifyImageName */