mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
cleanup by Rob Browning
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1122 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
a2d9a1e3d1
commit
ad38af026c
@ -1,27 +0,0 @@
|
|||||||
#include <stdio.h>
|
|
||||||
#include <readline.h>
|
|
||||||
#include <history.h>
|
|
||||||
#include <guile/gh.h>
|
|
||||||
#include <FileIO.h>
|
|
||||||
|
|
||||||
static void
|
|
||||||
guile_entry_point(int argc, char *argv[]) {
|
|
||||||
char *input;
|
|
||||||
xacc();
|
|
||||||
|
|
||||||
input = readline("xacc> ");
|
|
||||||
while(input) {
|
|
||||||
SCM result = gh_eval_str(input);
|
|
||||||
gh_display(result);
|
|
||||||
gh_newline();
|
|
||||||
add_history(input);
|
|
||||||
free(input);
|
|
||||||
input = readline("xacc> ");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
int
|
|
||||||
main(int argc, char *argv[]) {
|
|
||||||
gh_enter(argc, argv, guile_entry_point);
|
|
||||||
return 0;
|
|
||||||
}
|
|
Loading…
Reference in New Issue
Block a user