autogen-users

[Autogen-users] "string-pad" not recognised by AutoGen 5.11.4

[Dennis W. <dw...@ma...>]

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

Re: [Autogen-users] "string-pad" not recognised by AutoGen 5.11.4

[Bruce K. <bk...@gn...>]

On 12/09/10 03:11, Dennis Wassel wrote:
> Hi list,

Hi Dennis,

> 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

These are Guile messages.  It means that the "string-pad"
function is not defined.  It is probably part of some
library that has not been loaded.  To use it, you need to
determine how.  Something like this that _is_ used at
Guile startup:
   (use-modules (ice-9 common-list))

Also, I am not familiar with it because this is equivalent:

    Print('  <$
    (sprintf "%-15s%s.%s"
       thistype (get "inst") (get "name"))
    $>', 1)

finally, a little nit:

> (string-append
>             (. thistype)

The dot operator and parentheses are superfluous.

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

Re: [Autogen-users] "string-pad" not recognised by AutoGen 5.11.4

[Dennis W. <dw...@ma...>]

Hi Bruce,

Am 09.12.2010 18:09, schrieb Bruce Korb:
> These are Guile messages.  It means that the "string-pad"
> function is not defined.  It is probably part of some
> library that has not been loaded.  To use it, you need to
> determine how.  Something like this that _is_ used at
> Guile startup:
>    (use-modules (ice-9 common-list))

I remember seeing these before. Someone else had some Guile trouble, so
I had to hunt these ice-9 guys down on my system.

But then again this ...

> Also, I am not familiar with it because this is equivalent:
> 
>     Print('  <$
>     (sprintf "%-15s%s.%s"
>        thistype (get "inst") (get "name"))
>     $>', 1)

... works like a treat, and allowed me to kick out the whole cruft.
Thanks a ton!

> finally, a little nit:
> 
>> (string-append
>>             (. thistype)
> 
> The dot operator and parentheses are superfluous.

I promise to be good and not use unnecessary dot operators any more :)

Very helpful, thanks a lot!
Dennis

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