SCM Repository
View of /sml/trunk/src/runtime/kernel/qualify-name.c
Parent Directory
|
Revision Log
Revision 2 -
(download)
(as text)
(annotate)
Sat Oct 4 23:33:09 1997 UTC (23 years, 6 months ago) by monnier
File size: 757 byte(s)
Sat Oct 4 23:33:09 1997 UTC (23 years, 6 months ago) by monnier
File size: 757 byte(s)
Initial revision
/* 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 |