1 /* 2 SuperCollider real time audio synthesis system 3 Copyright (c) 2002 James McCartney. All rights reserved. 4 http://www.audiosynth.com 5 6 This program is free software; you can redistribute it and/or modify 7 it under the terms of the GNU General Public License as published by 8 the Free Software Foundation; either version 2 of the License, or 9 (at your option) any later version. 10 11 This program is distributed in the hope that it will be useful, 12 but WITHOUT ANY WARRANTY; without even the implied warranty of 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 GNU General Public License for more details. 15 16 You should have received a copy of the GNU General Public License 17 along with this program; if not, write to the Free Software 18 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 19 */ 20 #pragma once 21 22 #include "PyrObject.h" 23 24 struct PyrFile : public PyrObjectHdr { 25 PyrSlot fileptr; 26 }; 27 28 void initFilePrimitives(); 29 30 long prFileDelete(VMGlobals* g, long numArgsPushed); 31 long prFileDeleteAll(VMGlobals* g, long numArgsPushed); 32 long prFileOpen(VMGlobals* g, long numArgsPushed); 33 long prFileClose(VMGlobals* g, long numArgsPushed); 34 long prFileSeek(VMGlobals* g, long numArgsPushed); 35 long prFilePos(VMGlobals* g, long numArgsPushed); 36 long prFileLength(VMGlobals* g, long numArgsPushed); 37 long prFileWrite(VMGlobals* g, long numArgsPushed); 38 long prFileReadLine(VMGlobals* g, long numArgsPushed); 39 40 long prFilePutRGB(VMGlobals* g, long numArgsPushed); 41 long prFilePutInt32(VMGlobals* g, long numArgsPushed); 42 long prFilePutInt16(VMGlobals* g, long numArgsPushed); 43 long prFilePutInt8(VMGlobals* g, long numArgsPushed); 44 long prFilePutChar(VMGlobals* g, long numArgsPushed); 45 long prFilePutFloat(VMGlobals* g, long numArgsPushed); 46 long prFilePutDouble(VMGlobals* g, long numArgsPushed); 47 48 long prFileGetRGB(VMGlobals* g, long numArgsPushed); 49 long prFileGetInt32(VMGlobals* g, long numArgsPushed); 50 long prFileGetInt16(VMGlobals* g, long numArgsPushed); 51 long prFileGetInt8(VMGlobals* g, long numArgsPushed); 52 long prFileGetChar(VMGlobals* g, long numArgsPushed); 53 long prFileGetFloat(VMGlobals* g, long numArgsPushed); 54 long prFileGetDouble(VMGlobals* g, long numArgsPushed); 55 56 long prFilePutString(VMGlobals* g, long numArgsPushed); 57 long prFileRead(VMGlobals* g, long numArgsPushed); 58