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