← Back to branch summary

~ubuntu-branches/ubuntu/lucid/python-scipy/lucid

« back to all changes in this revision

Viewing changes to Lib/xplt/src/play/unix/files.c

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2007-01-07 14:12:12 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20070107141212-mm0ebkh5b37hcpzn
http://bugs.debian.org/402783
* Remove build dependency on python-numpy-dev.
* python-scipy: Depend on python-numpy instead of python-numpy-dev.
* Package builds on other archs than i386. Closes: #402783.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Lib/xplt/src/play/unix/files.c
1
 
/*
2
 
 * files.c -- $Id: files.c,v 1.1 2003/03/08 15:26:48 travo Exp $
3
 
 * UNIX version of play file operations
4
 
 *
5
 
 * Copyright (c) 1999.  See accompanying LEGAL file for details.
6
 
 */
7
 
#ifndef _POSIX_SOURCE
8
 
/* to get fileno declared */
9
 
#define _POSIX_SOURCE 1
10
 
#endif
11
 
#ifndef _XOPEN_SOURCE
12
 
/* to get popen declared */
13
 
#define _XOPEN_SOURCE 1
14
 
#endif
15
 
 
16
 
#include "config.h"
17
 
#include "pstdio.h"
18
 
#include "pstdlib.h"
19
 
#include "playu.h"
20
 
 
21
 
#include <stdio.h>
22
 
#include <string.h>
23
 
#include <unistd.h>
24
 
#include <sys/types.h>
25
 
#include <sys/stat.h>
26
 
 
27
 
struct p_file {
28
 
  FILE *fp;  /* use FILE* for text file operations */
29
 
  int fd;    /* use file descriptor for binary file operations */
30
 
  int binary;
31
 
};
32
 
 
33
 
p_file *
34
 
p_fopen(const char *unix_name, const char *mode)
35
 
{
36
 
  FILE *fp = fopen(u_pathname(unix_name), mode);
37
 
  p_file *f = fp? p_malloc(sizeof(p_file)) : 0;
38
 
  if (f) {
39
 
    f->fp = fp;
40
 
    f->fd = fileno(fp);
41
 
    for (; mode[0] ; mode++) if (mode[0]=='b') break;
42
 
    f->binary = (mode[0]=='b');
43
 
  }
44
 
  return f;
45
 
}
46
 
 
47
 
p_file *
48
 
p_popen(const char *command, const char *mode)
49
 
{
50
 
  FILE *fp = popen(command, mode[0]=='w'? "w" : "r");
51
 
  p_file *f = fp? p_malloc(sizeof(p_file)) : 0;
52
 
  if (f) {
53
 
    f->fp = fp;
54
 
    f->fd = fileno(fp);
55
 
    f->binary = 2;
56
 
  }
57
 
  return f;
58
 
}
59
 
 
60
 
int
61
 
p_fclose(p_file *file)
62
 
{
63
 
  int flag = (file->binary&2)? pclose(file->fp) : fclose(file->fp);
64
 
  p_free(file);
65
 
  return flag;
66
 
}
67
 
 
68
 
char *
69
 
p_fgets(p_file *file, char *buf, int buflen)
70
 
{
71
 
  return fgets(buf, buflen, file->fp);
72
 
}
73
 
 
74
 
int
75
 
p_fputs(p_file *file, const char *buf)
76
 
{
77
 
  return fputs(buf, file->fp);
78
 
}
79
 
 
80
 
unsigned long
81
 
p_fread(p_file *file, void *buf, unsigned long nbytes)
82
 
{
83
 
  if (file->binary & 1)
84
 
    return read(file->fd, buf, nbytes);
85
 
  else
86
 
    return fread(buf, 1, nbytes, file->fp);
87
 
}
88
 
 
89
 
unsigned long
90
 
p_fwrite(p_file *file, const void *buf, unsigned long nbytes)
91
 
{
92
 
  if (file->binary & 1)
93
 
    return write(file->fd, buf, nbytes);
94
 
  else
95
 
    return fwrite(buf, 1, nbytes, file->fp);
96
 
}
97
 
 
98
 
unsigned long
99
 
p_ftell(p_file *file)
100
 
{
101
 
  if (file->binary & 1)
102
 
    return lseek(file->fd, 0L, SEEK_CUR);
103
 
  else if (!(file->binary & 2))
104
 
    return ftell(file->fp);
105
 
  else
106
 
    return -1L;
107
 
}
108
 
 
109
 
int
110
 
p_fseek(p_file *file, unsigned long addr)
111
 
{
112
 
  if (file->binary & 1)
113
 
    return -(lseek(file->fd, addr, SEEK_SET)==-1L);
114
 
  else if (!(file->binary & 2))
115
 
    return fseek(file->fp, addr, SEEK_SET);
116
 
  else
117
 
    return -1;
118
 
}
119
 
 
120
 
int
121
 
p_fflush(p_file *file)
122
 
{
123
 
  return (file->binary & 1)? 0 : fflush(file->fp);
124
 
}
125
 
 
126
 
int
127
 
p_feof(p_file *file)
128
 
{
129
 
  return feof(file->fp);  /* does not work for file->binary */
130
 
}
131
 
 
132
 
int
133
 
p_ferror(p_file *file)
134
 
{
135
 
  int flag = ferror(file->fp);
136
 
  clearerr(file->fp);
137
 
  return flag;
138
 
}
139
 
 
140
 
unsigned long
141
 
p_fsize(p_file *file)
142
 
{
143
 
  struct stat buf;
144
 
  if (fstat(file->fd, &buf)) return 0;
145
 
  return buf.st_size;
146
 
}
147
 
 
148
 
int
149
 
p_remove(const char *unix_name)
150
 
{
151
 
  return remove(u_pathname(unix_name));
152
 
}
153
 
 
154
 
int
155
 
p_rename(const char *unix_old, const char *unix_new)
156
 
{
157
 
  char old[P_WKSIZ+1];
158
 
  old[0] = '\0';
159
 
  strncat(old, u_pathname(unix_old), P_WKSIZ);
160
 
  return rename(old, u_pathname(unix_new));
161
 
}