path: root/src/Fl_Native_File_Chooser_MAC.cxx

// "$Id$"
//
// FLTK native OS file chooser widget
//
// Copyright 1998-2005 by Bill Spitzak and others.
// Copyright 2004 Greg Ercolano.
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Library General Public
// License as published by the Free Software Foundation; either
// version 2 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Library General Public License for more details.
//
// You should have received a copy of the GNU Library General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA.
//
// Please report all bugs and problems to:
//
//     http://www.fltk.org/str.php
//

// TODO:
//	o When doing 'open file', only dir is preset, not filename.
//        Possibly 'preset_file' could be used to select the filename.
//

#ifndef FL_DOXYGEN		// PREVENT DOXYGEN'S USE OF THIS FILE

#include "Fl_Native_File_Chooser_common.cxx"		// strnew/strfree/strapp/chrcat
#include <libgen.h>		// dirname(3)
#include <sys/types.h>		// stat(2)
#include <sys/stat.h>		// stat(2)


#include <FL/Fl.H>
#include <FL/Fl_Native_File_Chooser.H>
#include <FL/filename.H>

#ifndef __APPLE_COCOA__
// TRY TO CONVERT AN AEDesc TO AN FSRef
//     As per Apple Technical Q&A QA1274
//     eg: http://developer.apple.com/qa/qa2001/qa1274.html
//     Returns 'noErr' if OK, or an 'OSX result code' on error.
//
static int AEDescToFSRef(const AEDesc* desc, FSRef* fsref) {
  OSStatus err = noErr;
  AEDesc coerceDesc;
  // If AEDesc isn't already an FSRef, convert it to one
  if ( desc->descriptorType != typeFSRef ) {
    if ( ( err = AECoerceDesc(desc, typeFSRef, &coerceDesc) ) == noErr ) {
      // Get FSRef out of AEDesc
      err = AEGetDescData(&coerceDesc, fsref, sizeof(FSRef));
      AEDisposeDesc(&coerceDesc);
    }
  } else {
    err = AEGetDescData(desc, fsref, sizeof(FSRef));
  }
  return( err );
}

// NAVREPLY: CTOR
Fl_Native_File_Chooser::NavReply::NavReply() {
  _valid_reply = 0;
}

// NAVREPLY: DTOR
Fl_Native_File_Chooser::NavReply::~NavReply() {
  if ( _valid_reply ) {
    NavDisposeReply(&_reply);
  }
}

// GET REPLY FROM THE NAV* DIALOG
int Fl_Native_File_Chooser::NavReply::get_reply(NavDialogRef& ref) {
  if ( _valid_reply ) {
    NavDisposeReply(&_reply);	// dispose of previous
    _valid_reply = 0;
  }
  if ( ref == NULL || NavDialogGetReply(ref, &_reply) != noErr ) {
    return(-1);
  }
  _valid_reply = 1;
  return(0);
}

// RETURN THE BASENAME USER WANTS TO 'Save As'
int Fl_Native_File_Chooser::NavReply::get_saveas_basename(char *s, int slen) {
  if (CFStringGetCString(_reply.saveFileName, s, slen-1, kCFStringEncodingUTF8) == false) {
    s[0] = '\0';
    return(-1);
  }
  return(0);
}

// RETURN THE DIRECTORY NAME
//    Returns 0 on success, -1 on error.
//
int Fl_Native_File_Chooser::NavReply::get_dirname(char *s, int slen) {
  FSRef fsref;
  if ( AEDescToFSRef(&_reply.selection, &fsref) != noErr ) {
    // Conversion failed? Return empty name
    s[0] = 0;
    return(-1);
  }
  FSRefMakePath(&fsref, (UInt8 *)s, slen);
  return(0);
}

// RETURN MULTIPLE DIRECTORIES
//     Returns: 0 on success with pathnames[] containing pathnames selected,
//             -1 on error
//
int Fl_Native_File_Chooser::NavReply::get_pathnames(char **&pathnames, int& tpathnames) {
  // How many items selected?
  long count = 0;
  if ( AECountItems(&_reply.selection, &count) != noErr ) {
    return(-1);
  }

  // Allocate space for that many pathnames
  pathnames = new char*[count];
  memset((void*)pathnames, 0, count*sizeof(char*));
  tpathnames = count;

  // Walk list of pathnames selected
  for (short index=1; index<=count; index++) {
    AEKeyword keyWord;
    AEDesc    desc;
    if (AEGetNthDesc(&_reply.selection, index, typeFSRef, &keyWord, &desc) != noErr) {
      pathnames[index-1] = strnew("");
      continue;
    }
    FSRef fsref;
    if (AEGetDescData(&desc, &fsref, sizeof(FSRef)) != noErr ) {
      pathnames[index-1] = strnew("");
      continue;
    }
    char s[4096];
    FSRefMakePath(&fsref, (UInt8 *)s, sizeof(s)-1);
    pathnames[index-1] = strnew(s);
    AEDisposeDesc(&desc);
  }
  return(0);
}
#endif /* !__APPLE_COCOA__ */

