Hi list,

a colleague of mine just installed AutoGen 5.11.4 on his machine, like this

autogen -v
autogen (GNU AutoGen) - The Automated Program Generator - Ver. 5.11.4

but the following bit of code causes an error on his machine:

    Print('  <$ (string-append
            (. thistype)
            (. (string-pad "" (- 15 (string-length (. thistype)))))
            (get "inst")
            "."
            (get "name")
        ) $>', 1)

(this code uses <$ and $> as markers). thistype is (define )'d above,
and "name" and "inst" are known here. The error message is

autogen --trace templates -b foo.tpl -T foo.tpl foo.def
open_output_file 'foo.f90' mode wb+
Template include.tpl included
out-push-new on temp file
out-push-new on temp file
Backtrace:
In foo.tpl:
  42: 0* [string-append "double" ...
  44: 1*  (string-pad "" (- 15 (string-length thistype)))

foo.tpl:44:16: In expression (string-pad "" (- 15 #)):
foo.tpl:44:16: Unbound variable: string-pad
No backtrace available.
Scheme evaluation error.  AutoGen ABEND-ing in template
    foo.tpl on line 42
Failing Guile command:  = = = = =

(string-append
            (. thistype)
            (. (string-pad "" (- 15 (string-length (. thistype)))))
            (get "inst")
            "."
            (get "name")
        )

This is puzzling because AG should pass "string-pad" down to Guile.
(I know that I am slightly abusing string-pad, but this was the simplest
way to produce 15-n spaces I could come up with; simpler solutions
appreciated, of course).

Guile version is 1.6.7, which according to its own manual

http://www.gnu.org/software/guile/docs/docs-1.6/guile-ref/Procedure-Index.html#Procedure%20Index

should have string-pad.
Any ideas what may be wrong?

Cheers,
Dennis

-- 
Zentrum für Technomathematik, AG Optimierung und Optimale Steuerung
 fon: 0421-218.63866   fax: 0421-218.9863866    web: www.worhp.de

Attachment: signature.asc
Description: OpenPGP digital signature

------------------------------------------------------------------------------
This SF Dev2Dev email is sponsored by:

WikiLeaks The End of the Free Internet
http://p.sf.net/sfu/therealnews-com
_______________________________________________
Autogen-users mailing list
Autogen-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/autogen-users

Reply via email to