update to latest swi console code
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
/* $Id: complete.c,v 1.1 2008-03-27 00:41:33 vsc Exp $
|
||||
/* $Id$
|
||||
|
||||
Part of SWI-Prolog
|
||||
|
||||
@@ -19,21 +19,21 @@
|
||||
|
||||
You should have received a copy of the GNU Lesser 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
|
||||
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
*/
|
||||
|
||||
#include <windows.h>
|
||||
#include <tchar.h>
|
||||
#include "console.h"
|
||||
|
||||
#ifndef __TCHAR_DEFINED
|
||||
typedef wint_t _TINT;
|
||||
#endif
|
||||
|
||||
#ifndef EOS
|
||||
#define EOS 0
|
||||
#endif
|
||||
|
||||
#ifndef _TINT
|
||||
typedef wint_t _TINT;
|
||||
#endif
|
||||
|
||||
static TCHAR *completion_chars = TEXT("~:\\/-.");
|
||||
|
||||
static size_t
|
||||
@@ -77,7 +77,7 @@ rlc_complete_file_function(RlcCompleteData data)
|
||||
|
||||
for( ; n < ln->point; n++)
|
||||
{ int c = ln->data[n];
|
||||
|
||||
|
||||
if ( c == '/' )
|
||||
c = '\\';
|
||||
if ( c == '\\' )
|
||||
@@ -108,7 +108,7 @@ rlc_complete_file_function(RlcCompleteData data)
|
||||
{ _tcscpy(data->candidate, fdata.cFileName);
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
|
Reference in New Issue
Block a user