version 1.2, 1997/12/14 01:15:19
|
version 1.6, 2003/03/09 15:16:50
|
Line 1
|
Line 1
|
\ lib.fs shared library support package 11may97py |
\ lib.fs shared library support package 11may97py |
|
|
\ Copyright (C) 1995-1997 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 16
|
Line 16
|
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
Create icall-table |
Create icall-table |
] icall0 ;s icall1 ;s icall2 ;s icall3 ;s icall4 ;s icall5 ;s icall6 ;s |
] icall0 ;s icall1 ;s icall2 ;s icall3 ;s icall4 ;s icall5 ;s icall6 ;s |
Line 49 Variable libs 0 libs !
|
Line 49 Variable libs 0 libs !
|
\G OS name of symbol as counted string |
\G OS name of symbol as counted string |
here 2dup swap 2 cells + dup @ A, ! |
here 2dup swap 2 cells + dup @ A, ! |
2swap 1 and IF fcall-table ELSE icall-table THEN swap |
2swap 1 and IF fcall-table ELSE icall-table THEN swap |
cells 2* + , 0 , bl parse-word string, @proc ; |
cells 2* + , 0 , bl sword string, @proc ; |
|
|
-1 Constant (addr) |
-1 Constant (addr) |
0 Constant (int) |
0 Constant (int) |
Line 99 DOES> ( -- addr )
|
Line 99 DOES> ( -- addr )
|
\G linked list of library's procs |
\G linked list of library's procs |
\G OS name of library as counted string |
\G OS name of library as counted string |
Create here libs @ A, dup libs ! |
Create here libs @ A, dup libs ! |
0 , 0 A, bl parse-word string, @lib |
0 , 0 A, bl sword string, @lib |
DOES> ( pars/ type -- ) |
DOES> ( pars/ type -- ) |
over -1 = IF label: |
over -1 = IF label: |
ELSE |
ELSE |