adam@6: fun sqexps [env] [fields] (fl : folder fields) (inj : $(map sql_injectable fields)) (r : $fields) =
adam@6:     @map2 [sql_injectable] [id] [sql_exp env [] []]
adam@6:      (fn [t] => @sql_inject)
adam@6:      fl inj r
adam@6: 
adam@15: fun selector [tn :: Name] [fs] [ofs] [fs ~ ofs] (fl : folder fs) (m : $(map sql_injectable fs)) (r : $fs)
adam@15:     : sql_exp [tn = ofs ++ fs] [] [] bool =
adam@6:     @foldR2 [sql_injectable] [id]
adam@6:      [fn key => rest :: {Type} -> [rest ~ key] => sql_exp [tn = key ++ rest] [] [] bool]
adam@6:      (fn [nm :: Name] [t :: Type] [key :: {Type}] [[nm] ~ key]
adam@6:                       (inj : sql_injectable t) (v : t)
adam@6:                       (exp : rest :: {Type} -> [rest ~ key] => sql_exp [tn = key ++ rest] [] [] bool)
adam@6:                       [rest :: {Type}] [rest ~ [nm = t] ++ key] =>
adam@14:          (WHERE {{tn}}.{nm} = {@sql_inject inj v} AND {exp [[nm = t] ++ rest]}))
adam@6:      (fn [rest :: {Type}] [rest ~ []] => (WHERE TRUE))
adam@6:      fl m r [_] !
adam@13: 
adam@13: fun joiner [tn1 :: Name] [tn2 :: Name] [fs] [ofs1] [ofs2] [[tn1] ~ [tn2]] [fs ~ ofs1] [fs ~ ofs2]
adam@15:            (fl : folder fs) : sql_exp [tn1 = ofs1 ++ fs, tn2 = ofs2 ++ fs] [] [] bool =
adam@13:     @fold
adam@13:      [fn key => rest1 :: {Type} -> rest2 :: {Type} -> [rest1 ~ key] => [rest2 ~ key] => sql_exp [tn1 = key ++ rest1, tn2 = key ++ rest2] [] [] bool]
adam@13:      (fn [nm :: Name] [t :: Type] [key :: {Type}] [[nm] ~ key]
adam@13:                       (exp : rest1 :: {Type} -> rest2 :: {Type} -> [rest1 ~ key] => [rest2 ~ key]
adam@13:                        => sql_exp [tn1 = key ++ rest1, tn2 = key ++ rest2] [] [] bool)
adam@13:                       [rest1 :: {Type}] [rest2 :: {Type}] [rest1 ~ [nm = t] ++ key] [rest2 ~ [nm = t] ++ key] =>
adam@14:          (WHERE {{tn1}}.{nm} = {{tn2}}.{nm} AND {exp [[nm = t] ++ rest1] [[nm = t] ++ rest2]}))
adam@13:      (fn [rest1 :: {Type}] [rest2 :: {Type}] [rest1 ~ []] [rest2 ~ []] => (WHERE TRUE))
adam@13:      fl [_] [_] ! !
adam@15: 
adam@15: fun insertIfMissing [keyCols ::: {Type}] [otherCols ::: {Type}] [otherKeys ::: {{Unit}}]
adam@15:                     [keyCols ~ otherCols] [[Pkey] ~ otherKeys]
adam@15:                     (t : sql_table (keyCols ++ otherCols) ([Pkey = map (fn _ => ()) keyCols] ++ otherKeys))
adam@15:                     (vs : $(keyCols ++ otherCols))
adam@15:                     (kfl : folder keyCols) (kinj : $(map sql_injectable keyCols))
adam@15:                     (ofl : folder otherCols) (oinj : $(map sql_injectable otherCols))
adam@15:     : transaction bool =
adam@15:     alreadyThere <- oneRowE1 (SELECT COUNT( * ) > 0
adam@15:                               FROM t
adam@15:                               WHERE {@selector [#T] ! kfl kinj (vs --- _)});
adam@15:     if alreadyThere then
adam@15:         return False
adam@15:     else
adam@15:         dml (insert t (@sqexps kfl kinj (vs --- _)
adam@15:                         ++ @sqexps ofl oinj (vs --- _)));
adam@15:         return True
adam@15: 
adam@15: fun deleteByKey [keyCols ::: {Type}] [otherCols ::: {Type}] [otherKeys ::: {{Unit}}]
adam@15:     [keyCols ~ otherCols] [[Pkey] ~ otherKeys]
adam@15:     (t : sql_table (keyCols ++ otherCols) ([Pkey = map (fn _ => ()) keyCols] ++ otherKeys))
adam@15:     (vs : $keyCols) (kfl : folder keyCols) (kinj : $(map sql_injectable keyCols)) =
adam@15:     dml (delete t (@selector [#T] ! kfl kinj vs))