annotate src/guile-test.c @ 6215:d18a5545df0d release

build-gettext: Don't build emacs bindings. * src/build-gettext.mk: The `emacs` installed on the build system might be incompatible with the STL built by build-gcc. We probably don't need the emacs bindings for the `gettext` build tool anyway. So skip building those bindings.
author Markus Mützel <markus.muetzel@gmx.de>
date Sat, 07 May 2022 12:01:10 +0200
parents 99516e73b368
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2351
8a6c466753e2 Improve comment style of all test programs
Volker Grabsch <vog@notjusthosting.com>
parents: 2333
diff changeset
1 /*
8a6c466753e2 Improve comment style of all test programs
Volker Grabsch <vog@notjusthosting.com>
parents: 2333
diff changeset
2 * This file is part of MXE.
2353
99516e73b368 Move doc/index.html -> index.html
Volker Grabsch <vog@notjusthosting.com>
parents: 2351
diff changeset
3 * See index.html for further information.
2351
8a6c466753e2 Improve comment style of all test programs
Volker Grabsch <vog@notjusthosting.com>
parents: 2333
diff changeset
4 */
844
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
5
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
6 #include <libguile.h>
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
7
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
8 static void inner_main(void *data, int argc, char *argv[])
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
9 {
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
10 (void)data;
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
11 (void)argc;
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
12 (void)argv;
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
13 scm_c_eval_string("(display \"Hello World!\\n\")");
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
14 }
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
15
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
16 int main(int argc, char *argv[])
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
17 {
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
18 scm_boot_guile(argc, argv, inner_main, NULL);
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
19 return 0;
80738f6f27a0 new package: guile
Volker Grabsch <vog@notjusthosting.com>
parents:
diff changeset
20 }