#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <error.h>
#include <time.h>
#include <utime.h>
#include <exec/types.h>
#include <dos/dos.h>
#include <dos/dosextens.h>
#include <dos/dosasl.h>
#include <proto/dos.h>
#define MAXPATH 1024
#define MAXARGS 512
extern struct DosLibrary *DOSBase;
extern void *xmalloc(unsigned int size);
static char *expand_next_file (char *pattern);
static int in_prev_args (char *arg, char **argv, int argc);
extern void _expand_args (int *oargc, char ***oargv);
static char *expand_next_file (pattern)
char *pattern;
{
long err;
char *pathname;
static struct AnchorPath *an = NULL;
pathname = NULL;
if (pattern == NULL)
err = -1;
else
do
{
if (an == NULL)
{
an = xmalloc (sizeof (struct AnchorPath) + MAXPATH);
memset (an, 0, sizeof (struct AnchorPath) + MAXPATH);
an->ap_BreakBits = SIGBREAKF_CTRL_C;
an->ap_Strlen = MAXPATH;
an->ap_Flags = APF_DOWILD;
err = MatchFirst (pattern, an);
}
else
err = MatchNext (an);
pathname = an->ap_Buf;
} while (err == 0 && pathname == NULL);
if (err)
{
MatchEnd (an);
free (an);
an = NULL;
return NULL;
}
else
return pathname;
}
static int in_prev_args (arg, argv, argc)
char *arg, **argv;
int argc;
{
int i, is_in_args;
is_in_args = 0;
for (i = 1; i < argc - 1; i++)
if (stricmp (arg, argv[i]) == 0)
is_in_args = 1;
return is_in_args;
}
void _expand_args (oargc, oargv)
int *oargc;
char ***oargv;
{
int i;
char *str, **argv;
static char buf[MAXPATH];
int argc, no_match_at_all, num_matches, contains_wildcards;
if (DOSBase->dl_lib.lib_Version < 37) return;
no_match_at_all = 1;
contains_wildcards = 0;
argc = 0;
argv = xmalloc (MAXARGS * sizeof (char *));
argv[argc++] = (*oargv)[0];
for (i = 1; i < *oargc; i++)
{
if (ParsePattern ((*oargv)[i], buf, MAXPATH))
{
contains_wildcards = 1;
num_matches = 0;
while (str = expand_next_file ((*oargv)[i]))
if (argc >= MAXARGS)
{
expand_next_file (NULL);
fprintf (stderr,"Too many files.\n");
exit (20);
}
else
{
if (!in_prev_args (str, argv, argc))
{
argv[argc++] = strdup (str);
num_matches++;
}
}
if (num_matches != 0)
no_match_at_all = 0;
}
else
if (argc >= MAXARGS)
{
fprintf (stderr,"Too many files.\n");
exit (20);
}
else
{
if (!in_prev_args ((*oargv)[i], argv, argc))
argv[argc++] = (*oargv)[i];
}
}
*oargc = argc;
*oargv = argv;
if (no_match_at_all && contains_wildcards) {
fprintf (stderr,"No match.\n");
exit (20);
}
}
int utime (path, times)
char *path;
struct utimbuf *times;
{
struct DateStamp date;
LONG error;
time_t modtime;
if (DOSBase->dl_lib.lib_Version < 37) return 0;
modtime = times->modtime - __timezone;
date.ds_Days = (modtime / 86400) - 2922;
modtime %= 86400;
date.ds_Minute = modtime / 60;
modtime %= 60;
date.ds_Tick = modtime * TICKS_PER_SECOND;
error = SetFileDate (path, &date);
if (error == DOSFALSE)
{
errno = EOSERR;
return -1;
}
return 0;
}