Re: GOOPS question

[Damien Mattei]

hello Mike,
thanks you
our message crossed
i find the same deduction too

On Sun, May 2, 2021 at 12:26 PM Mikael Djurfeldt <mikael@djurfeldt.com>
wrote:

> make is exported by (oop goops), so yiu always need to do:
>
> (use-modules (oop goops))
>
> to use it.
>
> Also, you should only use use-modules to load proper modules (starting
> with define-module). If it is plain scheme code, use load.
>
> Den sön 2 maj 2021 12:15Damien Mattei <damien.mattei@gmail.com> skrev:
>
>> i use now the good way to loadmodule:
>>
>> scheme@(guile-user)> (set! %load-path (reverse (cons "." (reverse
>> %load-path))))
>>
>> scheme@(guile-user)> %load-path
>>
>> $1 = ("/usr/local/Cellar/guile/2.2.6/share/guile/2.2"
>> "/usr/local/Cellar/guile/2.2.6/share/guile/site/2.2"
>> "/usr/local/Cellar/guile/2.2.6/share/guile/site"
>> "/usr/local/Cellar/guile/2.2.6/share/guile" ".")
>>
>> scheme@(guile-user)> (use-modules (gvector))
>>
>> ;;; note: source file ./gvector.scm
>>
>> ;;;       newer than compiled
>>
>> /Users/mattei/.cache/guile/ccache/2.2-LE-8-3.A/Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm.go
>>
>> ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
>>
>> ;;;       or pass the --no-auto-compile argument to disable.
>>
>> ;;; compiling ./gvector.scm
>>
>> ;;; compiled
>>
>> /Users/mattei/.cache/guile/ccache/2.2-LE-8-3.A/Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm.go
>>
>> scheme@(guile-user)> (define c2 (make <gvector>))
>>
>> ;;; <stdin>:4:11: warning: possibly unbound variable `make'
>>
>> <unnamed port>:4:0: In procedure module-lookup: Unbound variable: make
>>
>>
>> Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
>>
>> scheme@(guile-user) [1]>
>>
>> module <gvector> was not in %load-path
>> but yet another problem that does not exist outside module when simply
>> including files....
>>
>> On Sun, May 2, 2021 at 2:07 AM Damien Mattei <damien.mattei@gmail.com>
>> wrote:
>>
>> > seems your template isn't working:
>> >
>> > scheme@(guile-user)> (load "gvector.scm")
>> >
>> > ;;; note: source file
>> > /Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm
>> >
>> > ;;;       newer than compiled
>> >
>> /Users/mattei/.cache/guile/ccache/2.2-LE-8-3.A/Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm.go
>> >
>> > ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
>> >
>> > ;;;       or pass the --no-auto-compile argument to disable.
>> >
>> > ;;; compiling
>> > /Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm
>> >
>> > ;;; compiled
>> >
>> /Users/mattei/.cache/guile/ccache/2.2-LE-8-3.A/Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm.go
>> >
>> > scheme@(guile-user)> (define c2 (make <gvector>))
>> >
>> > ;;; <stdin>:2:11: warning: possibly unbound variable `make'
>> >
>> > ;;; <stdin>:2:11: warning: possibly unbound variable `<gvector>'
>> >
>> > <unnamed port>:2:0: In procedure module-lookup: Unbound variable: make
>> >
>> >
>> > Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
>> >
>> > scheme@(guile-user) [1]> ,bt
>> >
>> > In current input:
>> >
>> >       2:0  0 (_)
>> >
>> > but things go well if i remove module part and add:
>> >
>> > (use-modules (oop goops)
>> >     (oop goops describe))
>> >
>> > scheme@(guile-user)> (load "gvector.scm")
>> >
>> > ;;; note: source file
>> > /Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm
>> >
>> > ;;;       newer than compiled
>> >
>> /Users/mattei/.cache/guile/ccache/2.2-LE-8-3.A/Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm.go
>> >
>> > ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
>> >
>> > ;;;       or pass the --no-auto-compile argument to disable.
>> >
>> > ;;; compiling
>> > /Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm
>> >
>> > ;;;
>> >
>> /Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm:21:2:
>> > warning: possibly unbound variable `orig:vector-length'
>> >
>> > ;;;
>> >
>> /Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm:26:2:
>> > warning: possibly unbound variable `orig:vector-set!'
>> >
>> > ;;;
>> >
>> /Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm:31:2:
>> > warning: possibly unbound variable `orig:vector-ref'
>> >
>> > ;;; compiled
>> >
>> /Users/mattei/.cache/guile/ccache/2.2-LE-8-3.A/Volumes/Mojave/Users/mattei/Dropbox/git/library-FunctProg/gvector.scm.go
>> >
>> > scheme@(guile-user)> (define c2 (make <gvector>))
>> >
>> > scheme@(guile-user)> c2
>> >
>> > $1 = #<<gvector> 109e82500>
>> >
>> > scheme@(guile-user)> (describe c2)
>> >
>> > #<<gvector> 109e82500> is an instance of class <gvector>
>> >
>> > Slots are:
>> >
>> >      v = #(#<unspecified> #<unspecified> #<unspecified> #<unspecified>
>> > #<unspecified> #<unspecified> #<unspecified> #<unspecified>)
>> >
>> >      length = 0
>> >
>> > probably a module issue.... but i never use them with this Scheme
>> > otherwise things go well (in other file ....)
>> > Damien
>> >
>> > On Fri, Apr 30, 2021 at 9:55 AM Mikael Djurfeldt <mikael@djurfeldt.com>
>> > wrote:
>> >
>> >> Hi!
>> >>
>> >> I attach a template which you could build on. Please post your class
>> when
>> >> you're done. :)
>> >>
>> >> Best regards,
>> >> Mikael
>> >>
>> >> On Fri, Apr 30, 2021 at 1:11 AM Damien Mattei <damien.mattei@gmail.com
>> >
>> >> wrote:
>> >>
>> >>> hi,
>> >>> i want to create a growable vector class in Guile,
>> >>> such as std::vector or python list,
>> >>> first i do not know if it exist already? seems not
>> >>>
>> >>> i want to use GOOPS but i do not understand how the superclass could
>> be
>> >>> accessed,used, instanciate...
>> >>> for example in the doc there is:
>> >>> (define-class <my-complex> (<number>) r i #:name "Complex")
>> >>>
>> >>> seems <number> superclass is of no use
>> >>>
>> >>> for my growable vector i would like to use array as superclass?
>> >>> but perhaps should it be just a slot as array are a subset of growable
>> >>> array ,so a subclass
>> >>>
>> >>> anyway if i write something ike that:
>> >>> (define-class <gvector> (<array>) .....
>> >>> how can i use the <array> object?
>> >>>
>> >>> i think perhaps i should not define a superclass or <object> as super
>> >>> class....
>> >>> any advice welcome...
>> >>>
>> >>> Damien
>> >>>
>> >>
>>
>