/* 

 * tclMacUnix.c --

 *

 *	This file contains routines to implement several features

 *	available to the Unix implementation, but that require

 *      extra work to do on a Macintosh.  These include routines

 *      Unix Tcl normally hands off to the Unix OS.

 *

 * Copyright (c) 1993-1994 Lockheed Missle & Space Company, AI Center

 * Copyright (c) 1994-1997 Sun Microsystems, Inc.

 *

 * See the file "license.terms" for information on usage and redistribution

 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.

 *

 * RCS: @(#) $Id: tclMacUnix.c,v 1.5 2002/10/09 11:54:45 das Exp $

 */

#include <Files.h>

#include <Strings.h>

#include <TextUtils.h>

#include <Finder.h>

#include <FSpCompat.h>

#include <Aliases.h>

#include <Errors.h>

#include "tclInt.h"

#include "tclMacInt.h"

/*

 * The following two Includes are from the More Files package

 */

#include "FileCopy.h"

#include "MoreFiles.h"

#include "MoreFilesExtras.h"

/*

 * The following may not be defined in some versions of

 * MPW header files.

 */

#ifndef kIsInvisible

#define kIsInvisible 0x4000

#endif

#ifndef kIsAlias

#define kIsAlias 0x8000

#endif

/*

 * Missing error codes

 */

#define usageErr		500

#define noSourceErr		501

#define isDirErr		502

/*

 *----------------------------------------------------------------------

 *

 * Tcl_EchoCmd --

 *

 *    Implements the TCL echo command:

 *        echo ?str ...?

 *

 * Results:

 *      Always returns TCL_OK.

 *

 * Side effects:

 *	None.

 *

 *----------------------------------------------------------------------

 */

int

Tcl_EchoCmd(

    ClientData dummy,			/* Not used. */

    Tcl_Interp *interp,			/* Current interpreter. */

    int argc,				/* Number of arguments. */

    CONST char **argv)			/* Argument strings. */

{

    Tcl_Channel chan;

    int mode, result, i;

    chan = Tcl_GetChannel(interp, "stdout", &mode);

    if (chan == (Tcl_Channel) NULL) {

        return TCL_ERROR;

    }

    for (i = 1; i < argc; i++) {

	result = Tcl_WriteChars(chan, argv[i], -1);

	if (result < 0) {

	    Tcl_AppendResult(interp, "echo: ", Tcl_GetChannelName(chan),

		    ": ", Tcl_PosixError(interp), (char *) NULL);

	    return TCL_ERROR;

	}

        if (i < (argc - 1)) {

	    Tcl_WriteChars(chan, " ", -1);

	}

    }

    Tcl_WriteChars(chan, "\n", -1);

    return TCL_OK;

}

/*

 *----------------------------------------------------------------------

 *

 * Tcl_LsObjCmd --

 *

 *	This procedure is invoked to process the "ls" Tcl command.

 *	See the user documentation for details on what it does.

 *

 * Results:

 *	A standard Tcl result.

 *

 * Side effects:

 *	See the user documentation.

 *

 *----------------------------------------------------------------------

 */

int

Tcl_LsObjCmd(

    ClientData dummy,			/* Not used. */

    Tcl_Interp *interp,			/* Current interpreter. */

    int objc,				/* Number of arguments. */

    Tcl_Obj *CONST objv[])		/* Argument strings. */

