[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/doc/example-smob ChangeLog ima...
From: |
Martin Grabmueller |
Subject: |
guile/guile-core/doc/example-smob ChangeLog ima... |
Date: |
Wed, 30 May 2001 13:28:51 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Martin Grabmueller <address@hidden> 01/05/30 13:28:51
Modified files:
guile-core/doc/example-smob: ChangeLog image-type.c
Log message:
* image-type.c: Adapted to new typing and naming convention.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/doc/example-smob/ChangeLog.diff?cvsroot=OldCVS&tr1=1.7&tr2=1.8&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/doc/example-smob/image-type.c.diff?cvsroot=OldCVS&tr1=1.6&tr2=1.7&r1=text&r2=text
Patches:
Index: guile/guile-core/doc/example-smob/ChangeLog
diff -u guile/guile-core/doc/example-smob/ChangeLog:1.7
guile/guile-core/doc/example-smob/ChangeLog:1.8
--- guile/guile-core/doc/example-smob/ChangeLog:1.7 Thu Apr 26 11:26:28 2001
+++ guile/guile-core/doc/example-smob/ChangeLog Wed May 30 13:28:51 2001
@@ -1,3 +1,7 @@
+2001-05-30 Martin Grabmueller <address@hidden>
+
+ * image-type.c: Adapted to new typing and naming convention.
+
2001-04-26 Neil Jerram <address@hidden>
* image-type.c (make_image): Don't need to use SCM_NIMP before
Index: guile/guile-core/doc/example-smob/image-type.c
diff -u guile/guile-core/doc/example-smob/image-type.c:1.6
guile/guile-core/doc/example-smob/image-type.c:1.7
--- guile/guile-core/doc/example-smob/image-type.c:1.6 Thu Apr 26 11:26:28 2001
+++ guile/guile-core/doc/example-smob/image-type.c Wed May 30 13:28:51 2001
@@ -21,7 +21,7 @@
#include <stdlib.h>
#include <libguile.h>
-static long image_tag;
+static scm_bits_t image_tag;
struct image {
int width, height;
@@ -89,11 +89,11 @@
return image->update_func;
}
-static scm_sizet
+static size_t
free_image (SCM image_smob)
{
struct image *image = (struct image *) SCM_SMOB_DATA (image_smob);
- scm_sizet size = image->width * image->height + sizeof (struct image);
+ size_t size = image->width * image->height + sizeof (struct image);
free (image->pixels);
free (image);
@@ -115,13 +115,13 @@
}
void
-init_image_type ()
+init_image_type (void)
{
image_tag = scm_make_smob_type ("image", sizeof (struct image));
scm_set_smob_mark (image_tag, mark_image);
scm_set_smob_free (image_tag, free_image);
scm_set_smob_print (image_tag, print_image);
- scm_make_gsubr ("clear-image", 1, 0, 0, clear_image);
- scm_make_gsubr ("make-image", 3, 0, 0, make_image);
+ scm_c_define_gsubr ("clear-image", 1, 0, 0, clear_image);
+ scm_c_define_gsubr ("make-image", 3, 0, 0, make_image);
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/doc/example-smob ChangeLog ima...,
Martin Grabmueller <=