comparison lib/ur/basis.urs @ 1427:541673c3161d

sql_arith_option; 'ALL' for relational operators
author Adam Chlipala <adam@chlipala.net>
date Fri, 25 Feb 2011 11:27:16 -0500
parents 3dab4696d116
children aae3e3b6a408
comparison
equal deleted inserted replaced
1426:6365d10cd326 1427:541673c3161d
382 -> tables1 ::: {{Type}} 382 -> tables1 ::: {{Type}}
383 -> tables2 ::: {{Type}} 383 -> tables2 ::: {{Type}}
384 -> selectedFields ::: {{Type}} 384 -> selectedFields ::: {{Type}}
385 -> selectedExps ::: {Type} 385 -> selectedExps ::: {Type}
386 -> sql_relop 386 -> sql_relop
387 -> bool (* ALL *)
387 -> sql_query1 free afree tables1 selectedFields selectedExps 388 -> sql_query1 free afree tables1 selectedFields selectedExps
388 -> sql_query1 free afree tables2 selectedFields selectedExps 389 -> sql_query1 free afree tables2 selectedFields selectedExps
389 -> sql_query1 free afree [] selectedFields selectedExps 390 -> sql_query1 free afree [] selectedFields selectedExps
390 val sql_forget_tables : free ::: {{Type}} -> afree ::: {{Type}} -> tables ::: {{Type}} -> selectedFields ::: {{Type}} -> selectedExps ::: {Type} 391 val sql_forget_tables : free ::: {{Type}} -> afree ::: {{Type}} -> tables ::: {{Type}} -> selectedFields ::: {{Type}} -> selectedExps ::: {Type}
391 -> sql_query1 free afree tables selectedFields selectedExps 392 -> sql_query1 free afree tables selectedFields selectedExps
446 -> t ::: Type 447 -> t ::: Type
447 -> sql_exp tables agg exps (option t) 448 -> sql_exp tables agg exps (option t)
448 -> sql_exp tables agg exps bool 449 -> sql_exp tables agg exps bool
449 450
450 class sql_arith 451 class sql_arith
451 val sql_int_arith : sql_arith int 452 val sql_arith_int : sql_arith int
452 val sql_float_arith : sql_arith float 453 val sql_arith_float : sql_arith float
454 val sql_arith_option : t ::: Type -> sql_arith t -> sql_arith (option t)
453 455
454 con sql_unary :: Type -> Type -> Type 456 con sql_unary :: Type -> Type -> Type
455 val sql_not : sql_unary bool bool 457 val sql_not : sql_unary bool bool
456 val sql_unary : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} 458 val sql_unary : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type}
457 -> arg ::: Type -> res ::: Type 459 -> arg ::: Type -> res ::: Type