Mercurial > urweb
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 |