File: drgeo_init.cc

package info (click to toggle)
drgeo 1.1.0-1.2
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 8,340 kB
  • ctags: 2,481
  • sloc: cpp: 22,807; sh: 11,294; lisp: 1,285; makefile: 378; ansic: 343
file content (44 lines) | stat: -rw-r--r-- 1,533 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
/*
 *  Dr Genius interactive geometry software
 * (C) 2001,2002 Copyright FSF 
 * Author: Hilaire Fernandes  2003
 * 
 * 
 * 
 *
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public Licences as by published
 * by the Free Software Foundation; either version 2; or (at your option)
 * any later version
 *
 * This program is distributed in the hope that it will entertaining,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of 
 * MERCHANTABILTY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
 * Publis License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program; if not, write to the Free Software Foundation, Inc.
 * 675 Mass Ave, Cambridge, MA 02139, USA.
 */

#include <guile/gh.h>
#include <glib.h>

void
drgeoInit ()
{
  SCM ret;
  // Code to handle user configurations
  ret = gh_load (DRGEO_SCMDIR"/drgeo_config.scm");
  // The Dr. Geo Scheme interface
  ret = gh_load (DRGEO_SCMDIR"/drgeo_scm_interface.scm");
  // The Scheme interface constants and synonymes and their
  // translations in other national language
  ret = gh_load (DRGEO_SCMDIR"/drgeo_scm_interface_constant.scm");
  ret = gh_load (DRGEO_SCMDIR"/drgeo_scm_interface_constant_fr.scm");
  ret = gh_load (DRGEO_SCMDIR"/drgeo_scm_interface_constant_sr.scm");
  ret = gh_load (DRGEO_SCMDIR"/drgeo_scm_interface_constant_es.scm");
  ret = gh_load (DRGEO_SCMDIR"/drgeo_scm_interface_constant_nl.scm");
}