Merge pull request #342 from PESchoenberg/develop

Imrpoved functions.
PESchoenberg · Jan 10, 2024 · 64cc3c4 · 64cc3c4
2 parents e1d9c8d + e5de8c7
commit 64cc3c4
Showing 1 changed file with 14 additions and 2 deletions.
diff --git a/grsp3.scm b/grsp3.scm
@@ -5730,11 +5730,12 @@
 ;;   - "#<=".
 ;;   - "#!=".
 ;;   - "#=".
-;;   - "#eq".
+;;   - "#eq", string equals.
+;;   - "#ct", string contains.
 ;;
 ;; - p_a1: matrix.
 ;; - p_j1: column number.
-;; - p_n1: number.
+;; - p_n1: value.
 ;;
 ;; Output:
 ;;
@@ -5834,6 +5835,17 @@
 							      res3
 							      hm2
 							      ln1)))))
+
+
+		       ((equal? p_s1 "#ct")
+
+			(cond ((equal? (equal? (string-contains n2 p_n1) #f) #f)
+			       (set! res2 (grsp-matrix-subexp res2 1 0))
+			       (set! hm2 (grsp-matrix-esi 2 res2))
+			       (set! res2 (grsp-matrix-subrep res2
+							      res3
+							      hm2
+							      ln1)))))
 
 		       ((equal? p_s1 "#=")