// FREE PATHNAMES ARRAY, IF IT HAS ANY CONTENTS
void Fl_Native_File_Chooser::clear_pathnames() {
  if ( _pathnames ) {
    while ( --_tpathnames >= 0 ) {
      _pathnames[_tpathnames] = strfree(_pathnames[_tpathnames]);
    }
    delete [] _pathnames;
    _pathnames = NULL;
  }
  _tpathnames = 0;
}

// SET A SINGLE PATHNAME
void Fl_Native_File_Chooser::set_single_pathname(const char *s) {
  clear_pathnames();
  _pathnames = new char*[1];
  _pathnames[0] = strnew(s);
  _tpathnames = 1;
}

#ifndef __APPLE_COCOA__
// GET THE 'Save As' FILENAME
//    Returns -1 on error, errmsg() has reason, filename == "".
//             0 if OK, filename() has filename chosen.
//
int Fl_Native_File_Chooser::get_saveas_basename(NavDialogRef& ref) {
  if ( ref == NULL ) {
    errmsg("get_saveas_basename: ref is NULL");
    return(-1);
  }
  NavReply reply;
  OSStatus err;
  if ((err = reply.get_reply(ref)) != noErr ) {
    errmsg("NavReply::get_reply() failed");
    clear_pathnames();
    return(-1);
  }

  char pathname[4096] = "";
  // Directory name..
  //    -2 leaves room to append '/'
  //
  if ( reply.get_dirname(pathname, sizeof(pathname)-2) < 0 ) {
    clear_pathnames();
    errmsg("NavReply::get_dirname() failed");
    return(-1);
  }
  // Append '/'
  int len = strlen(pathname);
  pathname[len++] = '/';
  pathname[len] = '\0';
  // Basename..
  if ( reply.get_saveas_basename(pathname+len, sizeof(pathname)-len) < 0 ) {
    clear_pathnames();
    errmsg("NavReply::get_saveas_basename() failed");
    return(-1);
  }
  set_single_pathname(pathname);
  return(0);
}

// GET (POTENTIALLY) MULTIPLE FILENAMES
//     Returns:
//         -1 -- error, errmsg() has reason, filename == ""
//          0 -- OK, pathnames()/filename() has pathname(s) chosen
//
int Fl_Native_File_Chooser::get_pathnames(NavDialogRef& ref) {
  if ( ref == NULL ) {
    errmsg("get_saveas_basename: ref is NULL");
    return(-1);
  }
  NavReply reply;
  OSStatus err;
  if ((err = reply.get_reply(ref)) != noErr ) { 
    errmsg("NavReply::get_reply() failed");
    clear_pathnames();
    return(-1);
  }
  // First, clear pathnames array of any previous contents
  clear_pathnames();
  if ( reply.get_pathnames(_pathnames, _tpathnames) < 0 ) {
    clear_pathnames();
    errmsg("NavReply::get_dirname() failed");
    return(-1);
  }
  return(0);
}

// IS PATHNAME A DIRECTORY?
//    1 - path is a dir
//    0 - path not a dir or error
//
static int IsDir(const char *pathname) {
  struct stat buf;
  if ( stat(pathname, &buf) != -1 ) {
    if ( buf.st_mode & S_IFDIR ) return(1);
  }
  return(0);
}

// PRESELECT PATHNAME IN BROWSER
static void PreselectPathname(NavCBRecPtr cbparm, const char *path) {
  // XXX: path must be a dir, or kNavCtlSetLocation fails with -50.
  //      Why, I don't know. Let me know with a bug report. -erco
  //
  if ( ! IsDir(path) ) {
    path = dirname((char*)path);
  }
  OSStatus err;
  FSRef fsref;
  err = FSPathMakeRef((const UInt8*)path, &fsref, NULL);
  if ( err != noErr) {
    fprintf(stderr, "FSPathMakeRef(%s) failed: err=%d\n", path, (int)err);
    return;
  }
  AEDesc desc;
  err = AECreateDesc(typeFSRef, &fsref, sizeof(FSRef), &desc);
  if ( err != noErr) {
    fprintf(stderr, "AECreateDesc() failed: err=%d\n", (int)err);
  }
  err = NavCustomControl(cbparm->context, kNavCtlSetLocation, &desc);
  if ( err != noErr) {
    fprintf(stderr, "NavCustomControl() failed: err=%d\n", (int)err);
  }
  AEDisposeDesc(&desc);
}

