Skip to content
Permalink
master
Switch branches/tags

oricutron/filereq_sdl.c

Go to file
 
 
Cannot retrieve contributors at this time
752 lines (663 sloc) 20.9 KB
Raw Blame
/*
** Oricutron
** Copyright (C) 2009-2014 Peter Gordon
**
** This program is free software; you can redistribute it and/or
** modify it under the terms of the GNU General Public License
** as published by the Free Software Foundation, version 2
** of the License.
**
** This program 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 General Public License for more details.
**
** You should have received a copy of the GNU General Public License
** along with this program; if not, write to the Free Software
** Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
**
** SDL based file requester
*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#ifndef _MSC_VER
#include <dirent.h>
#else
#include "msvc/dirent.h"
#endif
#include <sys/stat.h>
#include "system.h"
#include "6502.h"
#include "via.h"
#include "8912.h"
#include "gui.h"
#include "disk.h"
#include "monitor.h"
#include "6551.h"
#include "machine.h"
#include "filereq.h"
// Externs
extern SDL_Surface *screen;
extern struct textzone *tz[NUM_TZ];
// A directory entry in the file requester
struct frq_ent
{
char name[512];
char showname[40];
SDL_bool isdir;
};
// A text input box (used in the file requester)
struct frq_textbox
{
char *buf;
int x, y, w;
int maxlen, slen, cpos, vpos;
};
// The actual text box structures used by the file requester
static struct frq_textbox freqf_tbox[] = { { NULL, 7, 28, 32, 4096, 0, 0, 0 },
{ NULL, 7, 30, 32, 512, 0, 0, 0 } };
// File requester state
static int freqf_size=0, freqf_used=0, freqf_cgad=2;
static struct frq_ent *freqfiles=NULL;
static int freqf_clicktime=0;
SDL_bool init_filerequester( struct machine *oric )
{
if( !alloc_textzone( oric, TZ_FILEREQ, 160, 48, 40, 32, "Files" ) ) return SDL_FALSE;
return SDL_TRUE;
}
void shut_filerequester( struct machine *oric )
{
free_textzone( oric, TZ_FILEREQ );
}
// Render the filerequester
static void filereq_render( struct machine *oric )
{
oric->render_begin( oric );
oric->render_video( oric, SDL_TRUE );
oric->render_textzone( oric, TZ_FILEREQ );
oric->render_end( oric );
}
// Add a file to the list of files to show in the file requester
static void filereq_addent( SDL_bool isdir, char *name, char *showname )
{
struct frq_ent *tmpf;
int i, j;
// No file buffer yet, or file buffer full?
if( ( !freqfiles ) || ( freqf_used >= freqf_size ) )
{
// (re)allocate it!
tmpf = (struct frq_ent *)realloc( freqfiles, sizeof( struct frq_ent ) * (freqf_size+8) );
if( !tmpf ) return;
freqfiles = tmpf;
freqf_size += 8;
}
// Get the point to insert it
j = 0;
if( freqf_used > 0 )
{
if( isdir )
{
for( j=1; j<freqf_used; j++ )
{
if( strcasecmp( name, freqfiles[j].name ) <= 0 ) break;
if( !freqfiles[j].isdir ) break;
}
} else {
for( j=1; j<freqf_used; j++ )
if( !freqfiles[j].isdir ) break;
for( ; j<freqf_used; j++ )
if( strcasecmp( name, freqfiles[j].name ) <= 0 ) break;
}
// Move everything down to make space
if( j < freqf_used )
{
for( i=freqf_used; i>j; i-- )
freqfiles[i] = freqfiles[i-1];
}
}
// Fill in this structure
freqfiles[j].isdir = isdir;
strncpy( freqfiles[j].name, name, 512 );
strncpy( freqfiles[j].showname, showname, 38 );
freqfiles[j].name[511] = 0;
freqfiles[j].showname[37] = 0;
// I dun it!!11
freqf_used++;
}
// Scan a directory to show in the filerequester
static SDL_bool filereq_scan( char *path )
{
DIR *dh;
struct dirent *de;
struct stat sb;
char *odir, *tpath;
tpath = path;
#ifndef __amigaos4__
if( !path[0] )
tpath = ".";
#endif
freqf_used = 0;
dh = opendir( tpath );
if( !dh ) return SDL_FALSE;
odir = getcwd( NULL, 0 );
chdir( tpath );
filereq_addent( SDL_TRUE, "", "[Parent]" );
while( ( de = readdir( dh ) ) )
{
if( ( strcmp( de->d_name, "." ) == 0 ) ||
( strcmp( de->d_name, ".." ) == 0 ) )
continue;
stat( de->d_name, &sb );
filereq_addent( S_ISDIR(sb.st_mode), de->d_name, de->d_name );
}
closedir( dh );
chdir( odir );
free( odir );
return SDL_TRUE;
}
// Render the file list into the filerequester textzone
static void filereq_showfiles( int offset, int cfile )
{
int i, j, o;
// If the listview isn't selected, don't show a current file
if( freqf_cgad != 2 )
cfile = -1;
for( i=0; i<26; i++ )
{
// Set the colours
if( (i+offset) < freqf_used )
tzsetcol( tz[TZ_FILEREQ], freqfiles[i+offset].isdir ? 1 : 0, (i+offset)==cfile ? 7 : 6 );
else
tzsetcol( tz[TZ_FILEREQ], 0, 6 );
// Clear this line
o = (i+1)*tz[TZ_FILEREQ]->w+1;
for( j=0; j<38; j++, o++ )
{
tz[TZ_FILEREQ]->fc[o] = tz[TZ_FILEREQ]->cfc;
tz[TZ_FILEREQ]->bc[o] = tz[TZ_FILEREQ]->cbc;
tz[TZ_FILEREQ]->tx[o] = 32;
}
if( (i+offset) >= freqf_used )
continue;
// Print the name
tzstrpos( tz[TZ_FILEREQ], 1, i+1, freqfiles[i+offset].showname );
}
}
// Set a filerequester textbox contents to the specified string
static void filereq_settbox( struct frq_textbox *tb, char *buf )
{
// Set up the buffer
tb->buf = buf;
tb->slen = strlen( buf );
// Make sure the cursor is in view
tb->cpos = tb->slen;
tb->vpos = tb->slen > (tb->w-1) ? tb->slen-(tb->w-1) : 0;
}
// Draw a textbox into the filerequester textzone
static void filereq_drawtbox( struct frq_textbox *tb, SDL_bool active )
{
int i, j, o;
tzsetcol( tz[TZ_FILEREQ], 0, active ? 7 : 6 );
o = (tb->y*tz[TZ_FILEREQ]->w)+tb->x;
for( i=0,j=tb->vpos; i<tb->w; i++, o++, j++ )
{
if( ( active ) && ( j==tb->cpos ) )
{
tz[TZ_FILEREQ]->fc[o] = tz[TZ_FILEREQ]->cbc;
tz[TZ_FILEREQ]->bc[o] = tz[TZ_FILEREQ]->cfc;
} else {
tz[TZ_FILEREQ]->fc[o] = tz[TZ_FILEREQ]->cfc;
tz[TZ_FILEREQ]->bc[o] = tz[TZ_FILEREQ]->cbc;
}
if( j < tb->slen )
tz[TZ_FILEREQ]->tx[o] = tb->buf[j];
else
tz[TZ_FILEREQ]->tx[o] = 32;
}
}
// This sets the file textbox to the currently highlighted file
// It also stores the filename in "fname"
static void filereq_setfiletbox( int cfile, char *fname )
{
if( ( cfile < 0 ) || ( cfile >= freqf_used ) ||
( freqfiles[cfile].isdir ) )
{
fname[0] = 0;
freqf_tbox[1].cpos=0;
freqf_tbox[1].vpos=0;
freqf_tbox[1].slen=0;
return;
}
strncpy( fname, freqfiles[cfile].name, 512 );
fname[511] = 0;
filereq_settbox( &freqf_tbox[1], fname );
}
enum
{
ACTION_NONE = 0,
ACTION_SELECTITEM,
ACTION_PAGEUP,
ACTION_PAGEDOWN
};
// This routine displays a file requester and waits for the user to select a file
// title = title at the top of the requester
// path = initial path to show
// fname = initial contents of the filename textbox
// It returns true if the user selected a file, although the file is not
// guarranteed to exist.
SDL_bool filerequester( struct machine *oric, char *title, char *path, char *fname, int type )
{
SDL_Event event;
struct frq_textbox *tb;
int top=0,cfile=0,i,mx,my,mclick;
SDL_bool shifty = SDL_FALSE, wasunicode;
int doaction;
wasunicode = SDL_COMPAT_EnableUNICODE( SDL_TRUE );
SDL_COMPAT_EnableKeyRepeat( SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL );
filereq_settbox( &freqf_tbox[0], path );
filereq_settbox( &freqf_tbox[1], fname );
tzsettitle( tz[TZ_FILEREQ], title );
tzsetcol( tz[TZ_FILEREQ], 2, 3 );
tzstrpos( tz[TZ_FILEREQ], 1, 28, "Path:" );
tzstrpos( tz[TZ_FILEREQ], 1, 30, "File:" );
if( !filereq_scan( path ) )
{
if( path[0] )
{
path[0] = 0;
filereq_settbox( &freqf_tbox[0], path );
if( !filereq_scan( path ) )
{
SDL_COMPAT_EnableUNICODE( wasunicode );
SDL_COMPAT_EnableKeyRepeat( wasunicode ? SDL_DEFAULT_REPEAT_DELAY : 0, wasunicode ? SDL_DEFAULT_REPEAT_INTERVAL : 0 );
return SDL_FALSE;
}
} else {
SDL_COMPAT_EnableUNICODE( wasunicode );
SDL_COMPAT_EnableKeyRepeat( wasunicode ? SDL_DEFAULT_REPEAT_DELAY : 0, wasunicode ? SDL_DEFAULT_REPEAT_INTERVAL : 0 );
return SDL_FALSE;
}
}
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
for( ;; )
{
if( !SDL_WaitEvent( &event ) )
break;
mx = -1;
my = -1;
mclick = 0;
doaction = ACTION_NONE;
switch( event.type )
{
case SDL_MOUSEMOTION:
mx = (event.motion.x - tz[TZ_FILEREQ]->x)/8;
my = (event.motion.y - tz[TZ_FILEREQ]->y)/12;
break;
case SDL_MOUSEBUTTONDOWN:
if( event.button.button == SDL_BUTTON_LEFT )
{
mx = (event.button.x - tz[TZ_FILEREQ]->x)/8;
my = (event.button.y - tz[TZ_FILEREQ]->y)/12;
mclick = SDL_GetTicks();
}
break;
}
switch( event.type )
{
case SDL_COMPAT_ACTIVEEVENT:
if(SDL_COMPAT_IsAppFocused( &event ) ) {
filereq_render( oric );
}
break;
case SDL_MOUSEBUTTONDOWN:
if( ( mx < 1 ) || ( mx > 38 ) )
break;
if( ( my == 28 ) || ( my == 30 ) )
{
freqf_cgad = (my-28)/2;
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
break;
}
if( ( my < 1 ) || ( my > 26 ) )
break;
freqf_cgad = 2;
i = (my-1)-top;
if( i >= freqf_used ) i = freqf_used-1;
if( cfile != i )
{
cfile = i;
filereq_setfiletbox( cfile, fname );
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[1], 0 );
filereq_render( oric );
freqf_clicktime = mclick;
break;
}
if( ( freqf_clicktime == 0 ) ||
( (mclick-freqf_clicktime) >= 2000 ) )
{
freqf_clicktime = mclick;
break;
}
freqf_clicktime = 0;
doaction = ACTION_SELECTITEM;
break;
case SDL_KEYUP:
switch( event.key.keysym.sym )
{
case SDLK_LSHIFT:
case SDLK_RSHIFT:
shifty = SDL_FALSE;
break;
case SDLK_ESCAPE:
SDL_COMPAT_EnableUNICODE( wasunicode );
SDL_COMPAT_EnableKeyRepeat( wasunicode ? SDL_DEFAULT_REPEAT_DELAY : 0, wasunicode ? SDL_DEFAULT_REPEAT_INTERVAL : 0 );
return SDL_FALSE;
case SDLK_RETURN:
case SDLK_KP_ENTER:
switch( freqf_cgad )
{
case 0:
cfile = top = 0;
if( !filereq_scan( path ) )
{
if( path[0] )
{
path[0] = 0;
filereq_settbox( &freqf_tbox[0], path );
if( !filereq_scan( path ) )
{
SDL_COMPAT_EnableUNICODE( wasunicode );
SDL_COMPAT_EnableKeyRepeat( wasunicode ? SDL_DEFAULT_REPEAT_DELAY : 0, wasunicode ? SDL_DEFAULT_REPEAT_INTERVAL : 0 );
return SDL_FALSE;
}
} else {
SDL_COMPAT_EnableUNICODE( wasunicode );
SDL_COMPAT_EnableKeyRepeat( wasunicode ? SDL_DEFAULT_REPEAT_DELAY : 0, wasunicode ? SDL_DEFAULT_REPEAT_INTERVAL : 0 );
return SDL_FALSE;
}
}
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
break;
case 1:
SDL_COMPAT_EnableUNICODE( wasunicode );
SDL_COMPAT_EnableKeyRepeat( wasunicode ? SDL_DEFAULT_REPEAT_DELAY : 0, wasunicode ? SDL_DEFAULT_REPEAT_INTERVAL : 0 );
return SDL_TRUE;
case 2:
doaction = ACTION_SELECTITEM;
break;
}
break;
default:
break;
}
break;
case SDL_KEYDOWN:
switch( event.key.keysym.sym )
{
case SDLK_LSHIFT:
case SDLK_RSHIFT:
shifty = SDL_TRUE;
break;
case SDLK_TAB:
if( shifty )
freqf_cgad = (freqf_cgad+2)%3;
else
freqf_cgad = (freqf_cgad+1)%3;
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
break;
case SDLK_UP:
if( freqf_cgad != 2 )
{
freqf_cgad = 2;
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
break;
}
if( cfile <= 0 ) break;
if( shifty )
{
doaction = ACTION_PAGEUP;
break;
}
cfile--;
if( cfile < top ) top = cfile;
filereq_setfiletbox( cfile, fname );
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[1], SDL_FALSE );
filereq_render( oric );
break;
case SDLK_DOWN:
if( freqf_cgad != 2 )
{
freqf_cgad = 2;
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
break;
}
if( cfile >= (freqf_used-1) ) break;
if( shifty )
{
doaction = ACTION_PAGEDOWN;
break;
}
cfile++;
if( cfile > (top+25) ) top = cfile-25;
filereq_setfiletbox( cfile, fname );
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[1], SDL_FALSE );
filereq_render( oric );
break;
case SDLK_PAGEUP:
if( freqf_cgad != 2 )
{
freqf_cgad = 2;
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
break;
}
doaction = ACTION_PAGEUP;
break;
case SDLK_PAGEDOWN:
if( freqf_cgad != 2 )
{
freqf_cgad = 2;
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
break;
}
doaction = ACTION_PAGEDOWN;
break;
case SDLK_BACKSPACE:
if( freqf_cgad == 2 ) break;
tb = &freqf_tbox[freqf_cgad];
if( tb->cpos < 1 ) break;
for( i=tb->cpos-1; i<tb->slen; i++ )
tb->buf[i] = tb->buf[i+1];
tb->slen--;
if( tb->slen < 0 )
{
tb->slen = 0;
tb->cpos = 0;
}
case SDLK_LEFT:
if( freqf_cgad == 2 ) break;
tb = &freqf_tbox[freqf_cgad];
if( tb->cpos > 0 ) tb->cpos--;
if( tb->cpos < tb->vpos ) tb->vpos = tb->cpos;
if( tb->cpos >= (tb->vpos+tb->w) ) tb->vpos = tb->cpos-(tb->w-1);
if( tb->vpos < 0 ) tb->vpos = 0;
filereq_drawtbox( tb, SDL_TRUE );
filereq_render( oric );
break;
case SDLK_RIGHT:
if( freqf_cgad == 2 ) break;
tb = &freqf_tbox[freqf_cgad];
if( tb->cpos < tb->slen ) tb->cpos++;
if( tb->cpos < tb->vpos ) tb->vpos = tb->cpos;
if( tb->cpos >= (tb->vpos+tb->w) ) tb->vpos = tb->cpos-(tb->w-1);
if( tb->vpos < 0 ) tb->vpos = 0;
filereq_drawtbox( tb, SDL_TRUE );
filereq_render( oric );
break;
case SDLK_DELETE:
if( freqf_cgad == 2 ) break;
tb = &freqf_tbox[freqf_cgad];
if( tb->cpos >= tb->slen ) break;
for( i=tb->cpos; i<tb->slen; i++ )
tb->buf[i] = tb->buf[i+1];
tb->slen--;
if( tb->slen < 0 )
{
tb->slen = 0;
tb->cpos = 0;
}
filereq_drawtbox( tb, SDL_TRUE );
filereq_render( oric );
break;
default:
break;
}
switch( SDL_COMPAT_GetKeysymUnicode( event.key.keysym ) )
{
default:
if( freqf_cgad == 2 ) break;
if( ( SDL_COMPAT_GetKeysymUnicode( event.key.keysym ) > 31 ) && ( SDL_COMPAT_GetKeysymUnicode( event.key.keysym ) < 127 ) )
{
tb = &freqf_tbox[freqf_cgad];
if( tb->slen >= (tb->maxlen-1) ) break;
for( i=tb->slen; i>=tb->cpos; i-- )
tb->buf[i] = tb->buf[i-1];
tb->buf[tb->cpos] = SDL_COMPAT_GetKeysymUnicode( event.key.keysym );
tb->slen++;
tb->cpos++;
tb->buf[tb->cpos] = 0;
if( tb->cpos < tb->vpos ) tb->vpos = tb->cpos;
if( tb->cpos >= (tb->vpos+tb->w) ) tb->vpos = tb->cpos-(tb->w-1);
if( tb->vpos < 0 ) tb->vpos = 0;
filereq_drawtbox( tb, SDL_TRUE );
filereq_render( oric );
}
break;
}
break;
case SDL_QUIT:
setemumode( oric, NULL, EM_PLEASEQUIT );
return SDL_FALSE;
default:
break;
}
switch( doaction )
{
case ACTION_PAGEUP:
if( cfile > top )
{
cfile = top;
} else {
top -= 25;
if( top < 0 ) top = 0;
cfile = top;
}
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
break;
case ACTION_PAGEDOWN:
if( cfile < (top+25) )
{
cfile = top+25;
} else {
cfile += 25;
}
if( cfile > (freqf_used-1) ) cfile = freqf_used-1;
top = cfile-25;
if( top < 0 ) top = 0;
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
break;
case ACTION_SELECTITEM:
if( freqf_used <= 0 ) break;
if( cfile<=0 ) // Parent
{
i = strlen( path )-1;
if( i<=0 ) break;
if( path[i] == PATHSEP ) i--;
while( i > -1 )
{
if( path[i] == PATHSEP ) break;
i--;
}
if( i==-1 ) i++;
path[i] = 0;
} else if( freqfiles[cfile].isdir ) {
i = strlen( path )-1;
if( i < 0 )
{
i++;
} else {
if( path[i] != PATHSEP )
i++;
}
if( i > 0 ) path[i++] = PATHSEP;
strncpy( &path[i], freqfiles[cfile].name, 4096-i );
path[4095] = 0;
} else {
SDL_COMPAT_EnableUNICODE( wasunicode );
SDL_COMPAT_EnableKeyRepeat( wasunicode ? SDL_DEFAULT_REPEAT_DELAY : 0, wasunicode ? SDL_DEFAULT_REPEAT_INTERVAL : 0 );
return SDL_TRUE;
}
cfile = top = 0;
filereq_settbox( &freqf_tbox[0], path );
if( !filereq_scan( path ) )
{
if( path[0] )
{
path[0] = 0;
filereq_settbox( &freqf_tbox[0], path );
if( !filereq_scan( path ) )
{
SDL_COMPAT_EnableUNICODE( wasunicode );
SDL_COMPAT_EnableKeyRepeat( wasunicode ? SDL_DEFAULT_REPEAT_DELAY : 0, wasunicode ? SDL_DEFAULT_REPEAT_INTERVAL : 0 );
return SDL_FALSE;
}
} else {
SDL_COMPAT_EnableUNICODE( wasunicode );
SDL_COMPAT_EnableKeyRepeat( wasunicode ? SDL_DEFAULT_REPEAT_DELAY : 0, wasunicode ? SDL_DEFAULT_REPEAT_INTERVAL : 0 );
return SDL_FALSE;
}
}
filereq_showfiles( top, cfile );
filereq_drawtbox( &freqf_tbox[0], freqf_cgad==0 );
filereq_drawtbox( &freqf_tbox[1], freqf_cgad==1 );
filereq_render( oric );
break;
}
}
SDL_COMPAT_EnableUNICODE( wasunicode );
SDL_COMPAT_EnableKeyRepeat( wasunicode ? SDL_DEFAULT_REPEAT_DELAY : 0, wasunicode ? SDL_DEFAULT_REPEAT_INTERVAL : 0 );
return SDL_FALSE;
}