Re: include files

[Damien Mattei <damien.mattei@gmail.com>]

i suppose it would work if my files defined modules inside but they
are just include.

for now the solutions i found are:
-lauch the app from my Scheme+ directory so Scheme+ could find all its
include (but if i have other includes from other directory (example
matrix lib) it will not be possible
-remove any include containing itself include and put all necessary
include in the main file

-use real module as java library classes, compile the code and launch
kawa by java, the problem will then be solved as a java project with
java solutions available.

i tried  this too with or without success:

kawa --r5rs -Dkawa.import.path=".:/Users/mattei/Dropbox/git/Scheme-PLUS-for-Kawa"

do not works

(base) mattei@MacBook-Pro-Touch-Bar Scheme-PLUS-for-Kawa % pwd
/Users/mattei/Dropbox/git/Scheme-PLUS-for-Kawa
kawa --r5rs
(load "../AI_Deep_Learning/exo_retropropagationNhidden_layers_matrix_v2_by_vectors4kawa+.scm")

works

On Fri, Oct 13, 2023 at 4:27 PM Alcides Flores <alcides.fp@gmail.com> wrote:
>
> Hello Damien
>
> In the case you mention. Have you tried using require for that? I have always used it successfully in such situations. I.e. importing units/modules in paths relative to the current directory of the module(s).
>
> (require "my-scheme-file.scm")
> (require "some-dir/scheme-file1.scm")
> (require "another-dir/scheme-file2.scm")
>
> Greetings.
>
>
> --
> Alcides Flores.
>
>
> El vie, oct 13 2023, Damien Mattei via Kawa escribió:
>
> > it is a problem i had long time ago on another kawa project, how can i
> > include a file relative to the included file, it works for first
> > included file but if the latter included file include another relative
> > path file it fails:
> >
> > #|kawa:4|# (load
> > "exo_retropropagationNhidden_layers_matrix_v2_by_vectors4kawa+.scm")
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:38:10:
> > cannot open file "./rec.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:39:19:
> > cannot open file "./def.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:40:19:
> > cannot open file "./set-values-plus.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:41:19:
> > cannot open file "./for_next_step.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:42:19:
> > cannot open file "./declare.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:43:19:
> > cannot open file "./condx.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:44:19:
> > cannot open file "./block.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:45:19:
> > cannot open file "./not-equal.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:46:19:
> > cannot open file "./exponential.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:47:19:
> > cannot open file "./while-do-when-unless.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:48:19:
> > cannot open file "./repeat-until.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:49:19:
> > cannot open file "./modulo.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:50:19:
> > cannot open file "./bitwise.scm"
> > /Users/mattei/Library/CloudStorage/Dropbox/git/AI_Deep_Learning/../Scheme-PLUS-for-Kawa/Scheme+.scm:53:19:
> > cannot open file "./slice.scm"
> >
> > file Scheme+.scm:
> >
> >
> > ;; (load "Scheme+.scm")
> > ;; (load "scheme-infix.scm")
> > ;; (load "assignment.scm")
> > ;; (load "apply-square-brackets.scm")
> > ;; (load "array.scm")
> >
> > (require 'srfi-1)
> > (require 'srfi-69) ;; hash table
> >
> > ;; try relative , use include-relative-relative if problems
> > (include "./rec.scm") ; rec does  not exist in Kawa (no SRFI 31)
> > (include-relative "./def.scm")
> > (include-relative "./set-values-plus.scm")
> > (include-relative "./for_next_step.scm")
> > (include-relative "./declare.scm")
> > (include-relative "./condx.scm")
> > (include-relative "./block.scm")
> > (include-relative "./not-equal.scm")
> > (include-relative "./exponential.scm")
> > (include-relative "./while-do-when-unless.scm")
> > (include-relative "./repeat-until.scm")
> > (include-relative "./modulo.scm")
> > (include-relative "./bitwise.scm")
> >
> >
> > (include-relative "./slice.scm")
> >
> > file:  exo_retropropagationNhidden_layers_matrix_v2_by_vectors4kawa+.scm
> >
> > ; Deep Learning : back propagation, gradient descent, neural network
> > with N hidden layers
> >
> > ; L'algorithme de rétro-propagation du gradient dans un
> > ; réseau de neurones avec N couches cachées.
> >
> > ;  D. Mattei
> >
> >
> > ; use MacVim to show ALL the characters of this file (not Emacs, not Aquamacs)
> > ; jeu de couleurs: Torte ou Koehler
> >
> > ; use: (load "exo_retropropagationNhidden_layers_matrix_v2_by_vectors4kawa+.scm")
> >
> > (include-relative "../Scheme-PLUS-for-Kawa/Scheme+.scm")
> >
> > (include-relative "../Scheme-PLUS-for-Kawa/scheme-infix.scm")
> >
> > (include-relative "../Scheme-PLUS-for-Kawa/assignment.scm")
> > (include-relative "../Scheme-PLUS-for-Kawa/apply-square-brackets.scm")
> >
> > (include-relative "../Scheme-PLUS-for-Kawa/array.scm")
> >
> >
> > i know i can , and used module for Scheme+ but ,for now i prefer
> > testing with included files and any way scheme-infix assignment
> > apply-square-brackets required to be included  at user  or main
> > definition level as it modify the environment and scheme+ used a
> > modified reader before that too....