reactos/dll/msi/cond.y

   1 %{
   2
   3 /*
   4  * Implementation of the Microsoft Installer (msi.dll)
   5  *
   6  * Copyright 2003 Mike McCormack for CodeWeavers
   7  *
   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.
  12  *
  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.
  17  *
  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
  21  */
  22
  23 #include "config.h"
  24
  25 #include <stdarg.h>
  26 #include <stdio.h>
  27 #include <stdlib.h>
  28
  29 #include "windef.h"
  30 #include "winbase.h"
  31 #include "winuser.h"
  32 #include "wine/debug.h"
  33 #include "wine/unicode.h"
  34
  35 #include "msi.h"
  36 #include "msiquery.h"
  37 #include "msipriv.h"
  38 #include "action.h"
  39
  40 #define YYLEX_PARAM info
  41 #define YYPARSE_PARAM info
  42
  43 static int COND_error(const char *str);
  44
  45 WINE_DEFAULT_DEBUG_CHANNEL(msi);
  46
  47 typedef struct tag_yyinput
  48 {
  49     MSIPACKAGE *package;
  50     LPCWSTR str;
  51     INT    n;
  52     MSICONDITION result;
  53 } COND_input;
  54
  55 struct cond_str {
  56     LPCWSTR data;
  57     INT len;
  58 };
  59
  60 static LPWSTR COND_GetString( struct cond_str *str );
  61 static LPWSTR COND_GetLiteral( struct cond_str *str );
  62 static int COND_lex( void *COND_lval, COND_input *info);
  63 static const WCHAR szEmpty[] = { 0 };
  64
  65 static INT compare_int( INT a, INT operator, INT b );
  66 static INT compare_string( LPCWSTR a, INT operator, LPCWSTR b );
  67
  68 static INT compare_and_free_strings( LPWSTR a, INT op, LPWSTR b )
  69 {
  70     INT r;
  71
  72     r = compare_string( a, op, b );
  73     msi_free( a );
  74     msi_free( b );
  75     return r;
  76 }
  77
  78 static BOOL num_from_prop( LPCWSTR p, INT *val )
  79 {
  80     INT ret = 0, sign = 1;
  81
  82     if (!p)
  83         return FALSE;
  84     if (*p == '-')
  85     {
  86         sign = -1;
  87         p++;
  88     }
  89     if (!*p)
  90         return FALSE;
  91     while (*p)
  92     {
  93         if( *p < '0' || *p > '9' )
  94             return FALSE;
  95         ret = ret*10 + (*p - '0');
  96         p++;
  97     }
  98     *val = ret*sign;
  99     return TRUE;
 100 }
 101
 102 %}
 103
 104 %pure-parser
 105
 106 %union
 107 {
 108     struct cond_str str;
 109     LPWSTR    string;
 110     INT       value;
 111 }
 112
 113 %token COND_SPACE COND_EOF COND_SPACE
 114 %token COND_OR COND_AND COND_NOT COND_XOR COND_IMP COND_EQV
 115 %token COND_LT COND_GT COND_EQ COND_NE COND_GE COND_LE
 116 %token COND_ILT COND_IGT COND_IEQ COND_INE COND_IGE COND_ILE
 117 %token COND_LPAR COND_RPAR COND_TILDA COND_SS COND_ISS
 118 %token COND_ILHS COND_IRHS COND_LHS COND_RHS
 119 %token COND_PERCENT COND_DOLLARS COND_QUESTION COND_AMPER COND_EXCLAM
 120 %token <str> COND_IDENT <str> COND_NUMBER <str> COND_LITER
 121
 122 %nonassoc COND_ERROR COND_EOF
 123
 124 %type <value> expression boolean_term boolean_factor
 125 %type <value> value_i integer operator
 126 %type <string> identifier symbol_s value_s literal
 127
 128 %%
 129
 130 condition:
 131     expression
 132         {
 133             COND_input* cond = (COND_input*) info;
 134             cond->result = $1;
 135         }
 136   | /* empty */
 137         {
 138             COND_input* cond = (COND_input*) info;
 139             cond->result = MSICONDITION_NONE;
 140         }
 141     ;
 142
 143 expression:
 144     boolean_term
 145         {
 146             $$ = $1;
 147         }
 148   | expression COND_OR boolean_term
 149         {
 150             $$ = $1 || $3;
 151         }
 152   | expression COND_IMP boolean_term
 153         {
 154             $$ = !$1 || $3;
 155         }
 156   | expression COND_XOR boolean_term
 157         {
 158             $$ = ( $1 || $3 ) && !( $1 && $3 );
 159         }
 160   | expression COND_EQV boolean_term
 161         {
 162             $$ = ( $1 && $3 ) || ( !$1 && !$3 );
 163         }
 164     ;
 165
 166 boolean_term:
 167     boolean_factor
 168         {
 169             $$ = $1;
 170         }
 171   | boolean_term COND_AND boolean_factor
 172         {
 173             $$ = $1 && $3;
 174         }
 175     ;
 176
 177 boolean_factor:
 178     COND_NOT boolean_factor
 179         {
 180             $$ = $2 ? 0 : 1;
 181         }
 182   | value_i
 183         {
 184             $$ = $1 ? 1 : 0;
 185         }
 186   | value_s
 187         {
 188             $$ = ($1 && $1[0]) ? 1 : 0;
 189         }
 190   | value_i operator value_i
 191         {
 192             $$ = compare_int( $1, $2, $3 );
 193         }
 194   | symbol_s operator value_i
 195         {
 196             int num;
 197             if (num_from_prop( $1, &num ))
 198                 $$ = compare_int( num, $2, $3 );
 199             else
 200                 $$ = ($2 == COND_NE || $2 == COND_INE );
 201         }
 202   | value_i operator symbol_s
 203         {
 204             int num;
 205             if (num_from_prop( $3, &num ))
 206                 $$ = compare_int( $1, $2, num );
 207             else
 208                 $$ = ($2 == COND_NE || $2 == COND_INE );
 209         }
 210   | symbol_s operator symbol_s
 211         {
 212             $$ = compare_and_free_strings( $1, $2, $3 );
 213         }
 214   | symbol_s operator literal
 215         {
 216             $$ = compare_and_free_strings( $1, $2, $3 );
 217         }
 218   | literal operator symbol_s
 219         {
 220             $$ = compare_and_free_strings( $1, $2, $3 );
 221         }
 222   | literal operator literal
 223         {
 224             $$ = compare_and_free_strings( $1, $2, $3 );
 225         }
 226   | literal operator value_i
 227         {
 228             $$ = 0;
 229         }
 230   | value_i operator literal
 231         {
 232             $$ = 0;
 233         }
 234   | COND_LPAR expression COND_RPAR
 235         {
 236             $$ = $2;
 237         }
 238     ;
 239
 240 operator:
 241     /* common functions */
 242     COND_EQ { $$ = COND_EQ; }
 243   | COND_NE { $$ = COND_NE; }
 244   | COND_LT { $$ = COND_LT; }
 245   | COND_GT { $$ = COND_GT; }
 246   | COND_LE { $$ = COND_LE; }
 247   | COND_GE { $$ = COND_GE; }
 248   | COND_SS { $$ = COND_SS; }
 249   | COND_IEQ { $$ = COND_IEQ; }
 250   | COND_INE { $$ = COND_INE; }
 251   | COND_ILT { $$ = COND_ILT; }
 252   | COND_IGT { $$ = COND_IGT; }
 253   | COND_ILE { $$ = COND_ILE; }
 254   | COND_IGE { $$ = COND_IGE; }
 255   | COND_ISS { $$ = COND_ISS; }
 256   | COND_LHS { $$ = COND_LHS; }
 257   | COND_RHS { $$ = COND_RHS; }
 258   | COND_ILHS { $$ = COND_ILHS; }
 259   | COND_IRHS { $$ = COND_IRHS; }
 260     ;
 261
 262 value_s:
 263     symbol_s
 264     {
 265         $$ = $1;
 266     }
 267   | literal
 268     {
 269         $$ = $1;
 270     }
 271     ;
 272
 273 literal:
 274     COND_LITER
 275         {
 276             $$ = COND_GetLiteral(&$1);
 277             if( !$$ )
 278                 YYABORT;
 279         }
 280     ;
 281
 282 value_i:
 283     integer
 284         {
 285             $$ = $1;
 286         }
 287   | COND_DOLLARS identifier
 288         {
 289             COND_input* cond = (COND_input*) info;
 290             INSTALLSTATE install = INSTALLSTATE_UNKNOWN, action = INSTALLSTATE_UNKNOWN;
 291
 292             MSI_GetComponentStateW(cond->package, $2, &install, &action );
 293             $$ = action;
 294             msi_free( $2 );
 295         }
 296   | COND_QUESTION identifier
 297         {
 298             COND_input* cond = (COND_input*) info;
 299             INSTALLSTATE install = INSTALLSTATE_UNKNOWN, action = INSTALLSTATE_UNKNOWN;
 300
 301             MSI_GetComponentStateW(cond->package, $2, &install, &action );
 302             $$ = install;
 303             msi_free( $2 );
 304         }
 305   | COND_AMPER identifier
 306         {
 307             COND_input* cond = (COND_input*) info;
 308             INSTALLSTATE install = INSTALLSTATE_UNKNOWN, action = INSTALLSTATE_UNKNOWN;
 309
 310             MSI_GetFeatureStateW(cond->package, $2, &install, &action );
 311             $$ = action;
 312             msi_free( $2 );
 313         }
 314   | COND_EXCLAM identifier
 315         {
 316             COND_input* cond = (COND_input*) info;
 317             INSTALLSTATE install = INSTALLSTATE_UNKNOWN, action = INSTALLSTATE_UNKNOWN;
 318
 319             MSI_GetFeatureStateW(cond->package, $2, &install, &action );
 320             $$ = install;
 321             msi_free( $2 );
 322         }
 323     ;
 324
 325 symbol_s:
 326     identifier
 327         {
 328             COND_input* cond = (COND_input*) info;
 329
 330             $$ = msi_dup_property( cond->package, $1 );
 331             msi_free( $1 );
 332         }
 333     | COND_PERCENT identifier
 334         {
 335             UINT len = GetEnvironmentVariableW( $2, NULL, 0 );
 336             $$ = NULL;
 337             if (len++)
 338             {
 339                 $$ = msi_alloc( len*sizeof (WCHAR) );
 340                 GetEnvironmentVariableW( $2, $$, len );
 341             }
 342             msi_free( $2 );
 343         }
 344     ;
 345
 346 identifier:
 347     COND_IDENT
 348         {
 349             $$ = COND_GetString(&$1);
 350             if( !$$ )
 351                 YYABORT;
 352         }
 353     ;
 354
 355 integer:
 356     COND_NUMBER
 357         {
 358             LPWSTR szNum = COND_GetString(&$1);
 359             if( !szNum )
 360                 YYABORT;
 361             $$ = atoiW( szNum );
 362             msi_free( szNum );
 363         }
 364     ;
 365
 366 %%
 367
 368
 369 static int COND_IsAlpha( WCHAR x )
 370 {
 371     return( ( ( x >= 'A' ) && ( x <= 'Z' ) ) ||
 372             ( ( x >= 'a' ) && ( x <= 'z' ) ) ||
 373             ( ( x == '_' ) ) );
 374 }
 375
 376 static int COND_IsNumber( WCHAR x )
 377 {
 378     return( (( x >= '0' ) && ( x <= '9' ))  || (x =='-') || (x =='.') );
 379 }
 380
 381 static WCHAR *strstriW( const WCHAR *str, const WCHAR *sub )
 382 {
 383     LPWSTR strlower, sublower, r;
 384     strlower = CharLowerW( strdupW( str ) );
 385     sublower = CharLowerW( strdupW( sub ) );
 386     r = strstrW( strlower, sublower );
 387     if (r)
 388         r = (LPWSTR)str + (r - strlower);
 389     msi_free( strlower );
 390     msi_free( sublower );
 391     return r;
 392 }
 393
 394 static INT compare_string( LPCWSTR a, INT operator, LPCWSTR b )
 395 {
 396     /* null and empty string are equivalent */
 397     if (!a) a = szEmpty;
 398     if (!b) b = szEmpty;
 399
 400     /* a or b may be NULL */
 401     switch (operator)
 402     {
 403     case COND_LT:
 404         return -1 == lstrcmpW( a, b );
 405     case COND_GT:
 406         return  1 == lstrcmpW( a, b );
 407     case COND_EQ:
 408         return  0 == lstrcmpW( a, b );
 409     case COND_NE:
 410         return  0 != lstrcmpW( a, b );
 411     case COND_GE:
 412         return -1 != lstrcmpW( a, b );
 413     case COND_LE:
 414         return  1 != lstrcmpW( a, b );
 415     case COND_SS: /* substring */
 416         return strstrW( a, b ) ? 1 : 0;
 417     case COND_ILT:
 418         return -1 == lstrcmpiW( a, b );
 419     case COND_IGT:
 420         return  1 == lstrcmpiW( a, b );
 421     case COND_IEQ:
 422         return  0 == lstrcmpiW( a, b );
 423     case COND_INE:
 424         return  0 != lstrcmpiW( a, b );
 425     case COND_IGE:
 426         return -1 != lstrcmpiW( a, b );
 427     case COND_ILE:
 428         return  1 != lstrcmpiW( a, b );
 429     case COND_ISS:
 430         return strstriW( a, b ) ? 1 : 0;
 431     case COND_LHS:
 432     case COND_RHS:
 433     case COND_ILHS:
 434     case COND_IRHS:
 435         ERR("unimplemented string comparison\n");
 436         break;
 437     default:
 438         ERR("invalid integer operator\n");
 439         return 0;
 440     }
 441     return 0;
 442 }
 443
 444
 445 static INT compare_int( INT a, INT operator, INT b )
 446 {
 447     switch (operator)
 448     {
 449     case COND_LT:
 450     case COND_ILT:
 451         return a < b;
 452     case COND_GT:
 453     case COND_IGT:
 454         return a > b;
 455     case COND_EQ:
 456     case COND_IEQ:
 457         return a == b;
 458     case COND_NE:
 459     case COND_INE:
 460         return a != b;
 461     case COND_GE:
 462     case COND_IGE:
 463         return a >= b;
 464     case COND_LE:
 465     case COND_ILE:
 466         return a >= b;
 467     case COND_SS:
 468     case COND_ISS:
 469         return ( a & b ) ? 1 : 0;
 470     case COND_RHS:
 471         return ( ( a & 0xffff ) == b ) ? 1 : 0;
 472     case COND_LHS:
 473         return ( ( (a>>16) & 0xffff ) == b ) ? 1 : 0;
 474     default:
 475         ERR("invalid integer operator\n");
 476         return 0;
 477     }
 478     return 0;
 479 }
 480
 481
 482 static int COND_IsIdent( WCHAR x )
 483 {
 484     return( COND_IsAlpha( x ) || COND_IsNumber( x ) || ( x == '_' )
 485             || ( x == '#' ) || (x == '.') );
 486 }
 487
 488 static int COND_GetOperator( COND_input *cond )
 489 {
 490     static const struct {
 491         const WCHAR str[4];
 492         int id;
 493     } table[] = {
 494         { {'~','=',0},     COND_IEQ },
 495         { {'~','>','=',0}, COND_ILE },
 496         { {'~','>','<',0}, COND_ISS },
 497         { {'~','>','>',0}, COND_IRHS },
 498         { {'~','>',0},     COND_ILT },
 499         { {'~','<','>',0}, COND_INE },
 500         { {'~','<','=',0}, COND_IGE },
 501         { {'~','<','<',0}, COND_ILHS },
 502         { {'~','<',0},     COND_IGT },
 503         { {'>','=',0},     COND_GE  },
 504         { {'>','<',0},     COND_SS  },
 505         { {'>','>',0},     COND_LHS },
 506         { {'>',0},         COND_GT  },
 507         { {'<','>',0},     COND_NE  },
 508         { {'<','=',0},     COND_LE  },
 509         { {'<','<',0},     COND_RHS },
 510         { {'<',0},         COND_LT  },
 511         { {0},             0        }
 512     };
 513     LPCWSTR p = &cond->str[cond->n];
 514     int i = 0, len;
 515
 516     while ( 1 )
 517     {
 518         len = lstrlenW( table[i].str );
 519         if ( !len || 0 == strncmpW( table[i].str, p, len ) )
 520             break;
 521         i++;
 522     }
 523     cond->n += len;
 524     return table[i].id;
 525 }
 526
 527 static int COND_GetOne( struct cond_str *str, COND_input *cond )
 528 {
 529     int rc, len = 1;
 530     WCHAR ch;
 531
 532     str->data = &cond->str[cond->n];
 533
 534     ch = str->data[0];
 535
 536     switch( ch )
 537     {
 538     case 0: return 0;
 539     case '(': rc = COND_LPAR; break;
 540     case ')': rc = COND_RPAR; break;
 541     case '&': rc = COND_AMPER; break;
 542     case '!': rc = COND_EXCLAM; break;
 543     case '$': rc = COND_DOLLARS; break;
 544     case '?': rc = COND_QUESTION; break;
 545     case '%': rc = COND_PERCENT; break;
 546     case ' ': rc = COND_SPACE; break;
 547     case '=': rc = COND_EQ; break;
 548         break;
 549
 550     case '~':
 551     case '<':
 552     case '>':
 553         rc = COND_GetOperator( cond );
 554         if (!rc)
 555             rc = COND_ERROR;
 556         return rc;
 557     default:
 558         rc = 0;
 559     }
 560
 561     if ( rc )
 562     {
 563         cond->n += len;
 564         return rc;
 565     }
 566
 567     if (ch == '"' )
 568     {
 569         LPCWSTR p = strchrW( str->data + 1, '"' );
 570         if (!p)
 571             return COND_ERROR;
 572         len = p - str->data + 1;
 573         rc = COND_LITER;
 574     }
 575     else if( COND_IsAlpha( ch ) )
 576     {
 577         static const WCHAR szNot[] = {'N','O','T',0};
 578         static const WCHAR szAnd[] = {'A','N','D',0};
 579         static const WCHAR szXor[] = {'X','O','R',0};
 580         static const WCHAR szEqv[] = {'E','Q','V',0};
 581         static const WCHAR szImp[] = {'I','M','P',0};
 582         static const WCHAR szOr[] = {'O','R',0};
 583
 584         while( COND_IsIdent( str->data[len] ) )
 585             len++;
 586         rc = COND_IDENT;
 587
 588         if ( len == 3 )
 589         {
 590             if ( !strncmpiW( str->data, szNot, len ) )
 591                 rc = COND_NOT;
 592             else if( !strncmpiW( str->data, szAnd, len ) )
 593                 rc = COND_AND;
 594             else if( !strncmpiW( str->data, szXor, len ) )
 595                 rc = COND_XOR;
 596             else if( !strncmpiW( str->data, szEqv, len ) )
 597                 rc = COND_EQV;
 598             else if( !strncmpiW( str->data, szImp, len ) )
 599                 rc = COND_IMP;
 600         }
 601         else if( (len == 2) && !strncmpiW( str->data, szOr, len ) )
 602             rc = COND_OR;
 603     }
 604     else if( COND_IsNumber( ch ) )
 605     {
 606         while( COND_IsNumber( str->data[len] ) )
 607             len++;
 608         rc = COND_NUMBER;
 609     }
 610     else
 611     {
 612         ERR("Got unknown character %c(%x)\n",ch,ch);
 613         return COND_ERROR;
 614     }
 615
 616     cond->n += len;
 617     str->len = len;
 618
 619     return rc;
 620 }
 621
 622 static int COND_lex( void *COND_lval, COND_input *cond )
 623 {
 624     int rc;
 625     struct cond_str *str = COND_lval;
 626
 627     do {
 628         rc = COND_GetOne( str, cond );
 629     } while (rc == COND_SPACE);
 630
 631     return rc;
 632 }
 633
 634 static LPWSTR COND_GetString( struct cond_str *str )
 635 {
 636     LPWSTR ret;
 637
 638     ret = msi_alloc( (str->len+1) * sizeof (WCHAR) );
 639     if( ret )
 640     {
 641         memcpy( ret, str->data, str->len * sizeof(WCHAR));
 642         ret[str->len]=0;
 643     }
 644     TRACE("Got identifier %s\n",debugstr_w(ret));
 645     return ret;
 646 }
 647
 648 static LPWSTR COND_GetLiteral( struct cond_str *str )
 649 {
 650     LPWSTR ret;
 651
 652     ret = msi_alloc( (str->len-1) * sizeof (WCHAR) );
 653     if( ret )
 654     {
 655         memcpy( ret, str->data+1, (str->len-2) * sizeof(WCHAR) );
 656         ret[str->len - 2]=0;
 657     }
 658     TRACE("Got literal %s\n",debugstr_w(ret));
 659     return ret;
 660 }
 661
 662 static int COND_error(const char *str)
 663 {
 664     TRACE("%s\n", str );
 665     return 0;
 666 }
 667
 668 MSICONDITION MSI_EvaluateConditionW( MSIPACKAGE *package, LPCWSTR szCondition )
 669 {
 670     COND_input cond;
 671     MSICONDITION r;
 672
 673     TRACE("%s\n", debugstr_w( szCondition ) );
 674
 675     if ( szCondition == NULL )
 676         return MSICONDITION_NONE;
 677
 678     cond.package = package;
 679     cond.str   = szCondition;
 680     cond.n     = 0;
 681     cond.result = MSICONDITION_ERROR;
 682
 683     if ( !COND_parse( &cond ) )
 684         r = cond.result;
 685     else
 686         r = MSICONDITION_ERROR;
 687
 688     TRACE("%i <- %s\n", r, debugstr_w(szCondition));
 689     return r;
 690 }
 691
 692 MSICONDITION WINAPI MsiEvaluateConditionW( MSIHANDLE hInstall, LPCWSTR szCondition )
 693 {
 694     MSIPACKAGE *package;
 695     UINT ret;
 696
 697     package = msihandle2msiinfo( hInstall, MSIHANDLETYPE_PACKAGE);
 698     if( !package)
 699         return MSICONDITION_ERROR;
 700     ret = MSI_EvaluateConditionW( package, szCondition );
 701     msiobj_release( &package->hdr );
 702     return ret;
 703 }
 704
 705 MSICONDITION WINAPI MsiEvaluateConditionA( MSIHANDLE hInstall, LPCSTR szCondition )
 706 {
 707     LPWSTR szwCond = NULL;
 708     MSICONDITION r;
 709
 710     szwCond = strdupAtoW( szCondition );
 711     if( szCondition && !szwCond )
 712         return MSICONDITION_ERROR;
 713
 714     r = MsiEvaluateConditionW( hInstall, szwCond );
 715     msi_free( szwCond );
 716     return r;
 717 }