~andywingo/guile-gnome/panel-applet

« back to all changes in this revision

Viewing changes to gnome/gw/template-support.c

  • Committer: Andy Wingo
  • Date: 2004-10-09 10:35:15 UTC
  • Revision ID: Arch-1:wingo@pobox.com--2004-main%guile-gnome-template--dev--0--base-0
initial import

(automatically generated log message)

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
/* guile-gnome
 
2
 * Copyright (C) 2004 Free Software Foundation, Inc.
 
3
 *
 
4
 * template-support.c: Support routines for the template wrapper
 
5
 *
 
6
 * This program is free software; you can redistribute it and/or    
 
7
 * modify it under the terms of the GNU General Public License as   
 
8
 * published by the Free Software Foundation; either version 2 of   
 
9
 * the License, or (at your option) any later version.              
 
10
 *                                                                  
 
11
 * This program is distributed in the hope that it will be useful,  
 
12
 * but WITHOUT ANY WARRANTY; without even the implied warranty of   
 
13
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
 
14
 * GNU General Public License for more details.                     
 
15
 *                                                                  
 
16
 * You should have received a copy of the GNU General Public License
 
17
 * along with this program; if not, contact:
 
18
 *
 
19
 * Free Software Foundation           Voice:  +1-617-542-5942
 
20
 * 59 Temple Place - Suite 330        Fax:    +1-617-542-2652
 
21
 * Boston, MA  02111-1307,  USA       gnu@gnu.org
 
22
 */
 
23
 
 
24
#include "template-support.h"
 
25
#include "guile-gnome-gobject.h"
 
26
 
 
27
#define GRUNTIME_ERROR(format, func_name, args...) \
 
28
  scm_error_scm (scm_str2symbol ("gruntime-error"), scm_makfrom0str (func_name), \
 
29
                 scm_simple_format (SCM_BOOL_F, scm_makfrom0str (format), \
 
30
                                    scm_list_n (args, SCM_UNDEFINED)), \
 
31
                 SCM_EOL, SCM_EOL)
 
32