IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/gnome/tip-of-the-day.c: moved from src/guile.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5814 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-11-09 18:19:44 +00:00
parent 8e446e7fe9
commit 9b6df1ba6c
1 changed files with 76 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
src/gnome/tip-of-the-day.c Normal file
View File

@ -0,0 +1,76 @@
/********************************************************************\
* tip-of-the-day.c -- C wrappers for scheme "tip of the day" fns *
* Copyright (C) 2000 Robert Merkel <rgmerk@mira.net> *
* This program is free software; you can redistribute it and/or *
* modify it under the terms of the GNU General Public License as *
* published by the Free Software Foundation; either version 2 of *
* the License, or (at your option) any later version. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
* *
* You should have received a copy of the GNU General Public License*
* along with this program; if not, contact: *
* *
* Free Software Foundation Voice: +1-617-542-5942 *
* 59 Temple Place - Suite 330 Fax: +1-617-542-2652 *
* Boston, MA 02111-1307, USA gnu@gnu.org *
\********************************************************************/
#include "config.h"
#include <guile/gh.h>
#include "tip-of-the-day.h"
/** Implementations ***************************************************/
/********************************************************************\
* gnc_get_current_tip *
* get the current tip *
* *
* Returns: A freshly malloc string containing the tip *
\********************************************************************/
char *
gnc_get_current_tip(void)
{
SCM tip_scm;
tip_scm = gh_eval_str("(gnc:get-current-tip)");
return gh_scm2newstr(tip_scm, NULL);
}
/********************************************************************\
* gnc_increment_tip *
* set the current tip to be the next one in the sequence *
* *
* Returns: nothing *
\********************************************************************/
void
gnc_increment_tip(void)
{
gh_eval_str("(gnc:increment-tip-number)");
return;
}
/********************************************************************\
* gnc_decrement_tip *
* set the current tip to the previous one in the sequence *
* *
* Returns: Nothing *
\********************************************************************/
void
gnc_decrement_tip(void)
{
gh_eval_str("(gnc:decrement-tip-number)");
return;
}
/********************** END OF FILE *********************************\
\********************************************************************/