17 (delete-region beg end) |
17 (delete-region beg end) |
18 (insert text)) |
18 (insert text)) |
19 text)) |
19 text)) |
20 |
20 |
21 ;;;###autoload |
21 ;;;###autoload |
22 (defun gds-sabre-highlight () |
22 (defun gds-sabre-highlight-getres () |
23 (interactive) |
23 (interactive) |
24 (highlight-regexp " \\(?:[[:alpha:]_]*PseudoCityCode\\|CreationAgent\\|BookingSource\\|AgentSine\\)=\"\\([^\"]+\\)\"" 'hi-pink 1) |
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-regexp "<\\([[:alnum:]]*:?\\)\\(RecordLocator\\|DepartureAirport\\|ArrivalAirport\\|MarketingAirlineCode\\|MarketingFlightNumber\\)>\\([^<]+\\)</\\1\\2>" 'hi-pink 3) |
26 (highlight-phrase ":Arunk\\|:FlightSegment\\>\\|:FareBasis\\>" 'hi-pink) |
26 (highlight-phrase ":Arunk\\|:FlightSegment\\>\\|:FareBasis\\>" 'hi-pink) |
27 (highlight-regexp "<\\([[:alnum:]]+:\\)?\\(ActionCode\\|InputEntry\\|PricingParameters\\|FullText\\)>\\([^<]+\\)</\\1\\2>" 'hi-yellow 3) |
27 (highlight-regexp "<\\([[:alnum:]]+:\\)?\\(ActionCode\\|InputEntry\\|PricingParameters\\|FullText\\)>\\([^<]+\\)</\\1\\2>" 'hi-yellow 3) |
28 (highlight-phrase "\\(?:isPast\\|isExpired\\|itineraryChange\\)=\"[^\"]+\"" 'hi-green) |
28 (highlight-phrase "\\(?:isPast\\|isExpired\\|itineraryChange\\)=\"[^\"]+\"" 'hi-green) |
29 (highlight-regexp "\\(?:ResBookDesigCode\\|Status\\|FlightNumber\\|ArrivalDateTime\\|DepartureDateTime\\|FareBasisCode\\|passengerType\\)=\"\\([^\"]+\\)\"" 'hi-green 1) |
29 (highlight-regexp "\\(?:ResBookDesigCode\\|Status\\|FlightNumber\\|ArrivalDateTime\\|DepartureDateTime\\|FareBasisCode\\|passengerType\\)=\"\\([^\"]+\\)\"" 'hi-green 1) |
30 (highlight-phrase "InputMessage=" 'hi-blue)) |
30 (highlight-phrase "InputMessage=" 'hi-blue)) |
|
31 |
|
32 (defvar gds-sabre-highlight-ssrs |
|
33 (regexp-opt '("ADV OTO TKT" "ADV MORE TKT" "CANCELLED DUE TO SYSTEM OR PASSENGER"))) |
|
34 |
|
35 ;;;###autoload |
|
36 (defun gds-sabre-highlight-hist () |
|
37 (interactive) |
|
38 (highlight-regexp "^\\(?:SC\\|AS\\|XS\\) .*" 'hi-yellow) |
|
39 (highlight-regexp gds-sabre-highlight-ssrs 'hi-pink) |
|
40 (highlight-regexp "^[A-Z0-9]\\{4\\} [A-Z0-9]\\{4\\}\\*[A-Z0-9]\\{3\\} [0-9]\\{4\\}/[0-9]\\{2\\}[A-Z]\\{3\\}[0-9]\\{2\\}" 'hi-blue 0) |
|
41 (highlight-regexp "^PLT PLTRM[A-Z0-9]\\{2\\} .*" 'hi-green 0)) |
31 |
42 |
32 ;;;###autoload |
43 ;;;###autoload |
33 (defun gds-tp-highlight () |
44 (defun gds-tp-highlight () |
34 (interactive) |
45 (interactive) |
35 (highlight-phrase "\\w+Ref=\\|Key=" 'hi-blue) |
46 (highlight-phrase "\\w+Ref=\\|Key=" 'hi-blue) |