mylisp/gds-sabre.el
changeset 1736 b4c49ef014e2
parent 1735 e8425ea2f39b
child 1737 bd09520467ad
equal deleted inserted replaced
1735:e8425ea2f39b 1736:b4c49ef014e2
    19     text))
    19     text))
    20 
    20 
    21 ;;;###autoload
    21 ;;;###autoload
    22 (defun gds-sabre-highlight ()
    22 (defun gds-sabre-highlight ()
    23   (interactive)
    23   (interactive)
    24   (highlight-phrase "[[:alpha:]_]*PseudoCityCode=\\|CreationAgent=\\|BookingSource=\\|AgentSine=" 'hi-pink)
    24   (highlight-regexp " \\(?:[[:alpha:]_]*PseudoCityCode\\|CreationAgent\\|BookingSource\\|AgentSine\\)=\"\\([^\"]+\\)\"" 'hi-pink 1)
       
    25   (highlight-regexp "<\\([[:alnum:]]*:?\\)\\(RecordLocator\\|DepartureAirport\\|ArrivalAirport\\|MarketingAirlineCode\\|MarketingFlightNumber\\)>\\([^<]+\\)</\\1\\2>" 'hi-pink 3)
    25   (highlight-phrase ":Arunk\\|:FlightSegment\\>\\|:FareBasis\\>" 'hi-pink)
    26   (highlight-phrase ":Arunk\\|:FlightSegment\\>\\|:FareBasis\\>" 'hi-pink)
    26   (highlight-phrase "ResBookDesigCode=\\|Status=\\|FlightNumber=\\|ArrivalDateTime=\\|DepartureDateTime=\\|FareBasisCode=\\|passengerType=\\|isPast=\\|isExpired=\\|itineraryChange=" 'hi-green)
    27   (highlight-regexp "<\\(InputEntry\\|PricingParameters\\)>\\([^<]+\\)</\\1>" 'hi-yellow 2)
       
    28   (highlight-phrase "\\(?:isPast\\|isExpired\\|itineraryChange\\)=\"[^\"]+\"" 'hi-green)
       
    29   (highlight-regexp "\\(?:ResBookDesigCode\\|Status\\|FlightNumber\\|ArrivalDateTime\\|DepartureDateTime\\|FareBasisCode\\|passengerType\\)=\"\\([^\"]+\\)\"" 'hi-green 1)
    27   (highlight-phrase "InputMessage=" 'hi-blue))
    30   (highlight-phrase "InputMessage=" 'hi-blue))
    28 
    31 
    29 ;;;###autoload
    32 ;;;###autoload
    30 (defun gds-tp-highlight ()
    33 (defun gds-tp-highlight ()
    31   (interactive)
    34   (interactive)