rtems_task Init(
rtems_task_argument argument
)
{
FILE *fd;
int sc;
TEST_BEGIN();
puts( "Open /testfile" );
fd = fopen( "/testfile", "w+" );
rtems_test_assert( fd );
puts( "flockfile /testfile" );
flockfile( fd );
puts( "ftrylockfile /testfile" );
sc = ftrylockfile( fd );
rtems_test_assert( sc == -1 );
rtems_test_assert( errno == ENOTSUP );
puts( "flockfile /testfile" );
flockfile( fd );
puts( "funlockfile /testfile" );
funlockfile( fd );
TEST_END();
rtems_test_exit(0);
}
/* Thread function */
void * threaded( void * arg )
{
int ret;
ret = ftrylockfile( stdout );
if ( ret != 0 )
{
FAILED( "The child process is owning the file lock." );
}
#if VERBOSE > 1
output( "The file lock was not inherited in the child process\n" );
#endif
return NULL;
}
static void *threaded(void *arg)
{
int ret;
long res;
(void) arg;
ret = ftrylockfile(stdout);
if (ret) {
res = PTS_FAIL;
printf("FAIL: The child process inherited the lock\n");
} else {
res = PTS_PASS;
}
funlockfile(stdout);
return (void*)res;
}
char *lock_and_read(char *content, char path_to_file[], int *filesize) {
int size = 0;
FILE *fp;
if ((fp = fopen(path_to_file, "r")) == NULL) {
printf("%s", path_to_file);
ERR("writing user ");
}
while (1) {
if (ftrylockfile(fp) == 0) {
if (fp == NULL)
ERR("Locking file");
else {
fseek(fp, 0L, SEEK_END);
if ((*filesize = (int) ftell(fp)) == -1)
ERR("ftell file size");
rewind(fp);
size = *filesize;
printf("%d", size);
if ((content = calloc(1, *filesize)) == NULL)
ERR("calloc");
fread(content, *filesize, 1, fp);
funlockfile(fp);
if (fclose(fp) == EOF)
ERR("Closing file");
}
break;
}
}
return content;
}
void lock_and_write(char *content, char *path_to_file, char *mode) {
FILE *fp;
if ((fp = fopen(path_to_file, mode)) == NULL) {
printf("%s", path_to_file);
ERR("writing to user property");
}
while (1) {
if (ftrylockfile(fp) == 0) {
if (fp == NULL)
ERR("Locking file");
else {
fprintf(fp, "%s", content);
funlockfile(fp);
fclose(fp);
}
break;
}
}
}
static int my_ftrylockfile(FILE *fp)
{
return ftrylockfile(_get_actual_fp(fp));
}
int VMPI_ftrylockfile(FILE *stream)
{
return ftrylockfile(stream);
}
int main(void)
{
FILE *file = NULL;
int ret = ftrylockfile(file);
return ret;
}
int
main(int argc, char *argv[])
{
char buffer[BUFSIZ];
wchar_t wbuffer[BUFSIZ];
char *buf;
wchar_t *wbuf;
FILE *f;
off_t off;
fpos_t pos;
size_t size;
int fd, r;
char c;
wchar_t wc;
if ((fd = dup(1)) == -1)
err(2, "dup");
if ((dup_stdout = fdopen(fd, "w")) == NULL)
err(2, "fdopen");
if ((fd = mkstemp(filename)) == -1)
err(2, "mkstemp");
if (write(fd, "0123456789\n\n", 12) != 12 || close(fd))
err(2, "write + close");
/* status */
TEST_UNCHANGED(fwide(f, 0));
TEST_NARROW(fwide(f, -1));
TEST_WIDE(fwide(f, 1));
TEST_UNCHANGED(feof(f));
TEST_UNCHANGED(ferror(f));
TEST_UNCHANGED(fileno(f));
TEST_UNCHANGED(clearerr(f));
/* flush and purge */
TEST_UNCHANGED(fflush(f));
TEST_UNCHANGED(fpurge(f));
/* positioning */
TEST_UNCHANGED(fgetpos(f, &pos));
TEST_UNCHANGED(fgetpos(f, &pos); fsetpos(f, &pos));
TEST_UNCHANGED(ftell(f));
TEST_UNCHANGED(ftello(f));
TEST_UNCHANGED(fseek(f, 1, SEEK_CUR));
TEST_UNCHANGED(fseek(f, 1, SEEK_SET));
TEST_UNCHANGED(fseek(f, 1, SEEK_END));
TEST_UNCHANGED(fseeko(f, 1, SEEK_CUR));
TEST_UNCHANGED(fseeko(f, 1, SEEK_SET));
TEST_UNCHANGED(fseeko(f, 1, SEEK_END));
TEST_UNCHANGED(rewind(f));
/* buffering */
TEST_UNCHANGED(setbuf(f, NULL));
TEST_UNCHANGED(setbuf(f, buffer));
TEST_UNCHANGED(setvbuf(f, buffer, _IONBF, BUFSIZ));
TEST_UNCHANGED(setvbuf(f, buffer, _IOLBF, BUFSIZ));
TEST_UNCHANGED(setvbuf(f, buffer, _IOFBF, BUFSIZ));
TEST_UNCHANGED(setvbuf(f, NULL, _IONBF, 0));
TEST_UNCHANGED(setvbuf(f, NULL, _IOLBF, 0));
TEST_UNCHANGED(setvbuf(f, NULL, _IOFBF, 0));
TEST_UNCHANGED(setbuffer(f, NULL, 0));
TEST_UNCHANGED(setbuffer(f, buffer, BUFSIZ));
TEST_UNCHANGED(setlinebuf(f));
/* locking */
TEST_UNCHANGED(flockfile(f);funlockfile(f));
TEST_UNCHANGED(ftrylockfile(f);funlockfile(f));
/* input */
TEST_NARROW(getc(f));
TEST_NARROW(getc_unlocked(f));
TEST_NARROW(fgetc(f));
TEST_NARROW(c = fgetc(f); ungetc(c, f));
TEST_NARROW(fgets(buffer, BUFSIZ, f));
TEST_NARROW(fscanf(f, "%s\n", buffer));
TEST_NARROW(fgetln(f, &size));
/* output */
TEST_NARROW(putc('c', f));
TEST_NARROW(putc_unlocked('c', f));
TEST_NARROW(fputc('c', f));
TEST_NARROW(fputs("foo", f));
TEST_NARROW(fprintf(f, "%s\n", "foo"));
/* input from stdin */
TEST_NARROW_STD(stdin, getchar());
TEST_NARROW_STD(stdin, getchar_unlocked());
TEST_NARROW_STD(stdin, fgets(buffer, BUFSIZ, stdin));
TEST_NARROW_STD(stdin, scanf("%s\n", buffer));
/* output to stdout */
TEST_NARROW_STD(stdout, putchar('c'));
TEST_NARROW_STD(stdout, putchar_unlocked('c'));
TEST_NARROW_STD(stdout, puts("foo"));
TEST_NARROW_STD(stdout, printf("foo"));
/* word-size ops */
/*
* fread and fwrite are specified as being implemented in
* terms of fgetc() and fputc() and therefore must set the
* stream orientation to narrow.
*/
TEST_NARROW(fread(buffer, 4, BUFSIZ / 4, f));
TEST_NARROW(fwrite(buffer, 4, BUFSIZ / 4, f));
/*
* getw() and putw() aren't specified anywhere but logically
* should behave the same as fread/fwrite. Not all OSes agree:
* Solaris 10 has them not changing the orientation.
*/
TEST_NARROW(getw(f));
TEST_NARROW(putw(1234, f));
/* WIDE CHAR TIME! */
/* input */
TEST_WIDE(getwc(f));
TEST_WIDE(fgetwc(f));
TEST_WIDE(wc = fgetwc(f); ungetwc(wc, f));
TEST_WIDE(fgetws(wbuffer, BUFSIZ, f));
TEST_WIDE(fwscanf(f, L"%s\n", wbuffer));
/* output */
TEST_WIDE(putwc(L'c', f));
TEST_WIDE(fputwc(L'c', f));
TEST_WIDE(fputws(L"foo", f));
TEST_WIDE(fwprintf(f, L"%s\n", L"foo"));
/* input from stdin */
TEST_WIDE_STD(stdin, getwchar());
TEST_WIDE_STD(stdin, wscanf(L"%s\n", wbuffer));
/* output to stdout */
TEST_WIDE_STD(stdout, putwchar(L'c'));
TEST_WIDE_STD(stdout, wprintf(L"foo"));
/* memory streams */
f = open_memstream(&buf, &size);
if (!((r = fwide(f, 0)) < 0))
fail(__LINE__, r, "<", "open_memstream()");
fclose(f);
f = open_wmemstream(&wbuf, &size);
if (!((r = fwide(f, 0)) > 0))
fail(__LINE__, r, ">", "open_wmemstream()");
fclose(f);
/* random stuff? */
TEST_UNCHANGED_STD(stderr, perror("foo"));
remove(filename);
if (failures)
exit(1);
exit(0);
}
