4 * Implementation of the Microsoft Installer (msi.dll)
6 * Copyright 2003 Mike McCormack for CodeWeavers
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
31 #include "wine/debug.h"
32 #include "wine/unicode.h"
38 #define YYLEX_PARAM info
39 #define YYPARSE_PARAM info
41 static int COND_error
(char *str
);
43 WINE_DEFAULT_DEBUG_CHANNEL
(msi
);
45 typedef
struct tag_yyinput
58 static LPWSTR COND_GetString
( struct cond_str
*str
);
59 static LPWSTR COND_GetLiteral
( struct cond_str
*str
);
60 static int COND_lex
( void *COND_lval
, COND_input
*info
);
62 typedef INT
(*comp_int
)(INT a
, INT b
);
63 typedef INT
(*comp_str
)(LPWSTR a
, LPWSTR b
, BOOL caseless
);
64 typedef INT
(*comp_m1
)(LPWSTR a
,int b
);
65 typedef INT
(*comp_m2
)(int a
,LPWSTR b
);
67 static INT comp_lt_i
(INT a
, INT b
);
68 static INT comp_gt_i
(INT a
, INT b
);
69 static INT comp_le_i
(INT a
, INT b
);
70 static INT comp_ge_i
(INT a
, INT b
);
71 static INT comp_eq_i
(INT a
, INT b
);
72 static INT comp_ne_i
(INT a
, INT b
);
73 static INT comp_bitand
(INT a
, INT b
);
74 static INT comp_highcomp
(INT a
, INT b
);
75 static INT comp_lowcomp
(INT a
, INT b
);
77 static INT comp_eq_s
(LPWSTR a
, LPWSTR b
, BOOL casless
);
78 static INT comp_ne_s
(LPWSTR a
, LPWSTR b
, BOOL casless
);
79 static INT comp_lt_s
(LPWSTR a
, LPWSTR b
, BOOL casless
);
80 static INT comp_gt_s
(LPWSTR a
, LPWSTR b
, BOOL casless
);
81 static INT comp_le_s
(LPWSTR a
, LPWSTR b
, BOOL casless
);
82 static INT comp_ge_s
(LPWSTR a
, LPWSTR b
, BOOL casless
);
83 static INT comp_substring
(LPWSTR a
, LPWSTR b
, BOOL casless
);
84 static INT comp_start
(LPWSTR a
, LPWSTR b
, BOOL casless
);
85 static INT comp_end
(LPWSTR a
, LPWSTR b
, BOOL casless
);
87 static INT comp_eq_m1
(LPWSTR a
, INT b
);
88 static INT comp_ne_m1
(LPWSTR a
, INT b
);
89 static INT comp_lt_m1
(LPWSTR a
, INT b
);
90 static INT comp_gt_m1
(LPWSTR a
, INT b
);
91 static INT comp_le_m1
(LPWSTR a
, INT b
);
92 static INT comp_ge_m1
(LPWSTR a
, INT b
);
94 static INT comp_eq_m2
(INT a
, LPWSTR b
);
95 static INT comp_ne_m2
(INT a
, LPWSTR b
);
96 static INT comp_lt_m2
(INT a
, LPWSTR b
);
97 static INT comp_gt_m2
(INT a
, LPWSTR b
);
98 static INT comp_le_m2
(INT a
, LPWSTR b
);
99 static INT comp_ge_m2
(INT a
, LPWSTR b
);
110 comp_int fn_comp_int
;
111 comp_str fn_comp_str
;
116 %token COND_SPACE COND_EOF COND_SPACE
117 %token COND_OR COND_AND COND_NOT
118 %token COND_LT COND_GT COND_EQ
119 %token COND_LPAR COND_RPAR COND_TILDA
120 %token COND_PERCENT COND_DOLLARS COND_QUESTION COND_AMPER COND_EXCLAM
121 %token
<str
> COND_IDENT
<str
> COND_NUMBER
<str
> COND_LITER
123 %nonassoc COND_EOF COND_ERROR
125 %type
<value
> expression boolean_term boolean_factor
126 %type
<value
> term value_i symbol_i integer
127 %type
<string> identifier value_s symbol_s literal
128 %type
<fn_comp_int
> comp_op_i
129 %type
<fn_comp_str
> comp_op_s
130 %type
<fn_comp_m1
> comp_op_m1
131 %type
<fn_comp_m2
> comp_op_m2
138 COND_input
* cond
= (COND_input
*) info
;
148 | boolean_term COND_OR expression
159 | boolean_term COND_AND boolean_factor
186 | value_i comp_op_i value_i
190 | value_s comp_op_s value_s
192 $$
= $2( $1, $3, FALSE
);
194 | value_s COND_TILDA comp_op_s value_s
196 $$
= $3( $1, $4, TRUE
);
198 | value_s comp_op_m1 value_i
202 | value_i comp_op_m2 value_s
206 | COND_LPAR expression COND_RPAR
213 /* common functions */
254 /* common functions */
295 /* common functions */
320 /*Not valid for mixed compares*/
336 /* common functions */
361 /*Not valid for mixed compares*/
401 $$
= COND_GetLiteral
(&$1);
408 COND_DOLLARS identifier
410 COND_input
* cond
= (COND_input
*) info
;
411 INSTALLSTATE install
= INSTALLSTATE_UNKNOWN
, action
= INSTALLSTATE_UNKNOWN
;
413 MSI_GetComponentStateW
(cond
->package
, $2, &install
, &action
);
415 HeapFree
( GetProcessHeap
(), 0, $2 );
417 | COND_QUESTION identifier
419 COND_input
* cond
= (COND_input
*) info
;
420 INSTALLSTATE install
= INSTALLSTATE_UNKNOWN
, action
= INSTALLSTATE_UNKNOWN
;
422 MSI_GetComponentStateW
(cond
->package
, $2, &install
, &action
);
424 HeapFree
( GetProcessHeap
(), 0, $2 );
426 | COND_AMPER identifier
428 COND_input
* cond
= (COND_input
*) info
;
429 INSTALLSTATE install
= INSTALLSTATE_UNKNOWN
, action
= INSTALLSTATE_UNKNOWN
;
431 MSI_GetFeatureStateW
(cond
->package
, $2, &install
, &action
);
433 HeapFree
( GetProcessHeap
(), 0, $2 );
435 | COND_EXCLAM identifier
437 COND_input
* cond
= (COND_input
*) info
;
438 INSTALLSTATE install
= INSTALLSTATE_UNKNOWN
, action
= INSTALLSTATE_UNKNOWN
;
440 MSI_GetFeatureStateW
(cond
->package
, $2, &install
, &action
);
442 HeapFree
( GetProcessHeap
(), 0, $2 );
450 COND_input
* cond
= (COND_input
*) info
;
451 $$
= HeapAlloc
( GetProcessHeap
(), 0, 0x100*sizeof
(WCHAR
) );
453 /* Lookup the identifier */
456 if
(MSI_GetPropertyW
(cond
->package
,$1,$$
,&sz
) != ERROR_SUCCESS
)
460 HeapFree
( GetProcessHeap
(), 0, $1 );
462 | COND_PERCENT identifier
464 UINT len
= GetEnvironmentVariableW
( $2, NULL
, 0 );
467 $$
= HeapAlloc
( GetProcessHeap
(), 0, len
*sizeof
(WCHAR
) );
469 GetEnvironmentVariableW
( $2, $$
, len
);
471 HeapFree
( GetProcessHeap
(), 0, $2 );
478 $$
= COND_GetString
(&$1);
487 LPWSTR szNum
= COND_GetString
(&$1);
491 HeapFree
( GetProcessHeap
(), 0, szNum
);
498 static int COND_IsAlpha
( WCHAR x
)
500 return
( ( ( x
>= 'A' ) && ( x
<= 'Z' ) ) ||
501 ( ( x
>= 'a' ) && ( x
<= 'z' ) ) ||
505 static int COND_IsNumber
( WCHAR x
)
507 return
( (( x
>= '0' ) && ( x
<= '9' )) ||
(x
=='-') ||
(x
=='.') );
511 /* the mess of comparison functions */
513 static INT comp_lt_i
(INT a
, INT b
)
515 static INT comp_gt_i
(INT a
, INT b
)
517 static INT comp_le_i
(INT a
, INT b
)
519 static INT comp_ge_i
(INT a
, INT b
)
521 static INT comp_eq_i
(INT a
, INT b
)
523 static INT comp_ne_i
(INT a
, INT b
)
525 static INT comp_bitand
(INT a
, INT b
)
527 static INT comp_highcomp
(INT a
, INT b
)
528 { return HIWORD
(a
)==b
; }
529 static INT comp_lowcomp
(INT a
, INT b
)
530 { return LOWORD
(a
)==b
; }
532 static INT comp_eq_s
(LPWSTR a
, LPWSTR b
, BOOL casless
)
533 { if
(casless
) return
!strcmpiW
(a
,b
); else return
!strcmpW
(a
,b
);}
534 static INT comp_ne_s
(LPWSTR a
, LPWSTR b
, BOOL casless
)
535 { if
(casless
) return strcmpiW
(a
,b
); else return strcmpW
(a
,b
);}
536 static INT comp_lt_s
(LPWSTR a
, LPWSTR b
, BOOL casless
)
537 { if
(casless
) return strcmpiW
(a
,b
)<0; else return strcmpW
(a
,b
)<0;}
538 static INT comp_gt_s
(LPWSTR a
, LPWSTR b
, BOOL casless
)
539 { if
(casless
) return strcmpiW
(a
,b
)>0; else return strcmpW
(a
,b
)>0;}
540 static INT comp_le_s
(LPWSTR a
, LPWSTR b
, BOOL casless
)
541 { if
(casless
) return strcmpiW
(a
,b
)<=0; else return strcmpW
(a
,b
)<=0;}
542 static INT comp_ge_s
(LPWSTR a
, LPWSTR b
, BOOL casless
)
543 { if
(casless
) return strcmpiW
(a
,b
)>=0; else return strcmpW
(a
,b
)>=0;}
544 static INT comp_substring
(LPWSTR a
, LPWSTR b
, BOOL casless
)
545 /* ERROR NOT WORKING REWRITE */
546 { if
(casless
) return strstrW
(a
,b
)!=NULL
; else return strstrW
(a
,b
)!=NULL
;}
547 static INT comp_start
(LPWSTR a
, LPWSTR b
, BOOL casless
)
548 { if
(casless
) return strncmpiW
(a
,b
,strlenW
(b
))==0;
549 else return strncmpW
(a
,b
,strlenW
(b
))==0;}
550 static INT comp_end
(LPWSTR a
, LPWSTR b
, BOOL casless
)
556 if
(casless
) return
(!strcmpiW
(&a
[i
-j
-1],b
));
557 else return
(!strcmpW
(&a
[i
-j
-1],b
));
561 static INT comp_eq_m1
(LPWSTR a
, INT b
)
562 { if
(COND_IsNumber
(a
[0])) return atoiW
(a
)==b
; else return
0;}
563 static INT comp_ne_m1
(LPWSTR a
, INT b
)
564 { if
(COND_IsNumber
(a
[0])) return atoiW
(a
)!=b
; else return
1;}
565 static INT comp_lt_m1
(LPWSTR a
, INT b
)
566 { if
(COND_IsNumber
(a
[0])) return atoiW
(a
)<b
; else return
0;}
567 static INT comp_gt_m1
(LPWSTR a
, INT b
)
568 { if
(COND_IsNumber
(a
[0])) return atoiW
(a
)>b
; else return
0;}
569 static INT comp_le_m1
(LPWSTR a
, INT b
)
570 { if
(COND_IsNumber
(a
[0])) return atoiW
(a
)<=b
; else return
0;}
571 static INT comp_ge_m1
(LPWSTR a
, INT b
)
572 { if
(COND_IsNumber
(a
[0])) return atoiW
(a
)>=b
; else return
0;}
574 static INT comp_eq_m2
(INT a
, LPWSTR b
)
575 { if
(COND_IsNumber
(b
[0])) return a
== atoiW
(b
); else return
0;}
576 static INT comp_ne_m2
(INT a
, LPWSTR b
)
577 { if
(COND_IsNumber
(b
[0])) return a
!= atoiW
(b
); else return
1;}
578 static INT comp_lt_m2
(INT a
, LPWSTR b
)
579 { if
(COND_IsNumber
(b
[0])) return a
< atoiW
(b
); else return
0;}
580 static INT comp_gt_m2
(INT a
, LPWSTR b
)
581 { if
(COND_IsNumber
(b
[0])) return a
> atoiW
(b
); else return
0;}
582 static INT comp_le_m2
(INT a
, LPWSTR b
)
583 { if
(COND_IsNumber
(b
[0])) return a
<= atoiW
(b
); else return
0;}
584 static INT comp_ge_m2
(INT a
, LPWSTR b
)
585 { if
(COND_IsNumber
(b
[0])) return a
>= atoiW
(b
); else return
0;}
589 static int COND_IsIdent
( WCHAR x
)
591 return
( COND_IsAlpha
( x
) || COND_IsNumber
( x
) ||
( x
== '_' )
592 ||
( x
== '#' ) ||
(x
== '.') );
595 static int COND_GetOne
( struct cond_str
*str
, COND_input
*cond
)
597 static const WCHAR szNot
[] = {'N','O','T',0};
598 static const WCHAR szAnd
[] = {'A','N','D',0};
599 static const WCHAR szOr
[] = {'O','R',0};
603 str
->data
= &cond
->str
[cond
->n
];
609 case
'(': rc
= COND_LPAR
; break
;
610 case
')': rc
= COND_RPAR
; break
;
611 case
'&': rc
= COND_AMPER
; break
;
612 case
'!': rc
= COND_EXCLAM
; break
;
613 case
'$': rc
= COND_DOLLARS
; break
;
614 case
'?': rc
= COND_QUESTION
; break
;
615 case
'%': rc
= COND_PERCENT
; break
;
616 case
' ': rc
= COND_SPACE
; break
;
617 case
'=': rc
= COND_EQ
; break
;
618 case
'~': rc
= COND_TILDA
; break
;
619 case
'<': rc
= COND_LT
; break
;
620 case
'>': rc
= COND_GT
; break
;
623 const WCHAR
*ch2
= str
->data
+ 1;
626 while
( *ch2
&& *ch2
!= '"' )
630 len
= ch2
- str
->data
+ 1;
635 ERR
("Unterminated string\n");
639 if
( COND_IsAlpha
( ch
) )
641 while
( COND_IsIdent
( str
->data
[len
] ) )
647 if
( COND_IsNumber
( ch
) )
649 while
( COND_IsNumber
( str
->data
[len
] ) )
655 ERR
("Got unknown character %c(%x)\n",ch
,ch
);
660 /* keyword identifiers */
661 if
( rc
== COND_IDENT
)
663 if
( (len
==3) && (strncmpiW
(str
->data
,szNot
,len
)==0) )
665 else if
( (len
==3) && (strncmpiW
(str
->data
,szAnd
,len
)==0) )
667 else if
( (len
==2) && (strncmpiW
(str
->data
,szOr
,len
)==0) )
677 static int COND_lex
( void *COND_lval
, COND_input
*cond
)
680 struct cond_str
*str
= COND_lval
;
683 rc
= COND_GetOne
( str
, cond
);
684 } while
(rc
== COND_SPACE
);
689 static LPWSTR COND_GetString
( struct cond_str
*str
)
693 ret
= HeapAlloc
( GetProcessHeap
(), 0, (str
->len
+1) * sizeof
(WCHAR
) );
696 strncpyW
( ret
, str
->data
, str
->len
);
699 TRACE
("Got identifier %s\n",debugstr_w
(ret
));
703 static LPWSTR COND_GetLiteral
( struct cond_str
*str
)
707 ret
= HeapAlloc
( GetProcessHeap
(), 0, (str
->len
-1) * sizeof
(WCHAR
) );
710 memcpy
( ret
, str
->data
+1, (str
->len
-2) * sizeof
(WCHAR
) );
713 TRACE
("Got literal %s\n",debugstr_w
(ret
));
717 static int COND_error
(char *str
)
722 MSICONDITION MSI_EvaluateConditionW
( MSIPACKAGE
*package
, LPCWSTR szCondition
)
727 cond.package
= package
;
728 cond.str
= szCondition
;
732 TRACE
("Evaluating %s\n",debugstr_w
(szCondition
));
734 if
( !COND_parse
( &cond
) )
737 r
= MSICONDITION_ERROR
;
739 TRACE
("Evaluates to %i\n",r
);
743 MSICONDITION WINAPI MsiEvaluateConditionW
( MSIHANDLE hInstall
, LPCWSTR szCondition
)
748 package
= msihandle2msiinfo
( hInstall
, MSIHANDLETYPE_PACKAGE
);
750 return ERROR_INVALID_HANDLE
;
751 ret
= MSI_EvaluateConditionW
( package
, szCondition
);
752 msiobj_release
( &package
->hdr
);
756 MSICONDITION WINAPI MsiEvaluateConditionA
( MSIHANDLE hInstall
, LPCSTR szCondition
)
758 LPWSTR szwCond
= NULL
;
763 UINT len
= MultiByteToWideChar
( CP_ACP
, 0, szCondition
, -1, NULL
, 0 );
764 szwCond
= HeapAlloc
( GetProcessHeap
(), 0, len
* sizeof
(WCHAR
) );
765 MultiByteToWideChar
( CP_ACP
, 0, szCondition
, -1, szwCond
, len
);
768 r
= MsiEvaluateConditionW
( hInstall
, szwCond
);
771 HeapFree
( GetProcessHeap
(), 0, szwCond
);