![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cmd_write.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src|
Return to cmd_write.c CVS log | Up to [Coherent Logic Development] / freem / src |
1.1 snw 1: /*
2: * *
3: * * *
4: * * *
5: * ***************
6: * * * * *
7: * * MUMPS *
8: * * * * *
9: * ***************
10: * * *
11: * * *
12: * *
13: *
14: * cmd_write.c
15: * Implementation of the WRITE command
16: *
17: *
18: * Author: Serena Willis <jpw@coherent-logic.com>
19: * Copyright (C) 1998 MUG Deutschland
20: * Copyright (C) 2023 Coherent Logic Development LLC
21: *
22: *
23: * This file is part of FreeM.
24: *
25: * FreeM is free software: you can redistribute it and/or modify
26: * it under the terms of the GNU Affero Public License as published by
27: * the Free Software Foundation, either version 3 of the License, or
28: * (at your option) any later version.
29: *
30: * FreeM is distributed in the hope that it will be useful,
31: * but WITHOUT ANY WARRANTY; without even the implied warranty of
32: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
33: * GNU Affero Public License for more details.
34: *
35: * You should have received a copy of the GNU Affero Public License
36: * along with FreeM. If not, see <https://www.gnu.org/licenses/>.
37: *
38: **/
39:
40: #include <string.h>
41: #include <stdlib.h>
42: #include "mpsdef.h"
43: #include "mcommand.h"
44: #if !defined(MSDOS)
45: # include "io_socket.h"
46: #endif
47:
48: MRESULT cmd_write(MACTION *ra, int *i)
49: {
50: char vn[255];
51: char *wr_terminator = (char *) malloc (STRLEN * sizeof (char));
52: char *sw_buf = (char *) malloc (STRLEN * sizeof (char));
53:
54: NULLPTRCHK(wr_terminator,"cmd_write");
55: NULLPTRCHK(sw_buf,"cmd_write");
56:
57: if (io > FIRSTSCK) msck_get_terminator (io, wr_terminator);
58:
59: if (io != HOME && devopen[io] == 'r' && io < FIRSTSCK) {
60: free (sw_buf);
61: return NOWRITE;
62: }
63:
64: if ((*i = (*codptr)) == SP || *i == EOL) {
65: return ARGLIST;
66: }
67:
68: writeproc:
69:
70: switch (*i)
71: {
72:
73: case '!':
74:
75: if (io < FIRSTSCK) {
76:
77: if (crlf[io]) {
78: write_m ("\012\201");
79: }
80: else {
81: write_m ("\015\012\201");
82: }
83:
84: }
85: else {
86: /* WRITE ! for sockets */
87: strcat (sw_buf, wr_terminator);
88: }
89:
90: break;
91:
92: case '#':
93:
94: if (io < FIRSTSCK) {
95: write_m ("\015\014\201");
96: }
97: else {
98: return SYNTERR;
99: }
100:
101: break;
102:
103: case '?':
104:
105: codptr++;
106:
107: expr (STRING);
108:
109: if (merr ()) return merr ();
110:
111: if (io < FIRSTSCK) {
112: write_t ((short) intexpr (argptr));
113: }
114: else {
115: return SYNTERR;
116: }
117:
118: break;
119:
120: case '/':
121: codptr++;
122:
123: expr (NAME);
124: if (merr ()) return merr ();
125:
126: if (io < FIRSTSCK) {
127: write_f (varnam);
128: }
129: else {
130: return SYNTERR;
131: }
132:
133: codptr++;
134:
135: break;
136:
137: case '*':
138: codptr++;
139:
140: expr (STRING);
141: if (merr ()) return merr ();
142:
143: argptr[0] = (char) UNSIGN (intexpr (argptr));
144: argptr[1] = EOL;
145:
146: /* special treatment for EOL as long as we don't have 8 bit */
147: if (argptr[0] == EOL) {
148:
149: mcmnd = '*';
150:
151: if (io < FIRSTSCK) {
152: m_output (argptr);
153: }
154: else {
155: /* EOL handling for socket devices */
156: }
157: mcmnd = WRITE;
158:
159: }
160: else {
161:
162: if (io < FIRSTSCK) {
163: write_m (argptr);
164: }
165: else {
166: /* non-EOL char-code handling for sockets */
167: }
168:
169: }
170:
171: break;
172:
173: default:
174: expr (STRING);
175: if (merr ()) return merr ();
176:
177: if (io < FIRSTSCK) {
178: write_m (argptr);
179: }
180: else {
181: /* regular output for socket devices */
182: stcpy (vn, argptr);
183: stcnv_m2c (vn);
184: strcat (sw_buf, vn);
185: }
186: }
187:
188: if ((*i == '!') || (*i == '#')) {
189: if ((*i = *++codptr) == '!' || *i == '#' || *i == '?') goto writeproc;
190: }
191:
192: if (io >= FIRSTSCK) {
193: msck_write (io, sw_buf, strlen (sw_buf));
194: }
195:
196: free (sw_buf);
197: free (wr_terminator);
198:
199: *ra = RA_CONTINUE;
200: return OK;
201: }