gEDA-cvs: CVS update: g_smob.c

[cvspsrv@xxxxxxxx]

  User: pcjc2   
  Date: 06/12/27 12:37:58

  Modified:    .        Tag: noscreen g_smob.c o_selection.c
  Log:
  sync with trunk
  
  
  
  
  Revision  Changes    Path
  No                   revision
  
  
  No                   revision
  
  
  1.11.2.1  +27 -0     eda/geda/gaf/libgeda/src/g_smob.c
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: g_smob.c
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/libgeda/src/g_smob.c,v
  retrieving revision 1.11
  retrieving revision 1.11.2.1
  diff -u -b -r1.11 -r1.11.2.1
  --- g_smob.c	13 Dec 2006 20:57:45 -0000	1.11
  +++ g_smob.c	27 Dec 2006 17:37:58 -0000	1.11.2.1
  @@ -577,6 +577,8 @@
     scm_set_smob_free(page_smob_tag, g_free_page_smob);
     scm_set_smob_print(page_smob_tag, g_print_page_smob);
   
  +  scm_c_define_gsubr ("get-page-filename", 1, 0, 0, g_get_page_filename);
  +
     return;
   }
   
  @@ -631,3 +633,28 @@
     return (TRUE);
   }
   
  +/*! \brief Get the page filename from a page smob.
  + *  \par Function Description
  + *  Get the page filename from a page smob.
  + *
  + *  \param [in]  page_smob    The page smob to get the filename from.
  + *  \return the page filename or SCM_EOL if there was some error.
  + */
  +SCM g_get_page_filename(SCM page_smob)
  +{
  +  SCM returned = SCM_EOL;
  +  PAGE *page;
  +
  +  SCM_ASSERT ( SCM_NIMP(page_smob) &&
  +	       ((long) SCM_CAR(page_smob) == page_smob_tag),
  +               page_smob, SCM_ARG1, "get-page-filename");
  +
  +  page = (PAGE *) 
  +    (((struct st_page_smob *)SCM_CDR(page_smob))->page);
  +
  +  if (page->page_filename) 
  +    returned = scm_makfrom0str (page->page_filename);
  +
  +  return (returned);
  +}
  +
  
  
  
  1.10.2.1  +1 -1      eda/geda/gaf/libgeda/src/o_selection.c
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: o_selection.c
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/libgeda/src/o_selection.c,v
  retrieving revision 1.10
  retrieving revision 1.10.2.1
  diff -u -b -r1.10 -r1.10.2.1
  --- o_selection.c	21 Dec 2006 20:40:38 -0000	1.10
  +++ o_selection.c	27 Dec 2006 17:37:58 -0000	1.10.2.1
  @@ -65,7 +65,7 @@
    */
   void o_selection_print_all(const GList **head)
   {
  -  GList *s_current;
  +  const GList *s_current;
   
     s_current = *head;
   
  
  
  


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