// NAV CALLBACK EVENT HANDLER
void Fl_Native_File_Chooser::event_handler(NavEventCallbackMessage callBackSelector, 
			       NavCBRecPtr cbparm,
			       void *data) {
  Fl_Native_File_Chooser *nfb = (Fl_Native_File_Chooser*)data;
  switch (callBackSelector) {
    case kNavCBStart:
    {
      if ( nfb->directory() ) {				// dir specified?
	PreselectPathname(cbparm, nfb->directory());	// use it first
      } else if ( nfb->preset_file() ) {		// file specified?
	PreselectPathname(cbparm, nfb->preset_file());	// use if no dir
      }
      if ( nfb->_btype == BROWSE_SAVE_FILE && nfb->preset_file() ) {
	const char *p, *q;
	p = nfb->preset_file();				// don't use the path part of preset_file
	q = strrchr(p, '/');
	if (q == NULL) q = p; else q++;
	CFStringRef namestr = CFStringCreateWithCString(NULL,
							q,
							kCFStringEncodingUTF8);
	NavDialogSetSaveFileName(cbparm->context, namestr);
	CFRelease(namestr);
      }
      NavCustomControl(cbparm->context,
		       kNavCtlSetActionState,
		       &nfb->_keepstate);
      // Select the right filter in pop-up menu
      if ( nfb->_filt_value == nfb->_filt_total ) {
	// Select All Documents
	NavPopupMenuItem kAll = kNavAllFiles;
	NavCustomControl(cbparm->context, kNavCtlSelectAllType, &kAll);
      } else if (nfb->_filt_value < nfb->_filt_total) {
	// Select custom filter
	nfb->_tempitem.version = kNavMenuItemSpecVersion;
	nfb->_tempitem.menuCreator = 'extn';
	nfb->_tempitem.menuType = nfb->_filt_value;
	*nfb->_tempitem.menuItemName = '\0';		// needed on 10.3+
	NavCustomControl(cbparm->context,
			 kNavCtlSelectCustomType,
			 &(nfb->_tempitem));
      }
      break;
    }
    case kNavCBPopupMenuSelect:
    {
      NavMenuItemSpecPtr ptr;
      // they really buried this one!
      ptr = (NavMenuItemSpecPtr)cbparm->eventData.eventDataParms.param;
      if ( ptr->menuCreator ) {
	// Gets index to filter ( menuCreator = 'extn' )
	nfb->_filt_value = ptr->menuType;
      } else {
	// All docs filter selected ( menuCreator = '\0\0\0\0' )
	nfb->_filt_value = nfb->_filt_total;
      }
      break;
    }
    case kNavCBSelectEntry:
    {
      NavActionState astate;
      switch ( nfb->_btype ) {
	// These don't need selection override
	case BROWSE_MULTI_FILE:
	case BROWSE_MULTI_DIRECTORY:
	case BROWSE_SAVE_FILE:
	  break;

	// These need to allow only one item, so disable
	// Open button if user tries to select multiple files
	case BROWSE_SAVE_DIRECTORY:
	case BROWSE_DIRECTORY:
	case BROWSE_FILE:
	{
	  long selectcount;
	  AECountItems((AEDescList*)cbparm->
		       eventData.eventDataParms.param,
		       &selectcount);
	  if ( selectcount > 1 ) {
	    NavCustomControl(cbparm->context,
			     kNavCtlSetSelection,
			     NULL);
	    astate = nfb->_keepstate |
		     kNavDontOpenState |
		     kNavDontChooseState;
	    NavCustomControl(cbparm->context,
			     kNavCtlSetActionState,
			     &astate );
	  } else {
	    astate= nfb->_keepstate | kNavNormalState;
	    NavCustomControl(cbparm->context,
			     kNavCtlSetActionState,
			     &astate );
	  }
	  break;
	}
      }
    }
    break;
  }
}
#endif /* !__APPLE_COCOA__ */

// CONSTRUCTOR
Fl_Native_File_Chooser::Fl_Native_File_Chooser(int val) {
  _btype          = val;
#ifdef __APPLE_COCOA__
  _panel = NULL;
#else
  NavGetDefaultDialogCreationOptions(&_opts);
  _opts.optionFlags |= kNavDontConfirmReplacement;	// no confirms for "save as"
  _ref            = NULL;
  _keepstate      = kNavNormalState;
  memset(&_tempitem, 0, sizeof(_tempitem));
#endif
  _options        = NO_OPTIONS;
  _pathnames      = NULL;
  _tpathnames     = 0;
  _title          = NULL;
  _filter         = NULL;
  _filt_names     = NULL;
  memset(_filt_patt, 0, sizeof(char*) * MAXFILTERS);
  _filt_total     = 0;
  _filt_value     = 0;
  _directory      = NULL;
  _preset_file    = NULL;
  _errmsg         = NULL;
}

// DESTRUCTOR
Fl_Native_File_Chooser::~Fl_Native_File_Chooser() {
  // _opts		// nothing to manage
#ifndef __APPLE_COCOA__
  if (_ref) { NavDialogDispose(_ref); _ref = NULL; }
#endif
  // _options		// nothing to manage
  // _keepstate		// nothing to manage
  // _tempitem		// nothing to manage
  clear_pathnames();
  _directory   = strfree(_directory);
  _title       = strfree(_title);
  _preset_file = strfree(_preset_file);
  _filter      = strfree(_filter);
  //_filt_names		// managed by clear_filters()
  //_filt_patt[i]	// managed by clear_filters()
  //_filt_total		// managed by clear_filters()
  clear_filters();
  //_filt_value		// nothing to manage
  _errmsg = strfree(_errmsg);
}

#ifndef __APPLE_COCOA__
// SET THE TYPE OF BROWSER
void Fl_Native_File_Chooser::type(int val) {
  _btype = val;
}
#endif /* !__APPLE_COCOA__ */

// GET TYPE OF BROWSER
int Fl_Native_File_Chooser::type() const {
  return(_btype);
}

// SET OPTIONS
void Fl_Native_File_Chooser::options(int val) {
  _options = val;
}

// GET OPTIONS
int Fl_Native_File_Chooser::options() const {
  return(_options);
}

// SHOW THE BROWSER WINDOW
//     Returns:
//         0 - user picked a file
//         1 - user cancelled
//        -1 - failed; errmsg() has reason
//
int Fl_Native_File_Chooser::show() {

  // Make sure fltk interface updates before posting our dialog
  Fl::flush();

#ifndef __APPLE_COCOA__
  _keepstate = kNavNormalState;
  // BROWSER TITLE
  CFStringRef cfs_title;
  cfs_title = CFStringCreateWithCString(NULL,
					_title ? _title : "No Title",
					kCFStringEncodingUTF8);
  _opts.windowTitle = cfs_title;
  // BROWSER FILTERS
  CFArrayRef filter_array = NULL;

  // One or more filters specified?
  if ( _filt_total ) {
    // NAMES -> CFArrayRef
    CFStringRef tab = CFSTR("\t");
    CFStringRef tmp_cfs;
    tmp_cfs = CFStringCreateWithCString(NULL,
					_filt_names,
					kCFStringEncodingUTF8);
    filter_array = CFStringCreateArrayBySeparatingStrings(NULL,
							  tmp_cfs,
							  tab);
    CFRelease(tmp_cfs);
    CFRelease(tab);
    _opts.popupExtension = filter_array;
    _opts.optionFlags |= kNavAllFilesInPopup;
  } else {
    filter_array = NULL;
    _opts.popupExtension = NULL;
    _opts.optionFlags |= kNavAllFilesInPopup;
  }

  // HANDLE OPTIONS WE SUPPORT
  if ( _options & SAVEAS_CONFIRM ) {
    _opts.optionFlags &= ~kNavDontConfirmReplacement;	// enables confirm
  } else {
    _opts.optionFlags |= kNavDontConfirmReplacement;	// disables confirm
  }
  // _opts.optionFlags |= kNavSupportPackages;		// enables *.app TODO: Make a flag to control this
#endif /* !__APPLE_COCOA__ */

  // POST BROWSER
  int err = post();

#ifndef __APPLE_COCOA__
  // RELEASE _FILT_ARR
  if ( filter_array ) CFRelease(filter_array);
  filter_array = NULL;
  _opts.popupExtension = NULL;
  // RELEASE TITLE
  if ( cfs_title ) CFRelease(cfs_title);
  cfs_title = NULL;
#endif /* !__APPLE_COCOA__ */
  _filt_total = 0;

  return(err);
}

