some fixes
svn: r16732
This commit is contained in:
parent
cacb4bd515
commit
e0be8da8a1
|
@ -1,8 +1,7 @@
|
|||
|
||||
; Uses the curses.so extension. Run with
|
||||
; mzscheme -r curses-demo.ss
|
||||
|
||||
; To get append-extension-suffix, which adds .so or .ddl as
|
||||
; To get append-extension-suffix, which adds .so or .dll as
|
||||
; approrpiate for the current platform:
|
||||
(require dynext/file)
|
||||
|
||||
|
@ -17,7 +16,3 @@
|
|||
(refresh)
|
||||
|
||||
(get)
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -2,7 +2,9 @@
|
|||
Extension that uses the curses library.
|
||||
|
||||
Link the extension to the curses library like this:
|
||||
mzc --ld hello.so hello.o -lcurses
|
||||
mzc --xform curses.c
|
||||
mzc --3m --cc curses.3m.c
|
||||
mzc --3m --ld curses.so curses_3m.o -lcurses
|
||||
|
||||
For obvious reasons, this library doesn't interact well
|
||||
with MzScheme's read-eval-print loop. The example file
|
||||
|
@ -39,7 +41,8 @@ static Scheme_Object *sch_put(int argc, Scheme_Object **argv)
|
|||
static Scheme_Object *sch_get(int argc, Scheme_Object **argv)
|
||||
{
|
||||
/* Gets keyboard input */
|
||||
int c = getch();
|
||||
int c;
|
||||
c = getch();
|
||||
return scheme_make_character(c);
|
||||
}
|
||||
|
||||
|
@ -84,9 +87,11 @@ Scheme_Object *scheme_reload(Scheme_Env *env)
|
|||
allocating call. They're not needed for plain old (conservatively
|
||||
collected) Mzscheme. See makeadder3m.c for more info. */
|
||||
Scheme_Object *v;
|
||||
/* Old annotations, are they needed?
|
||||
MZ_GC_DECL_REG(1);
|
||||
MZ_GC_VAR_IN_REG(0, env);
|
||||
MZ_GC_REG();
|
||||
*/
|
||||
|
||||
v = scheme_make_prim_w_arity(sch_clear, "clear", 0, 0),
|
||||
scheme_add_global("clear", v, env);
|
||||
|
|
|
@ -2,10 +2,10 @@
|
|||
MzScheme extension example that returns the string "Hello, world!"
|
||||
when loaded.
|
||||
|
||||
For 3m, compile with:
|
||||
For the 3m GC (the default), compile with:
|
||||
mzc --xform hello.c
|
||||
mzc --3m --cc hello.3m.c
|
||||
mzc --3m --ld hello.so hello.o
|
||||
mzc --3m --ld hello.so hello_3m.o
|
||||
And load with
|
||||
(load-extension "hello.so") ; or "hello.dylib" for Mac OS X
|
||||
; or "hello.dll" for Windows
|
||||
|
|
Loading…
Reference in New Issue
Block a user