;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; PATTERN MATCH FUNCTIONS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; i needed some PATTERN_MATCH-FUNCTIONS (also with wildcards) 
;;; in my projects to check sequences
;;; output is t/nil - 
;;; implement it if you whant :-) regards, andré

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



(defun pattern-match (liste pattern) 
  (loop for z in liste
    with cnt = 0
    with pattern_cnt = 0

    when (or (equal  (nth cnt pattern) z)  (equal '? (nth cnt pattern)))
    do (incf pattern_cnt)
    and do (incf cnt)
    else do (setq cnt (setq pattern_cnt 0))

    when (equal pattern_cnt (length pattern))
    collect 't into bag and do (return (car bag))))


(pattern-match '(1 2 3 4 5 6 7 8) '(2 ? 3))
=> nil


(pattern-match '(1 2 3 4 5 6 7 8) '(2 ?))
=> t

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun test.pm.length (seq pattern)
  (let ((seq (if (omn-formp seq)
               (omn :length seq)
               (append seq))))                 
    (pattern-match seq pattern)))

(defun test.pm.pitch (seq pattern)
  (let ((seq (if (omn-formp seq)
               (omn :pitch seq)
               (append seq))))                     
    (pattern-match seq pattern)))

(defun test.pm.velocity (seq pattern)
  (let ((seq (if (omn-formp seq)
               (omn :velocity seq)
               (append seq))))                     
    (pattern-match seq pattern)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

Hi André,

 

about pattern matching and replacement, did you see the function motif-map into opusmodus doc ?

 

It can be very useful. I use it a lot.

 

Best regards

 

Stéphane.

thanks. yes i know it...

but i'm working different... more "generative" (and not with many OMN-functions)... i have to check in every generation the output  on different parameters, and as a feedback i change when PATTERN-MATCH => T the data-DNA (the production-datas for next gen via (defstruct => make-.... )) or the function which generates something in the generative APP ...  most of the code is in pure LISP. it's great that i can code it like that in OPUSMODUS (very open!)...i can find my own solutions and ways, and it's not necessary to use the "official grammar" (always a problem with music-production-software), but i could i if i want :-)

 

... so i have a large personal USER LIBRARY now :-)

 

thanks for your pracitcal examples how to work on OMN-level - i can learn a lot from them on OMN :-)

regards

andré