Mercurial > mxe-octave

annotate src/guile-test.c @ 6161:8fcac4d6d983 release

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
of-queueing: Fix syntax error with Octave 7 (bug #62314). * src/of-queueing-1-octave7.patch: Add new file. * dist-files.mk: Include new patch.
author Markus Mützel <markus.muetzel@gmx.de>
date Thu, 14 Apr 2022 19:27:13 +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 }