← Back to branch summary

~ubuntu-branches/ubuntu/vivid/libctl/vivid

« back to all changes in this revision

Viewing changes to utils/ctl-io.scm

  • Committer: Package Import Robot
  • Author(s): Thorsten Alteholz
  • Date: 2012-07-24 18:00:26 UTC
  • mto: (11.1.1 experimental) (1.3.1)
  • mto: This revision was merged to the branch mainline in revision 12.
  • Revision ID: package-import@ubuntu.com-20120724180026-d5yjvlshxjrvu1kk
Tags: upstream-3.2
Import upstream version 3.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
utils/ctl-io.scm
1
1
; libctl: flexible Guile-based control files for scientific software 
2
 
; Copyright (C) 1998-2009, Steven G. Johnson
 
2
; Copyright (C) 1998-2012 Massachusetts Institute of Technology and Steven G. Johnson
3
3
;
4
4
; This library is free software; you can redistribute it and/or
5
5
; modify it under the terms of the GNU Lesser General Public
46
46
 
47
47
(define symbol->c-identifier (compose c-identifier symbol->string))
48
48
 
49
 
(define c-type-string (compose c-identifier type-string))
 
49
(define (c-type-string t)
 
50
  (if (eq? t 'string) "char*" ; "string" name is reserved in C++
 
51
      (c-identifier (type-string t))))
50
52
 
51
53
(define declared-type-names '())
52
54
(define (declare-type-name type-name)