comparison lib/ur/basis.urs @ 1572:5530a8075b62

IF THEN ELSE conditional for SQL.
author Karn Kallio <kkallio@eka>
date Fri, 14 Oct 2011 02:33:03 -0430
parents f403e129c276
children e44be6ece475
comparison
equal deleted inserted replaced
1571:f403e129c276 1572:5530a8075b62
471 471
472 val sql_is_null : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} 472 val sql_is_null : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type}
473 -> t ::: Type 473 -> t ::: Type
474 -> sql_exp tables agg exps (option t) 474 -> sql_exp tables agg exps (option t)
475 -> sql_exp tables agg exps bool 475 -> sql_exp tables agg exps bool
476
477 val sql_if_then_else : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type}
478 -> t ::: Type
479 -> sql_exp tables agg exps bool
480 -> sql_exp tables agg exps t
481 -> sql_exp tables agg exps t
482 -> sql_exp tables agg exps t
476 483
477 class sql_arith 484 class sql_arith
478 val sql_arith_int : sql_arith int 485 val sql_arith_int : sql_arith int
479 val sql_arith_float : sql_arith float 486 val sql_arith_float : sql_arith float
480 val sql_arith_option : t ::: Type -> sql_arith t -> sql_arith (option t) 487 val sql_arith_option : t ::: Type -> sql_arith t -> sql_arith (option t)