Mercurial > mxe-octave

annotate src/guile-test.c @ 6113:24e29dcb2e64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Qt5: Update to version 5.15.3. * src/qtbase.mk: Update version and checksum. * src/qtbase-2-gcc11.patch: Remove hunks from patch that have been applied upstream. * src/qtimageformats.mk, src/qtsvg.mk, src/qttools.mk, src/qttranslationse.mk: Update checksum.
author Markus Mützel <markus.muetzel@gmx.de>
date Sat, 05 Mar 2022 10:59:53 +0100
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 }