Alex <to.sanja <at> gmail.com> writes:
>
>
> Hi!From Guile manual: "An important change for the 1.6.x series of Guile
releases is that the GH interface is now deprecated."
>
> http://www.gnu.org/software/guile/docs/docs-1.6/guile-ref/Libguile-
Intro.html
>
> I use guile-1.8.8 for MEEP.
>
> Alex Friman,
> LPI RAS
>
Thanks, Alex! I was able to successfully configure MPB with the older
version of Guile. One further question, if anyone is able to help:
When I now try to build MPB, my make fails with the following output:
"
...
Making all in mpb-ctl
make[1]: Entering directory `/home/wwhitney/mpb-1.4.2/mpb-ctl'
gen-ctl-io mpb.scm /usr/share/libctl
ice-9/psyntax.scm:1460:33: In procedure parse:
ice-9/psyntax.scm:1460:33: Syntax error:
mpb.scm:694:4: source expression failed to match any pattern in form (define
((rootfun b) k) (let ((tab-val (assoc (cons b k) bktab))) (if tab-val (begin
(print "find-k " b " at " k ": " (cadr tab-val) " (cached)\n") (cdr tab-
val)) (begin (set! num-bands b) (set! k-points (list (vector3-scale k
kdir1))) (run-parity p false) (let ((v (compute-group-velocity-component
kdir1))) (map (lambda (b f v) (let ((tabval (assoc (cons b (vector-ref k0s
(- b band-min))) bktab))) (if (or (not tabval) (< (abs (- f omega)) (abs
(cadr tabval)))) (vector-set! k0s (- b band-min) k))) (set! bktab (cons
(cons (cons b k) (cons (- f omega) v)) bktab))) (arith-sequence band-min 1
(- b band-min -1)) (ncdr (- band-min 1) freqs) (ncdr (- band-min 1) v)) (let
((fun (- (car (reverse freqs)) omega))) (print "find-k " b " at " k ": " fun
"\n") (cons fun (car (reverse v)))))))))
ice-9/psyntax.scm:1460:33: In procedure parse:
ice-9/psyntax.scm:1460:33: Syntax error:
mpb.scm:694:4: source expression failed to match any pattern in form (define
((rootfun b) k) (let ((tab-val (assoc (cons b k) bktab))) (if tab-val (begin
(print "find-k " b " at " k ": " (cadr tab-val) " (cached)\n") (cdr tab-
val)) (begin (set! num-bands b) (set! k-points (list (vector3-scale k
kdir1))) (run-parity p false) (let ((v (compute-group-velocity-component
kdir1))) (map (lambda (b f v) (let ((tabval (assoc (cons b (vector-ref k0s
(- b band-min))) bktab))) (if (or (not tabval) (< (abs (- f omega)) (abs
(cadr tabval)))) (vector-set! k0s (- b band-min) k))) (set! bktab (cons
(cons (cons b k) (cons (- f omega) v)) bktab))) (arith-sequence band-min 1
(- b band-min -1)) (ncdr (- band-min 1) freqs) (ncdr (- band-min 1) v)) (let
((fun (- (car (reverse freqs)) omega))) (print "find-k " b " at " k ": " fun
"\n") (cons fun (car (reverse v)))))))))
cp -f /usr/share/libctl/base/main.c main.c
cc -c -DHAVE_CONFIG_H -DCTL_SCM='"'/usr/share/libctl/base/ctl.scm'"' -
DINCLUDE_SCM='"'/usr/share/libctl/base/include.scm'"' -
DSPEC_SCM='"'/usr/local/share/libctl/specs/mpb.scm'"' -
DVERSION_STRING='"'"MIT Photonic Bands 1.4.2, Copyright (C) 1999-2001 by
MIT."'"' -DHAVE_CTL_HOOKS=1 -DHAVE_CTL_EXPORT_HOOK=1 -I. -I. -I../src/util -
I../src/matrices -I../src/matrixio -I../src/maxwell -DH5_USE_16_API=1 -
I/usr/lib64 -I/usr/include/ctl -g -O2 -Wall -W -Wbad-function-cast -Wcast-
qual -Wpointer-arith -Wcast-align -pedantic main.c -o main.o
main.c:37:20: fatal error: ctl-io.h: No such file or directory
#include "ctl-io.h"
^
compilation terminated.
make[1]: *** [main.o] Error 1
make[1]: Leaving directory `/home/wwhitney/mpb-1.4.2/mpb-ctl'
make: *** [all-recursive] Error 1
"
It appears that ctl-io.h is not being generated, but I'm not clear on why or
how to fix it. I've installed libctl in the standard location. If anyone
has any insight here, please let me know!
For completeness, I'm building on Fedora 19 and configured MPB as follows:
./configure CPPFLAGS="-DH5_USE_16_API=1 -I/usr/lib64 -I/usr/include/ctl"
LDFLAGS="-L/usr/lib64 -L/usr/include/ctl"
Thanks,
Will
>
> 2013/10/11 Will Whitney <wsdwhitney <at> gmail.com>Francisco Benito
<fberam <at> gmail.com> writes:
> >
> >
> > Hi All,I am having troubles trying to compile MPB in Ubuntu 12.04. I>
have installed all libraries required, but I have the following error
> > message every time I try to run ./configure at mpb
>
folder:*******************************************************************ER
> ROR:> checking for guile... yes> > checking for guile-config... yes
> > > checking if linking to guile works... no
> > > configure: error: guile-config is broken or Guile is
> > > not
>
working.********************************************************************
> ****CONFIG.LOGconfigure:7325: checking for guileconfigure:7341: found
> /usr/local/bin/guileconfigure:7352: result: yes> configure:7367: checking
for guile-config
> >
> > configure:7383: found /usr/local/bin/guile-configconfigure:7394: result:
> yes
> > configure:7404: checking if linking to guile worksconfigure:7436: cc> -
o conftest -g -O2 -Wall -W -Wbad-function-cast -Wcast-qual
> > -Wpointer-arith -Wcast-align -pedantic -pthread
> > -I/usr/local/include/guile/2.0 -I/usr/local/include conftest.c
> > -L/usr/local/lib -lguile-2.0 -lgc -lz -llapack -lblas -lfftw -lm
> > >&5
> > /tmp/ccJShFeB.o: In function `main':/home/paco/Ubuntu/DownloadSW/mpb-
1.4.2/configure:7449: undefined reference to `gh_enter'
> >
> > collect2: ld returned 1 exit statusconfigure:7439: $? = 1> configure:
failed program was:
> > | #line 7406 "configure"| /* confdefs.h. */| | #define PACKAGE_NAME ""|
> #define PACKAGE_TARNAME ""| #define PACKAGE_VERSION ""| #define
> PACKAGE_STRING ""
> >
> >
> >
> > | #define PACKAGE_BUGREPORT ""| #define SCALAR_COMPLEX 1| #define
> HAVE_LIBM 1| #define F77_FUNC(name,NAME) name ## _| #define
> F77_FUNC_(name,NAME) name ## __| #define HAVE_LIBFFTW 1| #define HAVE_BLAS
1
> >
> >
> >
> > | #define HAVE_LAPACK 1| #define HAVE_LIBZ 1| #define STDC_HEADERS 1|
> #define HAVE_SYS_TYPES_H 1| #define HAVE_SYS_STAT_H 1| #define
HAVE_STDLIB_H
> 1| #define HAVE_STRING_H 1| #define HAVE_MEMORY_H 1
> >
> >
> >
> > | #define HAVE_STRINGS_H 1| #define HAVE_INTTYPES_H 1| #define
> HAVE_STDINT_H 1| #define HAVE_UNISTD_H 1| /* end confdefs.h. */| | /*
> Override any gcc2 internal prototype to avoid an error. */
> >
> >
> >
> > | #ifdef __cplusplus| extern "C"| #endif| /* We use char because int
might
> match the return type of a gcc2| builtin and then its argument
prototype
> would still apply. */| char gh_enter ();
> >
> >
> >
> > | #ifdef F77_DUMMY_MAIN| # ifdef __cplusplus| extern "C"| #
> endif| int F77_DUMMY_MAIN() { return 1; }| #endif| int| main ()| {|
> gh_enter ();| ;| return 0;
> >
> >
> >
> > | }configure:7454: result: noconfigure:7456: error: guile-config is
broken
> or Guile is not working.Anyone has any idea how to fix this issue?
> Thanks,Francisco
> >
> >
> Hi Francisco & Others,
> Did you ever resolve this issue? I am facing a similar error (guile-
config
> is broken or Guile is not working) and see the same fault in config.log
> (undefined reference to `gh_enter'). Is it possible the GH methods are
not
> included in modern Guile?
> For the record, I am (to my knowledge) directing configure to the the
> correct library directories with CPPFLAGS and LDFLAGS:
> ./configure CPPFLAGS="-DH5_USE_16_API=1 -I/usr/lib64" LDFLAGS="-
> L/usr/lib64"
> Thanks,
> Will
> >
> >
> > _______________________________________________
> > mpb-discuss mailing list
> > mpb-discuss <at> ab-initio.mit.edu
> > http://ab-initio.mit.edu/cgi-bin/mailman/listinfo/mpb-discuss
>
> _______________________________________________
> mpb-discuss mailing listmpb-discuss <at> ab-initio.mit.eduhttp://ab-
initio.mit.edu/cgi-bin/mailman/listinfo/mpb-discuss
>
>
>
>
>
>
>
> _______________________________________________
> mpb-discuss mailing list
> mpb-discuss <at> ab-initio.mit.edu
> http://ab-initio.mit.edu/cgi-bin/mailman/listinfo/mpb-discuss
_______________________________________________
mpb-discuss mailing list
mpb-discuss@ab-initio.mit.edu
http://ab-initio.mit.edu/cgi-bin/mailman/listinfo/mpb-discuss
