From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Bruce Korb Newsgroups: gmane.lisp.guile.devel Subject: Fwd: Re: Wrong type argument in procedure variable-set-name-hint! Date: Sat, 22 Jan 2005 11:36:19 -0800 Organization: Veritas Software Message-ID: <200501221136.19612.bkorb@veritas.com> Reply-To: bkorb@veritas.com NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: Multipart/Mixed; boundary="Boundary-00=_zsq8B6WgIdR4xvo" X-Trace: sea.gmane.org 1106423580 29556 80.91.229.6 (22 Jan 2005 19:53:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 22 Jan 2005 19:53:00 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Sat Jan 22 20:52:49 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CsRJQ-00033X-00 for ; Sat, 22 Jan 2005 20:52:49 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1CsRVX-0003v1-VF for guile-devel@m.gmane.org; Sat, 22 Jan 2005 15:05:20 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1CsRSj-0002mt-1V for guile-devel@gnu.org; Sat, 22 Jan 2005 15:02:27 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1CsRSd-0002l4-Bz for guile-devel@gnu.org; Sat, 22 Jan 2005 15:02:21 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1CsRSb-0002c6-1V for guile-devel@gnu.org; Sat, 22 Jan 2005 15:02:17 -0500 Original-Received: from [143.127.3.10] (helo=MTVMIME01.enterprise.veritas.com) by monty-python.gnu.org with esmtp (Exim 4.34) id 1CsR3V-0002HV-PB for guile-devel@gnu.org; Sat, 22 Jan 2005 14:36:22 -0500 Original-Received: from megami.veritas.com (unverified) by MTVMIME01.enterprise.veritas.com (Content Technologies SMTPRS 4.3.12) with SMTP id for ; Sat, 22 Jan 2005 11:36:20 -0800 Original-Received: from [172.22.12.213]([172.22.12.213]) (8105 bytes) by megami.veritas.com via sendmail with P:esmtp/R:smart_host/T:smtp (sender: ) id for ; Sat, 22 Jan 2005 11:36:20 -0800 (PST) (Smail-3.2.0.101 1997-Dec-17 #15 built 2001-Aug-30) User-Agent: KMail/1.6.2 Original-To: guile-devel@gnu.org X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:4725 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:4725 --Boundary-00=_zsq8B6WgIdR4xvo Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Content-Disposition: inline ---------- Forwarded Message ---------- Subject: Re: Wrong type argument in procedure variable-set-name-hint! Date: Saturday 22 January 2005 11:35 am From: Bruce Korb To: guile@gnu.org Cc: autogen-users@lists.sourceforge.net, Matt Kraai Hello Guile Folks, Below is an error message that Matt Kraai gets while trying to start my autogen program. Would anyone have a guess about what the cause might be? Attached is the script being run when this failure occurs. Thanks for your help! Regards, Bruce On Saturday 22 January 2005 11:06 am, Matt Kraai wrote: > > > + /tmp/autogen-5.6.5/agen5/autogen -L/tmp/autogen-5.6.5/autoopts > > > default-test.def > > > ERROR: In procedure variable-set-name-hint!: > > > ERROR: Wrong type argument in position ~A (expecting ~A): ~S SCM_DEFINE (scm_variable_set_name_hint, "variable-set-name-hint!", 2, 0, 0, (SCM var, SCM hint), "Do not use this function.") #define FUNC_NAME s_scm_variable_set_name_hint { SCM_VALIDATE_VARIABLE (1, var); SCM_VALIDATE_SYMBOL (2, hint); #if SCM_ENABLE_VCELLS SCM_SETCAR (SCM_SMOB_DATA (var), hint); #endif return SCM_UNSPECIFIED; } #undef FUNC_NAME ------------------------------------------------------- --Boundary-00=_zsq8B6WgIdR4xvo Content-Type: text/plain; charset="us-ascii"; name="schemedef.scm" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="schemedef.scm" ;;; AutoGen copyright 1992-2004 Bruce Korb ;;; ;;; AutoGen is free software. ;;; You may redistribute it and/or modify it under the terms of the ;;; GNU General Public License, as published by the Free Software ;;; Foundation; either version 2, or (at your option) any later version. ;;; ;;; AutoGen is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with AutoGen. See the file "COPYING". If not, ;;; write to: The Free Software Foundation, Inc., ;;; 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307, USA. ;;; ;;; This module defines all the scheme initialization for AutoGen. ;;; It gets sucked up into directives.h as a single ANSI-C string. ;;; Comments, blank lines and leading white space are omitted. (use-modules (ice-9 common-list)) (define identifier? (lambda (x) (or (string? x) (symbol? x)))) (define normalize-identifier (lambda (x) (if (string? x) (string->symbol x) x))) (define coerce->string (lambda (x) (let ((char->string (lambda (x) (make-string 1 x))) (coercable? (lambda (x) (or (string? x) (boolean? x) (char? x) (symbol? x) (list? x) (number? x)) )) ) (if (not (coercable? x)) (error "Wrong type to coerce->string" x)) (cond ((string? x) (string-append (char->string #\") x (char->string #\") )) ; Probably not what was wanted, but fun ((boolean? x) (if x "#t" "#f")) ((char? x) (char->string x)) ((number? x) (number->string x)) ((symbol? x) (symbol->string x)) ((list? x) (if (every coercable? x) (apply string-append (map coerce->string x)) )) ) ) ) ) ;;; alist->autogen-def: ;;; take a scheme alist of values, and create autogen assignments. ;;; recursive alists are handled. Using a bare list as a value to be ;;; assigned is not a terribly good idea, though it should work if it ;;; doesn't look too much like an alist The returned string doesn't ;;; contain opening and closing brackets. (define alist->autogen-def (lambda (lst . recursive) (if (null? recursive) (set! recursive #f) (set! recursive #t)) (let ((res (if recursive "{\n" "")) (list-nnul? (lambda (x) (and (list? x) (not (null? x)))))) (do ((i lst (cdr i))) ((null? i) (if recursive (string-append res "}") res)) (let* ((kvpair (car i)) (value (cdr kvpair)) (value-is-alist (if (and (list-nnul? value) (list-nnul? (car value)) (list-nnul? (caar value)) (identifier? (caaar value))) #t #f))) (set! res (string-append res (coerce->string (normalize-identifier (car kvpair))) " = " (if value-is-alist (alist->autogen-def (car value) 1) (coerce->string (cdr kvpair))) ";\n" ) ) ) ) ) ) ) ;;; /*=sfunc make_header_guard ;;; * ;;; * what: create ifndef/define guard ;;; * ;;; * exparg: name , header group name ;;; * ;;; * doc: This function will create a @code{#ifndef}/@code{#define} ;;; * sequence for protecting a header from multiple evaluation. ;;; * It will also set the Scheme variable @code{header-file} ;;; * to the name of the file being protected and it will set ;;; * @code{header-guard} to the name of the @code{#define} being ;;; * used to protect it. It is expected that this will be used ;;; * as follows: ;;; * @example ;;; * [+ (make-header-guard "group_name") +] ;;; * ... ;;; * #endif /* [+ (. header-guard) +] ;;; * ;;; * #include "[+ (. header-file) +]" ;;; * @end example ;;; * @noindent ;;; * The @code{#define} name is composed as follows: ;;; * ;;; * @enumerate ;;; * @item ;;; * The first element is the string argument and a separating ;;; * underscore. ;;; * @item ;;; * That is followed by the name of the header file with ;;; * illegal characters mapped to underscores. ;;; * @item ;;; * The end of the name is always, "@code{_GUARD}". ;;; * @end enumerate ;;; * ;;; =*/ ;;; (define header-file "") (define header-guard "") (define (make-header-guard hdr-pfx) (begin (set! header-file (out-name)) (set! header-guard (string-upcase! (string->c-name! (string-append (if (string? hdr-pfx) hdr-pfx "HEADER") "_" header-file "_GUARD" )))) (sprintf "#ifndef %1$s\n#define %1$s" header-guard) ) ) (define autogen-version "AUTOGEN_VERSION") (define c-file-line-fmt "#line %2$d \"%1$s\"\n") (define-macro (defined-as predicate symbol) `(and (defined? ',symbol) (,predicate ,symbol))) ;;; /*=sfunc html_escape_encode ;;; * ;;; * what: encode html special characters ;;; * general-use: ;;; * ;;; * exparg: str , string to make substitutions in ;;; * ;;; * doc: This function will replace replace the characters @code{'&'}, ;;; * @code{'<'} and @code{'>'} characters with the HTML/XML ;;; * escape-encoded strings (@code{"&"}, @code{"<"}, and ;;; * @code{">"}, respectively). ;;; =*/ ;;; (define html-escape-encode (lambda (str) (string-substitute str '("&" "<" ">") '("&" "<" ">") ) )) (use-modules (ice-9 debug)) (read-enable 'positions) ;;; end of agen5/schemedef.scm --Boundary-00=_zsq8B6WgIdR4xvo Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://lists.gnu.org/mailman/listinfo/guile-devel --Boundary-00=_zsq8B6WgIdR4xvo--