1 package com.tapina.robe.swi.clib.stdio;
2
3 import com.tapina.robe.runtime.Environment;
4 import com.tapina.robe.swi.clib.CLibrary;
5 import com.tapina.robe.swi.clib.Stub;
6
7 import java.io.IOException;
8
9 /***
10 * This function writes the character in a1 to the stream specified in a2.
11 * Returns: c, or EOF if there is an error.
12 */
13 public class FPutC extends Stub {
14 public void executeStub(Environment environment) {
15 final int[] R = environment.getCpu().R;
16 FilePointer filePointer = FilePointer.find(environment.getMemoryMap().getWord(R[1]));
17 try {
18 filePointer.putc(R[0]);
19 } catch (IOException e) {
20 log.warning("IOException in fputc(): " + e.getMessage());
21 R[0] = CLibrary.EOF;
22 }
23 }
24 }