mirror of
https://github.com/rfivet/uemacs.git
synced 2024-09-27 16:05:54 -04:00
basic: code review and minor refactoring.
This commit is contained in:
parent
893e34b740
commit
eaf516110f
181
basic.c
181
basic.c
@ -1,19 +1,16 @@
|
|||||||
/* basic.c -- implements basic.h */
|
/* basic.c -- implements basic.h */
|
||||||
|
|
||||||
#include "basic.h"
|
#include "basic.h"
|
||||||
|
|
||||||
/* basic.c
|
/* The routines in this file move the cursor around on the screen. They
|
||||||
*
|
compute a new value for the cursor, then adjust ".". The display code
|
||||||
* The routines in this file move the cursor around on the screen. They
|
always updates the cursor location, so only moves between lines, or
|
||||||
* compute a new value for the cursor, then adjust ".". The display code
|
functions that adjust the top line in the window and invalidate the
|
||||||
* always updates the cursor location, so only moves between lines, or
|
framing, are hard.
|
||||||
* functions that adjust the top line in the window and invalidate the
|
|
||||||
* framing, are hard.
|
modified by Petri Kutvonen
|
||||||
*
|
|
||||||
* modified by Petri Kutvonen
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <assert.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
|
||||||
#include "input.h"
|
#include "input.h"
|
||||||
@ -22,26 +19,20 @@
|
|||||||
#include "terminal.h"
|
#include "terminal.h"
|
||||||
#include "window.h"
|
#include "window.h"
|
||||||
|
|
||||||
|
|
||||||
#define CVMVAS 1 /* arguments to page forward/back in pages */
|
#define CVMVAS 1 /* arguments to page forward/back in pages */
|
||||||
|
|
||||||
|
int overlap = 0 ; /* $overlap: line overlap in forw/back page */
|
||||||
int overlap = DEFAULT_OVERLAP ; /* line overlap in forw/back page */
|
int curgoal ; /* $target: Goal for C-P, C-N */
|
||||||
int curgoal ; /* Goal for C-P, C-N */
|
|
||||||
|
|
||||||
|
|
||||||
/*
|
/* This routine, given a pointer to a struct line, and the current cursor
|
||||||
* This routine, given a pointer to a struct line, and the current cursor goal
|
goal column, return the best choice for the offset. The offset is
|
||||||
* column, return the best choice for the offset. The offset is returned.
|
returned. Used by "C-N" and "C-P".
|
||||||
* Used by "C-N" and "C-P".
|
|
||||||
*/
|
*/
|
||||||
static unsigned getgoal( line_p dlp) {
|
static unsigned getgoal( line_p dlp) {
|
||||||
int col ;
|
int col = 0 ;
|
||||||
unsigned idx ;
|
|
||||||
const unsigned len = llength( dlp) ;
|
const unsigned len = llength( dlp) ;
|
||||||
|
unsigned idx = 0 ;
|
||||||
col = 0 ;
|
|
||||||
idx = 0 ;
|
|
||||||
while( idx < len) {
|
while( idx < len) {
|
||||||
unicode_t c ;
|
unicode_t c ;
|
||||||
unsigned width = utf8_to_unicode( dlp->l_text, idx, len, &c) ;
|
unsigned width = utf8_to_unicode( dlp->l_text, idx, len, &c) ;
|
||||||
@ -49,42 +40,42 @@ static unsigned getgoal( line_p dlp) {
|
|||||||
/* Take tabs, ^X and \xx hex characters into account */
|
/* Take tabs, ^X and \xx hex characters into account */
|
||||||
if( c == '\t')
|
if( c == '\t')
|
||||||
col += tabwidth - col % tabwidth ;
|
col += tabwidth - col % tabwidth ;
|
||||||
else if( c < 0x20 || c == 0x7F)
|
else if( c < 0x20 || c == 0x7F) /* ^x */
|
||||||
col += 2 ;
|
col += 2 ;
|
||||||
else if( c >= 0x80 && c <= 0xA0)
|
else if( c >= 0x80 && c <= 0xA0) /* \xx */
|
||||||
col += 3 ;
|
col += 3 ;
|
||||||
else
|
else {
|
||||||
col += 1 ;
|
int w = utf8_width( c) ; /* work around */
|
||||||
|
col += (w < 0) ? 2 : w ; /* unknown unicode width as \u */
|
||||||
|
}
|
||||||
|
|
||||||
if( col > curgoal)
|
if( col > curgoal)
|
||||||
break ;
|
break ;
|
||||||
|
else
|
||||||
idx += width ;
|
idx += width ;
|
||||||
}
|
}
|
||||||
|
|
||||||
return idx ;
|
return idx ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* Move the cursor to the beginning of the current line of active window.
|
/* Move the cursor to the beginning of the current line of active window. */
|
||||||
*/
|
|
||||||
boolean gotobol( int f, int n) {
|
boolean gotobol( int f, int n) {
|
||||||
curwp->w_doto = 0 ;
|
curwp->w_doto = 0 ;
|
||||||
return TRUE ;
|
return TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* Move the cursor to the end of the current line of active window.
|
/* Move the cursor to the end of the current line of active window. */
|
||||||
*/
|
|
||||||
boolean gotoeol( int f, int n) {
|
boolean gotoeol( int f, int n) {
|
||||||
curwp->w_doto = llength( curwp->w_dotp) ;
|
curwp->w_doto = llength( curwp->w_dotp) ;
|
||||||
return TRUE ;
|
return TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* Goto the beginning of the buffer. Massive adjustment of dot. This is
|
/* Goto the beginning of the buffer. Massive adjustment of dot. This is
|
||||||
* considered to be hard motion; it really isn't if the original value of dot
|
considered to be hard motion; it really isn't if the original value of
|
||||||
* is the same as the new value of dot. Normally bound to "M-<".
|
dot is the same as the new value of dot. Normally bound to "M-<".
|
||||||
*/
|
*/
|
||||||
boolean gotobob( int f, int n) {
|
boolean gotobob( int f, int n) {
|
||||||
curwp->w_dotp = lforw( curbp->b_linep) ;
|
curwp->w_dotp = lforw( curbp->b_linep) ;
|
||||||
@ -93,10 +84,10 @@ boolean gotobob( int f, int n) {
|
|||||||
return TRUE ;
|
return TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* Move to the end of the buffer. Dot is always put at the end of the file
|
/* Move to the end of the buffer. Dot is always put at the end of the file
|
||||||
* (ZJ). The standard screen code does most of the hard parts of update.
|
(ZJ). The standard screen code does most of the hard parts of update.
|
||||||
* Bound to "M->".
|
Bound to "M->".
|
||||||
*/
|
*/
|
||||||
boolean gotoeob( int f, int n) {
|
boolean gotoeob( int f, int n) {
|
||||||
curwp->w_dotp = curbp->b_linep ;
|
curwp->w_dotp = curbp->b_linep ;
|
||||||
@ -105,20 +96,19 @@ boolean gotoeob( int f, int n) {
|
|||||||
return TRUE ;
|
return TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* Move forward by full lines. If the number of lines to move is less than
|
/* Move forward by full lines. If the number of lines to move is less than
|
||||||
* zero, call the backward line function to actually do it. The last command
|
zero, call the backward line function to actually do it. The last
|
||||||
* controls how the goal column is set. Bound to "C-N". No errors are
|
command controls how the goal column is set. Bound to "C-N". No errors
|
||||||
* possible.
|
are possible.
|
||||||
*/
|
*/
|
||||||
boolean forwline( int f, int n) {
|
boolean forwline( int f, int n) {
|
||||||
line_p dlp ;
|
assert( f == TRUE || n == 1) ;
|
||||||
|
|
||||||
if( n < 0)
|
if( n < 0)
|
||||||
return backline( f, -n) ;
|
return backline( f, -n) ;
|
||||||
|
|
||||||
/* if we are on the last line as we start....fail the command */
|
/* if we are on the last line as we start....fail the command */
|
||||||
if (curwp->w_dotp == curbp->b_linep)
|
if( n && curwp->w_dotp == curbp->b_linep)
|
||||||
return FALSE ;
|
return FALSE ;
|
||||||
|
|
||||||
/* if the last command was not a line move, reset the goal column */
|
/* if the last command was not a line move, reset the goal column */
|
||||||
@ -129,7 +119,7 @@ boolean forwline( int f, int n) {
|
|||||||
thisflag |= CFCPCN ;
|
thisflag |= CFCPCN ;
|
||||||
|
|
||||||
/* and move the point down */
|
/* and move the point down */
|
||||||
dlp = curwp->w_dotp;
|
line_p dlp = curwp->w_dotp ;
|
||||||
while( n && dlp != curbp->b_linep) {
|
while( n && dlp != curbp->b_linep) {
|
||||||
dlp = lforw( dlp) ;
|
dlp = lforw( dlp) ;
|
||||||
n -= 1 ;
|
n -= 1 ;
|
||||||
@ -142,20 +132,18 @@ boolean forwline( int f, int n) {
|
|||||||
return (n == 0) ? TRUE : FALSE ;
|
return (n == 0) ? TRUE : FALSE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* This function is like "forwline", but goes backwards. The scheme is exactly
|
/* This function is like "forwline", but goes backwards. The scheme is
|
||||||
* the same. Check for arguments that are less than zero and call your
|
exactly the same. Check for arguments that are less than zero and call
|
||||||
* alternate. Figure out the new line and call "movedot" to perform the
|
your alternate. Figure out the new line and call "movedot" to perform
|
||||||
* motion. No errors are possible. Bound to "C-P".
|
the motion. No errors are possible. Bound to "C-P".
|
||||||
*/
|
*/
|
||||||
boolean backline( int f, int n) {
|
boolean backline( int f, int n) {
|
||||||
line_p dlp ;
|
|
||||||
|
|
||||||
if( n < 0)
|
if( n < 0)
|
||||||
return forwline( f, -n) ;
|
return forwline( f, -n) ;
|
||||||
|
|
||||||
/* if we are on the first line as we start....fail the command */
|
/* if we are on the first line as we start....fail the command */
|
||||||
if (lback(curwp->w_dotp) == curbp->b_linep)
|
if( n && lback( curwp->w_dotp) == curbp->b_linep)
|
||||||
return FALSE ;
|
return FALSE ;
|
||||||
|
|
||||||
/* if the last command was not a line move, reset the goal column */
|
/* if the last command was not a line move, reset the goal column */
|
||||||
@ -166,7 +154,7 @@ boolean backline( int f, int n) {
|
|||||||
thisflag |= CFCPCN ;
|
thisflag |= CFCPCN ;
|
||||||
|
|
||||||
/* and move the point up */
|
/* and move the point up */
|
||||||
dlp = curwp->w_dotp;
|
line_p dlp = curwp->w_dotp ;
|
||||||
while( n && lback( dlp) != curbp->b_linep) {
|
while( n && lback( dlp) != curbp->b_linep) {
|
||||||
dlp = lback( dlp) ;
|
dlp = lback( dlp) ;
|
||||||
n -= 1 ;
|
n -= 1 ;
|
||||||
@ -179,29 +167,27 @@ boolean backline( int f, int n) {
|
|||||||
return (n == 0) ? TRUE : FALSE ;
|
return (n == 0) ? TRUE : FALSE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* Move to a particular line.
|
/* Move to a particular line.
|
||||||
*
|
*
|
||||||
* @n: The specified line position at the current buffer.
|
* @n: The specified line position at the current buffer.
|
||||||
*/
|
*/
|
||||||
int gotoline( int f, int n) {
|
BINDABLE( gotoline) {
|
||||||
/* Get an argument if one doesnt exist. */
|
/* Get an argument if one doesn't exist. */
|
||||||
if( f == FALSE) {
|
if( f == FALSE) {
|
||||||
int status ;
|
|
||||||
char *arg ; /* Buffer to hold argument. */
|
char *arg ; /* Buffer to hold argument. */
|
||||||
|
|
||||||
status = newmlarg( &arg, "Line to GOTO: ", 0) ;
|
int status = newmlarg( &arg, "goto-line: ", 0) ;
|
||||||
if( status != TRUE) {
|
if( status != TRUE)
|
||||||
mloutstr( "(Aborted)") ;
|
|
||||||
return status ;
|
return status ;
|
||||||
}
|
|
||||||
|
|
||||||
n = atoi( arg) ;
|
n = atoi( arg) ;
|
||||||
free( arg) ;
|
free( arg) ;
|
||||||
|
f = TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Handle the case where the user may be passed something like this:
|
/* Handle the case where the user may be passed something like this:
|
||||||
* em filename +
|
* ue filename +
|
||||||
* In this case we just go to the end of the buffer.
|
* In this case we just go to the end of the buffer.
|
||||||
*/
|
*/
|
||||||
if( n == 0)
|
if( n == 0)
|
||||||
@ -213,14 +199,15 @@ int gotoline( int f, int n) {
|
|||||||
|
|
||||||
/* First, we go to the begin of the buffer. */
|
/* First, we go to the begin of the buffer. */
|
||||||
gotobob( f, n) ;
|
gotobob( f, n) ;
|
||||||
return (n == 1) ? TRUE : forwline( f, n - 1) ;
|
return (n == 1) ? TRUE : forwline( TRUE, n - 1) ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* Scroll forward by a specified number of lines, or by a full page if no
|
/* Scroll forward by a specified number of lines, or by a full page if no
|
||||||
* argument. Bound to "C-V". The "2" in the arithmetic on the window size is
|
argument. Bound to "C-V". The "2" in the arithmetic on the window size
|
||||||
* the overlap; this value is the default overlap value in ITS EMACS. Because
|
is the overlap; this value is the default overlap value in ITS EMACS.
|
||||||
* this zaps the top line in the display window, we have to do a hard update.
|
Because this zaps the top line in the display window, we have to do a
|
||||||
|
hard update.
|
||||||
*/
|
*/
|
||||||
boolean forwpage( int f, int n) {
|
boolean forwpage( int f, int n) {
|
||||||
line_p lp ;
|
line_p lp ;
|
||||||
@ -265,11 +252,11 @@ boolean forwpage( int f, int n) {
|
|||||||
return TRUE ;
|
return TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* This command is like "forwpage", but it goes backwards. The "2", like
|
/* This command is like "forwpage", but it goes backwards. The "2", like
|
||||||
* above, is the overlap between the two windows. The value is from the ITS
|
above, is the overlap between the two windows. The value is from the
|
||||||
* EMACS manual. Bound to "M-V". We do a hard update for exactly the same
|
ITS EMACS manual. Bound to "M-V". We do a hard update for exactly the
|
||||||
* reason.
|
same reason.
|
||||||
*/
|
*/
|
||||||
boolean backpage( int f, int n) {
|
boolean backpage( int f, int n) {
|
||||||
line_p lp ;
|
line_p lp ;
|
||||||
@ -322,9 +309,9 @@ boolean backpage( int f, int n) {
|
|||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* Set the mark in the current window to the value of "." in the window. No
|
/* Set the mark in the current window to the value of "." in the window.
|
||||||
* errors are possible. Bound to "M-.".
|
No errors are possible. Bound to M-. set-mark.
|
||||||
*/
|
*/
|
||||||
boolean setmark( int f, int n) {
|
boolean setmark( int f, int n) {
|
||||||
curwp->w_markp = curwp->w_dotp ;
|
curwp->w_markp = curwp->w_dotp ;
|
||||||
@ -333,28 +320,20 @@ boolean setmark( int f, int n) {
|
|||||||
return TRUE ;
|
return TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/* Swap the values of "." and "mark" in the current window. If no mark as
|
||||||
* Swap the values of "." and "mark" in the current window. This is pretty
|
been previously set, set it. Bound to C-X C-X exchange-point-and-mark.
|
||||||
* easy, because all of the hard work gets done by the standard routine
|
|
||||||
* that moves the mark about. The only possible error is "no mark". Bound to
|
|
||||||
* "C-X C-X".
|
|
||||||
*/
|
*/
|
||||||
boolean swapmark( int f, int n) {
|
boolean swapmark( int f, int n) {
|
||||||
line_p odotp ;
|
line_p odotp = curwp->w_dotp ;
|
||||||
int odoto;
|
int odoto = curwp->w_doto ;
|
||||||
|
if( curwp->w_markp) {
|
||||||
if( curwp->w_markp == NULL) {
|
|
||||||
mloutstr( "No mark in this window") ;
|
|
||||||
return FALSE ;
|
|
||||||
}
|
|
||||||
|
|
||||||
odotp = curwp->w_dotp;
|
|
||||||
odoto = curwp->w_doto;
|
|
||||||
curwp->w_dotp = curwp->w_markp ;
|
curwp->w_dotp = curwp->w_markp ;
|
||||||
curwp->w_doto = curwp->w_marko ;
|
curwp->w_doto = curwp->w_marko ;
|
||||||
|
curwp->w_flag |= WFMOVE ;
|
||||||
|
}
|
||||||
|
|
||||||
curwp->w_markp = odotp ;
|
curwp->w_markp = odotp ;
|
||||||
curwp->w_marko = odoto ;
|
curwp->w_marko = odoto ;
|
||||||
curwp->w_flag |= WFMOVE;
|
|
||||||
return TRUE ;
|
return TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
17
basic.h
17
basic.h
@ -3,24 +3,23 @@
|
|||||||
#ifndef _BASIC_H_
|
#ifndef _BASIC_H_
|
||||||
#define _BASIC_H_
|
#define _BASIC_H_
|
||||||
|
|
||||||
#include "retcode.h"
|
#include "names.h"
|
||||||
|
|
||||||
/*
|
/* $overlap is the size of the line overlap when kbd calls page forw/back
|
||||||
** $overlap is the size of the line overlap when kbd calls page forw/back
|
if 0, page will move by 2/3 of the window size (1/3 page overlap)
|
||||||
** if 0, page will move by 2/3 of the window size (1/3 page overlap)
|
default to 0
|
||||||
** default to 0
|
|
||||||
*/
|
*/
|
||||||
#define DEFAULT_OVERLAP 0
|
extern int overlap ; /* $overlap: line overlap in forw/back page */
|
||||||
extern int overlap ; /* line overlap in forw/back page */
|
|
||||||
|
|
||||||
|
|
||||||
/* $target (== curgoal) is the column target when doing line move */
|
/* $target (== curgoal) is the column target when doing line move */
|
||||||
extern int curgoal ; /* Goal for C-P previous-line, C-N next-line */
|
extern int curgoal ; /* $target: Goal for C-P previous-line, C-N next-line */
|
||||||
|
|
||||||
|
|
||||||
|
/* Bindable functions */
|
||||||
boolean gotobol( int f, int n) ;
|
boolean gotobol( int f, int n) ;
|
||||||
boolean gotoeol( int f, int n) ;
|
boolean gotoeol( int f, int n) ;
|
||||||
int gotoline( int f, int n) ;
|
BINDABLE( gotoline) ;
|
||||||
boolean gotobob( int f, int n) ;
|
boolean gotobob( int f, int n) ;
|
||||||
boolean gotoeob( int f, int n) ;
|
boolean gotoeob( int f, int n) ;
|
||||||
boolean forwline( int f, int n) ;
|
boolean forwline( int f, int n) ;
|
||||||
|
Loading…
Reference in New Issue
Block a user