Mercurial > mxe-octave

annotate src/guile-test.c @ 5893:53a6c7df43f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mesa 3D: Update to version 21.1.8. * src/mesa.mk: Update version and checksum. * src/mesa-2-uninitialized.patch: Remove file. * dist-files.mk: Remove file from list.
author Markus Mützel <markus.muetzel@gmx.de>
date Thu, 16 Sep 2021 22:37:45 +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 }