[gforth] / gforth / stuff.fs  

gforth: gforth/stuff.fs

1 : anton 1.1 \ miscelleneous words
2 :    
3 :     \ Copyright (C) 1996 Free Software Foundation, Inc.
4 :    
5 :     \ This file is part of Gforth.
6 :    
7 :     \ Gforth is free software; you can redistribute it and/or
8 :     \ modify it under the terms of the GNU General Public License
9 :     \ as published by the Free Software Foundation; either version 2
10 :     \ of the License, or (at your option) any later version.
11 :    
12 :     \ This program is distributed in the hope that it will be useful,
13 :     \ but WITHOUT ANY WARRANTY; without even the implied warranty of
14 :     \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 :     \ GNU General Public License for more details.
16 :    
17 :     \ You should have received a copy of the GNU General Public License
18 :     \ along with this program; if not, write to the Free Software
19 :     \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20 :    
21 :     ' require alias needs
22 :     \ needs is an F-PC name. we will probably switch to 'needs' in the future
23 :    
24 :     \ a little more compiler security
25 :    
26 :     \ currently not used by Gforth, but maybe by add-ons e.g., the 486asm
27 :     AUser CSP
28 :    
29 :     : !CSP ( -- )
30 :     sp@ csp ! ;
31 :    
32 :     : ?CSP ( -- )
33 :     sp@ csp @ <> -22 and throw ;
34 : anton 1.2
35 : anton 1.4 \ DMIN and DMAX
36 :    
37 : anton 1.2 : dmin ( d1 d2 -- d ) \ double
38 :     2over 2over d< IF 2swap THEN 2drop ;
39 :    
40 :     : dmax ( d1 d2 -- d ) \ double
41 :     2over 2over d> IF 2swap THEN 2drop ;
42 : anton 1.4
43 :     \ shell commands
44 :    
45 :     0 Value $?
46 :    
47 :     : system ( addr u -- ) \ gforth
48 :     (system) throw TO $? ;
49 :     : sh ( "..." -- ) \ gforth
50 :     '# parse cr system ;
51 :    
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help