/* Copyright (C) 2016 Jeremiah Orians * Copyright (C) 2020 deesix * This file is part of M2-Planet. * * M2-Planet is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation, either version 3 of the License, or * (at your option) any later version. * * M2-Planet is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with M2-Planet. If not, see . */ // CONSTANT stdin 0 // CONSTANT stdout 1 // CONSTANT stderr 2 // CONSTANT EOF 0xFFFFFFFF int fgetc(FILE* f) { asm("SET_X0_FROM_BP" "SUB_X0_8" "DEREF_X0" "PUSH_X0" "SET_X1_FROM_SP" "SET_X2_TO_1" "SET_X8_TO_SYS_READ" "SYSCALL" "SET_X1_TO_0" "CMP_X1_X0" "POP_X0" "SKIP_INST_NE" "SET_X0_TO_MINUS_1"); } void fputc(char s, FILE* f) { asm("SET_X0_FROM_BP" "SUB_X0_8" "SET_X1_FROM_X0" "SET_X0_FROM_BP" "SUB_X0_16" "DEREF_X0" "SET_X2_TO_1" "SET_X8_TO_SYS_WRITE" "SYSCALL"); } /* Important values needed for open * O_RDONLY => 0 * O_WRONLY => 1 * O_RDWR => 2 * O_CREAT => 64 * O_TRUNC => 512 * S_IRWXU => 00700 * S_IXUSR => 00100 * S_IWUSR => 00200 * S_IRUSR => 00400 */ FILE* open(char* name, int flag, int mode) { asm("SET_X0_FROM_BP" "SUB_X0_24" "DEREF_X0" "SET_X3_FROM_X0" "SET_X0_FROM_BP" "SUB_X0_16" "DEREF_X0" "SET_X2_FROM_X0" "SET_X0_FROM_BP" "SUB_X0_8" "DEREF_X0" "SET_X1_FROM_X0" "SET_X0_TO_FCNTL_H_AT_FDCWD" "SET_X8_TO_SYS_OPENAT" "SYSCALL"); } FILE* fopen(char* filename, char* mode) { FILE* f; if('w' == mode[0]) { /* 577 is O_WRONLY|O_CREAT|O_TRUNC, 384 is 600 in octal */ f = open(filename, 577 , 384); } else { /* Everything else is a read */ f = open(filename, 0, 0); } /* Negative numbers are error codes */ if(0 > f) { return 0; } return f; } int close(int fd) { asm("SET_X0_FROM_BP" "SUB_X0_8" "DEREF_X0" "SET_X8_TO_SYS_CLOSE" "SYSCALL"); } int fclose(FILE* stream) { int error = close(stream); return error; } int fflush(FILE *stream){ /* We don't buffer, nothing to flush */ return 0; } // CONSTANT SEEK_SET 0 // CONSTANT SEEK_CUR 1 // CONSTANT SEEK_END 2 int fseek(FILE* f, long offset, int whence) { asm("SET_X0_TO_MINUS_1" "SET_X3_FROM_X0" "SET_X0_FROM_BP" "SUB_X0_24" "DEREF_X0" "SET_X2_FROM_X0" "SET_X0_FROM_BP" "SUB_X0_16" "DEREF_X0" "SET_X1_FROM_X0" "SET_X0_FROM_BP" "SUB_X0_8" "DEREF_X0" "SET_X8_TO_SYS_LSEEK" "SYSCALL"); } void rewind(FILE* f) { fseek(f, 0, SEEK_SET); }