Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/runtime/kernel/qualify-name.c
ViewVC logotype

View of /sml/trunk/src/runtime/kernel/qualify-name.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 249 - (download) (as text) (annotate)
Sat Apr 17 18:57:03 1999 UTC (20 years, 4 months ago) by monnier
Original Path: sml/branches/SMLNJ/src/runtime/kernel/qualify-name.c
File size: 757 byte(s)
version 110.16
/* qualify-name.c
 *
 * COPYRIGHT (c) 1996 AT&T Research.
 */

#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 */


root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0