gEDA-cvs: CVS update: g_register.c

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 07/04/05 18:57:49

  Modified:    .        g_register.c libgeda.c
  Log:
  Register the OBJ_* object type definitions as scheme character variables.
  
  * include/o_types.h, include/prototype.h, src/g_register.c, 
  
    src/libgeda.c : 
  
    Register the OBJ_* object type definitions as scheme character 
  
    variables.
  
  
  
  
  Revision  Changes    Path
  1.2       +23 -0     eda/geda/gaf/libgeda/src/g_register.c
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: g_register.c
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/libgeda/src/g_register.c,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -b -r1.1 -r1.2
  --- g_register.c	5 Jul 2006 03:13:38 -0000	1.1
  +++ g_register.c	5 Apr 2007 22:57:49 -0000	1.2
  @@ -93,3 +93,26 @@
     }
     
   }
  +
  +
  +/*! \brief Register some libgeda variables with scheme.
  + *  \par Function Description
  + *  Define some variables to be visible to Scheme.
  + */
  +void g_register_libgeda_vars (void)
  +{
  +  scm_c_define("OBJ_LINE", SCM_MAKE_CHAR((unsigned char) OBJ_LINE));
  +  scm_c_define("OBJ_BOX", SCM_MAKE_CHAR((unsigned char) OBJ_BOX));
  +  scm_c_define("OBJ_PICTURE", SCM_MAKE_CHAR((unsigned char) OBJ_PICTURE));
  +  scm_c_define("OBJ_CIRCLE", SCM_MAKE_CHAR((unsigned char) OBJ_CIRCLE));
  +  scm_c_define("OBJ_NET", SCM_MAKE_CHAR((unsigned char) OBJ_NET));
  +  scm_c_define("OBJ_BUS", SCM_MAKE_CHAR((unsigned char) OBJ_BUS));
  +  scm_c_define("OBJ_COMPLEX", SCM_MAKE_CHAR((unsigned char) OBJ_COMPLEX));
  +  scm_c_define("OBJ_TEXT", SCM_MAKE_CHAR((unsigned char) OBJ_TEXT));
  +  scm_c_define("OBJ_PIN", SCM_MAKE_CHAR((unsigned char) OBJ_PIN));
  +  scm_c_define("OBJ_ARC", SCM_MAKE_CHAR((unsigned char) OBJ_ARC));
  +  scm_c_define("OBJ_ROUTE", SCM_MAKE_CHAR((unsigned char) OBJ_ROUTE));
  +  scm_c_define("OBJ_THRU_HOLE", SCM_MAKE_CHAR((unsigned char) OBJ_THRU_HOLE));
  +  scm_c_define("OBJ_PLACEHOLDER", SCM_MAKE_CHAR((unsigned char) OBJ_PLACEHOLDER));
  +  
  +}
  
  
  
  1.3       +1 -0      eda/geda/gaf/libgeda/src/libgeda.c
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: libgeda.c
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/libgeda/src/libgeda.c,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -b -r1.2 -r1.3
  --- libgeda.c	15 Jul 2006 20:49:52 -0000	1.2
  +++ libgeda.c	5 Apr 2007 22:57:49 -0000	1.3
  @@ -74,6 +74,7 @@
     o_text_init(); 
   
     g_register_libgeda_funcs();
  +  g_register_libgeda_vars();
   }
   
   
  
  
  


_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs