Re: GOOPS question

[Mikael Djurfeldt]

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
> >>>
> >>
>