Changeset 17347 for trunk/base


Ignore:
Timestamp:
Apr 7, 2006, 4:55:39 AM (14 years ago)
Author:
jberry
Message:

Add new commands to pextlib to handle privileges chores:

getuid
geteuid
setuid uid
seteuid uid
uid_to_name uid
name_to_uid name

Location:
trunk/base/src/pextlib1.0
Files:
2 added
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/pextlib1.0/Makefile

    r15730 r17347  
    11OBJS=           Pextlib.o strsed.o fgetln.o md5cmd.o setmode.o xinstall.o \
    22                find.o strcasecmp.o vercomp.o filemap.o \
    3                 sha1cmd.o compat.o curl.o rmd160cmd.o readline.o
     3                sha1cmd.o compat.o curl.o rmd160cmd.o readline.o uid.o
    44SHLIB_NAME=     Pextlib${SHLIB_SUFFIX}
    55INSTALLDIR= ${DESTDIR}${datadir}/darwinports/Tcl/pextlib1.0
  • trunk/base/src/pextlib1.0/Pextlib.c

    r15730 r17347  
    11/*
    22 * Pextlib.c
    3  * $Id: Pextlib.c,v 1.84 2006/01/07 23:08:58 jberry Exp $
     3 * $Id: Pextlib.c,v 1.85 2006/04/07 04:55:40 jberry Exp $
    44 *
    55 * Copyright (c) 2002 - 2003 Apple Computer, Inc.
     
    113113#include "compat.h"
    114114#include "readline.h"
     115#include "uid.h"
    115116
    116117#if HAVE_CRT_EXTERNS_H
     
    11201121        Tcl_CreateObjCommand(interp, "pipe", PipeCmd, NULL, NULL);
    11211122        Tcl_CreateObjCommand(interp, "curl", CurlCmd, NULL, NULL);
     1123       
    11221124        Tcl_CreateObjCommand(interp, "readline", ReadlineCmd, NULL, NULL);
    11231125        Tcl_CreateObjCommand(interp, "rl_history", RLHistoryCmd, NULL, NULL);
    11241126       
     1127        Tcl_CreateObjCommand(interp, "getuid", getuidCmd, NULL, NULL);
     1128        Tcl_CreateObjCommand(interp, "geteuid", geteuidCmd, NULL, NULL);
     1129        Tcl_CreateObjCommand(interp, "setuid", setuidCmd, NULL, NULL);
     1130        Tcl_CreateObjCommand(interp, "seteuid", seteuidCmd, NULL, NULL);
     1131        Tcl_CreateObjCommand(interp, "name_to_uid", name_to_uidCmd, NULL, NULL);
     1132        Tcl_CreateObjCommand(interp, "uid_to_name", uid_to_nameCmd, NULL, NULL);
     1133
     1134
    11251135        if (Tcl_PkgProvide(interp, "Pextlib", "1.0") != TCL_OK)
    11261136                return TCL_ERROR;
Note: See TracChangeset for help on using the changeset viewer.