guile/guile-core/doc/example-smob ChangeLog ima...

[Martin Grabmueller]

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);
 }