X-Authentication-Warning:	delorie.com: mail set sender to geda-user-bounces using -f
X-Recipient:	geda-user AT delorie DOT com
X-Original-DKIM-Signature:	v=1; a=rsa-sha256; c=relaxed/relaxed;
	d=gmail.com; s=20230601; t=1714597704; x=1715202504; darn=delorie.com;
	h=content-transfer-encoding:mime-version:message-id:in-reply-to
	:reply-to:date:subject:to:from:user-agent:references:from:to:cc
	:subject:date:message-id:reply-to;
	bh=dXRJi8D4MGOIFxMrC9gYGnxcnF8NmszhS02nnvvCkxk=;
	b=FUaqKze6TBOX0TlYbd7j6n2EaZGBBvPXZ9U5NaGPB0ZVfSKfv8wCUTAcXW93c48OH8
	TnVejP9vNpi+X1Re/JX0xFpY2HsSp2ue3RTQK2kqn0NWdoowLBObMDBjdggtze0PmvLb
	ApLEXbv3flAVsFvgnK+FIdafAKOfQ1VE4LQFzmgvqtTYbITZTyPrJ0shdHk6AMrWCT5Z
	VdZXrw/xW12haxHYDpIyGx2xrHtO2k3PLlbx8mped35CxBskuehSxREseIQJ81EPBQxv
	4dusiHYxWEP72Yua/jyJrl6WMi8nA3wgUNArk57jQ/eZ0/eZWRZyEFNgTI2FKY0sZnoD
	p7pA==
X-Google-DKIM-Signature:	v=1; a=rsa-sha256; c=relaxed/relaxed;
	d=1e100.net; s=20230601; t=1714597704; x=1715202504;
	h=content-transfer-encoding:mime-version:message-id:in-reply-to
	:reply-to:date:subject:to:from:user-agent:references
	:x-gm-message-state:from:to:cc:subject:date:message-id:reply-to;
	bh=dXRJi8D4MGOIFxMrC9gYGnxcnF8NmszhS02nnvvCkxk=;
	b=vdlj3Mmwi6Qmh/5mvmpOoxfUmqC2LZc1P/C4ok0TzUWfshCBmz/JCH+dlIkfaoa0Fg
	wBzSeVOQaXH78xlmmp9T/vnQYRf5yOY3XWrWeM098GzY9LtS6wJoDF/uSlHeUbq5YgBQ
	QNFwkQNFQDKE/oE7ch9ColdbePokbXibGQs6L7gfFN0t6MCOXwyVwUJ2/Mzfl7gW/yi3
	VPxZpLv9pKTBv6PgDht+D9F3eQgtog7SlULmrqqW9wF3bxGKgX+Cp73RpAhqVUvp3CKf
	CcT+XKxfSv8dxsOORWdd7Q3u3+NNQZUpSZcgUh7SN5G1A6HPLeDkGVQS/lQc8PcWix0l
	opyA==
X-Gm-Message-State:	AOJu0YwJ+4GG6LaED/WjahahlD3j+HzgRDokPpvOWVxTlAgbUyq6g8nh
	vtN/GZIhfLEDEg7grgr2xZUNC/jMA+PhQUeumlmhyFcIo7uGT+siDiIZEQ==
X-Google-Smtp-Source:	AGHT+IEg1Ft6zVYUqmvX3DaupRqzik93cSPfAHtqQV5mWcGIgYl4/zKpJLbKaNrYJjSw52TZKTF2Rg==
X-Received:	by 2002:a05:6512:4011:b0:51b:223f:ac41 with SMTP id br17-20020a056512401100b0051b223fac41mr11794lfb.42.1714597703278;
	Wed, 01 May 2024 14:08:23 -0700 (PDT)
References:	<37de350c-1e5f-422f-b13a-c5a9a1e132ac AT linetec DOT nl>
	<20240429130455 DOT F01EF81AB8C5 AT turkos DOT aspodata DOT se>
	<a49f9288-9af4-4bd7-b8bb-f1f6c41fd01f AT linetec DOT nl>
	<20240430103043 DOT 32de22ff AT queeg DOT menasians DOT com>
	<20240430211916 DOT A6DBC81AB8C5 AT turkos DOT aspodata DOT se>
	<bec8e19d-0ad0-454b-a3cf-f220e466c433 AT linetec DOT nl>
	<25416a96-c328-4b7e-8fa8-091c993205bd AT linetec DOT nl>
	<87sez18q32 DOT fsf AT gmail DOT com>
	<b4b5eab9-3fdc-45e7-b627-9b802e627b2d AT linetec DOT nl>
	<87o79p8jcu DOT fsf AT gmail DOT com>
	<d6a4d7ef-f372-46ea-be2b-f4ebda22242d AT linetec DOT nl>
User-agent:	mu4e 1.10.0; emacs 28.2
From:	"Vladimir Zhbanov (vzhbanov AT gmail DOT com) [via geda-user AT delorie DOT com]" <geda-user AT delorie DOT com>
To:	geda-user AT delorie DOT com
Subject:	Re: [geda-user] Gschem refdes autonumber over multiple pages?
Date:	Thu, 02 May 2024 00:02:36 +0300
In-reply-to:	<d6a4d7ef-f372-46ea-be2b-f4ebda22242d@linetec.nl>
Message-ID:	<87jzkd8cl6.fsf@gmail.com>
MIME-Version:	1.0
X-MIME-Autoconverted:	from quoted-printable to 8bit by delorie.com id 441L8S8N4193826
Reply-To:	geda-user AT delorie DOT com
Errors-To:	nobody AT delorie DOT com
X-Mailing-List:	geda-user AT delorie DOT com
X-Unsubscribes-To:	listserv AT delorie DOT com

Hi Richard,

"Richard Rasker (rasker AT linetec DOT nl) [via geda-user AT delorie DOT com]" <geda-user AT delorie DOT com> writes:
...
> Yes, this works, great! Although right now it just outputs a list of numbers, and I haven't found out how to add something like Rfree= to the
> number for the R prefix. 
>
>  If you want to see its output, say, in the log window (e.g. in case you
> don't use any terminal for launching the GUI), you'll have to replace
> the "(display ...)" commands with something like
>   (log! 'message "Counter for R is ~A\n" (lookup-counter-by-prefix "R"))
>
> Hm, that doesn't seem to work yet. Here's what happens in gschem's Status Dock:
>
> Executing guile script [/home/richard/scripts/refdes-counter.scm]
>
> Tracing:
>            6 (apply-smob/1 #<catch-closure 564014dc1220>)
>            5 (apply-smob/1 #<catch-closure 56401672f6a0>)
> In ice-9/eval.scm:
>    202:27  4 (_ #f)
>    223:20  3 (proc #<directory (guile-user) 564014e55140>)
> In unknown file:
>            2 (%resolve-variable (7 . log!) #<directory (guile-user) …>)
> In ice-9/boot-9.scm:
>    751:25  1 (dispatch-exception 0 unbound-variable (#f "Unbound …" …))
> In unknown file:
>            0 (apply-smob/1 #<catch-closure 56401672f660> # #f "Unbo…" …)
>
> ERROR: In procedure apply-smob/1:
> Unbound variable: log!
>
> So from the Guile Reference I assume that I need to define log!, is that correct?

Not really, you have to import the module (geda log), I think.
Something like this:
(use-modules (srfi srfi-1)
             (geda log)  ; <= This one
             (geda page)
             (geda object)
             (geda attrib))

HTH,
  Vladimir

- Raw text -