equal
deleted
inserted
replaced
14 * You should have received a copy of the GNU General Public License |
14 * You should have received a copy of the GNU General Public License |
15 * along with this program; if not, write to the Free Software |
15 * along with this program; if not, write to the Free Software |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
|
19 {$INCLUDE "options.inc"} |
|
20 |
19 unit uIO; |
21 unit uIO; |
20 interface |
22 interface |
21 uses SDLh; |
23 uses SDLh; |
22 {$INCLUDE "options.inc"} |
|
23 |
24 |
24 const ipcPort: Word = 0; |
25 const ipcPort: Word = 0; |
25 |
26 |
26 procedure SendIPC(s: shortstring); |
27 procedure SendIPC(s: shortstring); |
27 procedure SendIPCXY(cmd: char; X, Y: SmallInt); |
28 procedure SendIPCXY(cmd: char; X, Y: SmallInt); |
171 ss: string = ''; |
172 ss: string = ''; |
172 i: LongInt; |
173 i: LongInt; |
173 buf: array[0..255] of byte; |
174 buf: array[0..255] of byte; |
174 s: shortstring absolute buf; |
175 s: shortstring absolute buf; |
175 begin |
176 begin |
176 {$IFDEF IPHONEOS} |
177 |
177 filemode := 0; |
178 // set RDNLY on file open |
178 {$ENDIF} |
179 filemode:= 0; |
179 |
180 |
180 assign(f, fileName); |
181 assign(f, fileName); |
181 reset(f, 1); |
182 reset(f, 1); |
182 |
183 |
183 repeat |
184 repeat |