/*
* pwd.c
* Implementation of SUSv3 XCU pwd utility
* Copyright © 2007 Rich Felker
* Licensed under the terms of the GNU General Public License, v2 or later
*/
/* NOTE: This implementation assumes PATH_MAX is defined and correct. */
#include <limits.h>
#include <unistd.h>
#include <sys/stat.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
static int my_write(int fd, const char *s, size_t l)
{
if (!l) l = strlen(s);
while (l) {
ssize_t n = write(fd, s, l);
if (n<0) return -1;
s += n; l -= n;
}
return 0;
}
static void my_perror(char *prog, char *msg)
{
char *err = strerror(errno);
write(2, prog, strlen(prog));
write(2, ": ", 2);
write(2, msg, strlen(msg));
write(2, ": ", 2);
write(2, err, strlen(err));
write(2, "\n", 1);
}
static int is_rel(const char *s)
{
unsigned dots=0, slash=1;
if (*s++ != '/') return 1;
for (; *s; s++) {
if (*s == '/') {
if (dots-1<2) return 1;
dots=0;
}
else slash=1;
if (slash && *s == '.') dots++;
else dots=slash=0;
}
return dots-1<2;
}
int main(int argc, char *argv[])
{
int i, j;
int p=0;
char buf[PATH_MAX+2];
struct stat st1, st2;
char *pwd;
for (i=1; i<argc && argv[i][0]=='-'; i++)
for (j=1; argv[i][j]; j++) {
switch (argv[i][j]) {
case 'L': p=0; continue;
case 'P': p=1;
case 0: continue;
}
invalid:
errno = EINVAL;
my_perror(argv[0], argv[i]);
return 1;
}
if (i<argc) goto invalid;
if (p || !(pwd=getenv("PWD")) || is_rel(pwd)
|| stat(pwd, &st1) || stat(".", &st2)
|| st1.st_dev != st2.st_dev
|| st1.st_ino != st2.st_ino) {
if (!getcwd(buf, sizeof buf)) {
my_perror(argv[0], "getcwd");
return 1;
}
} else {
/* safe because stat succeeded */
strcpy(buf, pwd);
}
strcat(buf, "\n");
return my_write(1, buf, 0) != 0;
}