callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use vectors instead of the non-standard array structure. Also made some

Browse Source 
2006-11-09  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/scheme-wrapper.c (marshall_proc_db_call): Use
	vectors instead of the non-standard array structure. Also made some
	minor coding style changes in the file.

	* plug-ins/script-fu/tinyscheme/opdefines.h
	* plug-ins/script-fu/tinyscheme/scheme-private.h
	* plug-ins/script-fu/tinyscheme/scheme.h
	* plug-ins/script-fu/tinyscheme/scheme.c: Removed all code related
	to the handling of the non-standard array structure. Added one small
	change to scheme.c to fix problems compiling with MSVC in Windows.

	* plug-ins/script-fu/scripts/script-fu-compat.init: Changed array
	references to use vector references.
This commit is contained in:
Kevin Cozens
2006-11-09 23:03:55 +00:00
committed by Kevin Cozens
parent 0b60604896
commit dc2d31c9d7
7 changed files with 327 additions and 458 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
plug-ins/script-fu/scripts/script-fu-compat.init
View File

@ -215,8 +215,8 @@
;Items below this line are deprecated and should not be used in new scripts.
(define aset array-set!)
(define aref array-ref)
(define aset vector-set!)
(define aref vector-ref)
(define fopen open-input-file)
(define mapcar map)
(define nil '())
@ -237,11 +237,11 @@
(define (cons-array count type)
(case type
((long) (make-array count "int32"))
((short) (make-array count "int16"))
((byte) (make-array count "int8"))
((double) (make-array count "float"))
((string) (make-array count "string"))
((long) (make-vector count 0))
((short) (make-vector count 0))
((byte) (make-vector count 0))
((double) (make-vector count 0.0))
((string) (make-vector count ""))
(else type)
)
)