1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
#ifndef port_TYPE
#define port_TYPE
/* This file is part of the Project Athena Zephyr Notification System.
* It is one of the source files comprising zwgc, the Zephyr WindowGram
* client.
*
* Created by: Marc Horowitz <marc@athena.mit.edu>
*
* $Id$
*
* Copyright (c) 1989 by the Massachusetts Institute of Technology.
* For copying and distribution information, see the file
* "mit-copyright.h".
*/
#include <zephyr/mit-copyright.h>
#include <stdio.h>
#include "new_string.h"
#include "string_stack.h"
union port__data {
struct {
FILE *input_connector;
FILE *output_connector;
} file;
struct {
string_stack waiting_packets;
string (*filter)(string);
} filter;
struct {
char *(*output)(string);
} output;
};
typedef struct port__struct { /* PRIVATE */
char *(*get)(struct port__struct *, char **);
char *(*put)(struct port__struct *, char *, int);
char *(*close_input)(struct port__struct *);
char *(*close_output)(struct port__struct *);
#define INPUT_CLOSED 0x1
#define OUTPUT_CLOSED 0x2
#define PORT_CLOSED 0x3
int status;
union port__data data;
} port;
/*
* void init_ports()
* Modifies: all ports
* Effects: Closes all existing ports. Must be called before
* any other port call is made.
*/
extern void init_ports(void);
/*
* string read_from_port(string name)
* Requires: init_ports has been called
* Modifies: the port named name if any, $error
* Effects: If a port by name name does not exist, sets $error to
* "No such port" & returns "". Otherwise, attempts to
* read from that port. If an error occurs, $error is
* set to the error message and "" returned. Otherwise
* the read string is returned. The returned string is
* on the heap & must be eventually freed.
*/
extern string read_from_port(string);
/*
* void write_on_port(string name, char *text, int length)
* Requires: init_ports has been called, length>=0
* Modifies: the port named name if any, $error
* Effects: If a port by name name does not exist, sets $error to
* "No such port" & returns. Otherwise, attempts to
* write text[0..length-1] on that port. If an error
* occurs, $error is set to the error message.
*/
extern void write_on_port(string, char *, int);
/*
* void close_port_input(string name)
* Requires: init_ports has been called
* Modifies: the port named name if any, $error
* Effects: If a port by name name does not exist, sets $error to
* "No such port" & returns. Otherwise, closes the
* input part of the port by name name. When both a
* port's input & output parts have been closed, the
* port is deleted to save space. If an error
* occurs, $error is set to the error message.
*/
extern void close_port_input(string);
/*
* void close_port_output(string name)
* Requires: init_ports has been called
* Modifies: the port named name if any, $error
* Effects: If a port by name name does not exist, sets $error to
* "No such port" & returns. Otherwise, closes the
* output part of the port by name name. When both a
* port's input & output parts have been closed, the
* port is deleted to save space. If an error
* occurs, $error is set to the error message.
*/
extern void close_port_output(string);
extern void create_subprocess_port(string, char **);
extern void create_file_append_port(string, string);
extern void create_file_input_port(string, string);
extern void create_file_output_port(string, string);
extern void create_port_from_filter(string, string (*)(string));
extern void create_port_from_output_proc(string, char *(*)(string));
extern void init_standard_ports(int *, char **);
extern void create_port_from_files(string, FILE *, FILE *);
#endif
|
