home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / tcl / tclsrc / h / RISCOSint < prev    next >
Encoding:
Text File  |  1996-02-06  |  1.2 KB  |  31 lines
  1. /* RISC OS specific internal header for  tcl */
  2. /* (c) C.T.Stretch */
  3. /* Sat,25 Jun 1994 */
  4.  
  5. #ifndef _RISCOSINT
  6. #define _RISCOSINT
  7.  
  8. /* additional tcl commands for RISCOS */
  9.  
  10. extern int Tcl_CloseCmd(ClientData,Tcl_Interp *interp,int argc,char **argv);
  11. extern int Tcl_ExitCmd(ClientData,Tcl_Interp *interp,int argc,char **argv);
  12. extern int Tcl_FileCmd(ClientData,Tcl_Interp *interp,int argc,char **argv);
  13. extern int Tcl_FlushCmd(ClientData ,Tcl_Interp *interp,int argc,char **argv);
  14. extern int Tcl_GetenvCmd(ClientData,Tcl_Interp *interp,int argc,char **argv);
  15. extern int Tcl_GetsCmd(ClientData,Tcl_Interp *interp,int argc,char **argv);
  16. extern int Tcl_OpenCmd(ClientData,Tcl_Interp *interp,int argc,char **argv);
  17. extern int Tcl_PutsCmd(ClientData,Tcl_Interp *interp,int argc,char **argv);
  18. extern int Tcl_SourceCmd(ClientData,Tcl_Interp *interp,int argc,char **argv);
  19. extern int Tcl_SystemCmd(ClientData,Tcl_Interp *interp,int argc,char **argv);
  20. extern int Tcl_DateCmd(ClientData,Tcl_Interp *interp,int argc,char **argv);
  21.  
  22. /* convert textual file type to number */
  23.  
  24. extern int typenumber(char*);
  25.  
  26. /* Return file length or -1 for not found */
  27.  
  28. int flen(char* name);
  29.  
  30. #endif /* RISCOSINT */
  31.