X-Git-Url: http://andersk.mit.edu/gitweb/splint.git/blobdiff_plain/885824d34f6f6626fde2fb041801408cbaf1f6f1..1ac6313d90a797f38280d75b2a63655579080ac6:/test/db2/dbase.lcs diff --git a/test/db2/dbase.lcs b/test/db2/dbase.lcs index 0959890..e1c8f64 100644 --- a/test/db2/dbase.lcs +++ b/test/db2/dbase.lcs @@ -118,18 +118,19 @@ %LCLsort _db_Obj obj db nil %LCLSortTableEnd %LCLSymbolTable +%LCLop min :int, int -> int %LCLop max :int, int -> int %LCLop 0 : -> int %LCLop 0 : -> double %LCLop 1 : -> int %LCLop 1 : -> double -%LCLop __ < __ :int, int -> bool -%LCLop __ < __ :double, double -> bool %LCLop if __ then __ else __ :bool, bool, bool -> bool %LCLop if __ then __ else __ :bool, int, int -> int %LCLop if __ then __ else __ :bool, double, double -> double %LCLop if __ then __ else __ :bool, _char_Vec, _char_Vec -> _char_Vec %LCLop if __ then __ else __ :bool, char, char -> char +%LCLop __ < __ :int, int -> bool +%LCLop __ < __ :double, double -> bool %LCLop empty : -> _char_Vec %LCLop __ > __ :int, int -> bool %LCLop __ > __ :double, double -> bool @@ -142,8 +143,8 @@ %LCLop len :_char_Vec -> int %LCLop prefix :_char_Vec, int -> _char_Vec %LCLop __ / __ :double, double -> double -%LCLop removePrefix :_char_Vec, int -> _char_Vec %LCLop __ \implies __ :bool, bool -> bool +%LCLop removePrefix :_char_Vec, int -> _char_Vec %LCLop substring :_char_Vec, int, int -> _char_Vec %LCLop __ || __ :_char_Vec, _char_Vec -> _char_Vec %LCLop tail :_char_Vec -> _char_Vec @@ -176,14 +177,14 @@ %LCLop __ \eq __ :_char_Vec, _char_Vec -> bool %LCLop __ \eq __ :char, char -> bool %LCLop \not __ :bool -> bool -%LCLop MALE : -> _eemployee0e_Enum %LCLop __ \neq __ :bool, bool -> bool %LCLop __ \neq __ :int, int -> bool %LCLop __ \neq __ :double, double -> bool %LCLop __ \neq __ :_char_Vec, _char_Vec -> bool %LCLop __ \neq __ :char, char -> bool -%LCLop FEMALE : -> _eemployee0e_Enum +%LCLop MALE : -> _eemployee0e_Enum %LCLop { __ } :char -> _char_Vec +%LCLop FEMALE : -> _eemployee0e_Enum %LCLop gender_ANY : -> _eemployee0e_Enum %LCLop db_OK : -> _edbase2e_Enum %LCLop salERR : -> _edbase2e_Enum @@ -198,7 +199,6 @@ %LCLtag eemployee1e enum %LCLop [__, __] :int, int -> _sstdlib0s_Struct_Tuple %LCLop [__, __] :int, int -> _sstdlib1s_Struct_Tuple -%LCLop __ |- __ :_char_Vec, char -> _char_Vec %LCLop __ [] :__char_Obj_Ptr -> __char_Obj_Arr %LCLop __ [] :__sstdlib0s_Struct_Ptr -> __sstdlib0s_Struct_Arr %LCLop __ [] :__sstdlib1s_Struct_Ptr -> __sstdlib1s_Struct_Arr @@ -209,7 +209,7 @@ %LCLop __ [] :____void_Obj_Ptr_Obj_Ptr -> ____void_Obj_Ptr_Obj_Arr %LCLop __ [] :__semployee0s_Struct_Ptr -> __semployee0s_Struct_Arr %LCLop __ [] :__sdbase1s_Struct_Ptr -> __sdbase1s_Struct_Arr -%LCLop __ -| __ :char, _char_Vec -> _char_Vec +%LCLop __ |- __ :_char_Vec, char -> _char_Vec %LCLop __ [__] :_char_Vec, int -> char %LCLop __ [__] :__char_Obj_Arr, int -> _char_Obj %LCLop __ [__] :__sstdlib0s_Struct_Tuple_Vec, int -> _sstdlib0s_Struct_Tuple @@ -230,13 +230,14 @@ %LCLop __ [__] :__semployee0s_Struct_Arr, int -> _semployee0s_Struct %LCLop __ [__] :__sdbase1s_Struct_Tuple_Vec, int -> _sdbase1s_Struct_Tuple %LCLop __ [__] :__sdbase1s_Struct_Arr, int -> _sdbase1s_Struct +%LCLop __ -| __ :char, _char_Vec -> _char_Vec %LCLop [__, __, __, __] :int, int, _eemployee1e_Enum, _eemployee0e_Enum -> _sdbase1s_Struct_Tuple +%LCLop [__, __, __, __, __] :_eemployee1e_Enum, _eemployee0e_Enum, int, _char_Vec, int -> _semployee0s_Struct_Tuple %LCLop __ \select quot :_sstdlib0s_Struct_Tuple -> int %LCLop __ \select quot :_sstdlib0s_Struct -> _int_Obj %LCLop __ \select quot :_sstdlib1s_Struct_Tuple -> int %LCLop __ \select quot :_sstdlib1s_Struct -> _int_Obj %LCLtag semployee0s struct -%LCLop [__, __, __, __, __] :_eemployee1e_Enum, _eemployee0e_Enum, int, _char_Vec, int -> _semployee0s_Struct_Tuple %LCLop __ \leq __ :int, int -> bool %LCLop __ \leq __ :double, double -> bool %LCLop __ \field_arrow quot :__sstdlib0s_Struct_Ptr -> _int_Obj @@ -257,8 +258,8 @@ %LCLop __ \select h :_sdbase1s_Struct_Tuple -> int %LCLop __ \select h :_sdbase1s_Struct -> _int_Obj %LCLop __ \field_arrow l :__sdbase1s_Struct_Ptr -> _int_Obj -%LCLop __ \field_arrow h :__sdbase1s_Struct_Ptr -> _int_Obj %LCLop null : -> char +%LCLop __ \field_arrow h :__sdbase1s_Struct_Ptr -> _int_Obj %LCLop __ \select ssNum :_semployee0s_Struct_Tuple -> int %LCLop __ \select ssNum :_semployee0s_Struct -> _int_Obj %LCLop __ \select name :_semployee0s_Struct_Tuple -> _char_Vec @@ -375,7 +376,6 @@ %LCLop abs :double -> double %LCLop div :int, int -> int %LCLop mod :int, int -> int -%LCLop min :int, int -> int %LCLtype float float exposed %LCLtype bool bool immutable %LCLconst FALSE bool