home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 7.2 / 7.2.191 < prev    next >
Encoding:
Internet Message Format  |  2009-05-25  |  104.0 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 7.2.191
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. Mime-Version: 1.0
  6. Content-Type: text/plain; charset=UTF-8
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 7.2.191
  11. Problem:    Mzscheme interface doesn't work on Ubuntu.
  12. Solution:   Change autoconf rules.  Define missing macro.  Some changes to
  13.         avoid gcc warnings.  Remove per-buffer namespace. (Sergey Khorev)
  14. Files:        runtime/doc/if_mzsch.txt, src/Makefile, src/Make_ming.mak,
  15.         src/Make_mvc.mak, src/auto/configure, src/configure.in,
  16.         src/config.mk.in, src/eval.c, src/if_mzsch.c, src/if_mzsch.h,
  17.         src/main.c, src/proto/if_mzsch.pro
  18.  
  19.  
  20. *** ../vim-7.2.190/runtime/doc/if_mzsch.txt    2008-08-09 19:36:48.000000000 +0200
  21. --- runtime/doc/if_mzsch.txt    2009-05-26 18:49:53.000000000 +0200
  22. ***************
  23. *** 1,4 ****
  24. ! *if_mzsch.txt*  For Vim version 7.2.  Last change: 2008 Jun 28
  25.   
  26.   
  27.             VIM REFERENCE MANUAL    by Sergey Khorev
  28. --- 1,4 ----
  29. ! *if_mzsch.txt*  For Vim version 7.2.  Last change: 2009 May 26
  30.   
  31.   
  32.             VIM REFERENCE MANUAL    by Sergey Khorev
  33. ***************
  34. *** 42,51 ****
  35.   
  36.                               *:mzfile* *:mzf*
  37.   :[range]mzf[ile] {file}    Execute the MzScheme script in {file}.  {not in Vi}
  38. -             All statements are executed in the namespace of the
  39. -             buffer that was current during :mzfile start.
  40. -             If you want to access other namespaces, use
  41. -             'parameterize'.
  42.   
  43.   All of these commands do essentially the same thing - they execute a piece of
  44.   MzScheme code, with the "current range" set to the given line
  45. --- 42,47 ----
  46. ***************
  47. *** 54,61 ****
  48.   In the case of :mzscheme, the code to execute is in the command-line.
  49.   In the case of :mzfile, the code to execute is the contents of the given file.
  50.   
  51. - Each buffer has its own MzScheme namespace. Global namespace is bound to
  52. - the "global-namespace" value from the 'vimext' module.
  53.   MzScheme interface defines exception exn:vim, derived from exn.
  54.   It is raised for various Vim errors.
  55.   
  56. --- 50,55 ----
  57. ***************
  58. *** 79,118 ****
  59.   e.g.: >
  60.       :mzscheme (require (prefix vim- vimext))
  61.   <
  62. ! All the examples below assume this naming scheme.  Note that you need to do
  63. ! this again for every buffer.
  64.   
  65. - The auto-instantiation can be achieved with autocommands, e.g. you can put
  66. - something like this in your .vimrc (EOFs should not have indentation): >
  67. -     function s:MzRequire()
  68. -     if has("mzscheme")
  69. -         :mz << EOF
  70. -         (require (prefix vim- vimext))
  71. -         (let ((buf (vim-get-buff-by-name (vim-eval "expand(\"<afile>\")"))))
  72. -           (when (and buf (not (eq? buf (vim-curr-buff))))
  73. -         (parameterize ((current-namespace (vim-get-buff-namespace buf)))
  74. -           (namespace-attach-module vim-global-namespace 'vimext)
  75. -           (namespace-require '(prefix vim vimext)))))
  76. -     EOF
  77. -     endif
  78. -     endfunction
  79. - 
  80. -     function s:MzStartup()
  81. -     if has("mzscheme")
  82. -         au BufNew,BufNewFile,BufAdd,BufReadPre * :call s:MzRequire()
  83. -         :mz << EOF
  84. -         (current-library-collection-paths
  85. -         (cons
  86. -             (build-path (find-system-path 'addon-dir) (version) "collects")
  87. -             (current-library-collection-paths)))
  88. -     EOF
  89. -     endif
  90. -     endfunction
  91. - 
  92. -     call s:MzStartup()
  93. - <
  94. - 
  95. - The global namespace just instantiated this module with the prefix "vimext:".
  96.                               *mzscheme-sandbox*
  97.   When executed in the |sandbox|, access to some filesystem and Vim interface
  98.   procedures is restricted.
  99. --- 73,80 ----
  100.   e.g.: >
  101.       :mzscheme (require (prefix vim- vimext))
  102.   <
  103. ! All the examples below assume this naming scheme. 
  104.   
  105.                               *mzscheme-sandbox*
  106.   When executed in the |sandbox|, access to some filesystem and Vim interface
  107.   procedures is restricted.
  108. ***************
  109. *** 121,135 ****
  110.   2. Examples                        *mzscheme-examples*
  111.   >
  112.       :mzscheme (display "Hello")
  113.       :mzscheme (vim-set-buff-line 10 "This is line #10")
  114.   <
  115.   Inline script usage: >
  116.       function! <SID>SetFirstLine()
  117.           :mz << EOF
  118.           (display "!!!")
  119.           (vim-set-buff-line 1 "This is line #1")
  120.           (vim-beep)
  121. !         EOF
  122.       endfunction
  123.   
  124.       nmap <F9> :call <SID>SetFirstLine() <CR>
  125. --- 83,102 ----
  126.   2. Examples                        *mzscheme-examples*
  127.   >
  128.       :mzscheme (display "Hello")
  129. +     :mz (display (string-append "Using MzScheme version " (version)))
  130. +     :mzscheme (require (prefix vim- vimext)) ; for MzScheme < 4.x
  131. +     :mzscheme (require (prefix-in vim- 'vimext)) ; MzScheme 4.x
  132.       :mzscheme (vim-set-buff-line 10 "This is line #10")
  133.   <
  134.   Inline script usage: >
  135.       function! <SID>SetFirstLine()
  136.           :mz << EOF
  137.           (display "!!!")
  138. +         (require (prefix vim- vimext))
  139. +         ; for newer versions (require (prefix-in vim- 'vimext))
  140.           (vim-set-buff-line 1 "This is line #1")
  141.           (vim-beep)
  142. !     EOF
  143.       endfunction
  144.   
  145.       nmap <F9> :call <SID>SetFirstLine() <CR>
  146. ***************
  147. *** 137,153 ****
  148.   File execution: >
  149.       :mzfile supascript.scm
  150.   <
  151. ! Accessing the current buffer namespace from an MzScheme program running in
  152. ! another buffer within |:mzfile|-executed script : >
  153. !     ; Move to the window below
  154. !     (vim-command "wincmd j")
  155. !     ; execute in the context of buffer, to which window belongs
  156. !     ; assume that buffer has 'textstring' defined
  157. !     (parameterize ((current-namespace
  158. !             (vim-get-buff-namespace (vim-curr-buff))))
  159. !      (eval '(vim-set-buff-line 1 textstring)))
  160. ! <
  161.   
  162.   ==============================================================================
  163.   3. Threads                        *mzscheme-threads*
  164.   
  165. --- 104,136 ----
  166.   File execution: >
  167.       :mzfile supascript.scm
  168.   <
  169. ! Vim exception handling: >
  170. !     :mz << EOF
  171. !     (require (prefix vim- vimext))
  172. !     ; for newer versions (require (prefix-in vim- 'vimext))
  173. !     (with-handlers
  174. !       ([exn:vim? (lambda (e) (display (exn-message e)))])
  175. !       (vim-eval "nonsense-string"))
  176. !     EOF
  177. ! <
  178. ! Auto-instantiation of vimext module (can be placed in your |vimrc|): >
  179. !     function! MzRequire()
  180. !     :redir => l:mzversion
  181. !     :mz (version)
  182. !     :redir END
  183. !     if strpart(l:mzversion, 1, 1) < "4"
  184. !         " MzScheme versions < 4.x:
  185. !         :mz (require (prefix vim- vimext))
  186. !     else
  187. !         " newer versions:
  188. !         :mz (require (prefix-in vim- 'vimext))
  189. !     endif
  190. !     endfunction
  191.   
  192. +     if has("mzscheme")
  193. +     silent call MzRequire()
  194. +     endif
  195. + <
  196.   ==============================================================================
  197.   3. Threads                        *mzscheme-threads*
  198.   
  199. ***************
  200. *** 168,178 ****
  201.   Common
  202.   ------
  203.       (command {command-string})        Perform the vim ":Ex" style command.
  204. !     (eval {expr-string})        Evaluate the vim expression to a string.
  205. !                     A |List| is turned into a string by
  206. !                     joining the items and inserting line
  207. !                     breaks.
  208. !                     NOTE clashes with MzScheme eval
  209.       (range-start)            Start/End of the range passed with
  210.       (range-end)                the Scheme command.
  211.       (beep)                beep
  212. --- 151,161 ----
  213.   Common
  214.   ------
  215.       (command {command-string})        Perform the vim ":Ex" style command.
  216. !     (eval {expr-string})        Evaluate the vim expression into
  217. !                     respective MzScheme object: |Lists| are
  218. !                     represented as Scheme lists,
  219. !                     |Dictionaries| as hash tables.
  220. !                     NOTE the name clashes with MzScheme eval
  221.       (range-start)            Start/End of the range passed with
  222.       (range-end)                the Scheme command.
  223.       (beep)                beep
  224. ***************
  225. *** 186,192 ****
  226.                       be set. The symbol 'global can be passed
  227.                       as {buffer-or-window}. Then |:setglobal|
  228.                       will be used.
  229. -     global-namespace            The MzScheme main namespace.
  230.   
  231.   Buffers                             *mzscheme-buffer*
  232.   -------
  233. --- 169,174 ----
  234. ***************
  235. *** 228,234 ****
  236.                       if there is no such buffer.
  237.       (get-buff-by-num {buffernum})   Get a buffer by its number (return #f if
  238.                       there is no buffer with this number).
  239. -     (get-buff-namespace [buffer])   Get buffer namespace.
  240.   
  241.   Windows                                *mzscheme-window*
  242.   ------
  243. --- 210,215 ----
  244. ***************
  245. *** 250,256 ****
  246.       (set-cursor (line . col) [window])  Set cursor position.
  247.   
  248.   ==============================================================================
  249. ! 5. Dynamic loading                    *mzscheme-dynamic*
  250.   
  251.   On MS-Windows the MzScheme libraries can be loaded dynamically. The |:version|
  252.   output then includes |+mzscheme/dyn|.
  253. --- 231,237 ----
  254.       (set-cursor (line . col) [window])  Set cursor position.
  255.   
  256.   ==============================================================================
  257. ! 5. Dynamic loading                    *mzscheme-dynamic* *E812*
  258.   
  259.   On MS-Windows the MzScheme libraries can be loaded dynamically. The |:version|
  260.   output then includes |+mzscheme/dyn|.
  261. *** ../vim-7.2.190/src/Makefile    2009-05-26 18:12:19.000000000 +0200
  262. --- src/Makefile    2009-05-26 22:54:48.000000000 +0200
  263. ***************
  264. *** 536,542 ****
  265.   # Use this with GCC to check for mistakes, unused arguments, etc.
  266.   #CFLAGS = -g -Wall -Wextra -Wmissing-prototypes -Wunreachable-code
  267.   #PYTHON_CFLAGS_EXTRA = -Wno-missing-field-initializers
  268. ! #MZSCHEME_CFLAGS_EXTRA = -Wno-unreachable-code
  269.   
  270.   # EFENCE - Electric-Fence malloc debugging: catches memory accesses beyond
  271.   # allocated memory (and makes every malloc()/free() very slow).
  272. --- 536,542 ----
  273.   # Use this with GCC to check for mistakes, unused arguments, etc.
  274.   #CFLAGS = -g -Wall -Wextra -Wmissing-prototypes -Wunreachable-code
  275.   #PYTHON_CFLAGS_EXTRA = -Wno-missing-field-initializers
  276. ! #MZSCHEME_CFLAGS_EXTRA = -Wno-unreachable-code -Wno-unused-parameter
  277.   
  278.   # EFENCE - Electric-Fence malloc debugging: catches memory accesses beyond
  279.   # allocated memory (and makes every malloc()/free() very slow).
  280. ***************
  281. *** 2200,2205 ****
  282. --- 2200,2206 ----
  283.       -rm -f $(TOOLS) auto/osdef.h auto/pathdef.c auto/if_perl.c
  284.       -rm -f conftest* *~ auto/link.sed
  285.       -rm -rf $(APPDIR)
  286. +     -rm -rf mzscheme_base.c
  287.       if test -d $(PODIR); then \
  288.           cd $(PODIR); $(MAKE) prefix=$(DESTDIR)$(prefix) clean; \
  289.       fi
  290. ***************
  291. *** 2433,2440 ****
  292.   objects/if_xcmdsrv.o: if_xcmdsrv.c
  293.       $(CCC) -o $@ if_xcmdsrv.c
  294.   
  295. ! objects/if_mzsch.o: if_mzsch.c
  296.       $(CCC) -o $@ $(MZSCHEME_CFLAGS_EXTRA) if_mzsch.c
  297.   
  298.   objects/if_perl.o: auto/if_perl.c
  299.       $(CCC) -o $@ auto/if_perl.c
  300. --- 2434,2444 ----
  301.   objects/if_xcmdsrv.o: if_xcmdsrv.c
  302.       $(CCC) -o $@ if_xcmdsrv.c
  303.   
  304. ! objects/if_mzsch.o: if_mzsch.c $(MZSCHEME_EXTRA)
  305.       $(CCC) -o $@ $(MZSCHEME_CFLAGS_EXTRA) if_mzsch.c
  306. +  
  307. + mzscheme_base.c:
  308. +     $(MZSCHEME_MZC) --c-mods mzscheme_base.c ++lib scheme/base
  309.   
  310.   objects/if_perl.o: auto/if_perl.c
  311.       $(CCC) -o $@ auto/if_perl.c
  312. *** ../vim-7.2.190/src/Make_ming.mak    2007-08-12 15:24:29.000000000 +0200
  313. --- src/Make_ming.mak    2009-05-26 18:54:15.000000000 +0200
  314. ***************
  315. *** 115,122 ****
  316. --- 115,135 ----
  317.   MZSCHEME_VER=205_000
  318.   endif
  319.   
  320. + ifndef MZSCHEME_PRECISE_GC
  321. + MZSCHEME_PRECISE_GC=no
  322. + endif
  323. + 
  324. + # for version 4.x we need to generate byte-code for Scheme base
  325. + ifndef MZSCHEME_GENERATE_BASE
  326. + MZSCHEME_GENERATE_BASE=no
  327. + endif
  328. + 
  329.   ifeq (no,$(DYNAMIC_MZSCHEME))
  330. + ifeq (yes,$(MZSCHEME_PRECISE_GC))
  331. + MZSCHEME_LIB=-lmzsch$(MZSCHEME_VER)
  332. + else
  333.   MZSCHEME_LIB = -lmzsch$(MZSCHEME_VER) -lmzgc$(MZSCHEME_VER)
  334. + endif
  335.   # the modern MinGW can dynamically link to dlls directly.
  336.   # point MZSCHEME_DLLS to where you put libmzschXXXXXXX.dll and libgcXXXXXXX.dll
  337.   ifndef MZSCHEME_DLLS
  338. ***************
  339. *** 410,415 ****
  340. --- 423,435 ----
  341.   ifdef MZSCHEME
  342.   OBJ += $(OUTDIR)/if_mzsch.o
  343.   MZSCHEME_INCL = if_mzsch.h
  344. + ifeq (yes,$(MZSCHEME_GENERATE_BASE))
  345. + CFLAGS += -DINCLUDE_MZSCHEME_BASE
  346. + MZ_EXTRA_DEP += mzscheme_base.c
  347. + endif
  348. + ifeq (yes,$(MZSCHEME_PRECISE_GC))
  349. + CFLAGS += -DMZ_PRECISE_GC
  350. + endif
  351.   endif
  352.   ifdef PYTHON
  353.   OBJ += $(OUTDIR)/if_python.o
  354. ***************
  355. *** 588,593 ****
  356. --- 608,619 ----
  357.   $(OUTDIR)/netbeans.o:    netbeans.c $(INCL) $(NBDEBUG_INCL) $(NBDEBUG_SRC)
  358.       $(CC) -c $(CFLAGS) netbeans.c -o $(OUTDIR)/netbeans.o
  359.   
  360. + $(OUTDIR)/if_mzsch.o:    if_mzsch.c $(INCL) if_mzsch.h $(MZ_EXTRA_DEP)
  361. +     $(CC) -c $(CFLAGS) if_mzsch.c -o $(OUTDIR)/if_mzsch.o
  362. + 
  363. + mzscheme_base.c:
  364. +     $(MZSCHEME)/mzc --c-mods mzscheme_base.c ++lib scheme/base
  365. + 
  366.   pathdef.c: $(INCL)
  367.   ifneq (sh.exe, $(SHELL))
  368.       @echo creating pathdef.c
  369. *** ../vim-7.2.190/src/Make_mvc.mak    2009-02-04 18:34:54.000000000 +0100
  370. --- src/Make_mvc.mak    2009-05-26 18:54:51.000000000 +0200
  371. ***************
  372. *** 34,39 ****
  373. --- 34,40 ----
  374.   #      MZSCHEME=[Path to MzScheme directory]
  375.   #      DYNAMIC_MZSCHEME=yes (to load the MzScheme DLLs dynamically)
  376.   #      MZSCHEME_VER=[version, 205_000, ...]
  377. + #      MZSCHEME_DEBUG=no
  378.   #
  379.   #    Perl interface:
  380.   #      PERL=[Path to Perl directory]
  381. ***************
  382. *** 621,635 ****
  383. --- 622,658 ----
  384.   MZSCHEME_VER = 205_000
  385.   !endif
  386.   CFLAGS = $(CFLAGS) -DFEAT_MZSCHEME -I $(MZSCHEME)\include
  387. + !if EXIST("$(MZSCHEME)\collects\scheme\base.ss")
  388. + # for MzScheme 4.x we need to include byte code for basic Scheme stuff
  389. + MZSCHEME_EXTRA_DEP = mzscheme_base.c
  390. + CFLAGS = $(CFLAGS) -DINCLUDE_MZSCHEME_BASE
  391. + !endif
  392. + !if EXIST("$(MZSCHEME)\lib\msvc\libmzsch$(MZSCHEME_VER).lib") \
  393. +     && !EXIST("$(MZSCHEME)\lib\msvc\libmzgc$(MZSCHEME_VER).lib")
  394. + !message Building with Precise GC
  395. + MZSCHEME_PRECISE_GC = yes
  396. + CFLAGS = $(CFLAGS) -DMZ_PRECISE_GC
  397. + !endif
  398.   !if "$(DYNAMIC_MZSCHEME)" == "yes"
  399. + !if "$(MZSCHEME_PRECISE_GC)" == "yes"
  400. + !error MzScheme with Precise GC cannot be loaded dynamically
  401. + !endif
  402.   !message MzScheme DLLs will be loaded dynamically
  403.   CFLAGS = $(CFLAGS) -DDYNAMIC_MZSCHEME \
  404.           -DDYNAMIC_MZSCH_DLL=\"libmzsch$(MZSCHEME_VER).dll\" \
  405.           -DDYNAMIC_MZGC_DLL=\"libmzgc$(MZSCHEME_VER).dll\"
  406.   !else
  407. + !if "$(MZSCHEME_DEBUG)" == "yes"
  408. + CFLAGS = $(CFLAGS) -DMZSCHEME_FORCE_GC
  409. + !endif
  410. + !if "$(MZSCHEME_PRECISE_GC)" == "yes"
  411. + # Precise GC does not use separate dll
  412. + MZSCHEME_LIB = $(MZSCHEME)\lib\msvc\libmzsch$(MZSCHEME_VER).lib
  413. + !else
  414.   MZSCHEME_LIB = $(MZSCHEME)\lib\msvc\libmzgc$(MZSCHEME_VER).lib \
  415.           $(MZSCHEME)\lib\msvc\libmzsch$(MZSCHEME_VER).lib
  416.   !endif
  417. + !endif
  418.   MZSCHEME_OBJ = $(OUTDIR)\if_mzsch.obj
  419.   !endif
  420.   
  421. ***************
  422. *** 930,938 ****
  423.   $(OUTDIR)/if_perlsfio.obj: $(OUTDIR) if_perlsfio.c  $(INCL)
  424.       $(CC) $(CFLAGS) $(PERL_INC) if_perlsfio.c
  425.   
  426. ! $(OUTDIR)/if_mzsch.obj: $(OUTDIR) if_mzsch.c  $(INCL)
  427.       $(CC) $(CFLAGS) if_mzsch.c \
  428.           -DMZSCHEME_COLLECTS=\"$(MZSCHEME:\=\\)\\collects\"
  429.   
  430.   $(OUTDIR)/if_python.obj: $(OUTDIR) if_python.c  $(INCL)
  431.       $(CC) $(CFLAGS) $(PYTHON_INC) if_python.c
  432. --- 953,963 ----
  433.   $(OUTDIR)/if_perlsfio.obj: $(OUTDIR) if_perlsfio.c  $(INCL)
  434.       $(CC) $(CFLAGS) $(PERL_INC) if_perlsfio.c
  435.   
  436. ! $(OUTDIR)/if_mzsch.obj: $(OUTDIR) if_mzsch.c  $(INCL) $(MZSCHEME_EXTRA_DEP)
  437.       $(CC) $(CFLAGS) if_mzsch.c \
  438.           -DMZSCHEME_COLLECTS=\"$(MZSCHEME:\=\\)\\collects\"
  439. + mzscheme_base.c:
  440. +     $(MZSCHEME)\mzc --c-mods mzscheme_base.c ++lib scheme/base
  441.   
  442.   $(OUTDIR)/if_python.obj: $(OUTDIR) if_python.c  $(INCL)
  443.       $(CC) $(CFLAGS) $(PYTHON_INC) if_python.c
  444. *** ../vim-7.2.190/src/auto/configure    2009-05-21 23:25:38.000000000 +0200
  445. --- src/auto/configure    2009-05-26 19:12:29.000000000 +0200
  446. ***************
  447. *** 701,706 ****
  448. --- 701,708 ----
  449.   shrpenv
  450.   vi_cv_perllib
  451.   vi_cv_path_perl
  452. + MZSCHEME_MZC
  453. + MZSCHEME_EXTRA
  454.   MZSCHEME_CFLAGS
  455.   MZSCHEME_LIBS
  456.   MZSCHEME_PRO
  457. ***************
  458. *** 4641,4648 ****
  459.   $as_echo "\"$PLTHOME\"" >&6; }
  460.       vi_cv_path_mzscheme_pfx="$PLTHOME"
  461.       else
  462. !     { $as_echo "$as_me:$LINENO: result: \"not set\"" >&5
  463. ! $as_echo "\"not set\"" >&6; }
  464.           # Extract the first word of "mzscheme", so it can be a program name with args.
  465.   set dummy mzscheme; ac_word=$2
  466.   { $as_echo "$as_me:$LINENO: checking for $ac_word" >&5
  467. --- 4643,4650 ----
  468.   $as_echo "\"$PLTHOME\"" >&6; }
  469.       vi_cv_path_mzscheme_pfx="$PLTHOME"
  470.       else
  471. !     { $as_echo "$as_me:$LINENO: result: not set" >&5
  472. ! $as_echo "not set" >&6; }
  473.           # Extract the first word of "mzscheme", so it can be a program name with args.
  474.   set dummy mzscheme; ac_word=$2
  475.   { $as_echo "$as_me:$LINENO: checking for $ac_word" >&5
  476. ***************
  477. *** 4697,4712 ****
  478.   if test "${vi_cv_path_mzscheme_pfx+set}" = set; then
  479.     $as_echo_n "(cached) " >&6
  480.   else
  481. !    vi_cv_path_mzscheme_pfx=`
  482. !         ${vi_cv_path_mzscheme} -evm \
  483. !         "(display (simplify-path        \
  484.              (build-path (call-with-values    \
  485.           (lambda () (split-path (find-system-path (quote exec-file)))) \
  486. !         (lambda (base name must-be-dir?) base)) (quote up))))"`
  487.   fi
  488.   { $as_echo "$as_me:$LINENO: result: $vi_cv_path_mzscheme_pfx" >&5
  489.   $as_echo "$vi_cv_path_mzscheme_pfx" >&6; }
  490. !                 vi_cv_path_mzscheme_pfx=`echo "$vi_cv_path_mzscheme_pfx" | sed 's+/$++'`
  491.       fi
  492.       fi
  493.     fi
  494. --- 4699,4714 ----
  495.   if test "${vi_cv_path_mzscheme_pfx+set}" = set; then
  496.     $as_echo_n "(cached) " >&6
  497.   else
  498. !                   echo "(display (simplify-path        \
  499.              (build-path (call-with-values    \
  500.           (lambda () (split-path (find-system-path (quote exec-file)))) \
  501. !         (lambda (base name must-be-dir?) base)) (quote up))))" > mzdirs.scm
  502. !                  vi_cv_path_mzscheme_pfx=`${vi_cv_path_mzscheme} -r mzdirs.scm | \
  503. !         sed -e 's+/$++'`
  504.   fi
  505.   { $as_echo "$as_me:$LINENO: result: $vi_cv_path_mzscheme_pfx" >&5
  506.   $as_echo "$vi_cv_path_mzscheme_pfx" >&6; }
  507. !         rm -f mzdirs.scm
  508.       fi
  509.       fi
  510.     fi
  511. ***************
  512. *** 4716,4736 ****
  513.       { $as_echo "$as_me:$LINENO: checking if scheme.h can be found in $vi_cv_path_mzscheme_pfx/include" >&5
  514.   $as_echo_n "checking if scheme.h can be found in $vi_cv_path_mzscheme_pfx/include... " >&6; }
  515.       if test -f $vi_cv_path_mzscheme_pfx/include/scheme.h; then
  516. !       { $as_echo "$as_me:$LINENO: result: \"yes\"" >&5
  517. ! $as_echo "\"yes\"" >&6; }
  518.       else
  519. !       { $as_echo "$as_me:$LINENO: result: \"no\"" >&5
  520. ! $as_echo "\"no\"" >&6; }
  521. !       { $as_echo "$as_me:$LINENO: checking if scheme.h can be found in $vi_cv_path_mzscheme_pfx/plt/include" >&5
  522. ! $as_echo_n "checking if scheme.h can be found in $vi_cv_path_mzscheme_pfx/plt/include... " >&6; }
  523.         if test -f $vi_cv_path_mzscheme_pfx/include/plt/scheme.h; then
  524. !     { $as_echo "$as_me:$LINENO: result: \"yes\"" >&5
  525. ! $as_echo "\"yes\"" >&6; }
  526. !     SCHEME_INC=/plt
  527.         else
  528. !     { $as_echo "$as_me:$LINENO: result: \"no\"" >&5
  529. ! $as_echo "\"no\"" >&6; }
  530. !     vi_cv_path_mzscheme_pfx=
  531.         fi
  532.       fi
  533.     fi
  534. --- 4718,4749 ----
  535.       { $as_echo "$as_me:$LINENO: checking if scheme.h can be found in $vi_cv_path_mzscheme_pfx/include" >&5
  536.   $as_echo_n "checking if scheme.h can be found in $vi_cv_path_mzscheme_pfx/include... " >&6; }
  537.       if test -f $vi_cv_path_mzscheme_pfx/include/scheme.h; then
  538. !       SCHEME_INC=${vi_cv_path_mzscheme_pfx}/include
  539. !       { $as_echo "$as_me:$LINENO: result: yes" >&5
  540. ! $as_echo "yes" >&6; }
  541.       else
  542. !       { $as_echo "$as_me:$LINENO: result: no" >&5
  543. ! $as_echo "no" >&6; }
  544. !       { $as_echo "$as_me:$LINENO: checking if scheme.h can be found in $vi_cv_path_mzscheme_pfx/include/plt" >&5
  545. ! $as_echo_n "checking if scheme.h can be found in $vi_cv_path_mzscheme_pfx/include/plt... " >&6; }
  546.         if test -f $vi_cv_path_mzscheme_pfx/include/plt/scheme.h; then
  547. !     { $as_echo "$as_me:$LINENO: result: yes" >&5
  548. ! $as_echo "yes" >&6; }
  549. !     SCHEME_INC=${vi_cv_path_mzscheme_pfx}/include/plt
  550.         else
  551. !     { $as_echo "$as_me:$LINENO: result: no" >&5
  552. ! $as_echo "no" >&6; }
  553. !     { $as_echo "$as_me:$LINENO: checking if scheme.h can be found in /usr/include/plt/" >&5
  554. ! $as_echo_n "checking if scheme.h can be found in /usr/include/plt/... " >&6; }
  555. !     if test -f /usr/include/plt/scheme.h; then
  556. !       { $as_echo "$as_me:$LINENO: result: yes" >&5
  557. ! $as_echo "yes" >&6; }
  558. !       SCHEME_INC=/usr/include/plt
  559. !     else
  560. !       { $as_echo "$as_me:$LINENO: result: no" >&5
  561. ! $as_echo "no" >&6; }
  562. !       vi_cv_path_mzscheme_pfx=
  563. !     fi
  564.         fi
  565.       fi
  566.     fi
  567. ***************
  568. *** 4738,4758 ****
  569.     if test "X$vi_cv_path_mzscheme_pfx" != "X"; then
  570.       if test "x$MACOSX" = "xyes"; then
  571.         MZSCHEME_LIBS="-framework PLT_MzScheme"
  572.       elif test -f "${vi_cv_path_mzscheme_pfx}/lib/libmzgc.a"; then
  573.         MZSCHEME_LIBS="${vi_cv_path_mzscheme_pfx}/lib/libmzscheme.a ${vi_cv_path_mzscheme_pfx}/lib/libmzgc.a"
  574.       else
  575. !       MZSCHEME_LIBS="-L${vi_cv_path_mzscheme_pfx}/lib -lmzscheme -lmzgc"
  576.         if test "$GCC" = yes; then
  577. !             MZSCHEME_LIBS="$MZSCHEME_LIBS -Wl,-rpath -Wl,${vi_cv_path_mzscheme_pfx}/lib"
  578.         elif test "`(uname) 2>/dev/null`" = SunOS &&
  579.                      uname -r | grep '^5' >/dev/null; then
  580. !     MZSCHEME_LIBS="$MZSCHEME_LIBS -R ${vi_cv_path_mzscheme_pfx}/lib"
  581.         fi
  582.       fi
  583.       if test -d $vi_cv_path_mzscheme_pfx/lib/plt/collects; then
  584.         SCHEME_COLLECTS=lib/plt/
  585.       fi
  586. !     MZSCHEME_CFLAGS="-I${vi_cv_path_mzscheme_pfx}/include${SCHEME_INC}   \
  587.         -DMZSCHEME_COLLECTS='\"${vi_cv_path_mzscheme_pfx}/${SCHEME_COLLECTS}collects\"'"
  588.       MZSCHEME_SRC="if_mzsch.c"
  589.       MZSCHEME_OBJ="objects/if_mzsch.o"
  590. --- 4751,4784 ----
  591.     if test "X$vi_cv_path_mzscheme_pfx" != "X"; then
  592.       if test "x$MACOSX" = "xyes"; then
  593.         MZSCHEME_LIBS="-framework PLT_MzScheme"
  594. +     elif test -f "${vi_cv_path_mzscheme_pfx}/lib/libmzscheme3m.a"; then
  595. +       MZSCHEME_LIBS="${vi_cv_path_mzscheme_pfx}/lib/libmzscheme3m.a"
  596. +       MZSCHEME_CFLAGS="-DMZ_PRECISE_GC"
  597.       elif test -f "${vi_cv_path_mzscheme_pfx}/lib/libmzgc.a"; then
  598.         MZSCHEME_LIBS="${vi_cv_path_mzscheme_pfx}/lib/libmzscheme.a ${vi_cv_path_mzscheme_pfx}/lib/libmzgc.a"
  599.       else
  600. !             if test -f "${vi_cv_path_mzscheme_pfx}/lib/libmzscheme3m.so"; then
  601. !         MZSCHEME_LIBS="-L${vi_cv_path_mzscheme_pfx}/lib -lmzscheme3m"
  602. !     MZSCHEME_CFLAGS="-DMZ_PRECISE_GC"
  603. !       else
  604. !         MZSCHEME_LIBS="-L${vi_cv_path_mzscheme_pfx}/lib -lmzscheme -lmzgc"
  605. !       fi
  606.         if test "$GCC" = yes; then
  607. !             MZSCHEME_LIBS="${MZSCHEME_LIBS} -Wl,-rpath -Wl,${vi_cv_path_mzscheme_pfx}/lib"
  608.         elif test "`(uname) 2>/dev/null`" = SunOS &&
  609.                      uname -r | grep '^5' >/dev/null; then
  610. !     MZSCHEME_LIBS="${MZSCHEME_LIBS} -R ${vi_cv_path_mzscheme_pfx}/lib"
  611.         fi
  612.       fi
  613.       if test -d $vi_cv_path_mzscheme_pfx/lib/plt/collects; then
  614.         SCHEME_COLLECTS=lib/plt/
  615.       fi
  616. !     if test -f "${vi_cv_path_mzscheme_pfx}/${SCHEME_COLLECTS}collects/scheme/base.ss" ; then
  617. !             MZSCHEME_EXTRA="mzscheme_base.c"
  618. !       MZSCHEME_CFLAGS="${MZSCHEME_CFLAGS} -DINCLUDE_MZSCHEME_BASE"
  619. !       MZSCHEME_MZC="${vi_cv_path_mzscheme_pfx}/bin/mzc"
  620. !     fi
  621. !     MZSCHEME_CFLAGS="${MZSCHEME_CFLAGS} -I${SCHEME_INC} \
  622.         -DMZSCHEME_COLLECTS='\"${vi_cv_path_mzscheme_pfx}/${SCHEME_COLLECTS}collects\"'"
  623.       MZSCHEME_SRC="if_mzsch.c"
  624.       MZSCHEME_OBJ="objects/if_mzsch.o"
  625. ***************
  626. *** 4767,4772 ****
  627. --- 4793,4800 ----
  628.   
  629.   
  630.   
  631. + 
  632. + 
  633.   fi
  634.   
  635.   
  636. *** ../vim-7.2.190/src/configure.in    2009-05-21 23:25:38.000000000 +0200
  637. --- src/configure.in    2009-05-26 18:57:35.000000000 +0200
  638. ***************
  639. *** 414,420 ****
  640.       AC_MSG_RESULT("$PLTHOME")
  641.       vi_cv_path_mzscheme_pfx="$PLTHOME"
  642.       else
  643. !     AC_MSG_RESULT("not set")
  644.       dnl -- try to find MzScheme executable
  645.       AC_PATH_PROG(vi_cv_path_mzscheme, mzscheme)
  646.   
  647. --- 414,420 ----
  648.       AC_MSG_RESULT("$PLTHOME")
  649.       vi_cv_path_mzscheme_pfx="$PLTHOME"
  650.       else
  651. !     AC_MSG_RESULT(not set)
  652.       dnl -- try to find MzScheme executable
  653.       AC_PATH_PROG(vi_cv_path_mzscheme, mzscheme)
  654.   
  655. ***************
  656. *** 430,443 ****
  657.       if test "X$vi_cv_path_mzscheme" != "X"; then
  658.           dnl -- find where MzScheme thinks it was installed
  659.           AC_CACHE_CHECK(MzScheme install prefix,vi_cv_path_mzscheme_pfx,
  660. !         [ vi_cv_path_mzscheme_pfx=`
  661. !         ${vi_cv_path_mzscheme} -evm \
  662. !         "(display (simplify-path        \
  663.              (build-path (call-with-values    \
  664.           (lambda () (split-path (find-system-path (quote exec-file)))) \
  665. !         (lambda (base name must-be-dir?) base)) (quote up))))"` ])
  666. !         dnl Remove a trailing slash.
  667. !         vi_cv_path_mzscheme_pfx=`echo "$vi_cv_path_mzscheme_pfx" | sed 's+/$++'`
  668.       fi
  669.       fi
  670.     fi
  671. --- 430,445 ----
  672.       if test "X$vi_cv_path_mzscheme" != "X"; then
  673.           dnl -- find where MzScheme thinks it was installed
  674.           AC_CACHE_CHECK(MzScheme install prefix,vi_cv_path_mzscheme_pfx,
  675. !         dnl different versions of MzScheme differ in command line processing
  676. !         dnl use universal approach
  677. !         echo "(display (simplify-path        \
  678.              (build-path (call-with-values    \
  679.           (lambda () (split-path (find-system-path (quote exec-file)))) \
  680. !         (lambda (base name must-be-dir?) base)) (quote up))))" > mzdirs.scm
  681. !         dnl Remove a trailing slash
  682. !         [ vi_cv_path_mzscheme_pfx=`${vi_cv_path_mzscheme} -r mzdirs.scm | \
  683. !         sed -e 's+/$++'` ])
  684. !         rm -f mzdirs.scm
  685.       fi
  686.       fi
  687.     fi
  688. ***************
  689. *** 446,461 ****
  690.     if test "X$vi_cv_path_mzscheme_pfx" != "X"; then
  691.       AC_MSG_CHECKING(if scheme.h can be found in $vi_cv_path_mzscheme_pfx/include)
  692.       if test -f $vi_cv_path_mzscheme_pfx/include/scheme.h; then
  693. !       AC_MSG_RESULT("yes")
  694.       else
  695. !       AC_MSG_RESULT("no")
  696. !       AC_MSG_CHECKING(if scheme.h can be found in $vi_cv_path_mzscheme_pfx/plt/include)
  697.         if test -f $vi_cv_path_mzscheme_pfx/include/plt/scheme.h; then
  698. !     AC_MSG_RESULT("yes")
  699. !     SCHEME_INC=/plt
  700.         else
  701. !     AC_MSG_RESULT("no")
  702. !     vi_cv_path_mzscheme_pfx=
  703.         fi
  704.       fi
  705.     fi
  706. --- 448,471 ----
  707.     if test "X$vi_cv_path_mzscheme_pfx" != "X"; then
  708.       AC_MSG_CHECKING(if scheme.h can be found in $vi_cv_path_mzscheme_pfx/include)
  709.       if test -f $vi_cv_path_mzscheme_pfx/include/scheme.h; then
  710. !       SCHEME_INC=${vi_cv_path_mzscheme_pfx}/include
  711. !       AC_MSG_RESULT(yes)
  712.       else
  713. !       AC_MSG_RESULT(no)
  714. !       AC_MSG_CHECKING(if scheme.h can be found in $vi_cv_path_mzscheme_pfx/include/plt)
  715.         if test -f $vi_cv_path_mzscheme_pfx/include/plt/scheme.h; then
  716. !     AC_MSG_RESULT(yes)
  717. !     SCHEME_INC=${vi_cv_path_mzscheme_pfx}/include/plt
  718.         else
  719. !     AC_MSG_RESULT(no)
  720. !     AC_MSG_CHECKING(if scheme.h can be found in /usr/include/plt/)
  721. !     if test -f /usr/include/plt/scheme.h; then
  722. !       AC_MSG_RESULT(yes)
  723. !       SCHEME_INC=/usr/include/plt
  724. !     else
  725. !       AC_MSG_RESULT(no)
  726. !       vi_cv_path_mzscheme_pfx=
  727. !     fi
  728.         fi
  729.       fi
  730.     fi
  731. ***************
  732. *** 463,485 ****
  733.     if test "X$vi_cv_path_mzscheme_pfx" != "X"; then
  734.       if test "x$MACOSX" = "xyes"; then
  735.         MZSCHEME_LIBS="-framework PLT_MzScheme"
  736.       elif test -f "${vi_cv_path_mzscheme_pfx}/lib/libmzgc.a"; then
  737.         MZSCHEME_LIBS="${vi_cv_path_mzscheme_pfx}/lib/libmzscheme.a ${vi_cv_path_mzscheme_pfx}/lib/libmzgc.a"
  738.       else
  739. !       MZSCHEME_LIBS="-L${vi_cv_path_mzscheme_pfx}/lib -lmzscheme -lmzgc"
  740.         if test "$GCC" = yes; then
  741.       dnl Make Vim remember the path to the library.  For when it's not in
  742.       dnl $LD_LIBRARY_PATH.
  743. !     MZSCHEME_LIBS="$MZSCHEME_LIBS -Wl,-rpath -Wl,${vi_cv_path_mzscheme_pfx}/lib"
  744.         elif test "`(uname) 2>/dev/null`" = SunOS &&
  745.                      uname -r | grep '^5' >/dev/null; then
  746. !     MZSCHEME_LIBS="$MZSCHEME_LIBS -R ${vi_cv_path_mzscheme_pfx}/lib"
  747.         fi
  748.       fi
  749.       if test -d $vi_cv_path_mzscheme_pfx/lib/plt/collects; then
  750.         SCHEME_COLLECTS=lib/plt/
  751.       fi
  752. !     MZSCHEME_CFLAGS="-I${vi_cv_path_mzscheme_pfx}/include${SCHEME_INC}   \
  753.         -DMZSCHEME_COLLECTS='\"${vi_cv_path_mzscheme_pfx}/${SCHEME_COLLECTS}collects\"'"
  754.       MZSCHEME_SRC="if_mzsch.c"
  755.       MZSCHEME_OBJ="objects/if_mzsch.o"
  756. --- 473,510 ----
  757.     if test "X$vi_cv_path_mzscheme_pfx" != "X"; then
  758.       if test "x$MACOSX" = "xyes"; then
  759.         MZSCHEME_LIBS="-framework PLT_MzScheme"
  760. +     elif test -f "${vi_cv_path_mzscheme_pfx}/lib/libmzscheme3m.a"; then
  761. +       MZSCHEME_LIBS="${vi_cv_path_mzscheme_pfx}/lib/libmzscheme3m.a"
  762. +       MZSCHEME_CFLAGS="-DMZ_PRECISE_GC"
  763.       elif test -f "${vi_cv_path_mzscheme_pfx}/lib/libmzgc.a"; then
  764.         MZSCHEME_LIBS="${vi_cv_path_mzscheme_pfx}/lib/libmzscheme.a ${vi_cv_path_mzscheme_pfx}/lib/libmzgc.a"
  765.       else
  766. !       dnl Using shared objects
  767. !       if test -f "${vi_cv_path_mzscheme_pfx}/lib/libmzscheme3m.so"; then
  768. !         MZSCHEME_LIBS="-L${vi_cv_path_mzscheme_pfx}/lib -lmzscheme3m"
  769. !     MZSCHEME_CFLAGS="-DMZ_PRECISE_GC"
  770. !       else
  771. !         MZSCHEME_LIBS="-L${vi_cv_path_mzscheme_pfx}/lib -lmzscheme -lmzgc"
  772. !       fi
  773.         if test "$GCC" = yes; then
  774.       dnl Make Vim remember the path to the library.  For when it's not in
  775.       dnl $LD_LIBRARY_PATH.
  776. !     MZSCHEME_LIBS="${MZSCHEME_LIBS} -Wl,-rpath -Wl,${vi_cv_path_mzscheme_pfx}/lib"
  777.         elif test "`(uname) 2>/dev/null`" = SunOS &&
  778.                      uname -r | grep '^5' >/dev/null; then
  779. !     MZSCHEME_LIBS="${MZSCHEME_LIBS} -R ${vi_cv_path_mzscheme_pfx}/lib"
  780.         fi
  781.       fi
  782.       if test -d $vi_cv_path_mzscheme_pfx/lib/plt/collects; then
  783.         SCHEME_COLLECTS=lib/plt/
  784.       fi
  785. !     if test -f "${vi_cv_path_mzscheme_pfx}/${SCHEME_COLLECTS}collects/scheme/base.ss" ; then
  786. !       dnl need to generate bytecode for MzScheme base
  787. !       MZSCHEME_EXTRA="mzscheme_base.c"
  788. !       MZSCHEME_CFLAGS="${MZSCHEME_CFLAGS} -DINCLUDE_MZSCHEME_BASE"
  789. !       MZSCHEME_MZC="${vi_cv_path_mzscheme_pfx}/bin/mzc"
  790. !     fi
  791. !     MZSCHEME_CFLAGS="${MZSCHEME_CFLAGS} -I${SCHEME_INC} \
  792.         -DMZSCHEME_COLLECTS='\"${vi_cv_path_mzscheme_pfx}/${SCHEME_COLLECTS}collects\"'"
  793.       MZSCHEME_SRC="if_mzsch.c"
  794.       MZSCHEME_OBJ="objects/if_mzsch.o"
  795. ***************
  796. *** 491,496 ****
  797. --- 516,523 ----
  798.     AC_SUBST(MZSCHEME_PRO)
  799.     AC_SUBST(MZSCHEME_LIBS)
  800.     AC_SUBST(MZSCHEME_CFLAGS)
  801. +   AC_SUBST(MZSCHEME_EXTRA)
  802. +   AC_SUBST(MZSCHEME_MZC)
  803.   fi
  804.   
  805.   
  806. *** ../vim-7.2.190/src/config.mk.in    2008-06-25 00:49:03.000000000 +0200
  807. --- src/config.mk.in    2009-05-26 18:57:49.000000000 +0200
  808. ***************
  809. *** 41,46 ****
  810. --- 41,48 ----
  811.   MZSCHEME_OBJ    = @MZSCHEME_OBJ@
  812.   MZSCHEME_CFLAGS    = @MZSCHEME_CFLAGS@
  813.   MZSCHEME_PRO    = @MZSCHEME_PRO@
  814. + MZSCHEME_EXTRA  = @MZSCHEME_EXTRA@
  815. + MZSCHEME_MZC    = @MZSCHEME_MZC@
  816.   
  817.   PERL        = @vi_cv_path_perl@
  818.   PERLLIB        = @vi_cv_perllib@
  819. *** ../vim-7.2.190/src/eval.c    2009-05-24 13:40:17.000000000 +0200
  820. --- src/eval.c    2009-05-26 18:58:20.000000000 +0200
  821. ***************
  822. *** 5866,5872 ****
  823.       return item1 == NULL && item2 == NULL;
  824.   }
  825.   
  826. ! #if defined(FEAT_PYTHON) || defined(PROTO)
  827.   /*
  828.    * Return the dictitem that an entry in a hashtable points to.
  829.    */
  830. --- 5866,5872 ----
  831.       return item1 == NULL && item2 == NULL;
  832.   }
  833.   
  834. ! #if defined(FEAT_PYTHON) || defined(FEAT_MZSCHEME) || defined(PROTO)
  835.   /*
  836.    * Return the dictitem that an entry in a hashtable points to.
  837.    */
  838. *** ../vim-7.2.190/src/if_mzsch.c    2009-05-17 16:23:20.000000000 +0200
  839. --- src/if_mzsch.c    2009-05-26 19:24:18.000000000 +0200
  840. ***************
  841. *** 4,9 ****
  842. --- 4,11 ----
  843.    * Original work by Brent Fulgham <bfulgham@debian.org>
  844.    * (Based on lots of help from Matthew Flatt)
  845.    *
  846. +  * TODO Convert byte-strings to char strings?
  847. +  *
  848.    * This consists of six parts:
  849.    * 1. MzScheme interpreter main program
  850.    * 2. Routines that handle the external interface between MzScheme and
  851. ***************
  852. *** 18,24 ****
  853.    *    garbage collector will do it self
  854.    * 2. Requires at least NORMAL features. I can't imagine why one may want
  855.    *    to build with SMALL or TINY features but with MzScheme interface.
  856. !  * 3. I don't use K&R-style functions. Anyway, MzScheme headers are ANSI.
  857.    */
  858.   
  859.   #include "vim.h"
  860. --- 20,26 ----
  861.    *    garbage collector will do it self
  862.    * 2. Requires at least NORMAL features. I can't imagine why one may want
  863.    *    to build with SMALL or TINY features but with MzScheme interface.
  864. !  * 3. I don't use K&R-style functions. Anyways, MzScheme headers are ANSI.
  865.    */
  866.   
  867.   #include "vim.h"
  868. ***************
  869. *** 29,42 ****
  870.    * depend". */
  871.   #if defined(FEAT_MZSCHEME) || defined(PROTO)
  872.   
  873.   /* Base data structures */
  874.   #define SCHEME_VIMBUFFERP(obj)  SAME_TYPE(SCHEME_TYPE(obj), mz_buffer_type)
  875.   #define SCHEME_VIMWINDOWP(obj)  SAME_TYPE(SCHEME_TYPE(obj), mz_window_type)
  876.   
  877.   typedef struct
  878.   {
  879. !     Scheme_Type        tag;
  880. !     Scheme_Env        *env;
  881.       buf_T        *buf;
  882.   } vim_mz_buffer;
  883.   
  884. --- 31,45 ----
  885.    * depend". */
  886.   #if defined(FEAT_MZSCHEME) || defined(PROTO)
  887.   
  888. + #include <assert.h>
  889. + 
  890.   /* Base data structures */
  891.   #define SCHEME_VIMBUFFERP(obj)  SAME_TYPE(SCHEME_TYPE(obj), mz_buffer_type)
  892.   #define SCHEME_VIMWINDOWP(obj)  SAME_TYPE(SCHEME_TYPE(obj), mz_window_type)
  893.   
  894.   typedef struct
  895.   {
  896. !     Scheme_Object   so;
  897.       buf_T        *buf;
  898.   } vim_mz_buffer;
  899.   
  900. ***************
  901. *** 44,50 ****
  902.   
  903.   typedef struct
  904.   {
  905. !     Scheme_Type        tag;
  906.       win_T        *win;
  907.   } vim_mz_window;
  908.   
  909. --- 47,53 ----
  910.   
  911.   typedef struct
  912.   {
  913. !     Scheme_Object   so;
  914.       win_T        *win;
  915.   } vim_mz_window;
  916.   
  917. ***************
  918. *** 67,85 ****
  919.       Scheme_Object   *port;
  920.   } Port_Info;
  921.   
  922. - /* info for closed prim */
  923. - /*
  924. -  * data have different means:
  925. -  * for do_eval it is char*
  926. -  * for do_apply is Apply_Onfo*
  927. -  * for do_load is Port_Info*
  928. -  */
  929. - typedef struct
  930. - {
  931. -     void    *data;
  932. -     Scheme_Env    *env;
  933. - } Cmd_Info;
  934. - 
  935.   /* info for do_apply */
  936.   typedef struct
  937.   {
  938. --- 70,75 ----
  939. ***************
  940. *** 122,128 ****
  941.   static Scheme_Object *insert_buffer_line_list(void *, int, Scheme_Object **);
  942.   static Scheme_Object *get_range_start(void *, int, Scheme_Object **);
  943.   static Scheme_Object *get_range_end(void *, int, Scheme_Object **);
  944. - static Scheme_Object *get_buffer_namespace(void *, int, Scheme_Object **);
  945.   static vim_mz_buffer *get_vim_curr_buffer(void);
  946.   
  947.   /*  Window-related commands */
  948. --- 112,117 ----
  949. ***************
  950. *** 163,170 ****
  951.   static int do_mzscheme_command(exarg_T *, void *, Scheme_Closed_Prim *what);
  952.   static void startup_mzscheme(void);
  953.   static char *string_to_line(Scheme_Object *obj);
  954. - static int mzscheme_io_init(void);
  955. - static void mzscheme_interface_init(vim_mz_buffer *self);
  956.   static void do_output(char *mesg, long len);
  957.   static void do_printf(char *format, ...);
  958.   static void do_flush(void);
  959. --- 152,157 ----
  960. ***************
  961. *** 174,192 ****
  962.   static Scheme_Object *do_eval(void *, int noargc, Scheme_Object **noargv);
  963.   static Scheme_Object *do_load(void *, int noargc, Scheme_Object **noargv);
  964.   static Scheme_Object *do_apply(void *, int noargc, Scheme_Object **noargv);
  965. ! static void register_vim_exn(Scheme_Env *env);
  966.   static vim_mz_buffer *get_buffer_arg(const char *fname, int argnum,
  967.       int argc, Scheme_Object **argv);
  968.   static vim_mz_window *get_window_arg(const char *fname, int argnum,
  969.       int argc, Scheme_Object **argv);
  970. - static void add_vim_exn(Scheme_Env *env);
  971.   static int line_in_range(linenr_T, buf_T *);
  972.   static void check_line_range(linenr_T, buf_T *);
  973.   static void mz_fix_cursor(int lo, int hi, int extra);
  974.   
  975. ! static int eval_in_namespace(void *, Scheme_Closed_Prim *, Scheme_Env *,
  976. !         Scheme_Object **ret);
  977. ! static void make_modules(Scheme_Env *);
  978.   
  979.   #ifdef DYNAMIC_MZSCHEME
  980.   
  981. --- 161,212 ----
  982.   static Scheme_Object *do_eval(void *, int noargc, Scheme_Object **noargv);
  983.   static Scheme_Object *do_load(void *, int noargc, Scheme_Object **noargv);
  984.   static Scheme_Object *do_apply(void *, int noargc, Scheme_Object **noargv);
  985. ! static void register_vim_exn(void);
  986.   static vim_mz_buffer *get_buffer_arg(const char *fname, int argnum,
  987.       int argc, Scheme_Object **argv);
  988.   static vim_mz_window *get_window_arg(const char *fname, int argnum,
  989.       int argc, Scheme_Object **argv);
  990.   static int line_in_range(linenr_T, buf_T *);
  991.   static void check_line_range(linenr_T, buf_T *);
  992.   static void mz_fix_cursor(int lo, int hi, int extra);
  993.   
  994. ! static int eval_with_exn_handling(void *, Scheme_Closed_Prim *,
  995. !         Scheme_Object **ret);
  996. ! static void make_modules(void);
  997. ! static void init_exn_catching_apply(void);
  998. ! static int mzscheme_env_main(Scheme_Env *env, int argc, char **argv);
  999. ! static int mzscheme_init(void);
  1000. ! #ifdef FEAT_EVAL
  1001. ! static Scheme_Object *vim_to_mzscheme(typval_T *vim_value, int depth,
  1002. !     Scheme_Hash_Table *visited);
  1003. ! #endif
  1004. ! 
  1005. ! #ifdef MZ_PRECISE_GC
  1006. ! static int buffer_size_proc(void *obj)
  1007. ! {
  1008. !     return gcBYTES_TO_WORDS(sizeof(vim_mz_buffer));
  1009. ! }
  1010. ! static int buffer_mark_proc(void *obj)
  1011. ! {
  1012. !     return buffer_size_proc(obj);
  1013. ! }
  1014. ! static int buffer_fixup_proc(void *obj)
  1015. ! {
  1016. !     return buffer_size_proc(obj);
  1017. ! }
  1018. ! static int window_size_proc(void *obj)
  1019. ! {
  1020. !     return gcBYTES_TO_WORDS(sizeof(vim_mz_window));
  1021. ! }
  1022. ! static int window_mark_proc(void *obj)
  1023. ! {
  1024. !     return window_size_proc(obj);
  1025. ! }
  1026. ! static int window_fixup_proc(void *obj)
  1027. ! {
  1028. !     return window_size_proc(obj);
  1029. ! }
  1030. ! #endif
  1031.   
  1032.   #ifdef DYNAMIC_MZSCHEME
  1033.   
  1034. ***************
  1035. *** 260,267 ****
  1036.       (Scheme_Closed_Prim *prim, void *data, const char *name, mzshort mina,
  1037.        mzshort maxa);
  1038.   static Scheme_Object *(*dll_scheme_make_integer_value)(long i);
  1039. - static Scheme_Object *(*dll_scheme_make_namespace)(int argc,
  1040. -     Scheme_Object *argv[]);
  1041.   static Scheme_Object *(*dll_scheme_make_pair)(Scheme_Object *car,
  1042.       Scheme_Object *cdr);
  1043.   static Scheme_Object *(*dll_scheme_make_prim_w_arity)(Scheme_Prim *prim,
  1044. --- 280,285 ----
  1045. ***************
  1046. *** 311,316 ****
  1047. --- 329,345 ----
  1048.   static Scheme_Object *(*dll_scheme_char_string_to_path)
  1049.       (Scheme_Object *s);
  1050.   # endif
  1051. + static Scheme_Hash_Table *(*dll_scheme_make_hash_table)(int type);
  1052. + static void (*dll_scheme_hash_set)(Scheme_Hash_Table *table,
  1053. +     Scheme_Object *key, Scheme_Object *value);
  1054. + static Scheme_Object *(*dll_scheme_hash_get)(Scheme_Hash_Table *table,
  1055. +     Scheme_Object *key);
  1056. + static Scheme_Object *(*dll_scheme_make_double)(double d);
  1057. + # ifdef INCLUDE_MZSCHEME_BASE
  1058. + static Scheme_Object *(*dll_scheme_make_sized_byte_string)(char *chars,
  1059. +     long len, int copy);
  1060. + static Scheme_Object *(*dll_scheme_namespace_require)(Scheme_Object *req);
  1061. + # endif
  1062.   
  1063.   /* arrays are imported directly */
  1064.   # define scheme_eof dll_scheme_eof
  1065. ***************
  1066. *** 368,374 ****
  1067.   # define scheme_lookup_global dll_scheme_lookup_global
  1068.   # define scheme_make_closed_prim_w_arity dll_scheme_make_closed_prim_w_arity
  1069.   # define scheme_make_integer_value dll_scheme_make_integer_value
  1070. - # define scheme_make_namespace dll_scheme_make_namespace
  1071.   # define scheme_make_pair dll_scheme_make_pair
  1072.   # define scheme_make_prim_w_arity dll_scheme_make_prim_w_arity
  1073.   # if MZSCHEME_VERSION_MAJOR < 299
  1074. --- 397,402 ----
  1075. ***************
  1076. *** 403,408 ****
  1077. --- 431,444 ----
  1078.   #  define scheme_char_string_to_path \
  1079.       dll_scheme_char_string_to_path
  1080.   # endif
  1081. + # define scheme_make_hash_table dll_scheme_make_hash_table
  1082. + # define scheme_hash_set dll_scheme_hash_set
  1083. + # define scheme_hash_get dll_scheme_hash_get
  1084. + # define scheme_make_double dll_scheme_make_double
  1085. + # ifdef INCLUDE_MZSCHEME_BASE
  1086. + #  define scheme_make_sized_byte_string dll_scheme_make_sized_byte_string
  1087. + #  define scheme_namespace_require dll_scheme_namespace_require
  1088. + # endif
  1089.   
  1090.   typedef struct
  1091.   {
  1092. ***************
  1093. *** 468,474 ****
  1094.       {"scheme_make_closed_prim_w_arity",
  1095.       (void **)&dll_scheme_make_closed_prim_w_arity},
  1096.       {"scheme_make_integer_value", (void **)&dll_scheme_make_integer_value},
  1097. -     {"scheme_make_namespace", (void **)&dll_scheme_make_namespace},
  1098.       {"scheme_make_pair", (void **)&dll_scheme_make_pair},
  1099.       {"scheme_make_prim_w_arity", (void **)&dll_scheme_make_prim_w_arity},
  1100.   # if MZSCHEME_VERSION_MAJOR < 299
  1101. --- 504,509 ----
  1102. ***************
  1103. *** 502,510 ****
  1104.       {"scheme_current_config", (void **)&dll_scheme_current_config},
  1105.       {"scheme_char_string_to_byte_string",
  1106.       (void **)&dll_scheme_char_string_to_byte_string},
  1107. !     {"scheme_char_string_to_path",
  1108. !     (void **)&dll_scheme_char_string_to_path},
  1109.   # endif
  1110.       {NULL, NULL}};
  1111.   
  1112.   static HINSTANCE hMzGC = 0;
  1113. --- 537,552 ----
  1114.       {"scheme_current_config", (void **)&dll_scheme_current_config},
  1115.       {"scheme_char_string_to_byte_string",
  1116.       (void **)&dll_scheme_char_string_to_byte_string},
  1117. !     {"scheme_char_string_to_path", (void **)&dll_scheme_char_string_to_path},
  1118.   # endif
  1119. +     {"scheme_make_hash_table", (void **)&dll_scheme_make_hash_table},
  1120. +     {"scheme_hash_set", (void **)&dll_scheme_hash_set},
  1121. +     {"scheme_hash_get", (void **)&dll_scheme_hash_get},
  1122. +     {"scheme_make_double", (void **)&dll_scheme_make_double},
  1123. + # ifdef INCLUDE_MZSCHEME_BASE
  1124. +     {"scheme_make_sized_byte_string", (void **)&dll_scheme_make_sized_byte_string},
  1125. +     {"scheme_namespace_require", (void **)&dll_scheme_namespace_require},
  1126. + #endif
  1127.       {NULL, NULL}};
  1128.   
  1129.   static HINSTANCE hMzGC = 0;
  1130. ***************
  1131. *** 592,597 ****
  1132. --- 634,644 ----
  1133.   }
  1134.   #endif /* DYNAMIC_MZSCHEME */
  1135.   
  1136. + /* need to put it here for dynamic stuff to work */
  1137. + #ifdef INCLUDE_MZSCHEME_BASE
  1138. + # include "mzscheme_base.c"
  1139. + #endif
  1140. + 
  1141.   /*
  1142.    *========================================================================
  1143.    *  1. MzScheme interpreter startup
  1144. ***************
  1145. *** 601,621 ****
  1146.   static Scheme_Type mz_buffer_type;
  1147.   static Scheme_Type mz_window_type;
  1148.   
  1149. ! static int initialized = 0;
  1150.   
  1151.   /* global environment */
  1152.   static Scheme_Env    *environment = NULL;
  1153.   /* output/error handlers */
  1154.   static Scheme_Object *curout = NULL;
  1155.   static Scheme_Object *curerr = NULL;
  1156. ! /* vim:exn exception */
  1157.   static Scheme_Object *exn_catching_apply = NULL;
  1158.   static Scheme_Object *exn_p = NULL;
  1159.   static Scheme_Object *exn_message = NULL;
  1160.   static Scheme_Object *vim_exn = NULL; /* Vim Error exception */
  1161. !  /* values for exn:vim - constructor, predicate, accessors etc */
  1162. ! static Scheme_Object *vim_exn_names = NULL;
  1163. ! static Scheme_Object *vim_exn_values = NULL;
  1164.   
  1165.   static long range_start;
  1166.   static long range_end;
  1167. --- 648,669 ----
  1168.   static Scheme_Type mz_buffer_type;
  1169.   static Scheme_Type mz_window_type;
  1170.   
  1171. ! static int initialized = FALSE;
  1172.   
  1173.   /* global environment */
  1174.   static Scheme_Env    *environment = NULL;
  1175.   /* output/error handlers */
  1176.   static Scheme_Object *curout = NULL;
  1177.   static Scheme_Object *curerr = NULL;
  1178. ! /* exn:vim exception */
  1179.   static Scheme_Object *exn_catching_apply = NULL;
  1180.   static Scheme_Object *exn_p = NULL;
  1181.   static Scheme_Object *exn_message = NULL;
  1182.   static Scheme_Object *vim_exn = NULL; /* Vim Error exception */
  1183. ! 
  1184. ! #if !defined(MZ_PRECISE_GC) || MZSCHEME_VERSION_MAJOR < 400
  1185. ! static void *stack_base = NULL;
  1186. ! #endif
  1187.   
  1188.   static long range_start;
  1189.   static long range_end;
  1190. ***************
  1191. *** 668,677 ****
  1192.   timer_proc(HWND hwnd, UINT uMsg, UINT idEvent, DWORD dwTime)
  1193.   # elif defined(FEAT_GUI_GTK)
  1194.       static gint
  1195. ! timer_proc(gpointer data UNUSED)
  1196.   # elif defined(FEAT_GUI_MOTIF) || defined(FEAT_GUI_ATHENA)
  1197.       static void
  1198. ! timer_proc(XtPointer timed_out UNUSED, XtIntervalId *interval_id UNUSED)
  1199.   # elif defined(FEAT_GUI_MAC)
  1200.       pascal void
  1201.   timer_proc(EventLoopTimerRef theTimer, void *userData)
  1202. --- 716,725 ----
  1203.   timer_proc(HWND hwnd, UINT uMsg, UINT idEvent, DWORD dwTime)
  1204.   # elif defined(FEAT_GUI_GTK)
  1205.       static gint
  1206. ! timer_proc(gpointer data)
  1207.   # elif defined(FEAT_GUI_MOTIF) || defined(FEAT_GUI_ATHENA)
  1208.       static void
  1209. ! timer_proc(XtPointer timed_out, XtIntervalId *interval_id)
  1210.   # elif defined(FEAT_GUI_MAC)
  1211.       pascal void
  1212.   timer_proc(EventLoopTimerRef theTimer, void *userData)
  1213. ***************
  1214. *** 751,762 ****
  1215.   #endif
  1216.   }
  1217.   
  1218.       static void
  1219.   startup_mzscheme(void)
  1220.   {
  1221. !     Scheme_Object *proc_make_security_guard;
  1222. ! 
  1223. !     scheme_set_stack_base(NULL, 1);
  1224.   
  1225.       MZ_REGISTER_STATIC(environment);
  1226.       MZ_REGISTER_STATIC(curout);
  1227. --- 799,862 ----
  1228.   #endif
  1229.   }
  1230.   
  1231. +     void
  1232. + mzscheme_main(void)
  1233. + {
  1234. + #if defined(MZ_PRECISE_GC) && MZSCHEME_VERSION_MAJOR >= 400
  1235. +     /* use trampoline for precise GC in MzScheme >= 4.x */
  1236. +     scheme_main_setup(TRUE, mzscheme_env_main, 0, NULL);
  1237. + #else
  1238. +     mzscheme_env_main(NULL, 0, NULL);
  1239. + #endif
  1240. + }
  1241. + 
  1242. +     static int
  1243. + mzscheme_env_main(Scheme_Env *env, int argc, char **argv)
  1244. + {
  1245. +     /* neither argument nor return values are used */
  1246. + #ifdef MZ_PRECISE_GC
  1247. + # if MZSCHEME_VERSION_MAJOR < 400
  1248. +     /*
  1249. +      * Starting from version 4.x, embedding applications must use
  1250. +      * scheme_main_setup/scheme_main_stack_setup trampolines
  1251. +      * rather than setting stack base directly with scheme_set_stack_base
  1252. +      */
  1253. +     Scheme_Object   *dummy = NULL;
  1254. +     MZ_GC_DECL_REG(1);
  1255. +     MZ_GC_VAR_IN_REG(0, dummy);
  1256. + 
  1257. +     stack_base = &__gc_var_stack__;
  1258. + # else
  1259. +     /* environment has been created by us by Scheme */
  1260. +     environment = env;
  1261. + # endif
  1262. +     /*
  1263. +      * In 4.x, all activities must be performed inside trampoline
  1264. +      * so we are forced to initialise GC immediately
  1265. +      * This can be postponed in 3.x but I see no point in implementing
  1266. +      * a feature which will work in older versions only.
  1267. +      * One would better use conservative GC if he needs dynamic MzScheme
  1268. +      */
  1269. +     mzscheme_init();
  1270. + #else
  1271. +     int dummy = 0;
  1272. +     stack_base = (void *)&dummy;
  1273. + #endif
  1274. +     main_loop(FALSE, FALSE);
  1275. + #if defined(MZ_PRECISE_GC) && MZSCHEME_VERSION_MAJOR < 400
  1276. +     /* releasing dummy */
  1277. +     MZ_GC_REG();
  1278. +     MZ_GC_UNREG();
  1279. + #endif
  1280. +     return 0;
  1281. + }
  1282. + 
  1283.       static void
  1284.   startup_mzscheme(void)
  1285.   {
  1286. ! #if !defined(MZ_PRECISE_GC) || MZSCHEME_VERSION_MAJOR < 400
  1287. !     scheme_set_stack_base(stack_base, 1);
  1288. ! #endif
  1289.   
  1290.       MZ_REGISTER_STATIC(environment);
  1291.       MZ_REGISTER_STATIC(curout);
  1292. ***************
  1293. *** 765,774 ****
  1294.       MZ_REGISTER_STATIC(exn_p);
  1295.       MZ_REGISTER_STATIC(exn_message);
  1296.       MZ_REGISTER_STATIC(vim_exn);
  1297. -     MZ_REGISTER_STATIC(vim_exn_names);
  1298. -     MZ_REGISTER_STATIC(vim_exn_values);
  1299.   
  1300.       environment = scheme_basic_env();
  1301.   
  1302.       /* redirect output */
  1303.       scheme_console_output = do_output;
  1304. --- 865,899 ----
  1305.       MZ_REGISTER_STATIC(exn_p);
  1306.       MZ_REGISTER_STATIC(exn_message);
  1307.       MZ_REGISTER_STATIC(vim_exn);
  1308.   
  1309. + #if !defined(MZ_PRECISE_GC) || MZSCHEME_VERSION_MAJOR < 400
  1310. +     /* in newer versions of precise GC the initial env has been created */
  1311.       environment = scheme_basic_env();
  1312. + #endif
  1313. +     MZ_GC_CHECK();
  1314. + 
  1315. + #ifdef INCLUDE_MZSCHEME_BASE
  1316. +     {
  1317. +     /*
  1318. +      * versions 4.x do not provide Scheme bindings by defaults
  1319. +      * we need to add them explicitly
  1320. +      */
  1321. +     Scheme_Object *scheme_base_symbol = NULL;
  1322. +     MZ_GC_DECL_REG(1);
  1323. +     MZ_GC_VAR_IN_REG(0, scheme_base_symbol);
  1324. +     MZ_GC_REG();
  1325. +     /* invoke function from generated and included base.c */
  1326. +     declare_modules(environment);
  1327. +     scheme_base_symbol = scheme_intern_symbol("scheme/base");
  1328. +     MZ_GC_CHECK();
  1329. +     scheme_namespace_require(scheme_base_symbol);
  1330. +     MZ_GC_CHECK();
  1331. +     MZ_GC_UNREG();
  1332. +     }
  1333. + #endif
  1334. +     register_vim_exn();
  1335. +     /* use new environment to initialise exception handling */
  1336. +     init_exn_catching_apply();
  1337.   
  1338.       /* redirect output */
  1339.       scheme_console_output = do_output;
  1340. ***************
  1341. *** 776,823 ****
  1342.   
  1343.   #ifdef MZSCHEME_COLLECTS
  1344.       /* setup 'current-library-collection-paths' parameter */
  1345. -     scheme_set_param(scheme_config, MZCONFIG_COLLECTION_PATHS,
  1346. -         scheme_make_pair(
  1347.   # if MZSCHEME_VERSION_MAJOR >= 299
  1348. !         scheme_char_string_to_path(
  1349. !             scheme_byte_string_to_char_string(
  1350. !             scheme_make_byte_string(MZSCHEME_COLLECTS))),
  1351.   # else
  1352. !         scheme_make_string(MZSCHEME_COLLECTS),
  1353.   # endif
  1354. -         scheme_null));
  1355.   #endif
  1356.   #ifdef HAVE_SANDBOX
  1357. !     /* setup sandbox guards */
  1358. !     proc_make_security_guard = scheme_lookup_global(
  1359. !         scheme_intern_symbol("make-security-guard"),
  1360. !         environment);
  1361. !     if (proc_make_security_guard != NULL)
  1362. !     {
  1363. !     Scheme_Object *args[3];
  1364. !     Scheme_Object *guard;
  1365. !     args[0] = scheme_get_param(scheme_config, MZCONFIG_SECURITY_GUARD);
  1366. !     args[1] = scheme_make_prim_w_arity(sandbox_file_guard,
  1367. !         "sandbox-file-guard", 3, 3);
  1368. !     args[2] = scheme_make_prim_w_arity(sandbox_network_guard,
  1369. !         "sandbox-network-guard", 4, 4);
  1370. !     guard = scheme_apply(proc_make_security_guard, 3, args);
  1371. !     scheme_set_param(scheme_config, MZCONFIG_SECURITY_GUARD, guard);
  1372.       }
  1373.   #endif
  1374.       /* Create buffer and window types for use in Scheme code */
  1375.       mz_buffer_type = scheme_make_type("<vim-buffer>");
  1376.       mz_window_type = scheme_make_type("<vim-window>");
  1377.   
  1378. !     register_vim_exn(environment);
  1379. !     make_modules(environment);
  1380.   
  1381.       /*
  1382.        * setup callback to receive notifications
  1383.        * whether thread scheduling is (or not) required
  1384.        */
  1385.       scheme_notify_multithread = notify_multithread;
  1386. -     initialized = 1;
  1387.   }
  1388.   
  1389.   /*
  1390. --- 901,1031 ----
  1391.   
  1392.   #ifdef MZSCHEME_COLLECTS
  1393.       /* setup 'current-library-collection-paths' parameter */
  1394.   # if MZSCHEME_VERSION_MAJOR >= 299
  1395. !     {
  1396. !     Scheme_Object    *coll_byte_string = NULL;
  1397. !     Scheme_Object    *coll_char_string = NULL;
  1398. !     Scheme_Object    *coll_path = NULL;
  1399. !     Scheme_Object    *coll_pair = NULL;
  1400. !     Scheme_Config    *config = NULL;
  1401. ! 
  1402. !     MZ_GC_DECL_REG(5);
  1403. !     MZ_GC_VAR_IN_REG(0, coll_byte_string);
  1404. !     MZ_GC_VAR_IN_REG(1, coll_char_string);
  1405. !     MZ_GC_VAR_IN_REG(2, coll_path);
  1406. !     MZ_GC_VAR_IN_REG(3, coll_pair);
  1407. !     MZ_GC_VAR_IN_REG(4, config);
  1408. !     MZ_GC_REG();
  1409. !     coll_byte_string = scheme_make_byte_string(MZSCHEME_COLLECTS);
  1410. !     MZ_GC_CHECK();
  1411. !     coll_char_string = scheme_byte_string_to_char_string(coll_byte_string);
  1412. !     MZ_GC_CHECK();
  1413. !     coll_path = scheme_char_string_to_path(coll_char_string);
  1414. !     MZ_GC_CHECK();
  1415. !     coll_pair = scheme_make_pair(coll_path, scheme_null);
  1416. !     MZ_GC_CHECK();
  1417. !     config = scheme_config;
  1418. !     MZ_GC_CHECK();
  1419. !     scheme_set_param(config, MZCONFIG_COLLECTION_PATHS, coll_pair);
  1420. !     MZ_GC_CHECK();
  1421. !     MZ_GC_UNREG();
  1422. !     }
  1423.   # else
  1424. !     {
  1425. !     Scheme_Object    *coll_string = NULL;
  1426. !     Scheme_Object    *coll_pair = NULL;
  1427. !     Scheme_Config    *config = NULL;
  1428. ! 
  1429. !     MZ_GC_DECL_REG(3);
  1430. !     MZ_GC_VAR_IN_REG(0, coll_string);
  1431. !     MZ_GC_VAR_IN_REG(1, coll_pair);
  1432. !     MZ_GC_VAR_IN_REG(2, config);
  1433. !     MZ_GC_REG();
  1434. !     coll_string = scheme_make_string(MZSCHEME_COLLECTS);
  1435. !     MZ_GC_CHECK();
  1436. !     coll_pair = scheme_make_pair(coll_string, scheme_null);
  1437. !     MZ_GC_CHECK();
  1438. !     config = scheme_config;
  1439. !     MZ_GC_CHECK();
  1440. !     scheme_set_param(config, MZCONFIG_COLLECTION_PATHS, coll_pair);
  1441. !     MZ_GC_CHECK();
  1442. !     MZ_GC_UNREG();
  1443. !     }
  1444.   # endif
  1445.   #endif
  1446.   #ifdef HAVE_SANDBOX
  1447. !     {
  1448. !     Scheme_Object    *make_security_guard = NULL;
  1449. !     MZ_GC_DECL_REG(1);
  1450. !     MZ_GC_VAR_IN_REG(0, make_security_guard);
  1451. !     MZ_GC_REG();
  1452. ! 
  1453. ! #if MZSCHEME_VERSION_MAJOR < 400
  1454. !     {
  1455. !         Scheme_Object    *make_security_guard_symbol = NULL;
  1456. !         MZ_GC_DECL_REG(1);
  1457. !         MZ_GC_VAR_IN_REG(0, make_security_guard_symbol);
  1458. !         MZ_GC_REG();
  1459. !         make_security_guard_symbol = scheme_intern_symbol("make-security-guard");
  1460. !         MZ_GC_CHECK();
  1461. !         make_security_guard = scheme_lookup_global(
  1462. !             make_security_guard_symbol, environment);
  1463. !         MZ_GC_UNREG();
  1464. !     }
  1465. ! #else
  1466. !     make_security_guard = scheme_builtin_value("make-security-guard");
  1467. !     MZ_GC_CHECK();
  1468. ! #endif
  1469. ! 
  1470. !     /* setup sandbox guards */
  1471. !     if (make_security_guard != NULL)
  1472. !     {
  1473. !         Scheme_Object   *args[3] = {NULL, NULL, NULL};
  1474. !         Scheme_Object   *guard = NULL;
  1475. !         Scheme_Config   *config = NULL;
  1476. !         MZ_GC_DECL_REG(5);
  1477. !         MZ_GC_ARRAY_VAR_IN_REG(0, args, 3);
  1478. !         MZ_GC_VAR_IN_REG(3, guard);
  1479. !         MZ_GC_VAR_IN_REG(4, config);
  1480. !         MZ_GC_REG();
  1481. !         config = scheme_config;
  1482. !         MZ_GC_CHECK();
  1483. !         args[0] = scheme_get_param(config, MZCONFIG_SECURITY_GUARD);
  1484. !         MZ_GC_CHECK();
  1485. !         args[1] = scheme_make_prim_w_arity(sandbox_file_guard,
  1486. !             "sandbox-file-guard", 3, 3);
  1487. !         args[2] = scheme_make_prim_w_arity(sandbox_network_guard,
  1488. !             "sandbox-network-guard", 4, 4);
  1489. !         guard = scheme_apply(make_security_guard, 3, args);
  1490. !         MZ_GC_CHECK();
  1491. !         scheme_set_param(config, MZCONFIG_SECURITY_GUARD, guard);
  1492. !         MZ_GC_CHECK();
  1493. !         MZ_GC_UNREG();
  1494. !     }
  1495. !     MZ_GC_UNREG();
  1496.       }
  1497.   #endif
  1498.       /* Create buffer and window types for use in Scheme code */
  1499.       mz_buffer_type = scheme_make_type("<vim-buffer>");
  1500. +     MZ_GC_CHECK();
  1501.       mz_window_type = scheme_make_type("<vim-window>");
  1502. +     MZ_GC_CHECK();
  1503. + #ifdef MZ_PRECISE_GC
  1504. +     GC_register_traversers(mz_buffer_type,
  1505. +         buffer_size_proc, buffer_mark_proc, buffer_fixup_proc,
  1506. +         TRUE, TRUE);
  1507. +     GC_register_traversers(mz_window_type,
  1508. +         window_size_proc, window_mark_proc, window_fixup_proc,
  1509. +         TRUE, TRUE);
  1510. + #endif
  1511.   
  1512. !     make_modules();
  1513.   
  1514.       /*
  1515.        * setup callback to receive notifications
  1516.        * whether thread scheduling is (or not) required
  1517.        */
  1518.       scheme_notify_multithread = notify_multithread;
  1519.   }
  1520.   
  1521.   /*
  1522. ***************
  1523. *** 827,897 ****
  1524.       static int
  1525.   mzscheme_init(void)
  1526.   {
  1527. -     int do_require = FALSE;
  1528. - 
  1529.       if (!initialized)
  1530.       {
  1531. -     do_require = TRUE;
  1532.   #ifdef DYNAMIC_MZSCHEME
  1533.       if (!mzscheme_enabled(TRUE))
  1534.       {
  1535. !         EMSG(_("???: Sorry, this command is disabled, the MzScheme library could not be loaded."));
  1536.           return -1;
  1537.       }
  1538.   #endif
  1539.       startup_mzscheme();
  1540. ! 
  1541. !     if (mzscheme_io_init())
  1542. !         return -1;
  1543. ! 
  1544. !     }
  1545. !     /* recreate ports each call effectivelly clearing these ones */
  1546. !     curout = scheme_make_string_output_port();
  1547. !     curerr = scheme_make_string_output_port();
  1548. !     scheme_set_param(scheme_config, MZCONFIG_OUTPUT_PORT, curout);
  1549. !     scheme_set_param(scheme_config, MZCONFIG_ERROR_PORT, curerr);
  1550. ! 
  1551. !     if (do_require)
  1552. !     {
  1553. !     /* auto-instantiate in basic env */
  1554. !     eval_in_namespace("(require (prefix vimext: vimext))", do_eval,
  1555. !         environment, NULL);
  1556.       }
  1557. - 
  1558. -     return 0;
  1559. - }
  1560. - 
  1561. - /*
  1562. -  * This routine fills the namespace with various important routines that can
  1563. -  * be used within MzScheme.
  1564. -  */
  1565. -     static void
  1566. - mzscheme_interface_init(vim_mz_buffer *mzbuff)
  1567. - {
  1568. -     Scheme_Object   *attach;
  1569. - 
  1570. -     mzbuff->env = (Scheme_Env *)scheme_make_namespace(0, NULL);
  1571. - 
  1572. -     /*
  1573. -      * attach instantiated modules from global namespace
  1574. -      * so they can be easily instantiated in the buffer namespace
  1575. -      */
  1576. -     attach = scheme_lookup_global(
  1577. -         scheme_intern_symbol("namespace-attach-module"),
  1578. -         environment);
  1579. - 
  1580. -     if (attach != NULL)
  1581.       {
  1582. !     Scheme_Object   *ret;
  1583. !     Scheme_Object    *args[2];
  1584. ! 
  1585. !     args[0] = (Scheme_Object *)environment;
  1586. !     args[1] = scheme_intern_symbol("vimext");
  1587. ! 
  1588. !     ret = (Scheme_Object *)mzvim_apply(attach, 2, args);
  1589.       }
  1590.   
  1591. !     add_vim_exn(mzbuff->env);
  1592.   }
  1593.   
  1594.   /*
  1595. --- 1035,1072 ----
  1596.       static int
  1597.   mzscheme_init(void)
  1598.   {
  1599.       if (!initialized)
  1600.       {
  1601.   #ifdef DYNAMIC_MZSCHEME
  1602.       if (!mzscheme_enabled(TRUE))
  1603.       {
  1604. !         EMSG(_("E812: Sorry, this command is disabled, the MzScheme libraries could not be loaded."));
  1605.           return -1;
  1606.       }
  1607.   #endif
  1608.       startup_mzscheme();
  1609. !     initialized = TRUE;
  1610.       }
  1611.       {
  1612. !     Scheme_Config    *config = NULL;
  1613. !     MZ_GC_DECL_REG(1);
  1614. !     MZ_GC_VAR_IN_REG(0, config);
  1615. !     MZ_GC_REG();
  1616. !     config = scheme_config;
  1617. !     MZ_GC_CHECK();
  1618. !     /* recreate ports each call effectivelly clearing these ones */
  1619. !     curout = scheme_make_string_output_port();
  1620. !     MZ_GC_CHECK();
  1621. !     curerr = scheme_make_string_output_port();
  1622. !     MZ_GC_CHECK();
  1623. !     scheme_set_param(config, MZCONFIG_OUTPUT_PORT, curout);
  1624. !     MZ_GC_CHECK();
  1625. !     scheme_set_param(config, MZCONFIG_ERROR_PORT, curerr);
  1626. !     MZ_GC_CHECK();
  1627. !     MZ_GC_UNREG();
  1628.       }
  1629.   
  1630. !     return 0;
  1631.   }
  1632.   
  1633.   /*
  1634. ***************
  1635. *** 901,928 ****
  1636.    */
  1637.   
  1638.   /*
  1639. !  * Evaluate command in namespace with exception handling
  1640.    */
  1641.       static int
  1642. ! eval_in_namespace(void *data, Scheme_Closed_Prim *what, Scheme_Env *env,
  1643. !         Scheme_Object **ret)
  1644.   {
  1645. !     Scheme_Object   *value;
  1646. !     Scheme_Object   *exn;
  1647. !     Cmd_Info        info;   /* closure info */
  1648. ! 
  1649. !     info.data = data;
  1650. !     info.env = env;
  1651. ! 
  1652. !     scheme_set_param(scheme_config, MZCONFIG_ENV,
  1653. !         (Scheme_Object *) env);
  1654. !     /*
  1655. !      * ensure all evaluations will be in current buffer namespace,
  1656. !      * the second argument to scheme_eval_string isn't enough!
  1657. !      */
  1658. !     value = _apply_thunk_catch_exceptions(
  1659. !         scheme_make_closed_prim_w_arity(what, &info, "mzvim", 0, 0),
  1660. !         &exn);
  1661.   
  1662.       if (!value)
  1663.       {
  1664. --- 1076,1100 ----
  1665.    */
  1666.   
  1667.   /*
  1668. !  * Evaluate command with exception handling
  1669.    */
  1670.       static int
  1671. ! eval_with_exn_handling(void *data, Scheme_Closed_Prim *what, Scheme_Object **ret)
  1672.   {
  1673. !     Scheme_Object   *value = NULL;
  1674. !     Scheme_Object   *exn = NULL;
  1675. !     Scheme_Object   *prim = NULL;
  1676. ! 
  1677. !     MZ_GC_DECL_REG(3);
  1678. !     MZ_GC_VAR_IN_REG(0, value);
  1679. !     MZ_GC_VAR_IN_REG(1, exn);
  1680. !     MZ_GC_VAR_IN_REG(2, prim);
  1681. !     MZ_GC_REG();
  1682. ! 
  1683. !     prim = scheme_make_closed_prim_w_arity(what, data, "mzvim", 0, 0);
  1684. !     MZ_GC_CHECK();
  1685. !     value = _apply_thunk_catch_exceptions(prim, &exn);
  1686. !     MZ_GC_CHECK();
  1687.   
  1688.       if (!value)
  1689.       {
  1690. ***************
  1691. *** 930,938 ****
  1692.       /* Got an exn? */
  1693.       if (value)
  1694.       {
  1695. !         scheme_display(value, curerr);  /*  Send to stderr-vim */
  1696.           do_flush();
  1697.       }
  1698.       /* `raise' was called on some arbitrary value */
  1699.       return FAIL;
  1700.       }
  1701. --- 1102,1112 ----
  1702.       /* Got an exn? */
  1703.       if (value)
  1704.       {
  1705. !         scheme_display(value, curerr);   /*  Send to stderr-vim */
  1706. !         MZ_GC_CHECK();
  1707.           do_flush();
  1708.       }
  1709. +     MZ_GC_UNREG();
  1710.       /* `raise' was called on some arbitrary value */
  1711.       return FAIL;
  1712.       }
  1713. ***************
  1714. *** 941,949 ****
  1715. --- 1115,1127 ----
  1716.       *ret = value;
  1717.       /* Print any result, as long as it's not a void */
  1718.       else if (!SCHEME_VOIDP(value))
  1719. +     {
  1720.       scheme_display(value, curout);  /* Send to stdout-vim */
  1721. +     MZ_GC_CHECK();
  1722. +     }
  1723.   
  1724.       do_flush();
  1725. +     MZ_GC_UNREG();
  1726.       return OK;
  1727.   }
  1728.   
  1729. ***************
  1730. *** 957,963 ****
  1731.       range_start = eap->line1;
  1732.       range_end = eap->line2;
  1733.   
  1734. !     return eval_in_namespace(data, what, get_vim_curr_buffer()->env, NULL);
  1735.   }
  1736.   
  1737.   /*
  1738. --- 1135,1141 ----
  1739.       range_start = eap->line1;
  1740.       range_end = eap->line2;
  1741.   
  1742. !     return eval_with_exn_handling(data, what, NULL);
  1743.   }
  1744.   
  1745.   /*
  1746. ***************
  1747. *** 974,979 ****
  1748. --- 1152,1158 ----
  1749.       bp->buf = INVALID_BUFFER_VALUE;
  1750.       buf->b_mzscheme_ref = NULL;
  1751.       scheme_gc_ptr_ok(bp);
  1752. +     MZ_GC_CHECK();
  1753.       }
  1754.   }
  1755.   
  1756. ***************
  1757. *** 990,995 ****
  1758. --- 1169,1175 ----
  1759.       wp->win = INVALID_WINDOW_VALUE;
  1760.       win->w_mzscheme_ref = NULL;
  1761.       scheme_gc_ptr_ok(wp);
  1762. +     MZ_GC_CHECK();
  1763.       }
  1764.   }
  1765.   
  1766. ***************
  1767. *** 1014,1031 ****
  1768.       }
  1769.   }
  1770.   
  1771. - /* eval MzScheme string */
  1772. -     void *
  1773. - mzvim_eval_string(char_u *str)
  1774. - {
  1775. -     Scheme_Object *ret = NULL;
  1776. -     if (mzscheme_init())
  1777. -     return FAIL;
  1778. - 
  1779. -     eval_in_namespace(str, do_eval, get_vim_curr_buffer()->env, &ret);
  1780. -     return ret;
  1781. - }
  1782. - 
  1783.   /*
  1784.    * apply MzScheme procedure with arguments,
  1785.    * handling errors
  1786. --- 1194,1199 ----
  1787. ***************
  1788. *** 1033,1075 ****
  1789.       Scheme_Object *
  1790.   mzvim_apply(Scheme_Object *proc, int argc, Scheme_Object **argv)
  1791.   {
  1792. -     Apply_Info    data;
  1793. -     Scheme_Object *ret = NULL;
  1794. - 
  1795.       if (mzscheme_init())
  1796.       return FAIL;
  1797.   
  1798. !     data.proc = proc;
  1799. !     data.argc = argc;
  1800. !     data.argv = argv;
  1801. ! 
  1802. !     eval_in_namespace(&data, do_apply, get_vim_curr_buffer()->env, &ret);
  1803. !     return ret;
  1804.   }
  1805.   
  1806.       static Scheme_Object *
  1807.   do_load(void *data, int noargc, Scheme_Object **noargv)
  1808.   {
  1809. !     Cmd_Info        *info = (Cmd_Info *)data;
  1810. !     Scheme_Object   *result = scheme_void;
  1811. !     Scheme_Object   *expr;
  1812. !     char_u        *file = scheme_malloc_fail_ok(
  1813. !                       scheme_malloc_atomic, MAXPATHL + 1);
  1814. !     Port_Info        *pinfo = (Port_Info *)(info->data);
  1815.   
  1816.       /* make Vim expansion */
  1817. !     expand_env((char_u *)pinfo->name, file, MAXPATHL);
  1818. !     /* scheme_load looks strange working with namespaces and error handling*/
  1819.       pinfo->port = scheme_open_input_file(file, "mzfile");
  1820. !     scheme_count_lines(pinfo->port); /* to get accurate read error location*/
  1821.   
  1822.       /* Like REPL but print only last result */
  1823.       while (!SCHEME_EOFP(expr = scheme_read(pinfo->port)))
  1824. !     result = scheme_eval(expr, info->env);
  1825.   
  1826.       /* errors will be caught in do_mzscheme_comamnd and ex_mzfile */
  1827.       scheme_close_input_port(pinfo->port);
  1828.       pinfo->port = NULL;
  1829.       return result;
  1830.   }
  1831.   
  1832. --- 1201,1265 ----
  1833.       Scheme_Object *
  1834.   mzvim_apply(Scheme_Object *proc, int argc, Scheme_Object **argv)
  1835.   {
  1836.       if (mzscheme_init())
  1837.       return FAIL;
  1838. +     else
  1839. +     {
  1840. +     Apply_Info    data = {NULL, 0, NULL};
  1841. +     Scheme_Object    *ret = NULL;
  1842.   
  1843. !     MZ_GC_DECL_REG(5);
  1844. !     MZ_GC_VAR_IN_REG(0, ret);
  1845. !     MZ_GC_VAR_IN_REG(1, data.proc);
  1846. !     MZ_GC_ARRAY_VAR_IN_REG(2, data.argv, argc);
  1847. !     MZ_GC_REG();
  1848. ! 
  1849. !     data.proc = proc;
  1850. !     data.argc = argc;
  1851. !     data.argv = argv;
  1852. ! 
  1853. !     eval_with_exn_handling(&data, do_apply, &ret);
  1854. !     MZ_GC_UNREG();
  1855. !     return ret;
  1856. !     }
  1857.   }
  1858.   
  1859.       static Scheme_Object *
  1860.   do_load(void *data, int noargc, Scheme_Object **noargv)
  1861.   {
  1862. !     Scheme_Object   *expr = NULL;
  1863. !     Scheme_Object   *result = NULL;
  1864. !     char        *file = NULL;
  1865. !     Port_Info        *pinfo = (Port_Info *)data;
  1866. ! 
  1867. !     MZ_GC_DECL_REG(3);
  1868. !     MZ_GC_VAR_IN_REG(0, expr);
  1869. !     MZ_GC_VAR_IN_REG(1, result);
  1870. !     MZ_GC_VAR_IN_REG(2, file);
  1871. !     MZ_GC_REG();
  1872. ! 
  1873. !     file = (char *)scheme_malloc_fail_ok(scheme_malloc_atomic, MAXPATHL + 1);
  1874. !     MZ_GC_CHECK();
  1875.   
  1876.       /* make Vim expansion */
  1877. !     expand_env((char_u *)pinfo->name, (char_u *)file, MAXPATHL);
  1878.       pinfo->port = scheme_open_input_file(file, "mzfile");
  1879. !     MZ_GC_CHECK();
  1880. !     scheme_count_lines(pinfo->port);  /* to get accurate read error location*/
  1881. !     MZ_GC_CHECK();
  1882.   
  1883.       /* Like REPL but print only last result */
  1884.       while (!SCHEME_EOFP(expr = scheme_read(pinfo->port)))
  1885. !     {
  1886. !     result = scheme_eval(expr, environment);
  1887. !     MZ_GC_CHECK();
  1888. !     }
  1889.   
  1890.       /* errors will be caught in do_mzscheme_comamnd and ex_mzfile */
  1891.       scheme_close_input_port(pinfo->port);
  1892. +     MZ_GC_CHECK();
  1893.       pinfo->port = NULL;
  1894. +     MZ_GC_UNREG();
  1895.       return result;
  1896.   }
  1897.   
  1898. ***************
  1899. *** 1077,1089 ****
  1900.       void
  1901.   ex_mzfile(exarg_T *eap)
  1902.   {
  1903. !     Port_Info    pinfo;
  1904.   
  1905.       pinfo.name = (char *)eap->arg;
  1906. -     pinfo.port = NULL;
  1907.       if (do_mzscheme_command(eap, &pinfo, do_load) != OK
  1908.           && pinfo.port != NULL)    /* looks like port was not closed */
  1909.       scheme_close_input_port(pinfo.port);
  1910.   }
  1911.   
  1912.   
  1913. --- 1267,1286 ----
  1914.       void
  1915.   ex_mzfile(exarg_T *eap)
  1916.   {
  1917. !     Port_Info    pinfo = {NULL, NULL};
  1918. ! 
  1919. !     MZ_GC_DECL_REG(1);
  1920. !     MZ_GC_VAR_IN_REG(0, pinfo.port);
  1921. !     MZ_GC_REG();
  1922.   
  1923.       pinfo.name = (char *)eap->arg;
  1924.       if (do_mzscheme_command(eap, &pinfo, do_load) != OK
  1925.           && pinfo.port != NULL)    /* looks like port was not closed */
  1926. +     {
  1927.       scheme_close_input_port(pinfo.port);
  1928. +     MZ_GC_CHECK();
  1929. +     }
  1930. +     MZ_GC_UNREG();
  1931.   }
  1932.   
  1933.   
  1934. ***************
  1935. *** 1103,1116 ****
  1936.           "(with-handlers ([void (lambda (exn) (cons #f exn))]) "
  1937.           "(cons #t (thunk))))";
  1938.   
  1939. !     /* make sure we have a namespace with the standard syntax: */
  1940. !     Scheme_Env *env = (Scheme_Env *)scheme_make_namespace(0, NULL);
  1941. !     add_vim_exn(env);
  1942. ! 
  1943. !     exn_catching_apply = scheme_eval_string(e, env);
  1944. !     exn_p = scheme_lookup_global(scheme_intern_symbol("exn?"), env);
  1945. !     exn_message = scheme_lookup_global(
  1946. !         scheme_intern_symbol("exn-message"), env);
  1947.       }
  1948.   }
  1949.   
  1950. --- 1300,1311 ----
  1951.           "(with-handlers ([void (lambda (exn) (cons #f exn))]) "
  1952.           "(cons #t (thunk))))";
  1953.   
  1954. !     exn_catching_apply = scheme_eval_string(e, environment);
  1955. !     MZ_GC_CHECK();
  1956. !     exn_p = scheme_builtin_value("exn?");
  1957. !     MZ_GC_CHECK();
  1958. !     exn_message = scheme_builtin_value("exn-message");
  1959. !     MZ_GC_CHECK();
  1960.       }
  1961.   }
  1962.   
  1963. ***************
  1964. *** 1124,1131 ****
  1965.   {
  1966.       Scheme_Object *v;
  1967.   
  1968. -     init_exn_catching_apply();
  1969. - 
  1970.       v = _scheme_apply(exn_catching_apply, 1, &f);
  1971.       /* v is a pair: (cons #t value) or (cons #f exn) */
  1972.   
  1973. --- 1319,1324 ----
  1974. ***************
  1975. *** 1141,1148 ****
  1976.       static Scheme_Object *
  1977.   extract_exn_message(Scheme_Object *v)
  1978.   {
  1979. -     init_exn_catching_apply();
  1980. - 
  1981.       if (SCHEME_TRUEP(_scheme_apply(exn_p, 1, &v)))
  1982.       return _scheme_apply(exn_message, 1, &v);
  1983.       else
  1984. --- 1334,1339 ----
  1985. ***************
  1986. *** 1152,1167 ****
  1987.       static Scheme_Object *
  1988.   do_eval(void *s, int noargc, Scheme_Object **noargv)
  1989.   {
  1990. !     Cmd_Info    *info = (Cmd_Info *)s;
  1991. ! 
  1992. !     return scheme_eval_string_all((char *)(info->data), info->env, TRUE);
  1993.   }
  1994.   
  1995.       static Scheme_Object *
  1996.   do_apply(void *a, int noargc, Scheme_Object **noargv)
  1997.   {
  1998. !     Apply_Info    *info = (Apply_Info *)(((Cmd_Info *)a)->data);
  1999. ! 
  2000.       return scheme_apply(info->proc, info->argc, info->argv);
  2001.   }
  2002.   
  2003. --- 1343,1355 ----
  2004.       static Scheme_Object *
  2005.   do_eval(void *s, int noargc, Scheme_Object **noargv)
  2006.   {
  2007. !     return scheme_eval_string_all((char *)s, environment, TRUE);
  2008.   }
  2009.   
  2010.       static Scheme_Object *
  2011.   do_apply(void *a, int noargc, Scheme_Object **noargv)
  2012.   {
  2013. !     Apply_Info    *info = (Apply_Info *)a;
  2014.       return scheme_apply(info->proc, info->argc, info->argv);
  2015.   }
  2016.   
  2017. ***************
  2018. *** 1219,1224 ****
  2019. --- 1407,1413 ----
  2020.       long length;
  2021.   
  2022.       buff = scheme_get_sized_string_output(curerr, &length);
  2023. +     MZ_GC_CHECK();
  2024.       if (length)
  2025.       {
  2026.       do_err_output(buff, length);
  2027. ***************
  2028. *** 1226,1242 ****
  2029.       }
  2030.   
  2031.       buff = scheme_get_sized_string_output(curout, &length);
  2032.       if (length)
  2033.       do_output(buff, length);
  2034.   }
  2035.   
  2036. -     static int
  2037. - mzscheme_io_init(void)
  2038. - {
  2039. -     /* Nothing needed so far... */
  2040. -     return 0;
  2041. - }
  2042. - 
  2043.   /*
  2044.    *========================================================================
  2045.    *  4. Implementation of the Vim Features for MzScheme
  2046. --- 1415,1425 ----
  2047.       }
  2048.   
  2049.       buff = scheme_get_sized_string_output(curout, &length);
  2050. +     MZ_GC_CHECK();
  2051.       if (length)
  2052.       do_output(buff, length);
  2053.   }
  2054.   
  2055.   /*
  2056.    *========================================================================
  2057.    *  4. Implementation of the Vim Features for MzScheme
  2058. ***************
  2059. *** 1263,1284 ****
  2060.   vim_eval(void *data, int argc, Scheme_Object **argv)
  2061.   {
  2062.   #ifdef FEAT_EVAL
  2063. !     Vim_Prim        *prim = (Vim_Prim *)data;
  2064. !     char        *expr;
  2065. !     char        *str;
  2066. !     Scheme_Object   *result;
  2067.   
  2068. !     expr = SCHEME_STR_VAL(GUARANTEE_STRING(prim->name, 0));
  2069.   
  2070. !     str = (char *)eval_to_string((char_u *)expr, NULL, TRUE);
  2071.   
  2072. !     if (str == NULL)
  2073.       raise_vim_exn(_("invalid expression"));
  2074.   
  2075. !     result = scheme_make_string(str);
  2076. ! 
  2077. !     vim_free(str);
  2078.   
  2079.       return result;
  2080.   #else
  2081.       raise_vim_exn(_("expressions disabled at compile time"));
  2082. --- 1446,1475 ----
  2083.   vim_eval(void *data, int argc, Scheme_Object **argv)
  2084.   {
  2085.   #ifdef FEAT_EVAL
  2086. !     Vim_Prim        *prim = (Vim_Prim *)data;
  2087. !     char        *expr;
  2088. !     Scheme_Object    *result;
  2089. !     /* hash table to store visited values to avoid infinite loops */
  2090. !     Scheme_Hash_Table    *visited = NULL;
  2091. !     typval_T        *vim_result;
  2092. ! 
  2093. !     MZ_GC_DECL_REG(1);
  2094. !     MZ_GC_VAR_IN_REG(0, visited);
  2095. !     MZ_GC_REG();
  2096.   
  2097. !     visited = scheme_make_hash_table(SCHEME_hash_ptr);
  2098. !     MZ_GC_CHECK();
  2099.   
  2100. !     expr = SCHEME_STR_VAL(GUARANTEE_STRING(prim->name, 0));
  2101. !     vim_result = eval_expr((char_u *)expr, NULL);
  2102.   
  2103. !     if (vim_result == NULL)
  2104.       raise_vim_exn(_("invalid expression"));
  2105.   
  2106. !     result = vim_to_mzscheme(vim_result, 1, visited);
  2107. !     free_tv(vim_result);
  2108.   
  2109. +     MZ_GC_UNREG();
  2110.       return result;
  2111.   #else
  2112.       raise_vim_exn(_("expressions disabled at compile time"));
  2113. ***************
  2114. *** 1318,1324 ****
  2115.       Vim_Prim        *prim = (Vim_Prim *)data;
  2116.       char_u        *name;
  2117.       long        value;
  2118. !     char_u        *strval;
  2119.       int            rc;
  2120.       Scheme_Object   *rval;
  2121.       int            opt_flags = 0;
  2122. --- 1509,1515 ----
  2123.       Vim_Prim        *prim = (Vim_Prim *)data;
  2124.       char_u        *name;
  2125.       long        value;
  2126. !     char        *strval;
  2127.       int            rc;
  2128.       Scheme_Object   *rval;
  2129.       int            opt_flags = 0;
  2130. ***************
  2131. *** 1333,1338 ****
  2132. --- 1524,1530 ----
  2133.       {
  2134.           MZ_REGISTER_STATIC(M_global);
  2135.           M_global = scheme_intern_symbol("global");
  2136. +         MZ_GC_CHECK();
  2137.       }
  2138.   
  2139.       if (argv[1] == M_global)
  2140. ***************
  2141. *** 1354,1360 ****
  2142.           scheme_wrong_type(prim->name, "vim-buffer/window", 1, argc, argv);
  2143.       }
  2144.   
  2145. !     rc = get_option_value(name, &value, &strval, opt_flags);
  2146.       curbuf = save_curb;
  2147.       curwin = save_curw;
  2148.   
  2149. --- 1546,1552 ----
  2150.           scheme_wrong_type(prim->name, "vim-buffer/window", 1, argc, argv);
  2151.       }
  2152.   
  2153. !     rc = get_option_value(name, &value, (char_u **)&strval, opt_flags);
  2154.       curbuf = save_curb;
  2155.       curwin = save_curw;
  2156.   
  2157. ***************
  2158. *** 1364,1369 ****
  2159. --- 1556,1562 ----
  2160.       return scheme_make_integer_value(value);
  2161.       case 0:
  2162.       rval = scheme_make_string(strval);
  2163. +     MZ_GC_CHECK();
  2164.       vim_free(strval);
  2165.       return rval;
  2166.       case -1:
  2167. ***************
  2168. *** 1393,1398 ****
  2169. --- 1586,1592 ----
  2170.       {
  2171.           MZ_REGISTER_STATIC(M_global);
  2172.           M_global = scheme_intern_symbol("global");
  2173. +         MZ_GC_CHECK();
  2174.       }
  2175.   
  2176.       if (argv[1] == M_global)
  2177. ***************
  2178. *** 1463,1469 ****
  2179. --- 1657,1666 ----
  2180.   
  2181.       for (w = firstwin; w != NULL; w = w->w_next)
  2182.       if (w->w_buffer == buf->buf)
  2183. +     {
  2184.           list = scheme_make_pair(window_new(w), list);
  2185. +         MZ_GC_CHECK();
  2186. +     }
  2187.   
  2188.       return list;
  2189.   }
  2190. ***************
  2191. *** 1471,1477 ****
  2192.       static Scheme_Object *
  2193.   window_new(win_T *win)
  2194.   {
  2195. !     vim_mz_window *self;
  2196.   
  2197.       /* We need to handle deletion of windows underneath us.
  2198.        * If we add a "w_mzscheme_ref" field to the win_T structure,
  2199. --- 1668,1678 ----
  2200.       static Scheme_Object *
  2201.   window_new(win_T *win)
  2202.   {
  2203. !     vim_mz_window *self = NULL;
  2204. ! 
  2205. !     MZ_GC_DECL_REG(1);
  2206. !     MZ_GC_VAR_IN_REG(0, self);
  2207. !     MZ_GC_REG();
  2208.   
  2209.       /* We need to handle deletion of windows underneath us.
  2210.        * If we add a "w_mzscheme_ref" field to the win_T structure,
  2211. ***************
  2212. *** 1485,1497 ****
  2213.       return win->w_mzscheme_ref;
  2214.   
  2215.       self = scheme_malloc_fail_ok(scheme_malloc, sizeof(vim_mz_window));
  2216. - 
  2217.       vim_memset(self, 0, sizeof(vim_mz_window));
  2218.       scheme_dont_gc_ptr(self);    /* because win isn't visible to GC */
  2219.       win->w_mzscheme_ref = self;
  2220.       self->win = win;
  2221. !     self->tag = mz_window_type;
  2222.   
  2223.       return (Scheme_Object *)(self);
  2224.   }
  2225.   
  2226. --- 1686,1699 ----
  2227.       return win->w_mzscheme_ref;
  2228.   
  2229.       self = scheme_malloc_fail_ok(scheme_malloc, sizeof(vim_mz_window));
  2230.       vim_memset(self, 0, sizeof(vim_mz_window));
  2231.       scheme_dont_gc_ptr(self);    /* because win isn't visible to GC */
  2232. +     MZ_GC_CHECK();
  2233.       win->w_mzscheme_ref = self;
  2234.       self->win = win;
  2235. !     self->so.type = mz_window_type;
  2236.   
  2237. +     MZ_GC_UNREG();
  2238.       return (Scheme_Object *)(self);
  2239.   }
  2240.   
  2241. ***************
  2242. *** 1660,1666 ****
  2243.   /*
  2244.    *===========================================================================
  2245.    *  6. Vim Buffer-related Manipulation Functions
  2246. -  *     Note that each buffer should have its own private namespace.
  2247.    *===========================================================================
  2248.    */
  2249.   
  2250. --- 1862,1867 ----
  2251. ***************
  2252. *** 1669,1682 ****
  2253.   mzscheme_open_buffer(void *data, int argc, Scheme_Object **argv)
  2254.   {
  2255.       Vim_Prim        *prim = (Vim_Prim *)data;
  2256. !     char        *fname;
  2257.       int            num = 0;
  2258.       Scheme_Object   *onum;
  2259.   
  2260.   #ifdef HAVE_SANDBOX
  2261.       sandbox_check();
  2262.   #endif
  2263. !     fname = SCHEME_STR_VAL(GUARANTEE_STRING(prim->name, 0));
  2264.       /* TODO make open existing file */
  2265.       num = buflist_add(fname, BLN_LISTED | BLN_CURBUF);
  2266.   
  2267. --- 1870,1883 ----
  2268.   mzscheme_open_buffer(void *data, int argc, Scheme_Object **argv)
  2269.   {
  2270.       Vim_Prim        *prim = (Vim_Prim *)data;
  2271. !     char_u        *fname;
  2272.       int            num = 0;
  2273.       Scheme_Object   *onum;
  2274.   
  2275.   #ifdef HAVE_SANDBOX
  2276.       sandbox_check();
  2277.   #endif
  2278. !     fname = (char_u *)SCHEME_STR_VAL(GUARANTEE_STRING(prim->name, 0));
  2279.       /* TODO make open existing file */
  2280.       num = buflist_add(fname, BLN_LISTED | BLN_CURBUF);
  2281.   
  2282. ***************
  2283. *** 1712,1718 ****
  2284.       buf_T    *buf;
  2285.       char_u    *fname;
  2286.   
  2287. !     fname = SCHEME_STR_VAL(GUARANTEE_STRING(prim->name, 0));
  2288.   
  2289.       for (buf = firstbuf; buf; buf = buf->b_next)
  2290.       if (buf->b_ffname == NULL || buf->b_sfname == NULL)
  2291. --- 1913,1919 ----
  2292.       buf_T    *buf;
  2293.       char_u    *fname;
  2294.   
  2295. !     fname = (char_u *)SCHEME_STR_VAL(GUARANTEE_STRING(prim->name, 0));
  2296.   
  2297.       for (buf = firstbuf; buf; buf = buf->b_next)
  2298.       if (buf->b_ffname == NULL || buf->b_sfname == NULL)
  2299. ***************
  2300. *** 1783,1789 ****
  2301.       Vim_Prim        *prim = (Vim_Prim *)data;
  2302.       vim_mz_buffer   *buf = get_buffer_arg(prim->name, 0, argc, argv);
  2303.   
  2304. !     return scheme_make_string(buf->buf->b_ffname);
  2305.   }
  2306.   
  2307.   /* (curr-buff) */
  2308. --- 1984,1990 ----
  2309.       Vim_Prim        *prim = (Vim_Prim *)data;
  2310.       vim_mz_buffer   *buf = get_buffer_arg(prim->name, 0, argc, argv);
  2311.   
  2312. !     return scheme_make_string((char *)buf->buf->b_ffname);
  2313.   }
  2314.   
  2315.   /* (curr-buff) */
  2316. ***************
  2317. *** 1796,1802 ****
  2318.       static Scheme_Object *
  2319.   buffer_new(buf_T *buf)
  2320.   {
  2321. !     vim_mz_buffer *self;
  2322.   
  2323.       /* We need to handle deletion of buffers underneath us.
  2324.        * If we add a "b_mzscheme_ref" field to the buf_T structure,
  2325. --- 1997,2007 ----
  2326.       static Scheme_Object *
  2327.   buffer_new(buf_T *buf)
  2328.   {
  2329. !     vim_mz_buffer *self = NULL;
  2330. ! 
  2331. !     MZ_GC_DECL_REG(1);
  2332. !     MZ_GC_VAR_IN_REG(0, self);
  2333. !     MZ_GC_REG();
  2334.   
  2335.       /* We need to handle deletion of buffers underneath us.
  2336.        * If we add a "b_mzscheme_ref" field to the buf_T structure,
  2337. ***************
  2338. *** 1806,1820 ****
  2339.       return buf->b_mzscheme_ref;
  2340.   
  2341.       self = scheme_malloc_fail_ok(scheme_malloc, sizeof(vim_mz_buffer));
  2342. - 
  2343.       vim_memset(self, 0, sizeof(vim_mz_buffer));
  2344. !     scheme_dont_gc_ptr(self);    /* because buf isn't visible to GC */
  2345.       buf->b_mzscheme_ref = self;
  2346.       self->buf = buf;
  2347. !     self->tag = mz_buffer_type;
  2348. ! 
  2349. !     mzscheme_interface_init(self);    /* Set up namespace */
  2350.   
  2351.       return (Scheme_Object *)(self);
  2352.   }
  2353.   
  2354. --- 2011,2024 ----
  2355.       return buf->b_mzscheme_ref;
  2356.   
  2357.       self = scheme_malloc_fail_ok(scheme_malloc, sizeof(vim_mz_buffer));
  2358.       vim_memset(self, 0, sizeof(vim_mz_buffer));
  2359. !     scheme_dont_gc_ptr(self); /* because buf isn't visible to GC */
  2360. !     MZ_GC_CHECK();
  2361.       buf->b_mzscheme_ref = self;
  2362.       self->buf = buf;
  2363. !     self->so.type = mz_buffer_type;
  2364.   
  2365. +     MZ_GC_UNREG();
  2366.       return (Scheme_Object *)(self);
  2367.   }
  2368.   
  2369. ***************
  2370. *** 1845,1858 ****
  2371.       Vim_Prim        *prim = (Vim_Prim *)data;
  2372.       vim_mz_buffer   *buf;
  2373.       int            linenr;
  2374. !     char        *line;
  2375.   
  2376.       buf = get_buffer_arg(prim->name, 1, argc, argv);
  2377.       linenr = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0));
  2378.       line = ml_get_buf(buf->buf, (linenr_T)linenr, FALSE);
  2379.   
  2380.       raise_if_error();
  2381. !     return scheme_make_string(line);
  2382.   }
  2383.   
  2384.   
  2385. --- 2049,2062 ----
  2386.       Vim_Prim        *prim = (Vim_Prim *)data;
  2387.       vim_mz_buffer   *buf;
  2388.       int            linenr;
  2389. !     char_u        *line;
  2390.   
  2391.       buf = get_buffer_arg(prim->name, 1, argc, argv);
  2392.       linenr = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0));
  2393.       line = ml_get_buf(buf->buf, (linenr_T)linenr, FALSE);
  2394.   
  2395.       raise_if_error();
  2396. !     return scheme_make_string((char *)line);
  2397.   }
  2398.   
  2399.   
  2400. ***************
  2401. *** 1869,1875 ****
  2402.       Vim_Prim        *prim = (Vim_Prim *)data;
  2403.       vim_mz_buffer   *buf;
  2404.       int            i, hi, lo, n;
  2405. !     Scheme_Object   *list;
  2406.   
  2407.       buf = get_buffer_arg(prim->name, 2, argc, argv);
  2408.       list = scheme_null;
  2409. --- 2073,2083 ----
  2410.       Vim_Prim        *prim = (Vim_Prim *)data;
  2411.       vim_mz_buffer   *buf;
  2412.       int            i, hi, lo, n;
  2413. !     Scheme_Object   *list = NULL;
  2414. ! 
  2415. !     MZ_GC_DECL_REG(1);
  2416. !     MZ_GC_VAR_IN_REG(0, list);
  2417. !     MZ_GC_REG();
  2418.   
  2419.       buf = get_buffer_arg(prim->name, 2, argc, argv);
  2420.       list = scheme_null;
  2421. ***************
  2422. *** 1897,1904 ****
  2423.   
  2424.       /* Set the list item */
  2425.       list = scheme_make_pair(str, list);
  2426.       }
  2427. ! 
  2428.       return list;
  2429.   }
  2430.   
  2431. --- 2105,2113 ----
  2432.   
  2433.       /* Set the list item */
  2434.       list = scheme_make_pair(str, list);
  2435. +     MZ_GC_CHECK();
  2436.       }
  2437. !     MZ_GC_UNREG();
  2438.       return list;
  2439.   }
  2440.   
  2441. ***************
  2442. *** 1925,1935 ****
  2443.        */
  2444.       Vim_Prim        *prim = (Vim_Prim *)data;
  2445.       vim_mz_buffer   *buf;
  2446. !     Scheme_Object   *line;
  2447.       char        *save;
  2448. -     buf_T        *savebuf;
  2449.       int            n;
  2450.   
  2451.   #ifdef HAVE_SANDBOX
  2452.       sandbox_check();
  2453.   #endif
  2454. --- 2134,2147 ----
  2455.        */
  2456.       Vim_Prim        *prim = (Vim_Prim *)data;
  2457.       vim_mz_buffer   *buf;
  2458. !     Scheme_Object   *line = NULL;
  2459.       char        *save;
  2460.       int            n;
  2461.   
  2462. +     MZ_GC_DECL_REG(1);
  2463. +     MZ_GC_VAR_IN_REG(0, line);
  2464. +     MZ_GC_REG();
  2465. + 
  2466.   #ifdef HAVE_SANDBOX
  2467.       sandbox_check();
  2468.   #endif
  2469. ***************
  2470. *** 1943,1949 ****
  2471.   
  2472.       if (SCHEME_FALSEP(line))
  2473.       {
  2474. !     savebuf = curbuf;
  2475.       curbuf = buf->buf;
  2476.   
  2477.       if (u_savedel((linenr_T)n, 1L) == FAIL)
  2478. --- 2155,2162 ----
  2479.   
  2480.       if (SCHEME_FALSEP(line))
  2481.       {
  2482. !     buf_T        *savebuf = curbuf;
  2483. ! 
  2484.       curbuf = buf->buf;
  2485.   
  2486.       if (u_savedel((linenr_T)n, 1L) == FAIL)
  2487. ***************
  2488. *** 1962,1994 ****
  2489.   
  2490.       curbuf = savebuf;
  2491.   
  2492.       raise_if_error();
  2493.       return scheme_void;
  2494.       }
  2495.   
  2496. !     /* Otherwise it's a line */
  2497. !     save = string_to_line(line);
  2498. !     savebuf = curbuf;
  2499.   
  2500. !     curbuf = buf->buf;
  2501.   
  2502. -     if (u_savesub((linenr_T)n) == FAIL)
  2503. -     {
  2504. -     curbuf = savebuf;
  2505. -     raise_vim_exn(_("cannot save undo information"));
  2506. -     }
  2507. -     else if (ml_replace((linenr_T)n, (char_u *)save, TRUE) == FAIL)
  2508. -     {
  2509.       curbuf = savebuf;
  2510. -     raise_vim_exn(_("cannot replace line"));
  2511. -     }
  2512. -     else
  2513. -     changed_bytes((linenr_T)n, 0);
  2514.   
  2515. !     curbuf = savebuf;
  2516.   
  2517. !     raise_if_error();
  2518. !     return scheme_void;
  2519.   }
  2520.   
  2521.   /*
  2522. --- 2175,2230 ----
  2523.   
  2524.       curbuf = savebuf;
  2525.   
  2526. +     MZ_GC_UNREG();
  2527.       raise_if_error();
  2528.       return scheme_void;
  2529.       }
  2530. +     else
  2531. +     {
  2532. +     /* Otherwise it's a line */
  2533. +     buf_T        *savebuf = curbuf;
  2534.   
  2535. !     save = string_to_line(line);
  2536.   
  2537. !     curbuf = buf->buf;
  2538. ! 
  2539. !     if (u_savesub((linenr_T)n) == FAIL)
  2540. !     {
  2541. !         curbuf = savebuf;
  2542. !         vim_free(save);
  2543. !         raise_vim_exn(_("cannot save undo information"));
  2544. !     }
  2545. !     else if (ml_replace((linenr_T)n, (char_u *)save, TRUE) == FAIL)
  2546. !     {
  2547. !         curbuf = savebuf;
  2548. !         vim_free(save);
  2549. !         raise_vim_exn(_("cannot replace line"));
  2550. !     }
  2551. !     else
  2552. !     {
  2553. !         vim_free(save);
  2554. !         changed_bytes((linenr_T)n, 0);
  2555. !     }
  2556.   
  2557.       curbuf = savebuf;
  2558.   
  2559. !     /* Check that the cursor is not beyond the end of the line now. */
  2560. !     if (buf->buf == curwin->w_buffer)
  2561. !         check_cursor_col();
  2562.   
  2563. !     MZ_GC_UNREG();
  2564. !     raise_if_error();
  2565. !     return scheme_void;
  2566. !     }
  2567. ! }
  2568. ! 
  2569. !     static void
  2570. ! free_array(char **array)
  2571. ! {
  2572. !     char **curr = array;
  2573. !     while (*curr != NULL)
  2574. !     vim_free(*curr++);
  2575. !     vim_free(array);
  2576.   }
  2577.   
  2578.   /*
  2579. ***************
  2580. *** 2013,2027 ****
  2581.        *      3. Anything else - this is an error.
  2582.        */
  2583.       Vim_Prim        *prim = (Vim_Prim *)data;
  2584. !     vim_mz_buffer   *buf;
  2585. !     Scheme_Object   *line_list;
  2586. !     Scheme_Object   *line;
  2587. !     Scheme_Object   *rest;
  2588. !     char        **array;
  2589. !     buf_T        *savebuf;
  2590.       int            i, old_len, new_len, hi, lo;
  2591.       long        extra;
  2592.   
  2593.   #ifdef HAVE_SANDBOX
  2594.       sandbox_check();
  2595.   #endif
  2596. --- 2249,2263 ----
  2597.        *      3. Anything else - this is an error.
  2598.        */
  2599.       Vim_Prim        *prim = (Vim_Prim *)data;
  2600. !     vim_mz_buffer   *buf = NULL;
  2601. !     Scheme_Object   *line_list = NULL;
  2602.       int            i, old_len, new_len, hi, lo;
  2603.       long        extra;
  2604.   
  2605. +     MZ_GC_DECL_REG(1);
  2606. +     MZ_GC_VAR_IN_REG(0, line_list);
  2607. +     MZ_GC_REG();
  2608. + 
  2609.   #ifdef HAVE_SANDBOX
  2610.       sandbox_check();
  2611.   #endif
  2612. ***************
  2613. *** 2047,2053 ****
  2614.   
  2615.       if (SCHEME_FALSEP(line_list) || SCHEME_NULLP(line_list))
  2616.       {
  2617. !     savebuf = curbuf;
  2618.       curbuf = buf->buf;
  2619.   
  2620.       if (u_savedel((linenr_T)lo, (long)old_len) == FAIL)
  2621. --- 2283,2289 ----
  2622.   
  2623.       if (SCHEME_FALSEP(line_list) || SCHEME_NULLP(line_list))
  2624.       {
  2625. !     buf_T    *savebuf = curbuf;
  2626.       curbuf = buf->buf;
  2627.   
  2628.       if (u_savedel((linenr_T)lo, (long)old_len) == FAIL)
  2629. ***************
  2630. *** 2070,2167 ****
  2631.   
  2632.       curbuf = savebuf;
  2633.   
  2634.       raise_if_error();
  2635.       return scheme_void;
  2636.       }
  2637.   
  2638. !     /* List */
  2639. !     new_len = scheme_proper_list_length(line_list);
  2640. !     if (new_len < 0)    /* improper or cyclic list */
  2641. !     scheme_wrong_type(prim->name, "proper list",
  2642. !         2, argc, argv);
  2643.   
  2644. !     /* Using MzScheme allocator, so we don't need to free this and
  2645. !      * can safely keep pointers to GC collected strings
  2646. !      */
  2647. !     array = (char **)scheme_malloc_fail_ok(scheme_malloc,
  2648. !         (unsigned)(new_len * sizeof(char *)));
  2649.   
  2650. !     rest = line_list;
  2651. !     for (i = 0; i < new_len; ++i)
  2652. !     {
  2653. !     line = SCHEME_CAR(rest);
  2654. !     rest = SCHEME_CDR(rest);
  2655. !     if (!SCHEME_STRINGP(line))
  2656. !         scheme_wrong_type(prim->name, "string-list", 2, argc, argv);
  2657. !     array[i] = string_to_line(line);
  2658. !     }
  2659.   
  2660. !     savebuf = curbuf;
  2661. !     curbuf = buf->buf;
  2662.   
  2663. !     if (u_save((linenr_T)(lo-1), (linenr_T)hi) == FAIL)
  2664. !     {
  2665. !     curbuf = savebuf;
  2666. !     raise_vim_exn(_("cannot save undo information"));
  2667. !     }
  2668.   
  2669. !     /*
  2670. !      * If the size of the range is reducing (ie, new_len < old_len) we
  2671. !      * need to delete some old_len. We do this at the start, by
  2672. !      * repeatedly deleting line "lo".
  2673. !      */
  2674. !     for (i = 0; i < old_len - new_len; ++i)
  2675. !     {
  2676. !     if (ml_delete((linenr_T)lo, FALSE) == FAIL)
  2677. !     {
  2678. !         curbuf = savebuf;
  2679. !         raise_vim_exn(_("cannot delete line"));
  2680. !     }
  2681. !     extra--;
  2682. !     }
  2683.   
  2684. !     /*
  2685. !      * For as long as possible, replace the existing old_len with the
  2686. !      * new old_len. This is a more efficient operation, as it requires
  2687. !      * less memory allocation and freeing.
  2688. !      */
  2689. !     for (i = 0; i < old_len && i < new_len; i++)
  2690. !     if (ml_replace((linenr_T)(lo+i), (char_u *)array[i], TRUE) == FAIL)
  2691. !     {
  2692. !         curbuf = savebuf;
  2693. !         raise_vim_exn(_("cannot replace line"));
  2694. !     }
  2695.   
  2696. !     /*
  2697. !      * Now we may need to insert the remaining new_len.  We don't need to
  2698. !      * free the string passed back because MzScheme has control of that
  2699. !      * memory.
  2700. !      */
  2701. !     while (i < new_len)
  2702. !     {
  2703. !     if (ml_append((linenr_T)(lo + i - 1),
  2704. !         (char_u *)array[i], 0, FALSE) == FAIL)
  2705. !     {
  2706. !         curbuf = savebuf;
  2707. !         raise_vim_exn(_("cannot insert line"));
  2708.       }
  2709. -     ++i;
  2710. -     ++extra;
  2711. -     }
  2712.   
  2713. !     /*
  2714. !      * Adjust marks. Invalidate any which lie in the
  2715. !      * changed range, and move any in the remainder of the buffer.
  2716. !      */
  2717. !     mark_adjust((linenr_T)lo, (linenr_T)(hi - 1), (long)MAXLNUM, (long)extra);
  2718. !     changed_lines((linenr_T)lo, 0, (linenr_T)hi, (long)extra);
  2719.   
  2720. !     if (buf->buf == curwin->w_buffer)
  2721. !     mz_fix_cursor(lo, hi, extra);
  2722. !     curbuf = savebuf;
  2723.   
  2724. !     raise_if_error();
  2725. !     return scheme_void;
  2726.   }
  2727.   
  2728.   /*
  2729. --- 2306,2426 ----
  2730.   
  2731.       curbuf = savebuf;
  2732.   
  2733. +     MZ_GC_UNREG();
  2734.       raise_if_error();
  2735.       return scheme_void;
  2736.       }
  2737. +     else
  2738. +     {
  2739. +     buf_T    *savebuf = curbuf;
  2740.   
  2741. !     /* List */
  2742. !     new_len = scheme_proper_list_length(line_list);
  2743. !     MZ_GC_CHECK();
  2744. !     if (new_len < 0)    /* improper or cyclic list */
  2745. !         scheme_wrong_type(prim->name, "proper list",
  2746. !             2, argc, argv);
  2747. !     else
  2748. !     {
  2749. !         char        **array = NULL;
  2750. !         Scheme_Object   *line = NULL;
  2751. !         Scheme_Object   *rest = NULL;
  2752. ! 
  2753. !         MZ_GC_DECL_REG(2);
  2754. !         MZ_GC_VAR_IN_REG(0, line);
  2755. !         MZ_GC_VAR_IN_REG(1, rest);
  2756. !         MZ_GC_REG();
  2757.   
  2758. !         array = (char **)alloc(new_len * sizeof(char *));
  2759. !         vim_memset(array, 0, new_len * sizeof(char *));
  2760.   
  2761. !         rest = line_list;
  2762. !         for (i = 0; i < new_len; ++i)
  2763. !         {
  2764. !         line = SCHEME_CAR(rest);
  2765. !         rest = SCHEME_CDR(rest);
  2766. !         if (!SCHEME_STRINGP(line))
  2767. !         {
  2768. !             free_array(array);
  2769. !             scheme_wrong_type(prim->name, "string-list", 2, argc, argv);
  2770. !         }
  2771. !         array[i] = string_to_line(line);
  2772. !         }
  2773.   
  2774. !         curbuf = buf->buf;
  2775.   
  2776. !         if (u_save((linenr_T)(lo-1), (linenr_T)hi) == FAIL)
  2777. !         {
  2778. !         curbuf = savebuf;
  2779. !         free_array(array);
  2780. !         raise_vim_exn(_("cannot save undo information"));
  2781. !         }
  2782.   
  2783. !         /*
  2784. !          * If the size of the range is reducing (ie, new_len < old_len) we
  2785. !          * need to delete some old_len. We do this at the start, by
  2786. !          * repeatedly deleting line "lo".
  2787. !          */
  2788. !         for (i = 0; i < old_len - new_len; ++i)
  2789. !         {
  2790. !         if (ml_delete((linenr_T)lo, FALSE) == FAIL)
  2791. !         {
  2792. !             curbuf = savebuf;
  2793. !             free_array(array);
  2794. !             raise_vim_exn(_("cannot delete line"));
  2795. !         }
  2796. !         extra--;
  2797. !         }
  2798.   
  2799. !         /*
  2800. !          * For as long as possible, replace the existing old_len with the
  2801. !          * new old_len. This is a more efficient operation, as it requires
  2802. !          * less memory allocation and freeing.
  2803. !          */
  2804. !         for (i = 0; i < old_len && i < new_len; i++)
  2805. !         if (ml_replace((linenr_T)(lo+i), (char_u *)array[i], TRUE) == FAIL)
  2806. !         {
  2807. !             curbuf = savebuf;
  2808. !             free_array(array);
  2809. !             raise_vim_exn(_("cannot replace line"));
  2810. !         }
  2811.   
  2812. !         /*
  2813. !          * Now we may need to insert the remaining new_len.  We don't need to
  2814. !          * free the string passed back because MzScheme has control of that
  2815. !          * memory.
  2816. !          */
  2817. !         while (i < new_len)
  2818. !         {
  2819. !         if (ml_append((linenr_T)(lo + i - 1),
  2820. !                 (char_u *)array[i], 0, FALSE) == FAIL)
  2821. !         {
  2822. !             curbuf = savebuf;
  2823. !             free_array(array);
  2824. !             raise_vim_exn(_("cannot insert line"));
  2825. !         }
  2826. !         ++i;
  2827. !         ++extra;
  2828. !         }
  2829. !         MZ_GC_UNREG();
  2830. !         free_array(array);
  2831.       }
  2832.   
  2833. !     /*
  2834. !      * Adjust marks. Invalidate any which lie in the
  2835. !      * changed range, and move any in the remainder of the buffer.
  2836. !      */
  2837. !     mark_adjust((linenr_T)lo, (linenr_T)(hi - 1), (long)MAXLNUM, (long)extra);
  2838. !     changed_lines((linenr_T)lo, 0, (linenr_T)hi, (long)extra);
  2839.   
  2840. !     if (buf->buf == curwin->w_buffer)
  2841. !         mz_fix_cursor(lo, hi, extra);
  2842. !     curbuf = savebuf;
  2843.   
  2844. !     MZ_GC_UNREG();
  2845. !     raise_if_error();
  2846. !     return scheme_void;
  2847. !     }
  2848.   }
  2849.   
  2850.   /*
  2851. ***************
  2852. *** 2179,2193 ****
  2853.   insert_buffer_line_list(void *data, int argc, Scheme_Object **argv)
  2854.   {
  2855.       Vim_Prim        *prim = (Vim_Prim *)data;
  2856. !     vim_mz_buffer   *buf;
  2857. !     Scheme_Object   *list;
  2858. !     Scheme_Object   *line;
  2859. !     Scheme_Object   *rest;
  2860. !     char        **array;
  2861. !     char        *str;
  2862. !     buf_T        *savebuf;
  2863.       int            i, n, size;
  2864.   
  2865.   #ifdef HAVE_SANDBOX
  2866.       sandbox_check();
  2867.   #endif
  2868. --- 2438,2452 ----
  2869.   insert_buffer_line_list(void *data, int argc, Scheme_Object **argv)
  2870.   {
  2871.       Vim_Prim        *prim = (Vim_Prim *)data;
  2872. !     vim_mz_buffer   *buf = NULL;
  2873. !     Scheme_Object   *list = NULL;
  2874. !     char        *str = NULL;
  2875.       int            i, n, size;
  2876.   
  2877. +     MZ_GC_DECL_REG(1);
  2878. +     MZ_GC_VAR_IN_REG(0, list);
  2879. +     MZ_GC_REG();
  2880. + 
  2881.   #ifdef HAVE_SANDBOX
  2882.       sandbox_check();
  2883.   #endif
  2884. ***************
  2885. *** 2206,2294 ****
  2886.       check_line_range(n, buf->buf);
  2887.       if (SCHEME_STRINGP(list))
  2888.       {
  2889. !     str = string_to_line(list);
  2890.   
  2891. !     savebuf = curbuf;
  2892.       curbuf = buf->buf;
  2893.   
  2894.       if (u_save((linenr_T)n, (linenr_T)(n+1)) == FAIL)
  2895.       {
  2896.           curbuf = savebuf;
  2897.           raise_vim_exn(_("cannot save undo information"));
  2898.       }
  2899.       else if (ml_append((linenr_T)n, (char_u *)str, 0, FALSE) == FAIL)
  2900.       {
  2901.           curbuf = savebuf;
  2902.           raise_vim_exn(_("cannot insert line"));
  2903.       }
  2904.       else
  2905.           appended_lines_mark((linenr_T)n, 1L);
  2906.   
  2907.       curbuf = savebuf;
  2908.       update_screen(VALID);
  2909.   
  2910.       raise_if_error();
  2911.       return scheme_void;
  2912.       }
  2913.   
  2914.       /* List */
  2915.       size = scheme_proper_list_length(list);
  2916.       if (size < 0)    /* improper or cyclic list */
  2917.       scheme_wrong_type(prim->name, "proper list",
  2918.           2, argc, argv);
  2919. ! 
  2920. !     /* Using MzScheme allocator, so we don't need to free this and
  2921. !      * can safely keep pointers to GC collected strings
  2922. !      */
  2923. !     array = (char **)scheme_malloc_fail_ok(
  2924. !         scheme_malloc, (unsigned)(size * sizeof(char *)));
  2925. ! 
  2926. !     rest = list;
  2927. !     for (i = 0; i < size; ++i)
  2928.       {
  2929. !     line = SCHEME_CAR(rest);
  2930. !     rest = SCHEME_CDR(rest);
  2931. !     array[i] = string_to_line(line);
  2932. !     }
  2933.   
  2934. !     savebuf = curbuf;
  2935. !     curbuf = buf->buf;
  2936.   
  2937. !     if (u_save((linenr_T)n, (linenr_T)(n + 1)) == FAIL)
  2938. !     {
  2939. !     curbuf = savebuf;
  2940. !     raise_vim_exn(_("cannot save undo information"));
  2941. !     }
  2942. !     else
  2943. !     {
  2944.       for (i = 0; i < size; ++i)
  2945. !         if (ml_append((linenr_T)(n + i), (char_u *)array[i],
  2946. !             0, FALSE) == FAIL)
  2947. !         {
  2948. !         curbuf = savebuf;
  2949. !         raise_vim_exn(_("cannot insert line"));
  2950. !         }
  2951.   
  2952. !     if (i > 0)
  2953. !         appended_lines_mark((linenr_T)n, (long)i);
  2954. !     }
  2955.   
  2956. !     curbuf = savebuf;
  2957. !     update_screen(VALID);
  2958.   
  2959.       raise_if_error();
  2960.       return scheme_void;
  2961.   }
  2962.   
  2963. - /* (get-buff-namespace [buffer]) */
  2964. -     static Scheme_Object *
  2965. - get_buffer_namespace(void *data, int argc, Scheme_Object **argv)
  2966. - {
  2967. -     Vim_Prim    *prim = (Vim_Prim *)data;
  2968. - 
  2969. -     return (Scheme_Object *)get_buffer_arg(prim->name, 0, argc, argv)->env;
  2970. - }
  2971. - 
  2972.   /*
  2973.    * Predicates
  2974.    */
  2975. --- 2465,2563 ----
  2976.       check_line_range(n, buf->buf);
  2977.       if (SCHEME_STRINGP(list))
  2978.       {
  2979. !     buf_T        *savebuf = curbuf;
  2980.   
  2981. !     str = string_to_line(list);
  2982.       curbuf = buf->buf;
  2983.   
  2984.       if (u_save((linenr_T)n, (linenr_T)(n+1)) == FAIL)
  2985.       {
  2986.           curbuf = savebuf;
  2987. +         vim_free(str);
  2988.           raise_vim_exn(_("cannot save undo information"));
  2989.       }
  2990.       else if (ml_append((linenr_T)n, (char_u *)str, 0, FALSE) == FAIL)
  2991.       {
  2992.           curbuf = savebuf;
  2993. +         vim_free(str);
  2994.           raise_vim_exn(_("cannot insert line"));
  2995.       }
  2996.       else
  2997. +     {
  2998. +         vim_free(str);
  2999.           appended_lines_mark((linenr_T)n, 1L);
  3000. +     }
  3001.   
  3002.       curbuf = savebuf;
  3003.       update_screen(VALID);
  3004.   
  3005. +     MZ_GC_UNREG();
  3006.       raise_if_error();
  3007.       return scheme_void;
  3008.       }
  3009.   
  3010.       /* List */
  3011.       size = scheme_proper_list_length(list);
  3012. +     MZ_GC_CHECK();
  3013.       if (size < 0)    /* improper or cyclic list */
  3014.       scheme_wrong_type(prim->name, "proper list",
  3015.           2, argc, argv);
  3016. !     else
  3017.       {
  3018. !     Scheme_Object   *line = NULL;
  3019. !     Scheme_Object   *rest = NULL;
  3020. !     char        **array;
  3021. !     buf_T        *savebuf = curbuf;
  3022. ! 
  3023. !     MZ_GC_DECL_REG(2);
  3024. !     MZ_GC_VAR_IN_REG(0, line);
  3025. !     MZ_GC_VAR_IN_REG(1, rest);
  3026. !     MZ_GC_REG();
  3027.   
  3028. !     array = (char **)alloc(size * sizeof(char *));
  3029. !     vim_memset(array, 0, size * sizeof(char *));
  3030.   
  3031. !     rest = list;
  3032.       for (i = 0; i < size; ++i)
  3033. !     {
  3034. !         line = SCHEME_CAR(rest);
  3035. !         rest = SCHEME_CDR(rest);
  3036. !         array[i] = string_to_line(line);
  3037. !     }
  3038.   
  3039. !     curbuf = buf->buf;
  3040.   
  3041. !     if (u_save((linenr_T)n, (linenr_T)(n + 1)) == FAIL)
  3042. !     {
  3043. !         curbuf = savebuf;
  3044. !         free_array(array);
  3045. !         raise_vim_exn(_("cannot save undo information"));
  3046. !     }
  3047. !     else
  3048. !     {
  3049. !         for (i = 0; i < size; ++i)
  3050. !         if (ml_append((linenr_T)(n + i), (char_u *)array[i],
  3051. !                 0, FALSE) == FAIL)
  3052. !         {
  3053. !             curbuf = savebuf;
  3054. !             free_array(array);
  3055. !             raise_vim_exn(_("cannot insert line"));
  3056. !         }
  3057. ! 
  3058. !         if (i > 0)
  3059. !         appended_lines_mark((linenr_T)n, (long)i);
  3060. !     }
  3061. !     free_array(array);
  3062. !     MZ_GC_UNREG();
  3063. !     curbuf = savebuf;
  3064. !     update_screen(VALID);
  3065. !     }
  3066.   
  3067. +     MZ_GC_UNREG();
  3068.       raise_if_error();
  3069.       return scheme_void;
  3070.   }
  3071.   
  3072.   /*
  3073.    * Predicates
  3074.    */
  3075. ***************
  3076. *** 2343,2383 ****
  3077.   /*
  3078.    * Convert an MzScheme string into a Vim line.
  3079.    *
  3080. !  * The result is in allocated memory. All internal nulls are replaced by
  3081. !  * newline characters. It is an error for the string to contain newline
  3082. !  * characters.
  3083.    *
  3084.    */
  3085.       static char *
  3086.   string_to_line(Scheme_Object *obj)
  3087.   {
  3088. !     char    *str;
  3089.       long    len;
  3090.       int        i;
  3091.   
  3092. !     str = scheme_display_to_string(obj, &len);
  3093.   
  3094.       /* Error checking: String must not contain newlines, as we
  3095.        * are replacing a single line, and we must replace it with
  3096.        * a single line.
  3097.        */
  3098. !     if (memchr(str, '\n', len))
  3099.       scheme_signal_error(_("string cannot contain newlines"));
  3100.   
  3101.       /* Create a copy of the string, with internal nulls replaced by
  3102.        * newline characters, as is the vim convention.
  3103.        */
  3104.       for (i = 0; i < len; ++i)
  3105.       {
  3106. !     if (str[i] == '\0')
  3107. !         str[i] = '\n';
  3108.       }
  3109.   
  3110. !     str[i] = '\0';
  3111.   
  3112. !     return str;
  3113.   }
  3114.   
  3115.   /*
  3116.    * Check to see whether a Vim error has been reported, or a keyboard
  3117.    * interrupt (from vim --> got_int) has been detected.
  3118. --- 2612,2784 ----
  3119.   /*
  3120.    * Convert an MzScheme string into a Vim line.
  3121.    *
  3122. !  * All internal nulls are replaced by newline characters.
  3123. !  * It is an error for the string to contain newline characters.
  3124.    *
  3125. +  * Returns pointer to Vim allocated memory
  3126.    */
  3127.       static char *
  3128.   string_to_line(Scheme_Object *obj)
  3129.   {
  3130. !     char    *scheme_str = NULL;
  3131. !     char    *vim_str = NULL;
  3132.       long    len;
  3133.       int        i;
  3134.   
  3135. !     scheme_str = scheme_display_to_string(obj, &len);
  3136.   
  3137.       /* Error checking: String must not contain newlines, as we
  3138.        * are replacing a single line, and we must replace it with
  3139.        * a single line.
  3140.        */
  3141. !     if (memchr(scheme_str, '\n', len))
  3142.       scheme_signal_error(_("string cannot contain newlines"));
  3143.   
  3144. +     vim_str = (char *)alloc(len + 1);
  3145. + 
  3146.       /* Create a copy of the string, with internal nulls replaced by
  3147.        * newline characters, as is the vim convention.
  3148.        */
  3149.       for (i = 0; i < len; ++i)
  3150.       {
  3151. !     if (scheme_str[i] == '\0')
  3152. !         vim_str[i] = '\n';
  3153. !     else
  3154. !         vim_str[i] = scheme_str[i];
  3155.       }
  3156.   
  3157. !     vim_str[i] = '\0';
  3158.   
  3159. !     MZ_GC_CHECK();
  3160. !     return vim_str;
  3161.   }
  3162.   
  3163. + #ifdef FEAT_EVAL
  3164. + /*
  3165. +  * Convert Vim value into MzScheme, adopted from if_python.c
  3166. +  */
  3167. +     static Scheme_Object *
  3168. + vim_to_mzscheme(typval_T *vim_value, int depth, Scheme_Hash_Table *visited)
  3169. + {
  3170. +     Scheme_Object   *result = NULL;
  3171. +     int            new_value = TRUE;
  3172. + 
  3173. +     MZ_GC_DECL_REG(1);
  3174. +     MZ_GC_VAR_IN_REG(0, result);
  3175. +     MZ_GC_REG();
  3176. + 
  3177. +     /* Avoid infinite recursion */
  3178. +     if (depth > 100)
  3179. +     {
  3180. +     MZ_GC_UNREG();
  3181. +     return scheme_void;
  3182. +     }
  3183. + 
  3184. +     /* Check if we run into a recursive loop.  The item must be in visited
  3185. +      * then and we can use it again.
  3186. +      */
  3187. +     result = scheme_hash_get(visited, (Scheme_Object *)vim_value);
  3188. +     MZ_GC_CHECK();
  3189. +     if (result != NULL) /* found, do nothing */
  3190. +     new_value = FALSE;
  3191. +     else if (vim_value->v_type == VAR_STRING)
  3192. +     {
  3193. +     result = scheme_make_string((char *)vim_value->vval.v_string);
  3194. +     MZ_GC_CHECK();
  3195. +     }
  3196. +     else if (vim_value->v_type == VAR_NUMBER)
  3197. +     {
  3198. +     result = scheme_make_integer((long)vim_value->vval.v_number);
  3199. +     MZ_GC_CHECK();
  3200. +     }
  3201. + # ifdef FEAT_FLOAT
  3202. +     else if (vim_value->v_type == VAR_FLOAT)
  3203. +     {
  3204. +     result = scheme_make_double((double)vim_value->vval.v_float);
  3205. +     MZ_GC_CHECK();
  3206. +     }
  3207. + # endif
  3208. +     else if (vim_value->v_type == VAR_LIST)
  3209. +     {
  3210. +     list_T        *list = vim_value->vval.v_list;
  3211. +     listitem_T    *curr;
  3212. + 
  3213. +     if (list == NULL || list->lv_first == NULL)
  3214. +         result = scheme_null;
  3215. +     else
  3216. +     {
  3217. +         Scheme_Object   *obj = NULL;
  3218. + 
  3219. +         MZ_GC_DECL_REG(1);
  3220. +         MZ_GC_VAR_IN_REG(0, obj);
  3221. +         MZ_GC_REG();
  3222. + 
  3223. +         curr = list->lv_last;
  3224. +         obj = vim_to_mzscheme(&curr->li_tv, depth + 1, visited);
  3225. +         result = scheme_make_pair(obj, scheme_null);
  3226. +         MZ_GC_CHECK();
  3227. + 
  3228. +         while (curr != list->lv_first)
  3229. +         {
  3230. +         curr = curr->li_prev;
  3231. +         obj = vim_to_mzscheme(&curr->li_tv, depth + 1, visited);
  3232. +         result = scheme_make_pair(obj, result);
  3233. +         MZ_GC_CHECK();
  3234. +         }
  3235. +     }
  3236. +     MZ_GC_UNREG();
  3237. +     }
  3238. +     else if (vim_value->v_type == VAR_DICT)
  3239. +     {
  3240. +     Scheme_Object      *key = NULL;
  3241. +     Scheme_Object      *obj = NULL;
  3242. + 
  3243. +     MZ_GC_DECL_REG(2);
  3244. +     MZ_GC_VAR_IN_REG(0, key);
  3245. +     MZ_GC_VAR_IN_REG(1, obj);
  3246. +     MZ_GC_REG();
  3247. + 
  3248. +     result = (Scheme_Object *)scheme_make_hash_table(SCHEME_hash_ptr);
  3249. +     MZ_GC_CHECK();
  3250. +     if (vim_value->vval.v_dict != NULL)
  3251. +     {
  3252. +         hashtab_T    *ht = &vim_value->vval.v_dict->dv_hashtab;
  3253. +         long_u    todo = ht->ht_used;
  3254. +         hashitem_T    *hi;
  3255. +         dictitem_T    *di;
  3256. + 
  3257. +         for (hi = ht->ht_array; todo > 0; ++hi)
  3258. +         {
  3259. +         if (!HASHITEM_EMPTY(hi))
  3260. +         {
  3261. +             --todo;
  3262. + 
  3263. +             di = dict_lookup(hi);
  3264. +             obj = vim_to_mzscheme(&di->di_tv, depth + 1, visited);
  3265. +             key = scheme_make_string((char *)hi->hi_key);
  3266. +             MZ_GC_CHECK();
  3267. +             scheme_hash_set((Scheme_Hash_Table *)result, key, obj);
  3268. +             MZ_GC_CHECK();
  3269. +         }
  3270. +         }
  3271. +     }
  3272. +     MZ_GC_UNREG();
  3273. +     }
  3274. +     else
  3275. +     {
  3276. +     result = scheme_void;
  3277. +     new_value = FALSE;
  3278. +     }
  3279. +     if (new_value)
  3280. +     {
  3281. +     scheme_hash_set(visited, (Scheme_Object *)vim_value, result);
  3282. +     MZ_GC_CHECK();
  3283. +     }
  3284. +     MZ_GC_UNREG();
  3285. +     return result;
  3286. + }
  3287. + #endif
  3288. + 
  3289.   /*
  3290.    * Check to see whether a Vim error has been reported, or a keyboard
  3291.    * interrupt (from vim --> got_int) has been detected.
  3292. ***************
  3293. *** 2392,2441 ****
  3294.    * register Scheme exn:vim
  3295.    */
  3296.       static void
  3297. ! register_vim_exn(Scheme_Env *env)
  3298.   {
  3299. !     Scheme_Object   *exn_name = scheme_intern_symbol("exn:vim");
  3300.   
  3301.       if (vim_exn == NULL)
  3302.       vim_exn = scheme_make_struct_type(exn_name,
  3303. !         scheme_builtin_value("struct:exn"), NULL, 0, 0, NULL, NULL
  3304.   #if MZSCHEME_VERSION_MAJOR >= 299
  3305.           , NULL
  3306.   #endif
  3307.           );
  3308.   
  3309. -     if (vim_exn_values == NULL)
  3310. -     {
  3311. -     int    nc = 0;
  3312.   
  3313. !     Scheme_Object   **exn_names = scheme_make_struct_names(
  3314. !         exn_name, scheme_null, 0, &nc);
  3315. !     Scheme_Object   **exn_values = scheme_make_struct_values(
  3316. !         vim_exn, exn_names, nc, 0);
  3317. ! 
  3318. !     vim_exn_names = scheme_make_vector(nc, scheme_false);
  3319. !     vim_exn_values = scheme_make_vector(nc, scheme_false);
  3320. !     /* remember names and values */
  3321. !     mch_memmove(SCHEME_VEC_ELS(vim_exn_names), exn_names,
  3322. !         nc * sizeof(Scheme_Object *));
  3323. !     mch_memmove(SCHEME_VEC_ELS(vim_exn_values), exn_values,
  3324. !         nc * sizeof(Scheme_Object *));
  3325.       }
  3326. ! 
  3327. !     add_vim_exn(env);
  3328. ! }
  3329. ! 
  3330. ! /*
  3331. !  * Add stuff of exn:vim to env
  3332. !  */
  3333. !     static void
  3334. ! add_vim_exn(Scheme_Env *env)
  3335. ! {
  3336. !     int i;
  3337. ! 
  3338. !     for (i = 0; i < SCHEME_VEC_SIZE(vim_exn_values); i++)
  3339. !     scheme_add_global_symbol(SCHEME_VEC_ELS(vim_exn_names)[i],
  3340. !         SCHEME_VEC_ELS(vim_exn_values)[i], env);
  3341.   }
  3342.   
  3343.   /*
  3344. --- 2793,2851 ----
  3345.    * register Scheme exn:vim
  3346.    */
  3347.       static void
  3348. ! register_vim_exn(void)
  3349.   {
  3350. !     int    nc = 0;
  3351. !     int i;
  3352. !     Scheme_Object   *struct_exn = NULL;
  3353. !     Scheme_Object   *exn_name = NULL;
  3354. ! 
  3355. !     MZ_GC_DECL_REG(2);
  3356. !     MZ_GC_VAR_IN_REG(0, struct_exn);
  3357. !     MZ_GC_VAR_IN_REG(1, exn_name);
  3358. !     MZ_GC_REG();
  3359. ! 
  3360. !     exn_name = scheme_intern_symbol("exn:vim");
  3361. !     MZ_GC_CHECK();
  3362. !     struct_exn = scheme_builtin_value("struct:exn");
  3363. !     MZ_GC_CHECK();
  3364.   
  3365.       if (vim_exn == NULL)
  3366.       vim_exn = scheme_make_struct_type(exn_name,
  3367. !         struct_exn, NULL, 0, 0, NULL, NULL
  3368.   #if MZSCHEME_VERSION_MAJOR >= 299
  3369.           , NULL
  3370.   #endif
  3371.           );
  3372.   
  3373.   
  3374. !     {
  3375. !     Scheme_Object   **tmp = NULL;
  3376. !     Scheme_Object   *exn_names[5] = {NULL, NULL, NULL, NULL, NULL};
  3377. !     Scheme_Object   *exn_values[5] = {NULL, NULL, NULL, NULL, NULL};
  3378. !     MZ_GC_DECL_REG(6);
  3379. !     MZ_GC_ARRAY_VAR_IN_REG(0, exn_names, 5);
  3380. !     MZ_GC_ARRAY_VAR_IN_REG(3, exn_values, 5);
  3381. !     MZ_GC_REG();
  3382. ! 
  3383. !     tmp = scheme_make_struct_names(exn_name, scheme_null, 0, &nc);
  3384. !     assert(nc <= 5);
  3385. !     mch_memmove(exn_names, tmp, nc * sizeof(Scheme_Object *));
  3386. !     MZ_GC_CHECK();
  3387. ! 
  3388. !     tmp = scheme_make_struct_values(vim_exn, exn_names, nc, 0);
  3389. !     mch_memmove(exn_values, tmp, nc * sizeof(Scheme_Object *));
  3390. !     MZ_GC_CHECK();
  3391. ! 
  3392. !     for (i = 0; i < nc; i++)
  3393. !     {
  3394. !         scheme_add_global_symbol(exn_names[i],
  3395. !             exn_values[i], environment);
  3396. !         MZ_GC_CHECK();
  3397. !     }
  3398. !     MZ_GC_UNREG();
  3399.       }
  3400. !     MZ_GC_UNREG();
  3401.   }
  3402.   
  3403.   /*
  3404. ***************
  3405. *** 2444,2469 ****
  3406.       void
  3407.   raise_vim_exn(const char *add_info)
  3408.   {
  3409. !     Scheme_Object   *argv[2];
  3410. !     char_u        *fmt = _("Vim error: ~a");
  3411.   
  3412.       if (add_info != NULL)
  3413.       {
  3414. !     Scheme_Object   *info = scheme_make_string(add_info);
  3415. !     argv[0] = scheme_byte_string_to_char_string(scheme_make_string(
  3416. !         scheme_format(fmt, strlen(fmt), 1, &info, NULL)));
  3417.       SCHEME_SET_IMMUTABLE(argv[0]);
  3418.       }
  3419.       else
  3420.       argv[0] = scheme_make_string(_("Vim error"));
  3421.   
  3422.   #if MZSCHEME_VERSION_MAJOR < 360
  3423.       argv[1] = scheme_current_continuation_marks();
  3424.   #else
  3425.       argv[1] = scheme_current_continuation_marks(NULL);
  3426.   #endif
  3427.   
  3428. !     scheme_raise(scheme_make_struct_instance(vim_exn, 2, argv));
  3429.   }
  3430.   
  3431.       void
  3432. --- 2854,2907 ----
  3433.       void
  3434.   raise_vim_exn(const char *add_info)
  3435.   {
  3436. !     char        *fmt = _("Vim error: ~a");
  3437. !     Scheme_Object   *argv[2] = {NULL, NULL};
  3438. !     Scheme_Object   *exn = NULL;
  3439. ! 
  3440. !     MZ_GC_DECL_REG(4);
  3441. !     MZ_GC_ARRAY_VAR_IN_REG(0, argv, 2);
  3442. !     MZ_GC_VAR_IN_REG(3, exn);
  3443. !     MZ_GC_REG();
  3444.   
  3445.       if (add_info != NULL)
  3446.       {
  3447. !     char        *c_string = NULL;
  3448. !     Scheme_Object    *byte_string = NULL;
  3449. !     Scheme_Object   *info = NULL;
  3450. ! 
  3451. !     MZ_GC_DECL_REG(3);
  3452. !     MZ_GC_VAR_IN_REG(0, c_string);
  3453. !     MZ_GC_VAR_IN_REG(1, byte_string);
  3454. !     MZ_GC_VAR_IN_REG(2, info);
  3455. !     MZ_GC_REG();
  3456. ! 
  3457. !     info = scheme_make_string(add_info);
  3458. !     MZ_GC_CHECK();
  3459. !     c_string = scheme_format(fmt, STRLEN(fmt), 1, &info, NULL);
  3460. !     MZ_GC_CHECK();
  3461. !     byte_string = scheme_make_string(c_string);
  3462. !     MZ_GC_CHECK();
  3463. !     argv[0] = scheme_byte_string_to_char_string(byte_string);
  3464. !     MZ_GC_CHECK();
  3465.       SCHEME_SET_IMMUTABLE(argv[0]);
  3466. +     MZ_GC_UNREG();
  3467.       }
  3468.       else
  3469.       argv[0] = scheme_make_string(_("Vim error"));
  3470. +     MZ_GC_CHECK();
  3471.   
  3472.   #if MZSCHEME_VERSION_MAJOR < 360
  3473.       argv[1] = scheme_current_continuation_marks();
  3474. +     MZ_GC_CHECK();
  3475.   #else
  3476.       argv[1] = scheme_current_continuation_marks(NULL);
  3477. +     MZ_GC_CHECK();
  3478.   #endif
  3479.   
  3480. !     exn = scheme_make_struct_instance(vim_exn, 2, argv);
  3481. !     MZ_GC_CHECK();
  3482. !     scheme_raise(exn);
  3483. !     MZ_GC_UNREG();
  3484.   }
  3485.   
  3486.       void
  3487. ***************
  3488. *** 2570,2575 ****
  3489. --- 3008,3015 ----
  3490.           curwin->w_cursor.lnum = lo;
  3491.           check_cursor();
  3492.       }
  3493. +     else
  3494. +         check_cursor_col();
  3495.       changed_cline_bef_curs();
  3496.       }
  3497.       invalidate_botline();
  3498. ***************
  3499. *** 2595,2601 ****
  3500.       {mzscheme_open_buffer, "open-buff", 1, 1},
  3501.       {get_buffer_by_name, "get-buff-by-name", 1, 1},
  3502.       {get_buffer_by_num, "get-buff-by-num", 1, 1},
  3503. -     {get_buffer_namespace, "get-buff-namespace", 0, 1},
  3504.       /*
  3505.        * Window-related commands
  3506.        */
  3507. --- 3035,3040 ----
  3508. ***************
  3509. *** 2653,2675 ****
  3510.   }
  3511.   
  3512.       static void
  3513. ! make_modules(Scheme_Env *env)
  3514.   {
  3515. !     int        i;
  3516. !     Scheme_Env    *mod;
  3517. ! 
  3518. !     mod = scheme_primitive_module(scheme_intern_symbol("vimext"), env);
  3519.       /* all prims made closed so they can access their own names */
  3520. !     for (i = 0; i < sizeof(prims)/sizeof(prims[0]); i++)
  3521.       {
  3522.       Vim_Prim *prim = prims + i;
  3523. !     scheme_add_global(prim->name,
  3524. !         scheme_make_closed_prim_w_arity(prim->prim, prim, prim->name,
  3525. !             prim->mina, prim->maxa),
  3526. !         mod);
  3527.       }
  3528. -     scheme_add_global("global-namespace", (Scheme_Object *)environment, mod);
  3529.       scheme_finish_primitive_module(mod);
  3530.   }
  3531.   
  3532.   #ifdef HAVE_SANDBOX
  3533. --- 3092,3126 ----
  3534.   }
  3535.   
  3536.       static void
  3537. ! make_modules()
  3538.   {
  3539. !     int            i;
  3540. !     Scheme_Env        *mod = NULL;
  3541. !     Scheme_Object   *vimext_symbol = NULL;
  3542. !     Scheme_Object   *closed_prim = NULL;
  3543. ! 
  3544. !     MZ_GC_DECL_REG(3);
  3545. !     MZ_GC_VAR_IN_REG(0, mod);
  3546. !     MZ_GC_VAR_IN_REG(1, vimext_symbol);
  3547. !     MZ_GC_VAR_IN_REG(2, closed_prim);
  3548. !     MZ_GC_REG();
  3549. ! 
  3550. !     vimext_symbol = scheme_intern_symbol("vimext");
  3551. !     MZ_GC_CHECK();
  3552. !     mod = scheme_primitive_module(vimext_symbol, environment);
  3553. !     MZ_GC_CHECK();
  3554.       /* all prims made closed so they can access their own names */
  3555. !     for (i = 0; i < (int)(sizeof(prims)/sizeof(prims[0])); i++)
  3556.       {
  3557.       Vim_Prim *prim = prims + i;
  3558. !     closed_prim = scheme_make_closed_prim_w_arity(prim->prim, prim, prim->name,
  3559. !                 prim->mina, prim->maxa);
  3560. !     scheme_add_global(prim->name, closed_prim, mod);
  3561. !     MZ_GC_CHECK();
  3562.       }
  3563.       scheme_finish_primitive_module(mod);
  3564. +     MZ_GC_CHECK();
  3565. +     MZ_GC_UNREG();
  3566.   }
  3567.   
  3568.   #ifdef HAVE_SANDBOX
  3569. ***************
  3570. *** 2697,2717 ****
  3571. --- 3148,3172 ----
  3572.       {
  3573.           MZ_REGISTER_STATIC(M_write);
  3574.           M_write = scheme_intern_symbol("write");
  3575. +         MZ_GC_CHECK();
  3576.       }
  3577.       if (M_read == NULL)
  3578.       {
  3579.           MZ_REGISTER_STATIC(M_read);
  3580.           M_read = scheme_intern_symbol("read");
  3581. +         MZ_GC_CHECK();
  3582.       }
  3583.       if (M_execute == NULL)
  3584.       {
  3585.           MZ_REGISTER_STATIC(M_execute);
  3586.           M_execute = scheme_intern_symbol("execute");
  3587. +         MZ_GC_CHECK();
  3588.       }
  3589.       if (M_delete == NULL)
  3590.       {
  3591.           MZ_REGISTER_STATIC(M_delete);
  3592.           M_delete = scheme_intern_symbol("delete");
  3593. +         MZ_GC_CHECK();
  3594.       }
  3595.   
  3596.       while (!SCHEME_NULLP(requested_access))
  3597. *** ../vim-7.2.190/src/if_mzsch.h    2006-03-24 23:43:11.000000000 +0100
  3598. --- src/if_mzsch.h    2009-05-26 19:08:21.000000000 +0200
  3599. ***************
  3600. *** 11,16 ****
  3601. --- 11,17 ----
  3602.   
  3603.   /* #ifdef needed for "make depend" */
  3604.   #ifdef FEAT_MZSCHEME
  3605. + # include <schvers.h>
  3606.   # include <scheme.h>
  3607.   #endif
  3608.   
  3609. ***************
  3610. *** 46,49 ****
  3611. --- 47,77 ----
  3612.   # define scheme_byte_string_to_char_string(obj) (obj)
  3613.   #endif
  3614.   
  3615. + /* Precise GC macros */
  3616. + #ifndef MZ_GC_DECL_REG
  3617. + # define MZ_GC_DECL_REG(size)            /* empty */
  3618. + #endif
  3619. + #ifndef MZ_GC_VAR_IN_REG
  3620. + # define MZ_GC_VAR_IN_REG(x, v)          /* empty */
  3621. + #endif
  3622. + #ifndef MZ_GC_ARRAY_VAR_IN_REG
  3623. + # define MZ_GC_ARRAY_VAR_IN_REG(x, v, l) /* empty */
  3624. + #endif
  3625. + #ifndef MZ_GC_REG
  3626. + # define MZ_GC_REG()                     /* empty */
  3627. + #endif
  3628. + #ifndef MZ_GC_UNREG
  3629. + # define MZ_GC_UNREG()                   /* empty */
  3630. + #endif
  3631. + 
  3632. + #ifdef MZSCHEME_FORCE_GC
  3633. + /*
  3634. +  * force garbage collection to check all references are registered
  3635. +  * seg faults will indicate not registered refs
  3636. +  */
  3637. + # define MZ_GC_CHECK() scheme_collect_garbage();
  3638. + #else
  3639. + # define MZ_GC_CHECK()            /* empty */
  3640. + #endif
  3641. + 
  3642.   #endif /* _IF_MZSCH_H_ */
  3643. *** ../vim-7.2.190/src/main.c    2009-05-17 13:30:58.000000000 +0200
  3644. --- src/main.c    2009-05-26 19:09:01.000000000 +0200
  3645. ***************
  3646. *** 935,942 ****
  3647. --- 935,948 ----
  3648.   
  3649.       /*
  3650.        * Call the main command loop.  This never returns.
  3651. +      * For embedded MzScheme the main_loop will be called by Scheme
  3652. +      * for proper stack tracking
  3653.        */
  3654. + #ifndef FEAT_MZSCHEME
  3655.       main_loop(FALSE, FALSE);
  3656. + #else
  3657. +     mzscheme_main();
  3658. + #endif
  3659.   
  3660.       return 0;
  3661.   }
  3662. *** ../vim-7.2.190/src/proto/if_mzsch.pro    2004-07-12 17:51:52.000000000 +0200
  3663. --- src/proto/if_mzsch.pro    2009-05-26 19:09:55.000000000 +0200
  3664. ***************
  3665. *** 15,24 ****
  3666.   void *mzvim_eval_string __ARGS((char_u *str));
  3667.   struct Scheme_Object *mzvim_apply __ARGS((struct Scheme_Object *, int argc,
  3668.       struct Scheme_Object **));
  3669. ! int mzthreads_allowed (void);
  3670. ! #ifdef FEAT_GUI_KDE
  3671. ! void timer_proc (void);
  3672. ! void mzscheme_kde_start_timer (void);
  3673. ! void mzscheme_kde_stop_timer (void);
  3674. ! #endif
  3675.   /* vim: set ft=c : */
  3676. --- 15,20 ----
  3677.   void *mzvim_eval_string __ARGS((char_u *str));
  3678.   struct Scheme_Object *mzvim_apply __ARGS((struct Scheme_Object *, int argc,
  3679.       struct Scheme_Object **));
  3680. ! int mzthreads_allowed __ARGS((void));
  3681. ! void mzscheme_main __ARGS((void));
  3682.   /* vim: set ft=c : */
  3683. *** ../vim-7.2.190/src/version.c    2009-05-26 18:12:13.000000000 +0200
  3684. --- src/version.c    2009-05-26 22:52:53.000000000 +0200
  3685. ***************
  3686. *** 678,679 ****
  3687. --- 678,681 ----
  3688.   {   /* Add new patch number below this line */
  3689. + /**/
  3690. +     191,
  3691.   /**/
  3692.  
  3693. -- 
  3694. Scientists decoded the first message from an alien civilization:
  3695.         SIMPLY SEND 6 TIMES 10 TO THE 50 ATOMS OF HYDROGEN TO THE STAR
  3696. SYSTEM AT THE TOP OF THE LIST, CROSS OFF THAT STAR SYSTEM, THEN PUT
  3697. YOUR STAR SYSTEM AT THE BOTTOM OF THE LIST AND SEND IT TO 100 OTHER
  3698. STAR SYSTEMS.  WITHIN ONE TENTH GALACTIC ROTATION YOU WILL RECEIVE
  3699. ENOUGH HYDROGREN TO POWER YOUR CIVILIZATION UNTIL ENTROPY REACHES ITS
  3700. MAXIMUM!  IT REALLY WORKS!
  3701.  
  3702.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  3703. ///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
  3704. \\\        download, build and distribute -- http://www.A-A-P.org        ///
  3705.  \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///
  3706.