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(const 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
184 $$ = ($1 && $1[0]) ? MSICONDITION_TRUE : MSICONDITION_FALSE;
187 | value_i comp_op_i value_i
191 | value_s comp_op_s value_s
193 $$ = $2( $1, $3, FALSE );
197 | value_s COND_TILDA comp_op_s value_s
199 $$ = $3( $1, $4, TRUE );
203 | value_s comp_op_m1 value_i
208 | value_i comp_op_m2 value_s
213 | COND_LPAR expression COND_RPAR
220 /* common functions */
261 /* common functions */
302 /* common functions */
327 /*Not valid for mixed compares*/
343 /* common functions */
368 /*Not valid for mixed compares*/
408 $$ = COND_GetLiteral(&$1);
415 COND_DOLLARS identifier
417 COND_input* cond = (COND_input*) info;
418 INSTALLSTATE install = INSTALLSTATE_UNKNOWN, action = INSTALLSTATE_UNKNOWN;
420 MSI_GetComponentStateW(cond->package, $2, &install, &action );
424 | COND_QUESTION identifier
426 COND_input* cond = (COND_input*) info;
427 INSTALLSTATE install = INSTALLSTATE_UNKNOWN, action = INSTALLSTATE_UNKNOWN;
429 MSI_GetComponentStateW(cond->package, $2, &install, &action );
433 | COND_AMPER identifier
435 COND_input* cond = (COND_input*) info;
436 INSTALLSTATE install = INSTALLSTATE_UNKNOWN, action = INSTALLSTATE_UNKNOWN;
438 MSI_GetFeatureStateW(cond->package, $2, &install, &action );
442 | COND_EXCLAM identifier
444 COND_input* cond = (COND_input*) info;
445 INSTALLSTATE install = INSTALLSTATE_UNKNOWN, action = INSTALLSTATE_UNKNOWN;
447 MSI_GetFeatureStateW(cond->package, $2, &install, &action );
457 COND_input* cond = (COND_input*) info;
460 MSI_GetPropertyW(cond->package, $1, NULL, &sz);
463 $$ = msi_alloc( sizeof(WCHAR));
469 $$ = msi_alloc( sz*sizeof (WCHAR) );
471 /* Lookup the identifier */
473 MSI_GetPropertyW(cond->package,$1,$$,&sz);
477 | COND_PERCENT identifier
479 UINT len = GetEnvironmentVariableW( $2, NULL, 0 );
482 $$ = msi_alloc( len*sizeof (WCHAR) );
484 GetEnvironmentVariableW( $2, $$, len );
493 $$ = COND_GetString(&$1);
502 LPWSTR szNum = COND_GetString(&$1);
513 static int COND_IsAlpha( WCHAR x )
515 return( ( ( x >= 'A' ) && ( x <= 'Z' ) ) ||
516 ( ( x >= 'a' ) && ( x <= 'z' ) ) ||
520 static int COND_IsNumber( WCHAR x )
522 return( (( x >= '0' ) && ( x <= '9' )) || (x =='-') || (x =='.') );
526 /* the mess of comparison functions */
528 static INT comp_lt_i(INT a, INT b)
530 static INT comp_gt_i(INT a, INT b)
532 static INT comp_le_i(INT a, INT b)
534 static INT comp_ge_i(INT a, INT b)
536 static INT comp_eq_i(INT a, INT b)
538 static INT comp_ne_i(INT a, INT b)
540 static INT comp_bitand(INT a, INT b)
542 static INT comp_highcomp(INT a, INT b)
543 { return HIWORD(a)==b; }
544 static INT comp_lowcomp(INT a, INT b)
545 { return LOWORD(a)==b; }
547 static INT comp_eq_s(LPWSTR a, LPWSTR b, BOOL casless)
548 { if (casless) return !strcmpiW(a,b); else return !strcmpW(a,b);}
549 static INT comp_ne_s(LPWSTR a, LPWSTR b, BOOL casless)
550 { if (casless) return strcmpiW(a,b); else return strcmpW(a,b);}
551 static INT comp_lt_s(LPWSTR a, LPWSTR b, BOOL casless)
552 { if (casless) return strcmpiW(a,b)<0; else return strcmpW(a,b)<0;}
553 static INT comp_gt_s(LPWSTR a, LPWSTR b, BOOL casless)
554 { if (casless) return strcmpiW(a,b)>0; else return strcmpW(a,b)>0;}
555 static INT comp_le_s(LPWSTR a, LPWSTR b, BOOL casless)
556 { if (casless) return strcmpiW(a,b)<=0; else return strcmpW(a,b)<=0;}
557 static INT comp_ge_s(LPWSTR a, LPWSTR b, BOOL casless)
558 { if (casless) return strcmpiW(a,b)>=0; else return strcmpW(a,b)>=0;}
559 static INT comp_substring(LPWSTR a, LPWSTR b, BOOL casless)
560 /* ERROR NOT WORKING REWRITE */
561 { if (casless) return strstrW(a,b)!=NULL; else return strstrW(a,b)!=NULL;}
562 static INT comp_start(LPWSTR a, LPWSTR b, BOOL casless)
563 { if (casless) return strncmpiW(a,b,strlenW(b))==0;
564 else return strncmpW(a,b,strlenW(b))==0;}
565 static INT comp_end(LPWSTR a, LPWSTR b, BOOL casless)
571 if (casless) return (!strcmpiW(&a[i-j-1],b));
572 else return (!strcmpW(&a[i-j-1],b));
576 static INT comp_eq_m1(LPWSTR a, INT b)
577 { if (COND_IsNumber(a[0])) return atoiW(a)==b; else return 0;}
578 static INT comp_ne_m1(LPWSTR a, INT b)
579 { if (COND_IsNumber(a[0])) return atoiW(a)!=b; else return 1;}
580 static INT comp_lt_m1(LPWSTR a, INT b)
581 { if (COND_IsNumber(a[0])) return atoiW(a)<b; else return 0;}
582 static INT comp_gt_m1(LPWSTR a, INT b)
583 { if (COND_IsNumber(a[0])) return atoiW(a)>b; else return 0;}
584 static INT comp_le_m1(LPWSTR a, INT b)
585 { if (COND_IsNumber(a[0])) return atoiW(a)<=b; else return 0;}
586 static INT comp_ge_m1(LPWSTR a, INT b)
587 { if (COND_IsNumber(a[0])) return atoiW(a)>=b; else return 0;}
589 static INT comp_eq_m2(INT a, LPWSTR b)
590 { if (COND_IsNumber(b[0])) return a == atoiW(b); else return 0;}
591 static INT comp_ne_m2(INT a, LPWSTR b)
592 { if (COND_IsNumber(b[0])) return a != atoiW(b); else return 1;}
593 static INT comp_lt_m2(INT a, LPWSTR b)
594 { if (COND_IsNumber(b[0])) return a < atoiW(b); else return 0;}
595 static INT comp_gt_m2(INT a, LPWSTR b)
596 { if (COND_IsNumber(b[0])) return a > atoiW(b); else return 0;}
597 static INT comp_le_m2(INT a, LPWSTR b)
598 { if (COND_IsNumber(b[0])) return a <= atoiW(b); else return 0;}
599 static INT comp_ge_m2(INT a, LPWSTR b)
600 { if (COND_IsNumber(b[0])) return a >= atoiW(b); else return 0;}
604 static int COND_IsIdent( WCHAR x )
606 return( COND_IsAlpha( x ) || COND_IsNumber( x ) || ( x == '_' )
607 || ( x == '#' ) || (x == '.') );
610 static int COND_GetOne( struct cond_str *str, COND_input *cond )
612 static const WCHAR szNot[] = {'N','O','T',0};
613 static const WCHAR szAnd[] = {'A','N','D',0};
614 static const WCHAR szOr[] = {'O','R',0};
618 str->data = &cond->str[cond->n];
624 case '(': rc = COND_LPAR; break;
625 case ')': rc = COND_RPAR; break;
626 case '&': rc = COND_AMPER; break;
627 case '!': rc = COND_EXCLAM; break;
628 case '$': rc = COND_DOLLARS; break;
629 case '?': rc = COND_QUESTION; break;
630 case '%': rc = COND_PERCENT; break;
631 case ' ': rc = COND_SPACE; break;
632 case '=': rc = COND_EQ; break;
633 case '~': rc = COND_TILDA; break;
634 case '<': rc = COND_LT; break;
635 case '>': rc = COND_GT; break;
638 const WCHAR *ch2 = str->data + 1;
641 while ( *ch2 && *ch2 != '"' )
645 len = ch2 - str->data + 1;
650 ERR("Unterminated string\n");
654 if( COND_IsAlpha( ch ) )
656 while( COND_IsIdent( str->data[len] ) )
662 if( COND_IsNumber( ch ) )
664 while( COND_IsNumber( str->data[len] ) )
670 ERR("Got unknown character %c(%x)\n",ch,ch);
675 /* keyword identifiers */
676 if( rc == COND_IDENT )
678 if( (len==3) && (strncmpiW(str->data,szNot,len)==0) )
680 else if( (len==3) && (strncmpiW(str->data,szAnd,len)==0) )
682 else if( (len==2) && (strncmpiW(str->data,szOr,len)==0) )
692 static int COND_lex( void *COND_lval, COND_input *cond )
695 struct cond_str *str = COND_lval;
698 rc = COND_GetOne( str, cond );
699 } while (rc == COND_SPACE);
704 static LPWSTR COND_GetString( struct cond_str *str )
708 ret = msi_alloc( (str->len+1) * sizeof (WCHAR) );
711 memcpy( ret, str->data, str->len * sizeof(WCHAR));
714 TRACE("Got identifier %s\n",debugstr_w(ret));
718 static LPWSTR COND_GetLiteral( struct cond_str *str )
722 ret = msi_alloc( (str->len-1) * sizeof (WCHAR) );
725 memcpy( ret, str->data+1, (str->len-2) * sizeof(WCHAR) );
728 TRACE("Got literal %s\n",debugstr_w(ret));
732 static int COND_error(const char *str)
737 MSICONDITION MSI_EvaluateConditionW( MSIPACKAGE *package, LPCWSTR szCondition )
742 cond.package = package;
743 cond.str = szCondition;
747 TRACE("Evaluating %s\n",debugstr_w(szCondition));
749 if ( szCondition == NULL || szCondition[0] == 0)
750 r = MSICONDITION_NONE;
751 else if ( !COND_parse( &cond ) )
754 r = MSICONDITION_ERROR;
756 TRACE("Evaluates to %i\n",r);
760 MSICONDITION WINAPI MsiEvaluateConditionW( MSIHANDLE hInstall, LPCWSTR szCondition )
765 package = msihandle2msiinfo( hInstall, MSIHANDLETYPE_PACKAGE);
767 return ERROR_INVALID_HANDLE;
768 ret = MSI_EvaluateConditionW( package, szCondition );
769 msiobj_release( &package->hdr );
773 MSICONDITION WINAPI MsiEvaluateConditionA( MSIHANDLE hInstall, LPCSTR szCondition )
775 LPWSTR szwCond = NULL;
780 UINT len = MultiByteToWideChar( CP_ACP, 0, szCondition, -1, NULL, 0 );
781 szwCond = msi_alloc( len * sizeof (WCHAR) );
782 MultiByteToWideChar( CP_ACP, 0, szCondition, -1, szwCond, len );
785 r = MsiEvaluateConditionW( hInstall, szwCond );