int fs64_openfind_g (uchar *path, uchar *glob, fs64_direntry * de, int *dt, int *ds) {
/* int i; */
/* Do a normal search, then check the returned de to ensure it is
valid in-terms of the globs */
/* parse glob string in */
parse_glob (de->glob, glob);
/* ok, fire things up as usual */
/* Determine what media type the source object is
(media_D64,media_D71,media_D81,media_DHD media_UFS or media_T64 )
*/
strcpy ((char*)de->path, (char*)path);
de->filesys.media = fs64_mediatype (path);
/* FILESYSTEM_SPECIFIC */
switch (de->filesys.media) {
case media_NOTFS:
case media_BAD:
{
/* Bad/missing media = missing directory */
/* 39, FILE NOT FOUND,00,00 */
debug_msg ("Bad/missing media\n");
set_error (39, 0, 0);
return (-1); /* no entry got */
}
case media_UFS:
return (fs_ufs_openfind (de, path));
break;
case media_D64:
case media_D71:
case media_D81:
case media_DHD:
return (fs_dxx_openfind (de, path, dt, ds));
break;
case media_T64:
return (fs_t64_openfind (de, path));
break;
case media_LNX:
return (fs_lnx_openfind (de, path));
break;
case media_NET:
return (fs_net_openfind (de, path));
break;
default:
/* unknown media */
/* 74,DRIVE NOT READY,00,00 */
set_error (74, 0, 0);
/* for(i=0;i<17;i++)
if (de->glob[i]) free(de->glob[i]); */
return (-1);
}
}
void analyse_codes(const char *str, int *i, t_text *text, t_bunny_position *pos)
{
int *recup;
int move;
int idx;
move = get_all_codes(str, *i, &recup);
if (move == 0 || recup == NULL)
return ;
idx = -1;
while (++idx < *recup)
parse_glob(recup, idx, text);
pos[2].x -= 6 * 3;
*i += move;
bunny_free(recup);
}
int wordexp(const char *words, wordexp_t * we, int flags)
{
size_t words_offset;
size_t word_length;
size_t max_length;
char *word = w_newword(&word_length, &max_length);
int error;
char *ifs;
char ifs_white[4];
wordexp_t old_word = *we;
if (flags & WRDE_REUSE) {
/* Minimal implementation of WRDE_REUSE for now */
wordfree(we);
old_word.we_wordv = NULL;
}
if ((flags & WRDE_APPEND) == 0) {
we->we_wordc = 0;
if (flags & WRDE_DOOFFS) {
we->we_wordv = calloc(1 + we->we_offs, sizeof(char *));
if (we->we_wordv == NULL) {
error = WRDE_NOSPACE;
goto do_error;
}
} else {
we->we_wordv = calloc(1, sizeof(char *));
if (we->we_wordv == NULL) {
error = WRDE_NOSPACE;
goto do_error;
}
we->we_offs = 0;
}
}
/* Find out what the field separators are.
* There are two types: whitespace and non-whitespace.
*/
ifs = getenv("IFS");
if (!ifs)
/* IFS unset - use <space><tab><newline>. */
ifs = strcpy(ifs_white, " \t\n");
else {
char *ifsch = ifs;
char *whch = ifs_white;
/* Start off with no whitespace IFS characters */
ifs_white[0] = '\0';
while (*ifsch != '\0') {
if ((*ifsch == ' ') || (*ifsch == '\t') || (*ifsch == '\n')) {
/* Whitespace IFS. See first whether it is already in our
collection. */
char *runp = ifs_white;
while (runp < whch && *runp != '\0' && *runp != *ifsch)
++runp;
if (runp == whch)
*whch++ = *ifsch;
}
++ifsch;
}
*whch = '\0';
}
for (words_offset = 0; words[words_offset]; ++words_offset)
switch (words[words_offset]) {
case '\\':
error = parse_backslash(&word, &word_length, &max_length, words,
&words_offset);
if (error)
goto do_error;
break;
case '$':
error = parse_dollars(&word, &word_length, &max_length, words,
&words_offset, flags, we, ifs, ifs_white,
0);
if (error)
goto do_error;
break;
case '`':
if (flags & WRDE_NOCMD) {
error = WRDE_CMDSUB;
goto do_error;
}
++words_offset;
error = parse_backtick(&word, &word_length, &max_length, words,
&words_offset, flags, we, ifs,
ifs_white);
if (error)
goto do_error;
break;
case '"':
++words_offset;
error = parse_dquote(&word, &word_length, &max_length, words,
&words_offset, flags, we, ifs, ifs_white);
if (error)
goto do_error;
if (!word_length) {
error = w_addword(we, NULL);
if (error)
return error;
}
break;
case '\'':
++words_offset;
error = parse_squote(&word, &word_length, &max_length, words,
&words_offset);
if (error)
goto do_error;
if (!word_length) {
error = w_addword(we, NULL);
if (error)
return error;
}
break;
case '~':
error = parse_tilde(&word, &word_length, &max_length, words,
&words_offset, we->we_wordc);
if (error)
goto do_error;
break;
case '*':
case '[':
case '?':
error = parse_glob(&word, &word_length, &max_length, words,
&words_offset, flags, we, ifs, ifs_white);
if (error)
goto do_error;
break;
default:
/* Is it a word separator? */
if (strchr(" \t", words[words_offset]) == NULL) {
char ch = words[words_offset];
/* Not a word separator -- but is it a valid word char? */
if (strchr("\n|&;<>(){}", ch)) {
/* Fail */
error = WRDE_BADCHAR;
goto do_error;
}
/* "Ordinary" character -- add it to word */
word = w_addchar(word, &word_length, &max_length, ch);
if (word == NULL) {
error = WRDE_NOSPACE;
goto do_error;
}
break;
}
/* If a word has been delimited, add it to the list. */
if (word != NULL) {
error = w_addword(we, word);
if (error)
goto do_error;
}
word = w_newword(&word_length, &max_length);
}
/* End of string */
/* There was a word separator at the end */
if (word == NULL) /* i.e. w_newword */
return 0;
/* There was no field separator at the end */
return w_addword(we, word);
do_error:
/* Error:
* free memory used (unless error is WRDE_NOSPACE), and
* set we members back to what they were.
*/
free(word);
if (error == WRDE_NOSPACE)
return WRDE_NOSPACE;
if ((flags & WRDE_APPEND) == 0)
wordfree(we);
*we = old_word;
return error;
}
