| 123456789101112131415161718192021222324252627282930313233343536 |
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %
- % BUFFER-POSITION.SL - Buffer Position Objects
- %
- % Author: Alan Snyder
- % Hewlett-Packard/CRC
- % Date: 6 July 1982
- %
- % This file implements objects that store buffer positions.
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- (CompileTime (load fast-int))
- (de buffer-position-create (line-number column-number)
- (cons line-number column-number))
- (de buffer-position-line (bp)
- (car bp))
- (de buffer-position-column (bp)
- (cdr bp))
- (de buffer-position-equal (bp1 bp2)
- (and (= (car bp1) (car bp2)) (= (cdr bp1) (cdr bp2))))
- (de buffer-position-compare (bp1 bp2)
- (cond ((< (buffer-position-line bp1) (buffer-position-line bp2)) -1)
- ((> (buffer-position-line bp1) (buffer-position-line bp2)) 1)
- ((< (buffer-position-column bp1) (buffer-position-column bp2)) -1)
- ((> (buffer-position-column bp1) (buffer-position-column bp2)) 1)
- (t 0)))
- (de buffer-position-lessp (bp1 bp2)
- (<= (buffer-position-compare bp1 bp2) 0))
|