#ifndef __APPLE_COCOA__
int Fl_Native_File_Chooser::post() {

  // INITIALIZE BROWSER
  OSStatus err;
  if ( _filt_total == 0 ) {		// Make sure they match
    _filt_value = 0;			// TBD: move to someplace more logical?
  }

  if ( ! ( _options & NEW_FOLDER ) ) {
    _keepstate |= kNavDontNewFolderState;
  }

  switch (_btype) {
    case BROWSE_FILE:
    case BROWSE_MULTI_FILE:
      // Prompt user for one or more files
      if ((err = NavCreateGetFileDialog(&_opts,			// options
					0, 			// file types
					event_handler,		// event handler
					0,			// preview callback
					filter_proc_cb,		// filter callback
					(void*)this,		// callback data
					&_ref)) != noErr ) {	// dialog ref
	errmsg("NavCreateGetFileDialog: failed");
	return(-1);
      }
      break;

    case BROWSE_DIRECTORY:
    case BROWSE_MULTI_DIRECTORY:
    case BROWSE_SAVE_DIRECTORY:
      // Prompts user for one or more files or folders
      if ((err = NavCreateChooseFolderDialog(&_opts,			// options
					     event_handler,		// event callback
					     0,				// filter callback
					     (void*)this,		// callback data
					     &_ref)) != noErr ) {	// dialog ref
	errmsg("NavCreateChooseFolderDialog: failed");
	return(-1);
      }
      break;

    case BROWSE_SAVE_FILE:
      // Prompt user for filename to 'save as'
      if ((err = NavCreatePutFileDialog(&_opts,			// options
					0,			// file types
					kNavGenericSignature,	// file creator
					event_handler,		// event handler
					(void*)this,		// callback data
					&_ref)) != noErr ) {	// dialog ref
	errmsg("NavCreatePutFileDialog: failed");
	return(-1);
      }
      break;
  }

  // SHOW THE DIALOG
  if ( ( err = NavDialogRun(_ref) ) != 0 ) {
    char msg[80];
    sprintf(msg, "NavDialogRun: failed (err=%d)", (int)err);
    errmsg(msg);
    return(-1);
  }

  // WHAT ACTION DID USER CHOOSE?
  NavUserAction act = NavDialogGetUserAction(_ref);
  if ( act == kNavUserActionNone ) {
    errmsg("Nothing happened yet (dialog still open)");
    return(-1);
  }
  else if ( act == kNavUserActionCancel ) { 	// user chose 'cancel'
    return(1);
  }
  else if ( act == kNavUserActionSaveAs ) {	// user chose 'save as'
    return(get_saveas_basename(_ref));
  }

  // TOO MANY FILES CHOSEN?
  int ret = get_pathnames(_ref);
  if ( _btype == BROWSE_FILE && ret == 0 && _tpathnames != 1 ) {
    char msg[80];
    sprintf(msg, "Expected only one file to be chosen.. you chose %d.", (int)_tpathnames);
    errmsg(msg);
    return(-1);
  }
  return(err);
}
#endif /* !__APPLE_COCOA__ */

// SET ERROR MESSAGE
//     Internal use only.
//
void Fl_Native_File_Chooser::errmsg(const char *msg) {
  _errmsg = strfree(_errmsg);
  _errmsg = strnew(msg);
}

// RETURN ERROR MESSAGE
const char *Fl_Native_File_Chooser::errmsg() const {
  return(_errmsg ? _errmsg : "No error");
}

// GET FILENAME
const char* Fl_Native_File_Chooser::filename() const {
  if ( _pathnames && _tpathnames > 0 ) return(_pathnames[0]);
  return("");
}

// GET FILENAME FROM LIST OF FILENAMES
const char* Fl_Native_File_Chooser::filename(int i) const {
  if ( _pathnames && i < _tpathnames ) return(_pathnames[i]);
  return("");
}

// GET TOTAL FILENAMES CHOSEN
int Fl_Native_File_Chooser::count() const {
  return(_tpathnames);
}

// PRESET PATHNAME
//     Value can be NULL for none.
//
void Fl_Native_File_Chooser::directory(const char *val) {
  _directory = strfree(_directory);
  _directory = strnew(val);
}

// GET PRESET PATHNAME
//     Returned value can be NULL if none set.
//
const char* Fl_Native_File_Chooser::directory() const {
  return(_directory);
}

// SET TITLE
//     Value can be NULL if no title desired.
//
void Fl_Native_File_Chooser::title(const char *val) {
  _title = strfree(_title);
  _title = strnew(val);
}

// GET TITLE
//     Returned value can be NULL if none set.
//
const char *Fl_Native_File_Chooser::title() const {
  return(_title);
}

// SET FILTER
//     Can be NULL if no filter needed
//
void Fl_Native_File_Chooser::filter(const char *val) {
  _filter = strfree(_filter);
  _filter = strnew(val);

  // Parse filter user specified
  //     IN: _filter = "C Files\t*.{cxx,h}\nText Files\t*.txt"
  //    OUT: _filt_names   = "C Files\tText Files"
  //         _filt_patt[0] = "*.{cxx,h}"
  //         _filt_patt[1] = "*.txt"
  //         _filt_total   = 2
  //
  parse_filter(_filter);
}

// GET FILTER
//     Returned value can be NULL if none set.
//
const char *Fl_Native_File_Chooser::filter() const {
  return(_filter);
}

// CLEAR ALL FILTERS
//    Internal use only.
//
void Fl_Native_File_Chooser::clear_filters() {
  _filt_names = strfree(_filt_names);
  for (int i=0; i<_filt_total; i++) {
    _filt_patt[i] = strfree(_filt_patt[i]);
  }
  _filt_total = 0;
}

