MY_DIR *my_dir(const char *path, myf MyFlags)
{
char *buffer;
MY_DIR *result= 0;
FILEINFO finfo;
DYNAMIC_ARRAY *dir_entries_storage;
MEM_ROOT *names_storage;
DIR *dirp;
char tmp_path[FN_REFLEN + 2], *tmp_file;
const struct dirent *dp;
DBUG_ENTER("my_dir");
DBUG_PRINT("my",("path: '%s' MyFlags: %d",path,MyFlags));
dirp = opendir(directory_file_name(tmp_path,(char *) path));
if (dirp == NULL ||
! (buffer= my_malloc(key_memory_MY_DIR,
ALIGN_SIZE(sizeof(MY_DIR)) +
ALIGN_SIZE(sizeof(DYNAMIC_ARRAY)) +
sizeof(MEM_ROOT), MyFlags)))
goto error;
dir_entries_storage= (DYNAMIC_ARRAY*)(buffer + ALIGN_SIZE(sizeof(MY_DIR)));
names_storage= (MEM_ROOT*)(buffer + ALIGN_SIZE(sizeof(MY_DIR)) +
ALIGN_SIZE(sizeof(DYNAMIC_ARRAY)));
if (my_init_dynamic_array(dir_entries_storage,
key_memory_MY_DIR,
sizeof(FILEINFO),
NULL, /* init_buffer */
ENTRIES_START_SIZE, ENTRIES_INCREMENT))
{
my_free(buffer);
goto error;
}
init_alloc_root(key_memory_MY_DIR, names_storage, NAMES_START_SIZE, NAMES_START_SIZE);
/* MY_DIR structure is allocated and completly initialized at this point */
result= (MY_DIR*)buffer;
tmp_file=strend(tmp_path);
for (dp= readdir(dirp) ; dp; dp= readdir(dirp))
{
if (!(finfo.name= strdup_root(names_storage, dp->d_name)))
goto error;
if (MyFlags & MY_WANT_STAT)
{
if (!(finfo.mystat= (MY_STAT*)alloc_root(names_storage,
sizeof(MY_STAT))))
goto error;
memset(finfo.mystat, 0, sizeof(MY_STAT));
(void) my_stpcpy(tmp_file,dp->d_name);
(void) my_stat(tmp_path, finfo.mystat, MyFlags);
if (!(finfo.mystat->st_mode & MY_S_IREAD))
continue;
}
else
finfo.mystat= NULL;
if (insert_dynamic(dir_entries_storage, (uchar*)&finfo))
goto error;
}
(void) closedir(dirp);
result->dir_entry= (FILEINFO *)dir_entries_storage->buffer;
result->number_off_files= dir_entries_storage->elements;
if (!(MyFlags & MY_DONT_SORT))
my_qsort((void *) result->dir_entry, result->number_off_files,
sizeof(FILEINFO), (qsort_cmp) comp_names);
DBUG_RETURN(result);
error:
set_my_errno(errno);
if (dirp)
(void) closedir(dirp);
my_dirend(result);
if (MyFlags & (MY_FAE | MY_WME))
{
char errbuf[MYSYS_STRERROR_SIZE];
my_error(EE_DIR, MYF(0), path,
my_errno(), my_strerror(errbuf, sizeof(errbuf), my_errno()));
}
DBUG_RETURN((MY_DIR *) NULL);
} /* my_dir */
void neko_init_builtins() {
neko_builtins = alloc_root(2);
neko_builtins[0] = alloc_object(NULL);
neko_builtins[1] = alloc_function(builtin_print,VAR_ARGS,"$print");
BUILTIN(print,VAR_ARGS);
BUILTIN(array,VAR_ARGS);
BUILTIN(amake,1);
BUILTIN(acopy,1);
BUILTIN(asize,1);
BUILTIN(asub,3);
BUILTIN(ablit,5);
BUILTIN(aconcat,1);
BUILTIN(smake,1);
BUILTIN(ssize,1);
BUILTIN(scopy,1);
BUILTIN(ssub,3);
BUILTIN(sget,2);
BUILTIN(sset,3);
BUILTIN(sblit,5);
BUILTIN(sfind,3);
BUILTIN(new,1);
BUILTIN(objget,2);
BUILTIN(objset,3);
BUILTIN(objcall,3);
BUILTIN(objfield,2);
BUILTIN(objremove,2);
BUILTIN(objfields,1);
BUILTIN(hash,1);
BUILTIN(fasthash,1);
BUILTIN(field,1);
BUILTIN(objsetproto,2);
BUILTIN(objgetproto,1);
BUILTIN(int,1);
BUILTIN(float,1);
BUILTIN(string,1);
BUILTIN(typeof,1);
BUILTIN(closure,VAR_ARGS);
BUILTIN(apply,VAR_ARGS);
BUILTIN(varargs,1);
BUILTIN(compare,2);
BUILTIN(pcompare,2);
BUILTIN(not,1);
BUILTIN(throw,1);
BUILTIN(rethrow,1);
BUILTIN(nargs,1);
BUILTIN(call,3);
BUILTIN(isnan,1);
BUILTIN(isinfinite,1);
BUILTIN(istrue,1);
BUILTIN(getkind,1);
BUILTIN(iskind,2);
BUILTIN(hnew,1);
BUILTIN(hget,3);
BUILTIN(hmem,3);
BUILTIN(hset,4);
BUILTIN(hadd,3);
BUILTIN(hremove,3);
BUILTIN(hresize,2);
BUILTIN(hkey,1);
BUILTIN(hcount,1);
BUILTIN(hsize,1);
BUILTIN(hiter,2);
BUILTIN(iadd,2);
BUILTIN(isub,2);
BUILTIN(imult,2);
BUILTIN(idiv,2);
BUILTIN(excstack,0);
BUILTIN(callstack,0);
BUILTIN(version,0);
BUILTIN(setresolver,1);
}
MY_DIR *my_dir(const char *path, myf MyFlags)
{
char *buffer;
MY_DIR *result= 0;
FILEINFO finfo;
DYNAMIC_ARRAY *dir_entries_storage;
MEM_ROOT *names_storage;
struct _finddata_t find;
ushort mode;
char tmp_path[FN_REFLEN],*tmp_file,attrib;
#ifdef _WIN64
__int64 handle;
#else
long handle;
#endif
DBUG_ENTER("my_dir");
DBUG_PRINT("my",("path: '%s' stat: %d MyFlags: %d",path,MyFlags));
/* Put LIB-CHAR as last path-character if not there */
tmp_file=tmp_path;
if (!*path)
*tmp_file++ ='.'; /* From current dir */
tmp_file= my_stpnmov(tmp_file, path, FN_REFLEN-5);
if (tmp_file[-1] == FN_DEVCHAR)
*tmp_file++= '.'; /* From current dev-dir */
if (tmp_file[-1] != FN_LIBCHAR)
*tmp_file++ =FN_LIBCHAR;
tmp_file[0]='*'; /* Windows needs this !??? */
tmp_file[1]='.';
tmp_file[2]='*';
tmp_file[3]='\0';
if (!(buffer= my_malloc(key_memory_MY_DIR,
ALIGN_SIZE(sizeof(MY_DIR)) +
ALIGN_SIZE(sizeof(DYNAMIC_ARRAY)) +
sizeof(MEM_ROOT), MyFlags)))
goto error;
dir_entries_storage= (DYNAMIC_ARRAY*)(buffer + ALIGN_SIZE(sizeof(MY_DIR)));
names_storage= (MEM_ROOT*)(buffer + ALIGN_SIZE(sizeof(MY_DIR)) +
ALIGN_SIZE(sizeof(DYNAMIC_ARRAY)));
if (my_init_dynamic_array(dir_entries_storage,
key_memory_MY_DIR,
sizeof(FILEINFO),
NULL, /* init_buffer */
ENTRIES_START_SIZE, ENTRIES_INCREMENT))
{
my_free(buffer);
goto error;
}
init_alloc_root(key_memory_MY_DIR, names_storage, NAMES_START_SIZE, NAMES_START_SIZE);
/* MY_DIR structure is allocated and completly initialized at this point */
result= (MY_DIR*)buffer;
if ((handle=_findfirst(tmp_path,&find)) == -1L)
{
DBUG_PRINT("info", ("findfirst returned error, errno: %d", errno));
if (errno != EINVAL)
goto error;
/*
Could not read the directory, no read access.
Probably because by "chmod -r".
continue and return zero files in dir
*/
}
else
{
do
{
attrib= find.attrib;
/*
Do not show hidden and system files which Windows sometimes create.
Note. Because Borland's findfirst() is called with the third
argument = 0 hidden/system files are excluded from the search.
*/
if (attrib & (_A_HIDDEN | _A_SYSTEM))
continue;
if (!(finfo.name= strdup_root(names_storage, find.name)))
goto error;
if (MyFlags & MY_WANT_STAT)
{
if (!(finfo.mystat= (MY_STAT*)alloc_root(names_storage,
sizeof(MY_STAT))))
goto error;
memset(finfo.mystat, 0, sizeof(MY_STAT));
finfo.mystat->st_size=find.size;
mode= MY_S_IREAD;
if (!(attrib & _A_RDONLY))
mode|= MY_S_IWRITE;
if (attrib & _A_SUBDIR)
mode|= MY_S_IFDIR;
finfo.mystat->st_mode= mode;
finfo.mystat->st_mtime= ((uint32) find.time_write);
}
else
finfo.mystat= NULL;
if (insert_dynamic(dir_entries_storage, (uchar*)&finfo))
goto error;
}
while (_findnext(handle,&find) == 0);
_findclose(handle);
}
result->dir_entry= (FILEINFO *)dir_entries_storage->buffer;
result->number_off_files= dir_entries_storage->elements;
if (!(MyFlags & MY_DONT_SORT))
my_qsort((void *) result->dir_entry, result->number_off_files,
sizeof(FILEINFO), (qsort_cmp) comp_names);
DBUG_PRINT("exit", ("found %d files", result->number_off_files));
DBUG_RETURN(result);
error:
set_my_errno(errno);
if (handle != -1)
_findclose(handle);
my_dirend(result);
if (MyFlags & MY_FAE+MY_WME)
{
char errbuf[MYSYS_STRERROR_SIZE];
my_error(EE_DIR, MYF(0), path,
errno, my_strerror(errbuf, sizeof(errbuf), errno));
}
DBUG_RETURN((MY_DIR *) NULL);
} /* my_dir */
