| <?xml version="1.0" encoding="ASCII"?> |
| <xmi:XMI xmi:version="2.0" xmlns:xmi="http://www.omg.org/XMI" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:astm="http://cs2as/tests/delphi/AS/1.0" xsi:schemaLocation="http://cs2as/tests/delphi/AS/1.0 java://astm.AstmPackage"> |
| <astm:IntegerLiteral value="0"/> |
| <astm:IntegerLiteral value="3"/> |
| <astm:IntegerLiteral value="0"/> |
| <astm:IntegerLiteral value="1"/> |
| <astm:IntegerLiteral value="2"/> |
| <astm:IntegerLiteral value="3"/> |
| <astm:Project> |
| <files xsi:type="astm:DelphiUnit" language="Delphi"> |
| <locationInfo> |
| <inSourceFile/> |
| </locationInfo> |
| <name nameString="untClAux"/> |
| <interface> |
| <fragments xsi:type="astm:TypeDefinition"> |
| <name nameString="TEstado"/> |
| </fragments> |
| <fragments xsi:type="astm:TypeDefinition"> |
| <name nameString="versTipo"/> |
| </fragments> |
| <fragments xsi:type="astm:VariableDefinition" isMutable="true"> |
| <identifierName nameString="frmPost"/> |
| </fragments> |
| <fragments xsi:type="astm:VariableDefinition" isMutable="true"> |
| <identifierName nameString="ActualizacionesPendientes"/> |
| </fragments> |
| </interface> |
| <implementation> |
| <fragments xsi:type="astm:FunctionDefinition"> |
| <identifierName nameString="ObtenerAppVersion"/> |
| <body xsi:type="astm:DelphiBlockStatement"> |
| <subStatements xsi:type="astm:BlockStatement"> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:BinaryExpression"> |
| <operator xsi:type="astm:Assign"/> |
| <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.0"> |
| <name nameString="Size"/> |
| </leftOperand> |
| <rightOperand xsi:type="astm:DelphiFunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="GetFileVersionInfoSize"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:DelphiFunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="PChar"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference"> |
| <name nameString="Rut"/> |
| </value> |
| </actualParams> |
| </value> |
| </actualParams> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference"> |
| <name nameString="Size2"/> |
| </value> |
| </actualParams> |
| </rightOperand> |
| </expression> |
| </subStatements> |
| <subStatements xsi:type="astm:IfStatement"> |
| <condition xsi:type="astm:BinaryExpression"> |
| <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.0"> |
| <name nameString="Size"/> |
| </leftOperand> |
| <rightOperand xsi:type="astm:IntegerLiteral" value="0"/> |
| </condition> |
| <thenBody xsi:type="astm:BlockStatement"> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:FunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="GetMem"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.1"> |
| <name nameString="Pt"/> |
| </value> |
| </actualParams> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.0"> |
| <name nameString="Size"/> |
| </value> |
| </actualParams> |
| </expression> |
| </subStatements> |
| <subStatements xsi:type="astm:TryStatement"> |
| <guardedStatement xsi:type="astm:BlockStatement"> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:FunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="GetFileVersionInfo"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:DelphiFunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="PChar"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference"> |
| <name nameString="Rut"/> |
| </value> |
| </actualParams> |
| </value> |
| </actualParams> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IntegerLiteral" value="0"/> |
| </actualParams> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.0"> |
| <name nameString="Size"/> |
| </value> |
| </actualParams> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.1"> |
| <name nameString="Pt"/> |
| </value> |
| </actualParams> |
| </expression> |
| </subStatements> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:FunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="VerQueryValue"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.1"> |
| <name nameString="Pt"/> |
| </value> |
| </actualParams> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:StringLiteral" value="'\'"/> |
| </actualParams> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference"> |
| <name nameString="Pt2"/> |
| </value> |
| </actualParams> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference"> |
| <name nameString="Size2"/> |
| </value> |
| </actualParams> |
| </expression> |
| </subStatements> |
| <subStatements xsi:type="astm:DelphiWithStatement"/> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:FunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="Pt2"/> |
| </calledFunction> |
| </expression> |
| </subStatements> |
| </guardedStatement> |
| </subStatements> |
| <subStatements xsi:type="astm:BlockStatement"> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:BinaryExpression"> |
| <operator xsi:type="astm:Assign"/> |
| <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.2"> |
| <name nameString="vers"/> |
| </leftOperand> |
| <rightOperand xsi:type="astm:DelphiFunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="HiWord"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference"> |
| <name nameString="dwFileVersionMS"/> |
| </value> |
| </actualParams> |
| </rightOperand> |
| </expression> |
| </subStatements> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:BinaryExpression"> |
| <operator xsi:type="astm:Assign"/> |
| <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.2"> |
| <name nameString="vers"/> |
| </leftOperand> |
| <rightOperand xsi:type="astm:DelphiFunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="LoWord"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference"> |
| <name nameString="dwFileVersionMS"/> |
| </value> |
| </actualParams> |
| </rightOperand> |
| </expression> |
| </subStatements> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:BinaryExpression"> |
| <operator xsi:type="astm:Assign"/> |
| <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.2"> |
| <name nameString="vers"/> |
| </leftOperand> |
| <rightOperand xsi:type="astm:DelphiFunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="HiWord"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference"> |
| <name nameString="dwFileVersionLS"/> |
| </value> |
| </actualParams> |
| </rightOperand> |
| </expression> |
| </subStatements> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:BinaryExpression"> |
| <operator xsi:type="astm:Assign"/> |
| <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.2"> |
| <name nameString="vers"/> |
| </leftOperand> |
| <rightOperand xsi:type="astm:DelphiFunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="LoWord"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference"> |
| <name nameString="dwFileVersionLS"/> |
| </value> |
| </actualParams> |
| </rightOperand> |
| </expression> |
| </subStatements> |
| </subStatements> |
| </thenBody> |
| </subStatements> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:FunctionCallExpression"> |
| <calledFunction xsi:type="astm:IdentifierReference"> |
| <name nameString="FreeMem"/> |
| </calledFunction> |
| <actualParams xsi:type="astm:ActualParameterExpression"> |
| <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.1"> |
| <name nameString="Pt"/> |
| </value> |
| </actualParams> |
| </expression> |
| </subStatements> |
| <subStatements xsi:type="astm:ExpressionStatement"> |
| <expression xsi:type="astm:BinaryExpression"> |
| <operator xsi:type="astm:Assign"/> |
| <leftOperand xsi:type="astm:IdentifierReference"> |
| <name nameString="result"/> |
| </leftOperand> |
| <rightOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.2"> |
| <name nameString="vers"/> |
| </rightOperand> |
| </expression> |
| </subStatements> |
| </subStatements> |
| <declarations xsi:type="astm:VariableDefinition" isMutable="true"> |
| <identifierName nameString="Size"/> |
| </declarations> |
| <declarations xsi:type="astm:VariableDefinition" isMutable="true"> |
| <identifierName nameString="Pt"/> |
| </declarations> |
| <declarations xsi:type="astm:VariableDefinition" isMutable="true"> |
| <identifierName nameString="vers"/> |
| </declarations> |
| </body> |
| </fragments> |
| </implementation> |
| </files> |
| </astm:Project> |
| </xmi:XMI> |