// PARSE USER'S FILTER SPEC
//    Parses user specified filter ('in'),
//    breaks out into _filt_patt[], _filt_names, and _filt_total.
//
//    Handles:
//    IN:                                   OUT:_filt_names    OUT: _filt_patt
//    ------------------------------------  ------------------ ---------------
//    "*.{ma,mb}"                           "*.{ma,mb} Files"  "*.{ma,mb}"
//    "*.[abc]"                             "*.[abc] Files"    "*.[abc]"
//    "*.txt"                               "*.txt Files"      "*.c"
//    "C Files\t*.[ch]"                     "C Files"          "*.[ch]"
//    "C Files\t*.[ch]\nText Files\t*.cxx"  "C Files"          "*.[ch]"
//
//    Parsing Mode:
//         IN:"C Files\t*.{cxx,h}"
//             |||||||  |||||||||
//       mode: nnnnnnn  wwwwwwwww
//             \_____/  \_______/
//              Name     Wildcard
//
void Fl_Native_File_Chooser::parse_filter(const char *in) {
  clear_filters();
  if ( ! in ) return;
  int has_name = strchr(in, '\t') ? 1 : 0;

  char mode = has_name ? 'n' : 'w';	// parse mode: n=title, w=wildcard
  char wildcard[1024] = "";		// parsed wildcard
  char name[1024] = "";

  // Parse filter user specified
  for ( ; 1; in++ ) {

    //// DEBUG
    //// printf("WORKING ON '%c': mode=<%c> name=<%s> wildcard=<%s>\n",
    ////                    *in,  mode,     name,     wildcard);
    
    switch (*in) {
      // FINISHED PARSING NAME?
      case '\t':
	if ( mode != 'n' ) goto regchar;
	mode = 'w';
	break;

      // ESCAPE NEXT CHAR
      case '\\':
	++in;
	goto regchar;

      // FINISHED PARSING ONE OF POSSIBLY SEVERAL FILTERS?
      case '\r':
      case '\n':
      case '\0':
	// TITLE
	//     If user didn't specify a name, make one
	//
	if ( name[0] == '\0' ) {
	  sprintf(name, "%.*s Files", (int)sizeof(name)-10, wildcard);
	}
	// APPEND NEW FILTER TO LIST
	if ( wildcard[0] ) {
	  // Add to filtername list
	  //     Tab delimit if more than one. We later break
	  //     tab delimited string into CFArray with 
	  //     CFStringCreateArrayBySeparatingStrings()
	  //
	  if ( _filt_total ) {
	      _filt_names = strapp(_filt_names, "\t");
	  }
	  _filt_names = strapp(_filt_names, name);

	  // Add filter to the pattern array
	  _filt_patt[_filt_total++] = strnew(wildcard);
	}
	// RESET
	wildcard[0] = name[0] = '\0';
	mode = strchr(in, '\t') ? 'n' : 'w';
	// DONE?
	if ( *in == '\0' ) return;	// done
	else continue;			// not done yet, more filters

      // Parse all other chars
      default:				// handle all non-special chars
      regchar:				// handle regular char
	switch ( mode ) {
	  case 'n': chrcat(name, *in);     continue;
	  case 'w': chrcat(wildcard, *in); continue;
	}
	break;
    }
  }
  //NOTREACHED
}

#ifndef __APPLE_COCOA__
// STATIC: FILTER CALLBACK
Boolean Fl_Native_File_Chooser::filter_proc_cb(AEDesc *theItem,
					       void *info,
					       void *callBackUD,
					       NavFilterModes filterMode) {
  return((Fl_Native_File_Chooser*)callBackUD)->filter_proc_cb2(theItem,
							       info,
							       callBackUD,
							       filterMode);
}

// FILTER CALLBACK
//     Return true if match,
//            false if no match.
//
Boolean Fl_Native_File_Chooser::filter_proc_cb2(AEDesc *theItem,
						void *info,
						void *callBackUD,
						NavFilterModes filterMode) {
  // All files chosen or no filters
  if ( _filt_value == _filt_total ) return(true);
  
  FSRef fsref;
  char pathname[4096];
  
  // On fail, filter should return true by default
  if ( AEDescToFSRef(theItem, &fsref) != noErr ) {
    return(true);
  }
  FSRefMakePath(&fsref, (UInt8 *)pathname, sizeof(pathname)-1);

  if ( fl_filename_isdir(pathname) ) return(true);
  if ( fl_filename_match(pathname, _filt_patt[_filt_value]) ) return(true);
  else return(false);
}
#endif

// SET PRESET FILE
//     Value can be NULL for none.
//
void Fl_Native_File_Chooser::preset_file(const char* val) {
  _preset_file = strfree(_preset_file);
  _preset_file = strnew(val);
}

// PRESET FILE
//     Returned value can be NULL if none set.
//
const char* Fl_Native_File_Chooser::preset_file() {
  return(_preset_file);
}

#ifdef __APPLE_COCOA__
#import <Cocoa/Cocoa.h>
#define UNLIKELYPREFIX "___fl_very_unlikely_prefix_"
#ifndef MAC_OS_X_VERSION_10_6
#define MAC_OS_X_VERSION_10_6 1060
#endif

int Fl_Native_File_Chooser::get_saveas_basename(void) {
  char *q = strdup( [[(NSSavePanel*)_panel filename] fileSystemRepresentation] );
  id delegate = [(NSSavePanel*)_panel delegate];
  if (delegate != nil) {
    const char *d = [[(NSSavePanel*)_panel directory] fileSystemRepresentation];
    int l = strlen(d) + 1;
    int lu = strlen(UNLIKELYPREFIX);
    // Remove UNLIKELYPREFIX between directory and filename parts
    memmove(q + l, q + l + lu, strlen(q + l + lu) + 1);
  }
  set_single_pathname( q );
  free(q);
  return 0;
}

