vdbwrair/pipe-lang

pipe-lang's Issues

fix project.clj

(defproject clj-make "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[instaparse "1.4.1"]
                 [defun "0.3.0-alapha"]
                 [org.clojure/clojure "1.7.0"]
                 [t6/from-scala "0.2.1"]
                 [org.scala-lang/scala-library "2.11.6"]
                 [com.github.marianobarrios/dregex_2.11 "0.2-SNAPSHOT"]])
;; for SBT:
; publishTo := Some(Resolver.file("file", new File(Path.userHome.absolutePath + "/.m2/repository")))
; libraryDependencies += "org.clojure" % "clojure" % "1.6.0"

core.clj

(ns clj-make.core 
  (:require [t6.from-scala.core :refer ($ $$) :as $])
  (:import (dregex Regex)))

(defn snd [tup] (let [[s r] ($/view tup)] r))
(defn fst [tup] (let [[s r] ($/view tup)] s))

(defn re-subset [A B] (not (.matchesAnything (.diff A B))))

(defn re-pair [s1 s2] 
  (let [xs ($ List & s1 s2)
       [a b] ($/view ($ Regex/compile xs))
       [A B] (map snd [a b])] [A B]))

(defn str-subset [A B] (apply re-subset (re-pair A B)))