; ; roVersion.sh ; ; Handling of the RISC OS version ; ; © 1994-1998 Straylight ; ;----- Licensing note ------------------------------------------------------- ; ; This file is part of Straylight's Sapphire library. ; ; Sapphire 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 2, or (at your option) ; any later version. ; ; Sapphire 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 Sapphire. If not, write to the Free Software Foundation, ; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;----- Overview ------------------------------------------------------------- ; ; Functions provided: ; ; rov_init ; rov_version [ :LNOT::DEF:roVersion__dfn GBLL roVersion__dfn ; --- rov_init --- ; ; On entry: -- ; ; On exit: -- ; ; Use: Sets up the OS version in a cache. IMPORT rov_init ; --- rov_version --- ; ; On entry: -- ; ; On exit: R0 == current RISC OS version ; ; Use: Returns the current operating system version number. IMPORT rov_version ] ;----- That's all, folks ---------------------------------------------------- END