// SET THE TYPE OF BROWSER
void Fl_Native_File_Chooser::type(int val) {
  _btype = val;
  switch (_btype) {
    case BROWSE_FILE:
    case BROWSE_MULTI_FILE:
    case BROWSE_DIRECTORY:
    case BROWSE_MULTI_DIRECTORY:
      _panel =  [NSOpenPanel openPanel];
      break;	  
    case BROWSE_SAVE_DIRECTORY:
    case BROWSE_SAVE_FILE:
      _panel =  [NSSavePanel savePanel];
      break;
  }
}
  
@interface FLopenDelegate : NSObject 
#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_6
<NSOpenSavePanelDelegate>
#endif
{
  NSPopUpButton *nspopup;
  char **filter_pattern;
}
- (FLopenDelegate*)setPopup:(NSPopUpButton*)popup filter_pattern:(char**)pattern;
- (BOOL)panel:(id)sender shouldShowFilename:(NSString *)filename;
@end
@implementation FLopenDelegate
- (FLopenDelegate*)setPopup:(NSPopUpButton*)popup filter_pattern:(char**)pattern
{
  nspopup = popup;
  filter_pattern = pattern;
  return self;
}
- (BOOL)panel:(id)sender shouldShowFilename:(NSString *)filename
{
  if ( [nspopup indexOfSelectedItem] == [nspopup numberOfItems] - 1) return YES;
  const char *pathname = [filename fileSystemRepresentation];
  if ( fl_filename_isdir(pathname) ) return YES;
  if ( fl_filename_match(pathname, filter_pattern[ [nspopup indexOfSelectedItem] ]) ) return YES;
  return NO;
}
@end

@interface FLsaveDelegate : NSObject 
#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_6
<NSOpenSavePanelDelegate>
#endif
{
}
- (NSString *)panel:(id)sender userEnteredFilename:(NSString *)filename confirmed:(BOOL)okFlag;
@end
@implementation FLsaveDelegate
- (NSString *)panel:(id)sender userEnteredFilename:(NSString *)filename confirmed:(BOOL)okFlag
{
  if (! okFlag) return filename;
  // User has clicked save, and no overwrite confirmation should occur.
  // To get the latter, we need to change the name we return (hence the prefix):
  return [@ UNLIKELYPREFIX stringByAppendingString:filename];
}
@end
  
static NSPopUpButton *createPopupAccessory(NSSavePanel *panel, const char *filter, const char *title, int rank)
{
  NSPopUpButton *popup;
  NSRect rectview = NSMakeRect(5, 5, 350, 30 );
  NSView *view = [[[NSView alloc] initWithFrame:rectview] autorelease];
  NSRect rectbox = NSMakeRect(0, 3, 50, 1 );
  NSBox *box = [[[NSBox alloc] initWithFrame:rectbox] autorelease];
  NSRect rectpop = NSMakeRect(60, 0, 250, 30 );
  popup = [[[NSPopUpButton alloc ] initWithFrame:rectpop pullsDown:NO] autorelease];
  [view addSubview:box];
  [view addSubview:popup];
  [box setBorderType:NSNoBorder];
  NSString *nstitle = [[NSString alloc] initWithUTF8String:title];
  [box setTitle:nstitle];
  [nstitle release];
  NSFont *font = [NSFont controlContentFontOfSize:NSRegularControlSize];
  [box setTitleFont:font];
  [box sizeToFit];
  CFStringRef tab = CFSTR("\n");
  CFStringRef tmp_cfs;
  tmp_cfs = CFStringCreateWithCString(NULL, filter, kCFStringEncodingASCII);
  CFArrayRef array = CFStringCreateArrayBySeparatingStrings(NULL, tmp_cfs, tab);
  CFRelease(tmp_cfs);
  CFRelease(tab);
  [popup addItemsWithTitles:(NSArray*)array];
  NSMenuItem *item = [popup itemWithTitle:@""];
  if (item) [popup removeItemWithTitle:@""];
  CFRelease(array);
  [popup selectItemAtIndex:rank];
  [panel setAccessoryView:view];
  return popup;
}
  