{

#define STRING_LENGTH 80

#define CR '\n'

    int i, j;

    int fieldLength, len = 0, maxLen = 0, perLine;

    OSErr err;

    CInfoPBRec paramBlock;

    HFileInfo *hpb = (HFileInfo *)&paramBlock;

    DirInfo *dpb = (DirInfo *)&paramBlock;

    char theFile[256];

    char theLine[STRING_LENGTH + 2];

    int fFlag = false, pFlag = false, aFlag = false, lFlag = false,

	cFlag = false, hFlag = false;

    char *argv;

    Tcl_Obj *newObjv[2], *resultObjPtr;

    /*

     * Process command flags.  End if argument doesn't start

     * with a dash or is a dash by itself.  The remaining arguments

     * should be files.

     */

    for (i = 1; i < objc; i++) {

    	argv = Tcl_GetString(objv[i]);

	if (argv[0] != '-') {

	    break;

	}

	if (!strcmp(argv, "-")) {

	    i++;

	    break;

	}

	for (j = 1 ; argv[j] ; ++j) {

	    switch(argv[j]) {

	    case 'a':

	    case 'A':

		aFlag = true;

		break;

	    case '1':

		cFlag = false;

		break;

	    case 'C':

		cFlag = true;

		break;

	    case 'F':

		fFlag = true;

		break;

	    case 'H':

		hFlag = true;

		break;

	    case 'p':

		pFlag = true;

		break;

	    case 'l':

		pFlag = false;

		lFlag = true;

		break;

	    default:

		Tcl_AppendResult(interp, "error - unknown flag ",

			"usage: ls -apCFHl1 ?files? ", NULL);

		return TCL_ERROR;

	    }

	}

    }

    objv += i;

    objc -= i;

    /*

     * No file specifications means we search for all files.

     * Glob will be doing most of the work.

     */

     if (!objc) {

	objc = 1;

	newObjv[0] = Tcl_NewStringObj("*", -1);

	newObjv[1] = NULL;

	objv = newObjv;

    }

    if (Tcl_GlobObjCmd(NULL, interp, objc + 1, objv - 1) != TCL_OK) {

    	Tcl_ResetResult(interp);

    	return TCL_ERROR;

    }

    resultObjPtr = Tcl_GetObjResult(interp);

    Tcl_IncrRefCount(resultObjPtr);

    if (Tcl_ListObjGetElements(interp, resultObjPtr, &objc, (Tcl_Obj ***)&objv) != TCL_OK) {

    	Tcl_DecrRefCount(resultObjPtr);

    	return TCL_ERROR;

    }

    Tcl_ResetResult(interp);

    /*

     * There are two major methods for listing files: the long

     * method and the normal method.

     */

    if (lFlag) {

	char	creator[5], type[5], time[16], date[16];

	char	lineTag;

	long	size;

	unsigned short flags;

	Tcl_Obj *objPtr;

	char *string;

	int length;

	/*

	 * Print the header for long listing.

	 */

	if (hFlag) {

	    sprintf(theLine, "T %7s %8s %8s %4s %4s %6s %s",

		    "Size", "ModTime", "ModDate",

		    "CRTR", "TYPE", "Flags", "Name");

	    Tcl_AppendResult(interp, theLine, "\n", NULL);

	    Tcl_AppendResult(interp,

		    "-------------------------------------------------------------\n",

		    NULL);

	}

	for (i = 0; i < objc; i++) {

	    strcpy(theFile, Tcl_GetString(objv[i]));

	    c2pstr(theFile);

	    hpb->ioCompletion = NULL;

	    hpb->ioVRefNum = 0;

	    hpb->ioFDirIndex = 0;

	    hpb->ioNamePtr = (StringPtr) theFile;

	    hpb->ioDirID = 0L;

	    err = PBGetCatInfoSync(&paramBlock);

	    p2cstr((StringPtr) theFile);

	    if (hpb->ioFlAttrib & 16) {

		/*

		 * For directories use zero as the size, use no Creator

		 * type, and use 'DIR ' as the file type.

		 */

		if ((aFlag == false) && (dpb->ioDrUsrWds.frFlags & 0x1000)) {

		    continue;

		}

		lineTag = 'D';

		size = 0;

		IUTimeString(dpb->ioDrMdDat, false, (unsigned char *)time);

		p2cstr((StringPtr)time);

		IUDateString(dpb->ioDrMdDat, shortDate, (unsigned char *)date);

		p2cstr((StringPtr)date);

		strcpy(creator, "    ");

		strcpy(type, "DIR ");

		flags = dpb->ioDrUsrWds.frFlags;

		if (fFlag || pFlag) {

		    strcat(theFile, ":");

		}

	    } else {

		/*

		 * All information for files should be printed.  This

		 * includes size, modtime, moddate, creator type, file

		 * type, flags, anf file name.

		 */

		if ((aFlag == false) &&

			(hpb->ioFlFndrInfo.fdFlags & kIsInvisible)) {

		    continue;

		}

		lineTag = 'F';

		size = hpb->ioFlLgLen + hpb->ioFlRLgLen;

		IUTimeString(hpb->ioFlMdDat, false, (unsigned char *)time);

		p2cstr((StringPtr)time);

		IUDateString(hpb->ioFlMdDat, shortDate, (unsigned char *)date);

		p2cstr((StringPtr)date);

		strncpy(creator, (char *) &hpb->ioFlFndrInfo.fdCreator, 4);

		creator[4] = 0;

		strncpy(type, (char *) &hpb->ioFlFndrInfo.fdType, 4);

		type[4] = 0;

		flags = hpb->ioFlFndrInfo.fdFlags;

		if (fFlag) {

		    if (hpb->ioFlFndrInfo.fdFlags & kIsAlias) {

			strcat(theFile, "@");

		    } else if (hpb->ioFlFndrInfo.fdType == 'APPL') {

			strcat(theFile, "*");

		    }

		}

	    }

	    sprintf(theLine, "%c %7ld %8s %8s %-4.4s %-4.4s 0x%4.4X %s",

		    lineTag, size, time, date, creator, type, flags, theFile);

	    Tcl_AppendResult(interp, theLine, "\n", NULL);

	}

	objPtr = Tcl_GetObjResult(interp);

	string = Tcl_GetStringFromObj(objPtr, &length);

	if ((length > 0) && (string[length - 1] == '\n')) {

	    Tcl_SetObjLength(objPtr, length - 1);

	}

    } else {

	/*

	 * Not in long format. We only print files names.  If the

	 * -C flag is set we need to print in multiple coloumns.

	 */

	int argCount, linePos;

	Boolean needNewLine = false;

	/*

	 * Fiend the field length: the length each string printed

	 * to the terminal will be.

	 */

	if (!cFlag) {

	    perLine = 1;

	    fieldLength = STRING_LENGTH;

	} else {

	    for (i = 0; i < objc; i++) {

	    	argv = Tcl_GetString(objv[i]);

		len = strlen(argv);

		if (len > maxLen) {

		    maxLen = len;

		}

	    }

	    fieldLength = maxLen + 3;

	    perLine = STRING_LENGTH / fieldLength;

	}

	argCount = 0;

	linePos = 0;

	memset(theLine, ' ', STRING_LENGTH);

	while (argCount < objc) {

	    strcpy(theFile, Tcl_GetString(objv[argCount]));

	    c2pstr(theFile);

	    hpb->ioCompletion = NULL;

	    hpb->ioVRefNum = 0;

	    hpb->ioFDirIndex = 0;

	    hpb->ioNamePtr = (StringPtr) theFile;

	    hpb->ioDirID = 0L;

	    err = PBGetCatInfoSync(&paramBlock);

	    p2cstr((StringPtr) theFile);

	    if (hpb->ioFlAttrib & 16) {

		/*

		 * Directory. If -a show hidden files.  If -f or -p

		 * denote that this is a directory.

		 */

		if ((aFlag == false) && (dpb->ioDrUsrWds.frFlags & 0x1000)) {

		    argCount++;

		    continue;

		}

		if (fFlag || pFlag) {

		    strcat(theFile, ":");

		}

	    } else {

		/*

		 * File: If -a show hidden files, if -f show links

		 * (aliases) and executables (APPLs).

		 */

		if ((aFlag == false) &&

			(hpb->ioFlFndrInfo.fdFlags & kIsInvisible)) {

		    argCount++;

		    continue;

		}

		if (fFlag) {

		    if (hpb->ioFlFndrInfo.fdFlags & kIsAlias) {

			strcat(theFile, "@");

		    } else if (hpb->ioFlFndrInfo.fdType == 'APPL') {

			strcat(theFile, "*");

		    }

		}

	    }

	    /*

	     * Print the item, taking into account multi-

	     * coloum output.

	     */

	    strncpy(theLine + (linePos * fieldLength), theFile,

		    strlen(theFile));

	    linePos++;

	    if (linePos == perLine) {

		theLine[STRING_LENGTH] = '\0';

		if (needNewLine) {

		    Tcl_AppendResult(interp, "\n", theLine, NULL);

		} else {

		    Tcl_AppendResult(interp, theLine, NULL);

		    needNewLine = true;

		}

		linePos = 0;

		memset(theLine, ' ', STRING_LENGTH);

	    }

	    argCount++;

	}

	if (linePos != 0) {

	    theLine[STRING_LENGTH] = '\0';

	    if (needNewLine) {

		Tcl_AppendResult(interp, "\n", theLine, NULL);

	    } else {

		Tcl_AppendResult(interp, theLine, NULL);

	    }

	}

    }

    Tcl_DecrRefCount(resultObjPtr);

    return TCL_OK;

}