3 dRC@sddlmZddlmZmZeZGdddZGdddeZGdddZGd d d eZ Gd d d e Z Gd dde Z GdddeZ GdddeZ GdddZGdddeZGdddeZGdddeZddZedkredS))Counter)APP LogicParserc@s*eZdZdZdZdZeegZeegZdS)Tokens()z-oN)__name__ __module__ __qualname__OPENCLOSEIMPZPUNCTTOKENSrr4/tmp/pip-build-v9q4h5k9/nltk/nltk/sem/linearlogic.pyrs rc@sHeZdZdZddZddZddZdd Zd d Zd d Z ddZ dS)LinearLogicParserz!A linear logic expression parser.cCs4tj|tdtjdddi|_|jtjg7_dS)N)r__init__rrr Zoperator_precedenceZright_associated_operations)selfrrrrs zLinearLogicParser.__init__cCstjS)N)rr)rrrrget_all_symbols$sz!LinearLogicParser.get_all_symbolscCs0|tjkr|j||S|tjkr,|j||SdS)N)rrZhandle_variabler handle_open)rtokcontextrrrhandle's   zLinearLogicParser.handlecCs|tjkrtSdSdS)N)rr ImpExpression)rrrrrget_BooleanExpression_factory-s z/LinearLogicParser.get_BooleanExpression_factorycCs |||S)Nr)rfactoryfirstsecondrrrmake_BooleanExpression3sz(LinearLogicParser.make_BooleanExpressioncCsT|jt|rP|jdrP|jdtjkrP|j|jt}|jtjt ||d}|S)zAttempt to make an application expression. If the next tokens are an argument in parens, then the argument expression is a function being applied to the arguments. Otherwise, return the argument expression.rN) Z has_priorityrZinRangetokenrr Zprocess_next_expressionZassertNextTokenr ApplicationExpression)rZ expressionrargumentrrrattempt_ApplicationExpression6s    z/LinearLogicParser.attempt_ApplicationExpressioncCs |djrt|St|SdS)Nr)isupperVariableExpressionConstantExpression)rnamerrrmake_VariableExpressionCs z)LinearLogicParser.make_VariableExpressionN) rr r __doc__rrrrr!r%r*rrrrrs rc@s8eZdZeZeddZd ddZddZdd Z dS) ExpressioncCs |jj|S)N)_linear_logic_parserparse)clssrrr fromstringNszExpression.fromstringNcCs t|||S)N)r#)rotherZ other_indicesrrrapplytoRszExpression.applytocCs |j|S)N)r3)rr2rrr__call__UszExpression.__call__cCsd|jjd|dS)N< >) __class__r)rrrr__repr__XszExpression.__repr__)N) rr r rr- classmethodr1r3r4r9rrrrr,Js   r,c@sXeZdZdddZdddZddZdd Zd d Zd d ZddZ ddZ ddZ dS)AtomicExpressionNcCs&t|tst||_|sg}||_dS)z :param name: str for the constant name :param dependencies: list of int for the indices on which this atom is dependent N) isinstancestrAssertionErrorr) dependencies)rr)r?rrrr]s zAtomicExpression.__init__cCs|r||kr||S|SdS)z If 'self' is bound by 'bindings', return the atomic to which it is bound. Otherwise, return self. :param bindings: ``BindingDict`` A dictionary of bindings used to simplify :return: ``AtomicExpression`` Nr)rbindingsrrrsimplifyis zAtomicExpression.simplifycCsg|_|gfS)a3 From Iddo Lev's PhD Dissertation p108-109 :param index_counter: ``Counter`` for unique indices :param glueFormulaFactory: ``GlueFormula`` for creating new glue formulas :return: (``Expression``,set) for the compiled linear logic and any newly created glue formulas )r?)r index_counterglueFormulaFactoryrrr compile_posvszAtomicExpression.compile_poscCsg|_|gfS)a3 From Iddo Lev's PhD Dissertation p108-109 :param index_counter: ``Counter`` for unique indices :param glueFormulaFactory: ``GlueFormula`` for creating new glue formulas :return: (``Expression``,set) for the compiled linear logic and any newly created glue formulas )r?)rrBrCrrr compile_negszAtomicExpression.compile_negcCs|j|jj|_dS)N)Zinitialize_labelr)lower)rfstructrrrinitialize_labelssz"AtomicExpression.initialize_labelscCs|j|jko|j|jkS)N)r8r))rr2rrr__eq__szAtomicExpression.__eq__cCs ||k S)Nr)rr2rrr__ne__szAtomicExpression.__ne__cCs|j}|jr|d|j7}|S)Nz%s)r)r?)raccumrrr__str__szAtomicExpression.__str__cCs t|jS)N)hashr))rrrr__hash__szAtomicExpression.__hash__)N)N) rr r rrArDrErHrIrJrLrNrrrrr;\s   r;c@seZdZddZdS)r(c Cs^t|tstt|trBy|t||fgStk r>YqNXn ||krN|St|||dS)a If 'other' is a constant, then it must be equal to 'self'. If 'other' is a variable, then it must not be bound to anything other than 'self'. :param other: ``Expression`` :param bindings: ``BindingDict`` A dictionary of all current bindings :return: ``BindingDict`` A new combined dictionary of of 'bindings' and any new binding :raise UnificationException: If 'self' and 'other' cannot be unified in the context of 'bindings' N)r<r,r>r' BindingDictVariableBindingExceptionUnificationException)rr2r@rrrunifys  zConstantExpression.unifyN)rr r rRrrrrr(sr(c@seZdZddZdS)r'cCsft|tsty"||kr|S|t||fgSWn0tk r`}zt||||WYdd}~XnXdS)a 'self' must not be bound to anything other than 'other'. :param other: ``Expression`` :param bindings: ``BindingDict`` A dictionary of all current bindings :return: ``BindingDict`` A new combined dictionary of of 'bindings' and the new binding :raise UnificationException: If 'self' and 'other' cannot be unified in the context of 'bindings' N)r<r,r>rOrPrQ)rr2r@errrrRs zVariableExpression.unifyN)rr r rRrrrrr'sr'c@s^eZdZddZdddZddZdd Zd d Zd d ZddZ ddZ ddZ ddZ dS)rcCs,t|tstt|tst||_||_dS)z :param antecedent: ``Expression`` for the antecedent :param consequent: ``Expression`` for the consequent N)r<r,r> antecedent consequent)rrTrUrrrrszImpExpression.__init__NcCs|j|jj||jj|S)N)r8rTrArU)rr@rrrrAszImpExpression.simplifycCsht|tsty$||jj|j||jj|j|Stk rb}zt||||WYdd}~XnXdS)a Both the antecedent and consequent of 'self' and 'other' must unify. :param other: ``ImpExpression`` :param bindings: ``BindingDict`` A dictionary of all current bindings :return: ``BindingDict`` A new combined dictionary of of 'bindings' and any new bindings :raise UnificationException: If 'self' and 'other' cannot be unified in the context of 'bindings' N)r<rr>rTrRrUrPrQ)rr2r@rSrrrrRs $zImpExpression.unifycCs6|jj||\}}|jj||\}}t||||fS)a3 From Iddo Lev's PhD Dissertation p108-109 :param index_counter: ``Counter`` for unique indices :param glueFormulaFactory: ``GlueFormula`` for creating new glue formulas :return: (``Expression``,set) for the compiled linear logic and any newly created glue formulas )rTrErUrDr)rrBrCaa_newcc_newrrrrDszImpExpression.compile_posc Cs\|jj||\}}|jj||\}}|j}|jj||d|||h}||||gfS)aG From Iddo Lev's PhD Dissertation p108-109 :param index_counter: ``Counter`` for unique indices :param glueFormulaFactory: ``GlueFormula`` for creating new glue formulas :return: (``Expression``,list of ``GlueFormula``) for the compiled linear logic and any newly created glue formulas zv%s)rTrDrUrEgetr?append) rrBrCrVrWrXrYZ fresh_indexZnew_vrrrrEs  zImpExpression.compile_negcCs|jj||jj|dS)N)rTrHrU)rrGrrrrHs zImpExpression.initialize_labelscCs$|j|jko"|j|jko"|j|jkS)N)r8rTrU)rr2rrrrI s  zImpExpression.__eq__cCs ||k S)Nr)rr2rrrrJszImpExpression.__ne__cCsdjtj|jtj|jtjS)Nz {}{} {} {}{})formatrr rTr rUr )rrrrrLs zImpExpression.__str__cCs"tt|jtjt|jS)N)rMrTrr rU)rrrrrNszImpExpression.__hash__)N) rr r rrArRrDrErHrIrJrLrNrrrrrs   rc@s@eZdZdddZdddZddZdd Zd d Zd d ZdS)r#NcCs |j}|j}t|tstt|ts,tt}y>t|trH||j7}t|tr\||j7}||jj ||7}Wn>t k r}z"t d|d|d||WYdd}~XnX|rt |jj |kst d||ft |jj |krt d||f||_||_||_dS)aY :param function: ``Expression`` for the function :param argument: ``Expression`` for the argument :param argument_indices: set for the indices of the glue formula from which the argument came :raise LinearLogicApplicationException: If 'function' cannot be applied to 'argument' given 'argument_indices'. z Cannot apply z to z. NzODependencies unfulfilled when attempting to apply Linear Logic formula %s to %szbDependencies not a proper subset of indices when attempting to apply Linear Logic formula %s to %s)rAr<rr>r,rOr#r@rTrRrQLinearLogicApplicationExceptionsetr?functionr$)rr_r$Zargument_indicesZ function_simpZ argument_simpr@rSrrrr#s6      zApplicationExpression.__init__cCs|s |j}|jj|jS)a= Since function is an implication, return its consequent. There should be no need to check that the application is valid since the checking is done by the constructor. :param bindings: ``BindingDict`` A dictionary of bindings used to simplify :return: ``Expression`` )r@r_rArU)rr@rrrrAOs zApplicationExpression.simplifycCs$|j|jko"|j|jko"|j|jkS)N)r8r_r$)rr2rrrrI]s  zApplicationExpression.__eq__cCs ||k S)Nr)rr2rrrrJdszApplicationExpression.__ne__cCs d|jtjd|jtjS)Nz%s)r_rr r$r )rrrrrLgszApplicationExpression.__str__cCs"tt|jtjt|jS)N)rMrTrr rU)rrrrrNjszApplicationExpression.__hash__)N)N) rr r rrArIrJrLrNrrrrr#"s  , r#c@sVeZdZdddZddZddZdd Zd d Zd d ZddZ ddZ ddZ dS)rONcCs:i|_t|tr|j}|r6x|D]\}}|||<q"WdS)z :param bindings: list [(``VariableExpression``, ``AtomicExpression``)] to initialize the dictionary dict {``VariableExpression``: ``AtomicExpression``} to initialize the dictionary N)dr<dictitems)rr@vbrrrros  zBindingDict.__init__cCs`t|tstt|tst||ks(t|jj|d}| sD||krP||j|<n td|dS)a A binding is consistent with the dict if its variable is not already bound, OR if its variable is already bound to its argument. :param variable: ``VariableExpression`` The variable bind :param binding: ``Expression`` The expression to which 'variable' should be bound :raise VariableBindingException: If the variable cannot be bound in this dictionary Nz*Variable %s already bound to another value)r<r'r>r,r`rZrP)rvariableZbindingexistingrrr __setitem__~s   zBindingDict.__setitem__c CsJt|tst|j|}x,|rDy|j|}Wqtk r@|SXqWdS)zD Return the expression to which 'variable' is bound N)r<r'r>r`KeyError)rreZ intermediaterrr __getitem__s zBindingDict.__getitem__cCs ||jkS)N)r`)ritemrrr __contains__szBindingDict.__contains__cCsyFt}x|jD]}|j|||<qWx|jD]}|j|||<q.W|Stk rz}ztd||f|WYdd}~XnXdS)a :param other: ``BindingDict`` The dict with which to combine self :return: ``BindingDict`` A new dict containing all the elements of both parameters :raise VariableBindingException: If the parameter dictionaries are not consistent with each other zAAttempting to add two contradicting VariableBindingsLists: %s, %sN)rOr`rP)rr2ZcombinedrcrSrrr__add__s   zBindingDict.__add__cCs ||k S)Nr)rr2rrrrJszBindingDict.__ne__cCst|tst|j|jkS)N)r<rO TypeErrorr`)rr2rrrrIs zBindingDict.__eq__cs*ddjfddtjjDdS)N{z, c3s"|]}|dj|VqdS)z: N)r`).0rc)rrr sz&BindingDict.__str__..})joinsortedr`keys)rr)rrrLszBindingDict.__str__cCsd|S)NzBindingDict: %sr)rrrrr9szBindingDict.__repr__)N) rr r rrgrirkrlrJrIrLr9rrrrrOns  rOc@s eZdZdS)rPN)rr r rrrrrPsrPc@seZdZddZdS)rQcCs"tj|d|d|d|dS)Nz Cannot unify z with z given ) Exceptionr)rrVrdr@rrrrszUnificationException.__init__N)rr r rrrrrrQsrQc@s eZdZdS)r]N)rr r rrrrr]sr]cCsztj}t|dt|dt|dt|dt|djt|djt|djt|djdS) Nfz(g -o f)z((g -o G) -o G)z g -o h -o fz (g -o f)(g)z (H -o f)(g)z((g -o G) -o G)((g -o f))z(H -o H)((g -o f)))r,r1printrA)Zlexprrrrdemos    rx__main__N)Znltk.internalsrZnltk.sem.logicrr_counterrrr,r;r(r'rr#rOrurPrQr]rxrrrrr s"  /CYLY