; ****************************************************************
; | OM-SRR, 2023-2025 M.Schumacher                               |
; |                                                              |
; | Library for spectral rhythm modeling via integer time ratios |
; | (partials) as phase-aligned amplitude modulations.           |
; |                                                              |
; | See https://steffenkrebber.de/research/sinusoidal-run-rhythm/|
; ****************************************************************
;
;This program is free software; you can redistribute it and/or
;modify it under the terms of the GNU General Public License
;as published by the Free Software Foundation; either version 2
;of the License, or (at your option) any later version.
;
;See file LICENSE for further informations on licensing terms.
;
;This program is distributed in the hope that it will be useful,
;but WITHOUT ANY WARRANTY; without even the implied warranty of
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;GNU General Public License for more details.
;
;You should have received a copy of the GNU General Public License
;along with this program; if not, write to the Free Software
;Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,10 USA.
;
;Authors: M. Schumacher


;--------------------------------------------------
;Variable definiton with files to load 
;--------------------------------------------------


(defvar *initfile* *load-pathname*)

(defun lib-src-file (name)
  (make-pathname :directory (append (pathname-directory *initfile*) (list "sources")) 
                 :name name))

(defvar *OM-SRR_files* nil)
(setf *OM-SRR_files* '("srr"))

;--------------------------------------------------
;Loading files 
;--------------------------------------------------
  

(mapc #'(lambda (filename) 
          (om::compile&load (namestring (lib-src-file filename))))
      *OM-SRR_files*)

;--------------------------------------------------
; OM subpackages initialization
; ("sub-pack-name" subpacke-lists class-list function-list class-alias-list)
;--------------------------------------------------
(defvar *subpackages-list* nil)
(setf *subpackages-list* 
      '((Nil Nil Nil (gen-partial gen-srr polar-plot farey-sequence) Nil)))


;--------------------------------------------------
;filling packages
;--------------------------------------------------
(om::fill-library *subpackages-list*)