// POST BROWSER
//     Internal use only.
//     Assumes '_opts' has been initialized.
//
//     Returns:
//         0 - user picked a file
//         1 - user cancelled
//        -1 - failed; errmsg() has reason
//     
int Fl_Native_File_Chooser::post() {
  // INITIALIZE BROWSER
  if ( _filt_total == 0 ) {	// Make sure they match
    _filt_value = 0;		// TBD: move to someplace more logical?
  }
  NSAutoreleasePool *localPool;
  localPool = [[NSAutoreleasePool alloc] init];
  int retval;
  NSString *nstitle = [NSString stringWithUTF8String: (_title ? _title : "No Title")];
  [(NSSavePanel*)_panel setTitle:nstitle];
  switch (_btype) {
    case BROWSE_MULTI_FILE:
      [(NSOpenPanel*)_panel setAllowsMultipleSelection:YES];
      break;
    case BROWSE_MULTI_DIRECTORY:
      [(NSOpenPanel*)_panel setAllowsMultipleSelection:YES];
    case BROWSE_DIRECTORY:
      [(NSOpenPanel*)_panel setCanChooseDirectories:YES];
      break;
    case BROWSE_SAVE_DIRECTORY:
      [(NSSavePanel*)_panel setCanCreateDirectories:YES];
      break;
  }
  
  // SHOW THE DIALOG
  if ( [(NSSavePanel*)_panel isKindOfClass:[NSOpenPanel class]] ) {
    NSPopUpButton *popup = nil;
    if (_filt_total) {
      char *p; p = _filter;
      char *q; q = new char[strlen(p) + 1];
      char *r, *s, *t;
      t = q;
      do {	// copy to t what is in _filter removing what is between \t and \n, if any
	r = strchr(p, '\n');
	if (!r) r = p + strlen(p) - 1;
	s = strchr(p, '\t');
	if (s && s < r) { memcpy(q, p, s - p); q += s - p; *(q++) = '\n'; }
	else { memcpy(q, p, r - p + 1); q += r - p + 1; }
	*q = 0;
	p = r + 1;
      } while(*p);
      popup = createPopupAccessory((NSSavePanel*)_panel, t, "Enable:", 0);
      delete t;
      [[popup menu] addItem:[NSMenuItem separatorItem]];
      [popup addItemWithTitle:@"All Documents"];
      [popup setAction:@selector(validateVisibleColumns)];
      [popup setTarget:(NSObject*)_panel];
      static FLopenDelegate *openDelegate = nil;
      if (openDelegate == nil) {
	// not to be ever freed
	openDelegate = [[FLopenDelegate alloc] init];
      }
      [openDelegate setPopup:popup filter_pattern:_filt_patt];
      [(NSOpenPanel*)_panel setDelegate:openDelegate];
    }
    NSString *dir = nil;
    NSString *fname = nil;
    NSString *preset = nil;
    if (_preset_file) {
      preset = [[NSString alloc] initWithUTF8String:_preset_file];
      if (strchr(_preset_file, '/') != NULL) 
	dir = [[NSString alloc] initWithString:[preset stringByDeletingLastPathComponent]];
      fname = [preset lastPathComponent];
    }
    if (_directory && !dir) dir = [[NSString alloc] initWithUTF8String:_directory];
    retval = [(NSOpenPanel*)_panel runModalForDirectory:dir file:fname types:nil];	
    [dir release];
    [preset release];
    if (_filt_total) {
      _filt_value = [popup indexOfSelectedItem];
    }
    if ( retval == NSOKButton ) {
      clear_pathnames();
      NSArray *array = [(NSOpenPanel*)_panel filenames];
      _tpathnames = [array count];
      _pathnames = new char*[_tpathnames];
      for(int i = 0; i < _tpathnames; i++) {
	_pathnames[i] = strnew([(NSString*)[array objectAtIndex:i] fileSystemRepresentation]);
      }
    }
  }
  else {
    NSString *dir = nil;
    NSString *fname = nil;
    NSString *preset = nil;
    NSPopUpButton *popup = nil;
    if ( !(_options & SAVEAS_CONFIRM) ) {
      static FLsaveDelegate *saveDelegate = nil;
      if (saveDelegate == nil)saveDelegate = [[FLsaveDelegate alloc] init]; // not to be ever freed
      [(NSSavePanel*)_panel setDelegate:saveDelegate];
    }
    if (_preset_file) {
      preset = [[NSString alloc] initWithUTF8String:_preset_file];
      if (strchr(_preset_file, '/') != NULL) {
	dir = [[NSString alloc] initWithString:[preset stringByDeletingLastPathComponent]];
      }
      fname = [preset lastPathComponent];
    }
    if (_directory && !dir) dir = [[NSString alloc] initWithUTF8String:_directory];
    if (_filt_total) {
      popup = createPopupAccessory((NSSavePanel*)_panel, _filter, "Format:", _filt_value);
    }
    retval = [(NSSavePanel*)_panel runModalForDirectory:dir file:fname];
    if (_filt_total) {
      _filt_value = [popup indexOfSelectedItem];
    }
    [dir release];
    [preset release];
    if ( retval == NSOKButton ) get_saveas_basename();
  }
  [localPool release];
  return (retval == NSOKButton ? 0 : 1);
}

#endif //__APPLE_COCOA__
#endif /*!FL_DOXYGEN*/

//
// End of "$Id$".
//