1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355 |
- /* editor low level data handling and cursor fundamentals.
- Copyright (C) 1996, 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006,
- 2007 Free Software Foundation, Inc.
- Authors: 1996, 1997 Paul Sheer
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- 02110-1301, USA.
- */
- /** \file
- * \brief Source: editor low level data handling and cursor fundamentals
- * \author Paul Sheer
- * \date 1996, 1997
- */
- #include <config.h>
- #include <stdio.h>
- #include <stdarg.h>
- #include <sys/types.h>
- #include <unistd.h>
- #include <string.h>
- #include <ctype.h>
- #include <errno.h>
- #include <sys/stat.h>
- #include <stdlib.h>
- #include <fcntl.h>
- #include "../src/global.h"
- #include "../src/tty/color.h"
- #include "../src/tty/tty.h" /* attrset() */
- #include "../src/tty/key.h" /* is_idle() */
- #include "../src/skin/skin.h" /* EDITOR_NORMAL_COLOR */
- #include "../src/widget.h"
- #include "../src/cmd.h" /* view_other_cmd() */
- #include "../src/user.h" /* user_menu_cmd() */
- #include "../src/wtools.h" /* query_dialog() */
- #include "../src/timefmt.h" /* time formatting */
- #include "../src/strutil.h" /* utf string functions */
- #include "../src/charsets.h" /* get_codepage_id */
- #include "../src/main.h" /* source_codepage */
- #include "../src/learn.h" /* learn_keys */
- #include "../src/cmddef.h"
- #include "edit-impl.h"
- #include "editlock.h"
- #include "edit-widget.h"
- #include "../vfs/vfs.h"
- int option_word_wrap_line_length = 72;
- int option_typewriter_wrap = 0;
- int option_auto_para_formatting = 0;
- int option_fill_tabs_with_spaces = 0;
- int option_return_does_auto_indent = 1;
- int option_backspace_through_tabs = 0;
- int option_fake_half_tabs = 1;
- int option_save_mode = EDIT_QUICK_SAVE;
- int option_save_position = 1;
- int option_max_undo = 32768;
- int option_persistent_selections = 1;
- int option_cursor_beyond_eol = 1;
- int option_line_state = 0;
- int option_line_state_width = 0;
- int option_edit_right_extreme = 0;
- int option_edit_left_extreme = 0;
- int option_edit_top_extreme = 0;
- int option_edit_bottom_extreme = 0;
- int enable_show_tabs_tws = 1;
- int option_check_nl_at_eof = 0;
- const char *option_whole_chars_search = "0123456789abcdefghijklmnopqrstuvwxyz_";
- char *option_backup_ext = NULL;
- int edit_stack_iterator = 0;
- edit_stack_type edit_history_moveto [MAX_HISTORY_MOVETO];
- /* magic sequense for say than block is vertical */
- const char VERTICAL_MAGIC[] = {'\1', '\1', '\1', '\1', '\n'};
- /*-
- *
- * here's a quick sketch of the layout: (don't run this through indent.)
- *
- * (b1 is buffers1 and b2 is buffers2)
- *
- * |
- * \0\0\0\0\0m e _ f i l e . \nf i n . \n|T h i s _ i s _ s o\0\0\0\0\0\0\0\0\0
- * ______________________________________|______________________________________
- * |
- * ... | b2[2] | b2[1] | b2[0] | b1[0] | b1[1] | b1[2] | ...
- * |-> |-> |-> |-> |-> |-> |
- * |
- * _<------------------------->|<----------------->_
- * WEdit->curs2 | WEdit->curs1
- * ^ | ^
- * | ^|^ |
- * cursor ||| cursor
- * |||
- * file end|||file beginning
- * |
- * |
- *
- * _
- * This_is_some_file
- * fin.
- */
- const global_keymap_t *editor_map;
- const global_keymap_t *editor_x_map;
- static void user_menu (WEdit *edit);
- int edit_get_byte (WEdit * edit, long byte_index)
- {
- unsigned long p;
- if (byte_index >= (edit->curs1 + edit->curs2) || byte_index < 0)
- return '\n';
- if (byte_index >= edit->curs1) {
- p = edit->curs1 + edit->curs2 - byte_index - 1;
- return edit->buffers2[p >> S_EDIT_BUF_SIZE][EDIT_BUF_SIZE - (p & M_EDIT_BUF_SIZE) - 1];
- } else {
- return edit->buffers1[byte_index >> S_EDIT_BUF_SIZE][byte_index & M_EDIT_BUF_SIZE];
- }
- }
- char *edit_get_byte_ptr (WEdit * edit, long byte_index)
- {
- unsigned long p;
- if (byte_index >= (edit->curs1 + edit->curs2) || byte_index < 0)
- return NULL;
- if (byte_index >= edit->curs1) {
- p = edit->curs1 + edit->curs2 - byte_index - 1;
- return (char *) (edit->buffers2[p >> S_EDIT_BUF_SIZE]+(EDIT_BUF_SIZE - (p & M_EDIT_BUF_SIZE) - 1));
- } else {
- return (char *) (edit->buffers1[byte_index >> S_EDIT_BUF_SIZE]+(byte_index & M_EDIT_BUF_SIZE));
- }
- }
- char *edit_get_buf_ptr (WEdit * edit, long byte_index)
- {
- unsigned long p;
- if (byte_index >= (edit->curs1 + edit->curs2))
- byte_index--;
- if (byte_index < 0)
- return NULL;
- if (byte_index >= edit->curs1) {
- p = edit->curs1 + edit->curs2 - 1;
- return (char *) (edit->buffers2[p >> S_EDIT_BUF_SIZE] + (EDIT_BUF_SIZE - (p & M_EDIT_BUF_SIZE) - 1));
- } else {
- return (char *) (edit->buffers1[byte_index >> S_EDIT_BUF_SIZE] + (0 & M_EDIT_BUF_SIZE));
- }
- }
- int edit_get_utf (WEdit * edit, long byte_index, int *char_width)
- {
- gchar *str = NULL;
- int res = -1;
- gunichar ch;
- gchar *next_ch = NULL;
- int width = 0;
- if (byte_index >= (edit->curs1 + edit->curs2) || byte_index < 0) {
- *char_width = 0;
- return '\n';
- }
- str = edit_get_byte_ptr (edit, byte_index);
- if (str == NULL) {
- *char_width = 0;
- return 0;
- }
- res = g_utf8_get_char_validated (str, -1);
- if (res < 0) {
- ch = *str;
- width = 0;
- } else {
- ch = res;
- /* Calculate UTF-8 char width */
- next_ch = g_utf8_next_char (str);
- if (next_ch) {
- width = next_ch - str;
- } else {
- ch = 0;
- width = 0;
- }
- }
- *char_width = width;
- return ch;
- }
- int edit_get_prev_utf (WEdit * edit, long byte_index, int *char_width)
- {
- gchar *str, *buf = NULL;
- int res = -1;
- gunichar ch;
- gchar *next_ch = NULL;
- int width = 0;
- if (byte_index > 0)
- byte_index--;
- if (byte_index >= (edit->curs1 + edit->curs2) || byte_index < 0) {
- *char_width = 0;
- return 0;
- }
- ch = edit_get_utf (edit, byte_index, &width);
- if (width == 1) {
- *char_width = width;
- return ch;
- }
- str = edit_get_byte_ptr (edit, byte_index);
- buf = edit_get_buf_ptr (edit, byte_index);
- if (str == NULL || buf == NULL) {
- *char_width = 0;
- return 0;
- }
- /* get prev utf8 char */
- if (str != buf)
- str = g_utf8_find_prev_char (buf, str);
- res = g_utf8_get_char_validated (str, -1);
- if (res < 0) {
- ch = *str;
- width = 0;
- } else {
- ch = res;
- /* Calculate UTF-8 char width */
- next_ch = g_utf8_next_char(str);
- if (next_ch) {
- width = next_ch - str;
- } else {
- ch = 0;
- width = 0;
- }
- }
- *char_width = width;
- return ch;
- }
- /*
- * Initialize the buffers for an empty files.
- */
- static void
- edit_init_buffers (WEdit *edit)
- {
- int j;
- for (j = 0; j <= MAXBUFF; j++) {
- edit->buffers1[j] = NULL;
- edit->buffers2[j] = NULL;
- }
- edit->curs1 = 0;
- edit->curs2 = 0;
- edit->buffers2[0] = g_malloc0 (EDIT_BUF_SIZE);
- }
- /*
- * Load file OR text into buffers. Set cursor to the beginning of file.
- * Return 1 on error.
- */
- static int
- edit_load_file_fast (WEdit *edit, const char *filename)
- {
- long buf, buf2;
- int file = -1;
- edit->curs2 = edit->last_byte;
- buf2 = edit->curs2 >> S_EDIT_BUF_SIZE;
- edit->utf8 = 0;
- if ((file = mc_open (filename, O_RDONLY | O_BINARY)) == -1) {
- GString *errmsg = g_string_new(NULL);
- g_string_sprintf(errmsg, _(" Cannot open %s for reading "), filename);
- edit_error_dialog (_("Error"), get_sys_error (errmsg->str));
- g_string_free (errmsg, TRUE);
- return 1;
- }
- if (!edit->buffers2[buf2])
- edit->buffers2[buf2] = g_malloc0 (EDIT_BUF_SIZE);
- mc_read (file,
- (char *) edit->buffers2[buf2] + EDIT_BUF_SIZE -
- (edit->curs2 & M_EDIT_BUF_SIZE),
- edit->curs2 & M_EDIT_BUF_SIZE);
- for (buf = buf2 - 1; buf >= 0; buf--) {
- /* edit->buffers2[0] is already allocated */
- if (!edit->buffers2[buf])
- edit->buffers2[buf] = g_malloc0 (EDIT_BUF_SIZE);
- mc_read (file, (char *) edit->buffers2[buf], EDIT_BUF_SIZE);
- }
- mc_close (file);
- return 0;
- }
- /* detecting an error on save is easy: just check if every byte has been written. */
- /* detecting an error on read, is not so easy 'cos there is not way to tell
- whether you read everything or not. */
- /* FIXME: add proper `triple_pipe_open' to read, write and check errors. */
- static const struct edit_filters {
- const char *read, *write, *extension;
- } all_filters[] = {
- { "xz -cd %s 2>&1", "xz > %s", ".xz" },
- { "lzma -cd %s 2>&1", "lzma > %s", ".lzma" },
- { "bzip2 -cd %s 2>&1", "bzip2 > %s", ".bz2" },
- { "gzip -cd %s 2>&1", "gzip > %s", ".gz" },
- { "gzip -cd %s 2>&1", "gzip > %s", ".Z" }
- };
- /* Return index of the filter or -1 is there is no appropriate filter */
- static int edit_find_filter (const char *filename)
- {
- size_t i, l, e;
- if (!filename)
- return -1;
- l = strlen (filename);
- for (i = 0; i < sizeof (all_filters) / sizeof (all_filters[0]); i++) {
- e = strlen (all_filters[i].extension);
- if (l > e)
- if (!strcmp (all_filters[i].extension, filename + l - e))
- return i;
- }
- return -1;
- }
- static char *
- edit_get_filter (const char *filename)
- {
- int i, l;
- char *p, *quoted_name;
- i = edit_find_filter (filename);
- if (i < 0)
- return 0;
- quoted_name = name_quote (filename, 0);
- l = str_term_width1 (quoted_name);
- p = g_malloc0 (str_term_width1 (all_filters[i].read) + l + 2);
- sprintf (p, all_filters[i].read, quoted_name);
- g_free (quoted_name);
- return p;
- }
- char *
- edit_get_write_filter (const char *write_name, const char *filename)
- {
- int i, l;
- char *p, *writename;
- i = edit_find_filter (filename);
- if (i < 0)
- return 0;
- writename = name_quote (write_name, 0);
- l = str_term_width1 (writename);
- p = g_malloc0 (str_term_width1 (all_filters[i].write) + l + 2);
- sprintf (p, all_filters[i].write, writename);
- g_free (writename);
- return p;
- }
- static long
- edit_insert_stream (WEdit * edit, FILE * f)
- {
- int c;
- long i = 0;
- while ((c = fgetc (f)) >= 0) {
- edit_insert (edit, c);
- i++;
- }
- return i;
- }
- long edit_write_stream (WEdit * edit, FILE * f)
- {
- long i;
- if (edit->lb == LB_ASIS) {
- for (i = 0; i < edit->last_byte; i++)
- if (fputc (edit_get_byte (edit, i), f) < 0)
- break;
- return i;
- }
- /* change line breaks */
- for (i = 0; i < edit->last_byte; i++) {
- unsigned char c = edit_get_byte (edit, i);
- if (!(c == '\n' || c == '\r')) {
- /* not line break */
- if (fputc (c, f) < 0)
- return i;
- } else { /* (c == '\n' || c == '\r') */
- unsigned char c1 = edit_get_byte (edit, i + 1); /* next char */
- switch (edit->lb) {
- case LB_UNIX: /* replace "\r\n" or '\r' to '\n' */
- /* put one line break unconditionally */
- if (fputc ('\n', f) < 0)
- return i;
- i++; /* 2 chars are processed */
- if (c == '\r' && c1 == '\n')
- /* Windows line break; go to the next char */
- break;
- if (c == '\r' && c1 == '\r') {
- /* two Macintosh line breaks; put second line break */
- if (fputc ('\n', f) < 0)
- return i;
- break;
- }
- if (fputc (c1, f) < 0)
- return i;
- break;
- case LB_WIN: /* replace '\n' or '\r' to "\r\n" */
- /* put one line break unconditionally */
- if (fputc ('\r', f) < 0 || fputc ('\n', f) < 0)
- return i;
- if (c == '\r' && c1 == '\n')
- /* Windows line break; go to the next char */
- i++;
- break;
- case LB_MAC: /* replace "\r\n" or '\n' to '\r' */
- /* put one line break unconditionally */
- if (fputc ('\r', f) < 0)
- return i;
- i++; /* 2 chars are processed */
- if (c == '\r' && c1 == '\n')
- /* Windows line break; go to the next char */
- break;
- if (c == '\n' && c1 == '\n') {
- /* two Windows line breaks; put second line break */
- if (fputc ('\r', f) < 0)
- return i;
- break;
- }
- if (fputc (c1, f) < 0)
- return i;
- break;
- case LB_ASIS: /* default without changes */
- break;
- }
- }
- }
- return edit->last_byte;
- }
- #define TEMP_BUF_LEN 1024
- /* inserts a file at the cursor, returns 1 on success */
- int
- edit_insert_file (WEdit *edit, const char *filename)
- {
- char *p;
- if ((p = edit_get_filter (filename))) {
- FILE *f;
- long current = edit->curs1;
- f = (FILE *) popen (p, "r");
- if (f) {
- edit_insert_stream (edit, f);
- edit_cursor_move (edit, current - edit->curs1);
- if (pclose (f) > 0) {
- GString *errmsg = g_string_new (NULL);
- g_string_sprintf (errmsg, _(" Error reading from pipe: %s "), p);
- edit_error_dialog (_("Error"), errmsg->str);
- g_string_free (errmsg, TRUE);
- g_free (p);
- return 0;
- }
- } else {
- GString *errmsg = g_string_new (NULL);
- g_string_sprintf (errmsg, _(" Cannot open pipe for reading: %s "), p);
- edit_error_dialog (_("Error"), errmsg->str);
- g_string_free (errmsg, TRUE);
- g_free (p);
- return 0;
- }
- g_free (p);
- } else {
- int i, file, blocklen;
- long current = edit->curs1;
- int vertical_insertion = 0;
- char *buf;
- if ((file = mc_open (filename, O_RDONLY | O_BINARY)) == -1)
- return 0;
- buf = g_malloc0 (TEMP_BUF_LEN);
- blocklen = mc_read (file, buf, sizeof(VERTICAL_MAGIC));
- if (blocklen > 0) {
- /* if contain signature VERTICAL_MAGIC tnen it vertical block */
- if ( memcmp(buf, VERTICAL_MAGIC, sizeof(VERTICAL_MAGIC)) == 0 ) {
- vertical_insertion = 1;
- } else {
- mc_lseek (file, 0, SEEK_SET);
- }
- }
- if (vertical_insertion) {
- blocklen = edit_insert_column_of_text_from_file (edit, file);
- } else {
- while ((blocklen = mc_read (file, (char *) buf, TEMP_BUF_LEN)) > 0) {
- for (i = 0; i < blocklen; i++)
- edit_insert (edit, buf[i]);
- }
- }
- edit_cursor_move (edit, current - edit->curs1);
- g_free (buf);
- mc_close (file);
- if (blocklen)
- return 0;
- }
- return 1;
- }
- /* Open file and create it if necessary. Return 0 for success, 1 for error. */
- static int
- check_file_access (WEdit *edit, const char *filename, struct stat *st)
- {
- int file;
- GString *errmsg = (GString *) 0;
- /* Try opening an existing file */
- file = mc_open (filename, O_NONBLOCK | O_RDONLY | O_BINARY, 0666);
- if (file < 0) {
- /*
- * Try creating the file. O_EXCL prevents following broken links
- * and opening existing files.
- */
- file =
- mc_open (filename,
- O_NONBLOCK | O_RDONLY | O_BINARY | O_CREAT | O_EXCL,
- 0666);
- if (file < 0) {
- g_string_sprintf (errmsg = g_string_new (NULL),
- _(" Cannot open %s for reading "), filename);
- goto cleanup;
- } else {
- /* New file, delete it if it's not modified or saved */
- edit->delete_file = 1;
- }
- }
- /* Check what we have opened */
- if (mc_fstat (file, st) < 0) {
- g_string_sprintf (errmsg = g_string_new (NULL),
- _(" Cannot get size/permissions for %s "), filename);
- goto cleanup;
- }
- /* We want to open regular files only */
- if (!S_ISREG (st->st_mode)) {
- g_string_sprintf (errmsg = g_string_new (NULL),
- _(" %s is not a regular file "), filename);
- goto cleanup;
- }
- /*
- * Don't delete non-empty files.
- * O_EXCL should prevent it, but let's be on the safe side.
- */
- if (st->st_size > 0) {
- edit->delete_file = 0;
- }
- if (st->st_size >= SIZE_LIMIT) {
- g_string_sprintf (errmsg = g_string_new (NULL),
- _(" File %s is too large "), filename);
- }
- cleanup:
- (void) mc_close (file);
- if (errmsg) {
- edit_error_dialog (_("Error"), errmsg->str);
- g_string_free (errmsg, TRUE);
- return 1;
- }
- return 0;
- }
- /*
- * Open the file and load it into the buffers, either directly or using
- * a filter. Return 0 on success, 1 on error.
- *
- * Fast loading (edit_load_file_fast) is used when the file size is
- * known. In this case the data is read into the buffers by blocks.
- * If the file size is not known, the data is loaded byte by byte in
- * edit_insert_file.
- */
- static int
- edit_load_file (WEdit *edit)
- {
- int fast_load = 1;
- /* Cannot do fast load if a filter is used */
- if (edit_find_filter (edit->filename) >= 0)
- fast_load = 0;
- /*
- * VFS may report file size incorrectly, and slow load is not a big
- * deal considering overhead in VFS.
- */
- if (!vfs_file_is_local (edit->filename))
- fast_load = 0;
- /*
- * FIXME: line end translation should disable fast loading as well
- * Consider doing fseek() to the end and ftell() for the real size.
- */
- if (*edit->filename) {
- /* If we are dealing with a real file, check that it exists */
- if (check_file_access (edit, edit->filename, &edit->stat1))
- return 1;
- } else {
- /* nothing to load */
- fast_load = 0;
- }
- edit_init_buffers (edit);
- if (fast_load) {
- edit->last_byte = edit->stat1.st_size;
- edit_load_file_fast (edit, edit->filename);
- /* If fast load was used, the number of lines wasn't calculated */
- edit->total_lines = edit_count_lines (edit, 0, edit->last_byte);
- } else {
- #ifdef HAVE_CHARSET
- const char *codepage_id;
- #endif
- edit->last_byte = 0;
- if (*edit->filename) {
- edit->stack_disable = 1;
- if (!edit_insert_file (edit, edit->filename)) {
- edit_clean (edit);
- return 1;
- }
- edit->stack_disable = 0;
- }
- #ifdef HAVE_CHARSET
- codepage_id = get_codepage_id( source_codepage );
- if ( codepage_id )
- edit->utf8 = str_isutf8 ( codepage_id );
- #endif
- }
- edit->lb = LB_ASIS;
- return 0;
- }
- /* Restore saved cursor position in the file */
- static void
- edit_load_position (WEdit *edit)
- {
- char *filename;
- long line, column;
- if (!edit->filename || !*edit->filename)
- return;
- filename = vfs_canon (edit->filename);
- load_file_position (filename, &line, &column);
- g_free (filename);
- edit_move_to_line (edit, line - 1);
- edit->prev_col = column;
- edit_move_to_prev_col (edit, edit_bol (edit, edit->curs1));
- edit_move_display (edit, line - (edit->num_widget_lines / 2));
- }
- /* Save cursor position in the file */
- static void
- edit_save_position (WEdit *edit)
- {
- char *filename;
- if (!edit->filename || !*edit->filename)
- return;
- filename = vfs_canon (edit->filename);
- save_file_position (filename, edit->curs_line + 1, edit->curs_col);
- g_free (filename);
- }
- /* Clean the WEdit stricture except the widget part */
- static void
- edit_purge_widget (WEdit *edit)
- {
- size_t len = sizeof (WEdit) - sizeof (Widget);
- char *start = (char *) edit + sizeof (Widget);
- memset (start, 0, len);
- edit->macro_i = -1; /* not recording a macro */
- }
- static void
- edit_set_keymap (void)
- {
- editor_map = default_editor_keymap;
- if (editor_keymap && editor_keymap->len > 0)
- editor_map = (global_keymap_t *) editor_keymap->data;
- editor_x_map = default_editor_x_keymap;
- if (editor_x_keymap && editor_x_keymap->len > 0)
- editor_x_map = (global_keymap_t *) editor_x_keymap->data;
- }
- #define space_width 1
- /*
- * Fill in the edit structure. Return NULL on failure. Pass edit as
- * NULL to allocate a new structure.
- *
- * If line is 0, try to restore saved position. Otherwise put the
- * cursor on that line and show it in the middle of the screen.
- */
- WEdit *
- edit_init (WEdit *edit, int lines, int columns, const char *filename,
- long line)
- {
- int to_free = 0;
- option_auto_syntax = 1; /* Resetting to auto on every invokation */
- if ( option_line_state ) {
- option_line_state_width = LINE_STATE_WIDTH;
- } else {
- option_line_state_width = 0;
- }
- if (!edit) {
- #ifdef ENABLE_NLS
- /*
- * Expand option_whole_chars_search by national letters using
- * current locale
- */
- static char option_whole_chars_search_buf[256];
- if (option_whole_chars_search_buf != option_whole_chars_search) {
- size_t i;
- size_t len = str_term_width1 (option_whole_chars_search);
- strcpy (option_whole_chars_search_buf,
- option_whole_chars_search);
- for (i = 1; i <= sizeof (option_whole_chars_search_buf); i++) {
- if (g_ascii_islower ((gchar) i) && !strchr (option_whole_chars_search, i)) {
- option_whole_chars_search_buf[len++] = i;
- }
- }
- option_whole_chars_search_buf[len] = 0;
- option_whole_chars_search = option_whole_chars_search_buf;
- }
- #endif /* ENABLE_NLS */
- edit = g_malloc0 (sizeof (WEdit));
- edit->search = NULL;
- to_free = 1;
- }
- edit_purge_widget (edit);
- edit->num_widget_lines = lines;
- edit->over_col = 0;
- edit->num_widget_columns = columns;
- edit->stat1.st_mode = S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH;
- edit->stat1.st_uid = getuid ();
- edit->stat1.st_gid = getgid ();
- edit->stat1.st_mtime = 0;
- edit->bracket = -1;
- edit->force |= REDRAW_PAGE;
- edit_set_filename (edit, filename);
- edit->stack_size = START_STACK_SIZE;
- edit->stack_size_mask = START_STACK_SIZE - 1;
- edit->undo_stack = g_malloc0 ((edit->stack_size + 10) * sizeof (long));
- if (edit_load_file (edit)) {
- /* edit_load_file already gives an error message */
- if (to_free)
- g_free (edit);
- return 0;
- }
- edit->utf8 = 0;
- edit->converter = str_cnv_from_term;
- #ifdef HAVE_CHARSET
- {
- const char *cp_id = NULL;
- cp_id = get_codepage_id (source_codepage >= 0 ?
- source_codepage : display_codepage);
- if (cp_id != NULL) {
- GIConv conv;
- conv = str_crt_conv_from (cp_id);
- if (conv != INVALID_CONV) {
- if (edit->converter != str_cnv_from_term)
- str_close_conv (edit->converter);
- edit->converter = conv;
- }
- }
- if (cp_id != NULL)
- edit->utf8 = str_isutf8 (cp_id);
- }
- #endif
- edit->loading_done = 1;
- edit->modified = 0;
- edit->locked = 0;
- edit_load_syntax (edit, 0, 0);
- {
- int color;
- edit_get_syntax_color (edit, -1, &color);
- }
- /* load saved cursor position */
- if ((line == 0) && option_save_position) {
- edit_load_position (edit);
- } else {
- if (line <= 0)
- line = 1;
- edit_move_display (edit, line - 1);
- edit_move_to_line (edit, line - 1);
- }
- edit_set_keymap ();
- return edit;
- }
- /* Clear the edit struct, freeing everything in it. Return 1 on success */
- int
- edit_clean (WEdit *edit)
- {
- int j = 0;
- if (!edit)
- return 0;
- /* a stale lock, remove it */
- if (edit->locked)
- edit->locked = edit_unlock_file (edit->filename);
- /* save cursor position */
- if (option_save_position)
- edit_save_position (edit);
- /* File specified on the mcedit command line and never saved */
- if (edit->delete_file)
- unlink (edit->filename);
- edit_free_syntax_rules (edit);
- book_mark_flush (edit, -1);
- for (; j <= MAXBUFF; j++) {
- g_free (edit->buffers1[j]);
- g_free (edit->buffers2[j]);
- }
- g_free (edit->undo_stack);
- g_free (edit->filename);
- g_free (edit->dir);
- if (edit->search)
- {
- mc_search_free(edit->search);
- edit->search = NULL;
- }
- edit_purge_widget (edit);
- return 1;
- }
- /* returns 1 on success */
- int
- edit_renew (WEdit * edit)
- {
- int lines = edit->num_widget_lines;
- int columns = edit->num_widget_columns;
- edit_clean (edit);
- return (edit_init (edit, lines, columns, "", 0) != NULL);
- }
- /*
- * Load a new file into the editor. If it fails, preserve the old file.
- * To do it, allocate a new widget, initialize it and, if the new file
- * was loaded, copy the data to the old widget.
- * Return 1 on success, 0 on failure.
- */
- int
- edit_reload (WEdit *edit, const char *filename)
- {
- WEdit *e;
- int lines = edit->num_widget_lines;
- int columns = edit->num_widget_columns;
- e = g_malloc0 (sizeof (WEdit));
- e->widget = edit->widget;
- if (!edit_init (e, lines, columns, filename, 0)) {
- g_free (e);
- return 0;
- }
- edit_clean (edit);
- memcpy (edit, e, sizeof (WEdit));
- g_free (e);
- return 1;
- }
- /*
- * Load a new file into the editor and set line. If it fails, preserve the old file.
- * To do it, allocate a new widget, initialize it and, if the new file
- * was loaded, copy the data to the old widget.
- * Return 1 on success, 0 on failure.
- */
- int
- edit_reload_line (WEdit *edit, const char *filename, long line)
- {
- WEdit *e;
- int lines = edit->num_widget_lines;
- int columns = edit->num_widget_columns;
- e = g_malloc0 (sizeof (WEdit));
- e->widget = edit->widget;
- if (!edit_init (e, lines, columns, filename, line)) {
- g_free (e);
- return 0;
- }
- edit_clean (edit);
- memcpy (edit, e, sizeof (WEdit));
- g_free (e);
- return 1;
- }
- /*
- Recording stack for undo:
- The following is an implementation of a compressed stack. Identical
- pushes are recorded by a negative prefix indicating the number of times the
- same char was pushed. This saves space for repeated curs-left or curs-right
- delete etc.
- eg:
- pushed: stored:
- a
- b a
- b -3
- b b
- c --> -4
- c c
- c d
- c
- d
- If the stack long int is 0-255 it represents a normal insert (from a backspace),
- 256-512 is an insert ahead (from a delete), If it is betwen 600 and 700 it is one
- of the cursor functions #define'd in edit-impl.h. 1000 through 700'000'000 is to
- set edit->mark1 position. 700'000'000 through 1400'000'000 is to set edit->mark2
- position.
- The only way the cursor moves or the buffer is changed is through the routines:
- insert, backspace, insert_ahead, delete, and cursor_move.
- These record the reverse undo movements onto the stack each time they are
- called.
- Each key press results in a set of actions (insert; delete ...). So each time
- a key is pressed the current position of start_display is pushed as
- KEY_PRESS + start_display. Then for undoing, we pop until we get to a number
- over KEY_PRESS. We then assign this number less KEY_PRESS to start_display. So undo
- tracks scrolling and key actions exactly. (KEY_PRESS is about (2^31) * (2/3) = 1400'000'000)
- */
- void edit_push_action (WEdit * edit, long c,...)
- {
- unsigned long sp = edit->stack_pointer;
- unsigned long spm1;
- long *t;
- /* first enlarge the stack if necessary */
- if (sp > edit->stack_size - 10) { /* say */
- if (option_max_undo < 256)
- option_max_undo = 256;
- if (edit->stack_size < (unsigned long) option_max_undo) {
- t = g_realloc (edit->undo_stack, (edit->stack_size * 2 + 10) * sizeof (long));
- if (t) {
- edit->undo_stack = t;
- edit->stack_size <<= 1;
- edit->stack_size_mask = edit->stack_size - 1;
- }
- }
- }
- spm1 = (edit->stack_pointer - 1) & edit->stack_size_mask;
- if (edit->stack_disable)
- return;
- #ifdef FAST_MOVE_CURSOR
- if (c == CURS_LEFT_LOTS || c == CURS_RIGHT_LOTS) {
- va_list ap;
- edit->undo_stack[sp] = c == CURS_LEFT_LOTS ? CURS_LEFT : CURS_RIGHT;
- edit->stack_pointer = (edit->stack_pointer + 1) & edit->stack_size_mask;
- va_start (ap, c);
- c = -(va_arg (ap, int));
- va_end (ap);
- } else
- #endif /* ! FAST_MOVE_CURSOR */
- if (edit->stack_bottom != sp
- && spm1 != edit->stack_bottom
- && ((sp - 2) & edit->stack_size_mask) != edit->stack_bottom) {
- int d;
- if (edit->undo_stack[spm1] < 0) {
- d = edit->undo_stack[(sp - 2) & edit->stack_size_mask];
- if (d == c) {
- if (edit->undo_stack[spm1] > -1000000000) {
- if (c < KEY_PRESS) /* --> no need to push multiple do-nothings */
- edit->undo_stack[spm1]--;
- return;
- }
- }
- /* #define NO_STACK_CURSMOVE_ANIHILATION */
- #ifndef NO_STACK_CURSMOVE_ANIHILATION
- else if ((c == CURS_LEFT && d == CURS_RIGHT)
- || (c == CURS_RIGHT && d == CURS_LEFT)) { /* a left then a right anihilate each other */
- if (edit->undo_stack[spm1] == -2)
- edit->stack_pointer = spm1;
- else
- edit->undo_stack[spm1]++;
- return;
- }
- #endif
- } else {
- d = edit->undo_stack[spm1];
- if (d == c) {
- if (c >= KEY_PRESS)
- return; /* --> no need to push multiple do-nothings */
- edit->undo_stack[sp] = -2;
- goto check_bottom;
- }
- #ifndef NO_STACK_CURSMOVE_ANIHILATION
- else if ((c == CURS_LEFT && d == CURS_RIGHT)
- || (c == CURS_RIGHT && d == CURS_LEFT)) { /* a left then a right anihilate each other */
- edit->stack_pointer = spm1;
- return;
- }
- #endif
- }
- }
- edit->undo_stack[sp] = c;
- check_bottom:
- edit->stack_pointer = (edit->stack_pointer + 1) & edit->stack_size_mask;
- /* if the sp wraps round and catches the stack_bottom then erase
- * the first set of actions on the stack to make space - by moving
- * stack_bottom forward one "key press" */
- c = (edit->stack_pointer + 2) & edit->stack_size_mask;
- if ((unsigned long) c == edit->stack_bottom ||
- (((unsigned long) c + 1) & edit->stack_size_mask) == edit->stack_bottom)
- do {
- edit->stack_bottom = (edit->stack_bottom + 1) & edit->stack_size_mask;
- } while (edit->undo_stack[edit->stack_bottom] < KEY_PRESS && edit->stack_bottom != edit->stack_pointer);
- /*If a single key produced enough pushes to wrap all the way round then we would notice that the [stack_bottom] does not contain KEY_PRESS. The stack is then initialised: */
- if (edit->stack_pointer != edit->stack_bottom && edit->undo_stack[edit->stack_bottom] < KEY_PRESS)
- edit->stack_bottom = edit->stack_pointer = 0;
- }
- /*
- TODO: if the user undos until the stack bottom, and the stack has not wrapped,
- then the file should be as it was when he loaded up. Then set edit->modified to 0.
- */
- static long
- pop_action (WEdit * edit)
- {
- long c;
- unsigned long sp = edit->stack_pointer;
- if (sp == edit->stack_bottom) {
- return STACK_BOTTOM;
- }
- sp = (sp - 1) & edit->stack_size_mask;
- if ((c = edit->undo_stack[sp]) >= 0) {
- /* edit->undo_stack[sp] = '@'; */
- edit->stack_pointer = (edit->stack_pointer - 1) & edit->stack_size_mask;
- return c;
- }
- if (sp == edit->stack_bottom) {
- return STACK_BOTTOM;
- }
- c = edit->undo_stack[(sp - 1) & edit->stack_size_mask];
- if (edit->undo_stack[sp] == -2) {
- /* edit->undo_stack[sp] = '@'; */
- edit->stack_pointer = sp;
- } else
- edit->undo_stack[sp]++;
- return c;
- }
- /* is called whenever a modification is made by one of the four routines below */
- static void edit_modification (WEdit * edit)
- {
- edit->caches_valid = 0;
- edit->screen_modified = 1;
- /* raise lock when file modified */
- if (!edit->modified && !edit->delete_file)
- edit->locked = edit_lock_file (edit->filename);
- edit->modified = 1;
- }
- /*
- Basic low level single character buffer alterations and movements at the cursor.
- Returns char passed over, inserted or removed.
- */
- void
- edit_insert (WEdit *edit, int c)
- {
- /* check if file has grown to large */
- if (edit->last_byte >= SIZE_LIMIT)
- return;
- /* first we must update the position of the display window */
- if (edit->curs1 < edit->start_display) {
- edit->start_display++;
- if (c == '\n')
- edit->start_line++;
- }
- /* Mark file as modified, unless the file hasn't been fully loaded */
- if (edit->loading_done) {
- edit_modification (edit);
- }
- /* now we must update some info on the file and check if a redraw is required */
- if (c == '\n') {
- if (edit->book_mark)
- book_mark_inc (edit, edit->curs_line);
- edit->curs_line++;
- edit->total_lines++;
- edit->force |= REDRAW_LINE_ABOVE | REDRAW_AFTER_CURSOR;
- }
- /* save the reverse command onto the undo stack */
- edit_push_action (edit, BACKSPACE);
- /* update markers */
- edit->mark1 += (edit->mark1 > edit->curs1);
- edit->mark2 += (edit->mark2 > edit->curs1);
- edit->last_get_rule += (edit->last_get_rule > edit->curs1);
- /* add a new buffer if we've reached the end of the last one */
- if (!(edit->curs1 & M_EDIT_BUF_SIZE))
- edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE] =
- g_malloc0 (EDIT_BUF_SIZE);
- /* perform the insertion */
- edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE][edit->
- curs1 & M_EDIT_BUF_SIZE]
- = (unsigned char) c;
- /* update file length */
- edit->last_byte++;
- /* update cursor position */
- edit->curs1++;
- }
- static void
- edit_insert_over (WEdit * edit)
- {
- int i;
- for ( i = 0; i < edit->over_col; i++ ) {
- edit_insert (edit, ' ');
- }
- edit->over_col = 0;
- }
- /* same as edit_insert and move left */
- void edit_insert_ahead (WEdit * edit, int c)
- {
- if (edit->last_byte >= SIZE_LIMIT)
- return;
- if (edit->curs1 < edit->start_display) {
- edit->start_display++;
- if (c == '\n')
- edit->start_line++;
- }
- edit_modification (edit);
- if (c == '\n') {
- if (edit->book_mark)
- book_mark_inc (edit, edit->curs_line);
- edit->total_lines++;
- edit->force |= REDRAW_AFTER_CURSOR;
- }
- edit_push_action (edit, DELCHAR);
- edit->mark1 += (edit->mark1 >= edit->curs1);
- edit->mark2 += (edit->mark2 >= edit->curs1);
- edit->last_get_rule += (edit->last_get_rule >= edit->curs1);
- if (!((edit->curs2 + 1) & M_EDIT_BUF_SIZE))
- edit->buffers2[(edit->curs2 + 1) >> S_EDIT_BUF_SIZE] = g_malloc0 (EDIT_BUF_SIZE);
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE][EDIT_BUF_SIZE - (edit->curs2 & M_EDIT_BUF_SIZE) - 1] = c;
- edit->last_byte++;
- edit->curs2++;
- }
- int edit_delete (WEdit * edit, const int byte_delete)
- {
- int p = 0;
- int cw = 1;
- int i;
- if (!edit->curs2)
- return 0;
- edit->mark1 -= (edit->mark1 > edit->curs1);
- edit->mark2 -= (edit->mark2 > edit->curs1);
- edit->last_get_rule -= (edit->last_get_rule > edit->curs1);
- cw = 1;
- /* if byte_delete = 1 then delete only one byte not multibyte char*/
- if ( edit->utf8 && byte_delete == 0 ) {
- edit_get_utf (edit, edit->curs1, &cw);
- if ( cw < 1 )
- cw = 1;
- }
- for ( i = 1; i<= cw; i++ ) {
- p = edit->buffers2[(edit->curs2 - 1) >> S_EDIT_BUF_SIZE][EDIT_BUF_SIZE - ((edit->curs2 - 1) & M_EDIT_BUF_SIZE) - 1];
- if (!(edit->curs2 & M_EDIT_BUF_SIZE)) {
- g_free (edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE]);
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] = NULL;
- }
- edit->last_byte--;
- edit->curs2--;
- edit_push_action (edit, p + 256);
- }
- edit_modification (edit);
- if (p == '\n') {
- if (edit->book_mark)
- book_mark_dec (edit, edit->curs_line);
- edit->total_lines--;
- edit->force |= REDRAW_AFTER_CURSOR;
- }
- if (edit->curs1 < edit->start_display) {
- edit->start_display--;
- if (p == '\n')
- edit->start_line--;
- }
- return p;
- }
- static int
- edit_backspace (WEdit * edit, const int byte_delete)
- {
- int p = 0;
- int cw = 1;
- int i;
- if (!edit->curs1)
- return 0;
- edit->mark1 -= (edit->mark1 >= edit->curs1);
- edit->mark2 -= (edit->mark2 >= edit->curs1);
- edit->last_get_rule -= (edit->last_get_rule >= edit->curs1);
- cw = 1;
- if ( edit->utf8 && byte_delete == 0 ) {
- edit_get_prev_utf (edit, edit->curs1, &cw);
- if ( cw < 1 )
- cw = 1;
- }
- for ( i = 1; i<= cw; i++ ) {
- p = *(edit->buffers1[(edit->curs1 - 1) >> S_EDIT_BUF_SIZE] + ((edit->curs1 - 1) & M_EDIT_BUF_SIZE));
- if (!((edit->curs1 - 1) & M_EDIT_BUF_SIZE)) {
- g_free (edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE]);
- edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE] = NULL;
- }
- edit->last_byte--;
- edit->curs1--;
- edit_push_action (edit, p);
- }
- edit_modification (edit);
- if (p == '\n') {
- if (edit->book_mark)
- book_mark_dec (edit, edit->curs_line);
- edit->curs_line--;
- edit->total_lines--;
- edit->force |= REDRAW_AFTER_CURSOR;
- }
- if (edit->curs1 < edit->start_display) {
- edit->start_display--;
- if (p == '\n')
- edit->start_line--;
- }
- return p;
- }
- #ifdef FAST_MOVE_CURSOR
- static void memqcpy (WEdit * edit, unsigned char *dest, unsigned char *src, int n)
- {
- unsigned long next;
- while ((next = (unsigned long) memccpy (dest, src, '\n', n))) {
- edit->curs_line--;
- next -= (unsigned long) dest;
- n -= next;
- src += next;
- dest += next;
- }
- }
- int
- edit_move_backward_lots (WEdit *edit, long increment)
- {
- int r, s, t;
- unsigned char *p = NULL;
- if (increment > edit->curs1)
- increment = edit->curs1;
- if (increment <= 0)
- return -1;
- edit_push_action (edit, CURS_RIGHT_LOTS, increment);
- t = r = EDIT_BUF_SIZE - (edit->curs2 & M_EDIT_BUF_SIZE);
- if (r > increment)
- r = increment;
- s = edit->curs1 & M_EDIT_BUF_SIZE;
- if (s > r) {
- memqcpy (edit,
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] + t - r,
- edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE] + s - r,
- r);
- } else {
- if (s) {
- memqcpy (edit,
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] + t -
- s, edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE], s);
- p = edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE];
- edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE] = 0;
- }
- memqcpy (edit,
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] + t - r,
- edit->buffers1[(edit->curs1 >> S_EDIT_BUF_SIZE) - 1] +
- EDIT_BUF_SIZE - (r - s), r - s);
- }
- increment -= r;
- edit->curs1 -= r;
- edit->curs2 += r;
- if (!(edit->curs2 & M_EDIT_BUF_SIZE)) {
- if (p)
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] = p;
- else
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] =
- g_malloc0 (EDIT_BUF_SIZE);
- } else {
- g_free (p);
- }
- s = edit->curs1 & M_EDIT_BUF_SIZE;
- while (increment) {
- p = 0;
- r = EDIT_BUF_SIZE;
- if (r > increment)
- r = increment;
- t = s;
- if (r < t)
- t = r;
- memqcpy (edit,
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] +
- EDIT_BUF_SIZE - t,
- edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE] + s - t,
- t);
- if (r >= s) {
- if (t) {
- p = edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE];
- edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE] = 0;
- }
- memqcpy (edit,
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] +
- EDIT_BUF_SIZE - r,
- edit->buffers1[(edit->curs1 >> S_EDIT_BUF_SIZE) - 1] +
- EDIT_BUF_SIZE - (r - s), r - s);
- }
- increment -= r;
- edit->curs1 -= r;
- edit->curs2 += r;
- if (!(edit->curs2 & M_EDIT_BUF_SIZE)) {
- if (p)
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] = p;
- else
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] =
- g_malloc0 (EDIT_BUF_SIZE);
- } else {
- g_free (p);
- }
- }
- return edit_get_byte (edit, edit->curs1);
- }
- #endif /* ! FAST_MOVE_CURSOR */
- /* moves the cursor right or left: increment positive or negative respectively */
- void edit_cursor_move (WEdit * edit, long increment)
- {
- /* this is the same as a combination of two of the above routines, with only one push onto the undo stack */
- int c;
- #ifdef FAST_MOVE_CURSOR
- if (increment < -256) {
- edit->force |= REDRAW_PAGE;
- edit_move_backward_lots (edit, -increment);
- return;
- }
- #endif /* ! FAST_MOVE_CURSOR */
- if (increment < 0) {
- for (; increment < 0; increment++) {
- if (!edit->curs1)
- return;
- edit_push_action (edit, CURS_RIGHT);
- c = edit_get_byte (edit, edit->curs1 - 1);
- if (!((edit->curs2 + 1) & M_EDIT_BUF_SIZE))
- edit->buffers2[(edit->curs2 + 1) >> S_EDIT_BUF_SIZE] = g_malloc0 (EDIT_BUF_SIZE);
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE][EDIT_BUF_SIZE - (edit->curs2 & M_EDIT_BUF_SIZE) - 1] = c;
- edit->curs2++;
- c = edit->buffers1[(edit->curs1 - 1) >> S_EDIT_BUF_SIZE][(edit->curs1 - 1) & M_EDIT_BUF_SIZE];
- if (!((edit->curs1 - 1) & M_EDIT_BUF_SIZE)) {
- g_free (edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE]);
- edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE] = NULL;
- }
- edit->curs1--;
- if (c == '\n') {
- edit->curs_line--;
- edit->force |= REDRAW_LINE_BELOW;
- }
- }
- } else if (increment > 0) {
- for (; increment > 0; increment--) {
- if (!edit->curs2)
- return;
- edit_push_action (edit, CURS_LEFT);
- c = edit_get_byte (edit, edit->curs1);
- if (!(edit->curs1 & M_EDIT_BUF_SIZE))
- edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE] = g_malloc0 (EDIT_BUF_SIZE);
- edit->buffers1[edit->curs1 >> S_EDIT_BUF_SIZE][edit->curs1 & M_EDIT_BUF_SIZE] = c;
- edit->curs1++;
- c = edit->buffers2[(edit->curs2 - 1) >> S_EDIT_BUF_SIZE][EDIT_BUF_SIZE - ((edit->curs2 - 1) & M_EDIT_BUF_SIZE) - 1];
- if (!(edit->curs2 & M_EDIT_BUF_SIZE)) {
- g_free (edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE]);
- edit->buffers2[edit->curs2 >> S_EDIT_BUF_SIZE] = 0;
- }
- edit->curs2--;
- if (c == '\n') {
- edit->curs_line++;
- edit->force |= REDRAW_LINE_ABOVE;
- }
- }
- }
- }
- /* These functions return positions relative to lines */
- /* returns index of last char on line + 1 */
- long edit_eol (WEdit * edit, long current)
- {
- if (current < edit->last_byte) {
- for (;; current++)
- if (edit_get_byte (edit, current) == '\n')
- break;
- } else
- return edit->last_byte;
- return current;
- }
- /* returns index of first char on line */
- long edit_bol (WEdit * edit, long current)
- {
- if (current > 0) {
- for (;; current--)
- if (edit_get_byte (edit, current - 1) == '\n')
- break;
- } else
- return 0;
- return current;
- }
- long edit_count_lines (WEdit * edit, long current, long upto)
- {
- long lines = 0;
- if (upto > edit->last_byte)
- upto = edit->last_byte;
- if (current < 0)
- current = 0;
- while (current < upto)
- if (edit_get_byte (edit, current++) == '\n')
- lines++;
- return lines;
- }
- /* If lines is zero this returns the count of lines from current to upto. */
- /* If upto is zero returns index of lines forward current. */
- long edit_move_forward (WEdit * edit, long current, long lines, long upto)
- {
- if (upto) {
- return edit_count_lines (edit, current, upto);
- } else {
- long next;
- if (lines < 0)
- lines = 0;
- while (lines--) {
- next = edit_eol (edit, current) + 1;
- if (next > edit->last_byte)
- break;
- else
- current = next;
- }
- return current;
- }
- }
- /* Returns offset of 'lines' lines up from current */
- long edit_move_backward (WEdit * edit, long current, long lines)
- {
- if (lines < 0)
- lines = 0;
- current = edit_bol (edit, current);
- while((lines--) && current != 0)
- current = edit_bol (edit, current - 1);
- return current;
- }
- /* If cols is zero this returns the count of columns from current to upto. */
- /* If upto is zero returns index of cols across from current. */
- long
- edit_move_forward3 (WEdit * edit, long current, int cols, long upto)
- {
- long p, q;
- int col;
- if (upto) {
- q = upto;
- cols = -10;
- } else
- q = edit->last_byte + 2;
- for (col = 0, p = current; p < q; p++) {
- int c, orig_c;
- int utf_ch = 0;
- #ifdef HAVE_CHARSET
- int cw = 1;
- #endif
- if (cols != -10) {
- if (col == cols)
- return p;
- if (col > cols)
- return p - 1;
- }
- orig_c = c = edit_get_byte (edit, p);
- #ifdef HAVE_CHARSET
- if (edit->utf8) {
- utf_ch = edit_get_utf (edit, p, &cw);
- if (utf8_display) {
- if (cw > 1)
- col -= cw - 1;
- if (g_unichar_iswide (utf_ch))
- col++;
- } else if (cw > 1 && g_unichar_isprint (utf_ch))
- col -= cw - 1;
- }
- #endif
- c = convert_to_display_c (c);
- if (c == '\t')
- col += TAB_SIZE - col % TAB_SIZE;
- else if (c == '\n') {
- if (upto)
- return col;
- else
- return p;
- } else if ((c < 32 || c == 127) && (orig_c == c || (!utf8_display && !edit->utf8)))
- /* '\r' is shown as ^M, so we must advance 2 characters */
- /* Caret notation for control characters */
- col += 2;
- else
- col++;
- }
- return col;
- }
- /* returns the current column position of the cursor */
- int edit_get_col (WEdit * edit)
- {
- return edit_move_forward3 (edit, edit_bol (edit, edit->curs1), 0, edit->curs1);
- }
- /* Scrolling functions */
- void edit_update_curs_row (WEdit * edit)
- {
- edit->curs_row = edit->curs_line - edit->start_line;
- }
- void edit_update_curs_col (WEdit * edit)
- {
- edit->curs_col = edit_move_forward3(edit, edit_bol(edit, edit->curs1), 0, edit->curs1);
- }
- int
- edit_get_curs_col (const WEdit *edit)
- {
- return edit->curs_col;
- }
- /*moves the display start position up by i lines */
- void edit_scroll_upward (WEdit * edit, unsigned long i)
- {
- unsigned long lines_above = edit->start_line;
- if (i > lines_above)
- i = lines_above;
- if (i) {
- edit->start_line -= i;
- edit->start_display = edit_move_backward (edit, edit->start_display, i);
- edit->force |= REDRAW_PAGE;
- edit->force &= (0xfff - REDRAW_CHAR_ONLY);
- }
- edit_update_curs_row (edit);
- }
- /* returns 1 if could scroll, 0 otherwise */
- void edit_scroll_downward (WEdit * edit, int i)
- {
- int lines_below;
- lines_below = edit->total_lines - edit->start_line - (edit->num_widget_lines - 1);
- if (lines_below > 0) {
- if (i > lines_below)
- i = lines_below;
- edit->start_line += i;
- edit->start_display = edit_move_forward (edit, edit->start_display, i, 0);
- edit->force |= REDRAW_PAGE;
- edit->force &= (0xfff - REDRAW_CHAR_ONLY);
- }
- edit_update_curs_row (edit);
- }
- void edit_scroll_right (WEdit * edit, int i)
- {
- edit->force |= REDRAW_PAGE;
- edit->force &= (0xfff - REDRAW_CHAR_ONLY);
- edit->start_col -= i;
- }
- void edit_scroll_left (WEdit * edit, int i)
- {
- if (edit->start_col) {
- edit->start_col += i;
- if (edit->start_col > 0)
- edit->start_col = 0;
- edit->force |= REDRAW_PAGE;
- edit->force &= (0xfff - REDRAW_CHAR_ONLY);
- }
- }
- /* high level cursor movement commands */
- static int is_in_indent (WEdit *edit)
- {
- long p = edit_bol (edit, edit->curs1);
- while (p < edit->curs1)
- if (!strchr (" \t", edit_get_byte (edit, p++)))
- return 0;
- return 1;
- }
- static int left_of_four_spaces (WEdit *edit);
- void
- edit_move_to_prev_col (WEdit * edit, long p)
- {
- int prev = edit->prev_col;
- int over = edit->over_col;
- edit_cursor_move (edit, edit_move_forward3 (edit, p, prev + edit->over_col, 0) - edit->curs1);
- if (option_cursor_beyond_eol) {
- long line_len = edit_move_forward3 (edit, edit_bol (edit, edit->curs1), 0, edit_eol(edit, edit->curs1));
- if (line_len < prev + edit->over_col) {
- edit->over_col = prev + over - line_len;
- edit->prev_col = line_len;
- edit->curs_col = line_len;
- } else {
- edit->curs_col = prev + over;
- edit->prev_col = edit->curs_col;
- edit->over_col = 0;
- }
- } else {
- edit->over_col = 0;
- if (is_in_indent (edit) && option_fake_half_tabs) {
- edit_update_curs_col (edit);
- if (space_width)
- if (edit->curs_col % (HALF_TAB_SIZE * space_width)) {
- int q = edit->curs_col;
- edit->curs_col -= (edit->curs_col % (HALF_TAB_SIZE * space_width));
- p = edit_bol (edit, edit->curs1);
- edit_cursor_move (edit, edit_move_forward3 (edit, p, edit->curs_col, 0) - edit->curs1);
- if (!left_of_four_spaces (edit))
- edit_cursor_move (edit, edit_move_forward3 (edit, p, q, 0) - edit->curs1);
- }
- }
- }
- }
- static int
- is_blank (WEdit *edit, long offset)
- {
- long s, f;
- int c;
- s = edit_bol (edit, offset);
- f = edit_eol (edit, offset) - 1;
- while (s <= f) {
- c = edit_get_byte (edit, s++);
- if (!isspace (c))
- return 0;
- }
- return 1;
- }
- /* returns the offset of line i */
- static long
- edit_find_line (WEdit *edit, int line)
- {
- int i, j = 0;
- int m = 2000000000;
- if (!edit->caches_valid) {
- for (i = 0; i < N_LINE_CACHES; i++)
- edit->line_numbers[i] = edit->line_offsets[i] = 0;
- /* three offsets that we *know* are line 0 at 0 and these two: */
- edit->line_numbers[1] = edit->curs_line;
- edit->line_offsets[1] = edit_bol (edit, edit->curs1);
- edit->line_numbers[2] = edit->total_lines;
- edit->line_offsets[2] = edit_bol (edit, edit->last_byte);
- edit->caches_valid = 1;
- }
- if (line >= edit->total_lines)
- return edit->line_offsets[2];
- if (line <= 0)
- return 0;
- /* find the closest known point */
- for (i = 0; i < N_LINE_CACHES; i++) {
- int n;
- n = abs (edit->line_numbers[i] - line);
- if (n < m) {
- m = n;
- j = i;
- }
- }
- if (m == 0)
- return edit->line_offsets[j]; /* know the offset exactly */
- if (m == 1 && j >= 3)
- i = j; /* one line different - caller might be looping, so stay in this cache */
- else
- i = 3 + (rand () % (N_LINE_CACHES - 3));
- if (line > edit->line_numbers[j])
- edit->line_offsets[i] = edit_move_forward (edit, edit->line_offsets[j], line - edit->line_numbers[j], 0);
- else
- edit->line_offsets[i] = edit_move_backward (edit, edit->line_offsets[j], edit->line_numbers[j] - line);
- edit->line_numbers[i] = line;
- return edit->line_offsets[i];
- }
- int line_is_blank (WEdit * edit, long line)
- {
- return is_blank (edit, edit_find_line (edit, line));
- }
- /* moves up until a blank line is reached, or until just
- before a non-blank line is reached */
- static void edit_move_up_paragraph (WEdit * edit, int scroll)
- {
- int i = 0;
- if (edit->curs_line > 1) {
- if (line_is_blank (edit, edit->curs_line)) {
- if (line_is_blank (edit, edit->curs_line - 1)) {
- for (i = edit->curs_line - 1; i; i--)
- if (!line_is_blank (edit, i)) {
- i++;
- break;
- }
- } else {
- for (i = edit->curs_line - 1; i; i--)
- if (line_is_blank (edit, i))
- break;
- }
- } else {
- for (i = edit->curs_line - 1; i; i--)
- if (line_is_blank (edit, i))
- break;
- }
- }
- edit_move_up (edit, edit->curs_line - i, scroll);
- }
- /* moves down until a blank line is reached, or until just
- before a non-blank line is reached */
- static void edit_move_down_paragraph (WEdit * edit, int scroll)
- {
- int i;
- if (edit->curs_line >= edit->total_lines - 1) {
- i = edit->total_lines;
- } else {
- if (line_is_blank (edit, edit->curs_line)) {
- if (line_is_blank (edit, edit->curs_line + 1)) {
- for (i = edit->curs_line + 1; i; i++)
- if (!line_is_blank (edit, i) || i > edit->total_lines) {
- i--;
- break;
- }
- } else {
- for (i = edit->curs_line + 1; i; i++)
- if (line_is_blank (edit, i) || i >= edit->total_lines)
- break;
- }
- } else {
- for (i = edit->curs_line + 1; i; i++)
- if (line_is_blank (edit, i) || i >= edit->total_lines)
- break;
- }
- }
- edit_move_down (edit, i - edit->curs_line, scroll);
- }
- static void edit_begin_page (WEdit *edit)
- {
- edit_update_curs_row (edit);
- edit_move_up (edit, edit->curs_row, 0);
- }
- static void edit_end_page (WEdit *edit)
- {
- edit_update_curs_row (edit);
- edit_move_down (edit, edit->num_widget_lines - edit->curs_row - 1, 0);
- }
- /* goto beginning of text */
- static void edit_move_to_top (WEdit * edit)
- {
- if (edit->curs_line) {
- edit_cursor_move (edit, -edit->curs1);
- edit_move_to_prev_col (edit, 0);
- edit->force |= REDRAW_PAGE;
- edit->search_start = 0;
- edit_update_curs_row(edit);
- }
- }
- /* goto end of text */
- static void edit_move_to_bottom (WEdit * edit)
- {
- if (edit->curs_line < edit->total_lines) {
- edit_move_down (edit, edit->total_lines - edit->curs_row, 0);
- edit->start_display = edit->last_byte;
- edit->start_line = edit->total_lines;
- edit_scroll_upward (edit, edit->num_widget_lines - 1);
- edit->force |= REDRAW_PAGE;
- }
- }
- /* goto beginning of line */
- static void edit_cursor_to_bol (WEdit * edit)
- {
- edit_cursor_move (edit, edit_bol (edit, edit->curs1) - edit->curs1);
- edit->search_start = edit->curs1;
- edit->prev_col = edit_get_col (edit);
- edit->over_col = 0;
- }
- /* goto end of line */
- static void edit_cursor_to_eol (WEdit * edit)
- {
- edit_cursor_move (edit, edit_eol (edit, edit->curs1) - edit->curs1);
- edit->search_start = edit->curs1;
- edit->prev_col = edit_get_col (edit);
- edit->over_col = 0;
- }
- /* move cursor to line 'line' */
- void edit_move_to_line (WEdit * e, long line)
- {
- if(line < e->curs_line)
- edit_move_up (e, e->curs_line - line, 0);
- else
- edit_move_down (e, line - e->curs_line, 0);
- edit_scroll_screen_over_cursor (e);
- }
- /* scroll window so that first visible line is 'line' */
- void edit_move_display (WEdit * e, long line)
- {
- if(line < e->start_line)
- edit_scroll_upward (e, e->start_line - line);
- else
- edit_scroll_downward (e, line - e->start_line);
- }
- /* save markers onto undo stack */
- void edit_push_markers (WEdit * edit)
- {
- edit_push_action (edit, MARK_1 + edit->mark1);
- edit_push_action (edit, MARK_2 + edit->mark2);
- }
- void edit_set_markers (WEdit * edit, long m1, long m2, int c1, int c2)
- {
- edit->mark1 = m1;
- edit->mark2 = m2;
- edit->column1 = c1;
- edit->column2 = c2;
- }
- /* highlight marker toggle */
- void edit_mark_cmd (WEdit * edit, int unmark)
- {
- edit_push_markers (edit);
- if (unmark) {
- edit_set_markers (edit, 0, 0, 0, 0);
- edit->force |= REDRAW_PAGE;
- } else {
- if (edit->mark2 >= 0) {
- edit_set_markers (edit, edit->curs1, -1, edit->curs_col+edit->over_col, edit->curs_col+edit->over_col);
- edit->force |= REDRAW_PAGE;
- } else
- edit_set_markers (edit, edit->mark1, edit->curs1, edit->column1, edit->curs_col+edit->over_col);
- }
- }
- static unsigned long
- my_type_of (int c)
- {
- int x, r = 0;
- const char *p, *q;
- const char option_chars_move_whole_word[] =
- "!=&|<>^~ !:;, !'!`!.?!\"!( !) !Aa0 !+-*/= |<> ![ !] !\\#! ";
- if (!c)
- return 0;
- if (c == '!') {
- if (*option_chars_move_whole_word == '!')
- return 2;
- return 0x80000000UL;
- }
- if (g_ascii_isupper ((gchar) c))
- c = 'A';
- else if (g_ascii_islower ((gchar) c))
- c = 'a';
- else if (g_ascii_isalpha (c))
- c = 'a';
- else if (isdigit (c))
- c = '0';
- else if (isspace (c))
- c = ' ';
- q = strchr (option_chars_move_whole_word, c);
- if (!q)
- return 0xFFFFFFFFUL;
- do {
- for (x = 1, p = option_chars_move_whole_word; p < q; p++)
- if (*p == '!')
- x <<= 1;
- r |= x;
- } while ((q = strchr (q + 1, c)));
- return r;
- }
- static void
- edit_left_word_move (WEdit *edit, int s)
- {
- for (;;) {
- int c1, c2;
- if (column_highlighting
- && edit->mark1 != edit->mark2
- && edit->over_col == 0
- && edit->curs1 == edit_bol(edit, edit->curs1))
- break;
- edit_cursor_move (edit, -1);
- if (!edit->curs1)
- break;
- c1 = edit_get_byte (edit, edit->curs1 - 1);
- c2 = edit_get_byte (edit, edit->curs1);
- if (!(my_type_of (c1) & my_type_of (c2)))
- break;
- if (isspace (c1) && !isspace (c2))
- break;
- if (s)
- if (!isspace (c1) && isspace (c2))
- break;
- }
- }
- static void edit_left_word_move_cmd (WEdit * edit)
- {
- edit_left_word_move (edit, 0);
- edit->force |= REDRAW_PAGE;
- }
- static void
- edit_right_word_move (WEdit *edit, int s)
- {
- for (;;) {
- int c1, c2;
- if (column_highlighting
- && edit->mark1 != edit->mark2
- && edit->over_col == 0
- && edit->curs1 == edit_eol(edit, edit->curs1)
- )
- break;
- edit_cursor_move (edit, 1);
- if (edit->curs1 >= edit->last_byte)
- break;
- c1 = edit_get_byte (edit, edit->curs1 - 1);
- c2 = edit_get_byte (edit, edit->curs1);
- if (!(my_type_of (c1) & my_type_of (c2)))
- break;
- if (isspace (c1) && !isspace (c2))
- break;
- if (s)
- if (!isspace (c1) && isspace (c2))
- break;
- }
- }
- static void edit_right_word_move_cmd (WEdit * edit)
- {
- edit_right_word_move (edit, 0);
- edit->force |= REDRAW_PAGE;
- }
- static void edit_right_char_move_cmd (WEdit * edit)
- {
- int cw = 1;
- int c = 0;
- if ( edit->utf8 ) {
- c = edit_get_utf (edit, edit->curs1, &cw);
- if ( cw < 1 )
- cw = 1;
- } else {
- c = edit_get_byte (edit, edit->curs1);
- }
- if (option_cursor_beyond_eol && c == '\n') {
- edit->over_col++;
- } else {
- edit_cursor_move (edit, cw);
- }
- }
- static void edit_left_char_move_cmd (WEdit * edit)
- {
- int cw = 1;
- if (column_highlighting
- && edit->mark1 != edit->mark2
- && edit->over_col == 0
- && edit->curs1 == edit_bol(edit, edit->curs1))
- return;
- if ( edit->utf8 ) {
- edit_get_prev_utf (edit, edit->curs1, &cw);
- if ( cw < 1 )
- cw = 1;
- }
- if (option_cursor_beyond_eol && edit->over_col > 0) {
- edit->over_col--;
- } else {
- edit_cursor_move (edit, -cw);
- }
- }
- /** Up or down cursor moving.
- direction = TRUE - move up
- = FALSE - move down
- */
- static void
- edit_move_updown (WEdit * edit, unsigned long i, int scroll, gboolean direction) {
- unsigned long p;
- unsigned long l = (direction)
- ? edit->curs_line
- : edit->total_lines - edit->curs_line;
- if (i > l)
- i = l;
- if (i == 0)
- return;
- if (i > 1)
- edit->force |= REDRAW_PAGE;
- if (scroll) {
- if (direction)
- edit_scroll_upward (edit, i);
- else
- edit_scroll_downward (edit, i);
- }
- p = edit_bol (edit, edit->curs1);
- p = (direction)
- ? edit_move_backward (edit, p, i)
- : edit_move_forward (edit, p, i, 0);
- edit_cursor_move (edit, p - edit->curs1);
- edit_move_to_prev_col (edit, p);
- /* search start of current multibyte char (like CJK) */
- edit_right_char_move_cmd (edit);
- edit_left_char_move_cmd (edit);
- edit->search_start = edit->curs1;
- edit->found_len = 0;
- }
- static void edit_right_delete_word (WEdit * edit)
- {
- int c1, c2;
- for (;;) {
- if (edit->curs1 >= edit->last_byte)
- break;
- c1 = edit_delete (edit, 1);
- c2 = edit_get_byte (edit, edit->curs1);
- if ((isspace (c1) == 0) != (isspace (c2) == 0))
- break;
- if (!(my_type_of (c1) & my_type_of (c2)))
- break;
- }
- }
- static void edit_left_delete_word (WEdit * edit)
- {
- int c1, c2;
- for (;;) {
- if (edit->curs1 <= 0)
- break;
- c1 = edit_backspace (edit, 1);
- c2 = edit_get_byte (edit, edit->curs1 - 1);
- if ((isspace (c1) == 0) != (isspace (c2) == 0))
- break;
- if (!(my_type_of (c1) & my_type_of (c2)))
- break;
- }
- }
- /*
- the start column position is not recorded, and hence does not
- undo as it happed. But who would notice.
- */
- static void
- edit_do_undo (WEdit * edit)
- {
- long ac;
- long count = 0;
- edit->stack_disable = 1; /* don't record undo's onto undo stack! */
- edit->over_col = 0;
- while ((ac = pop_action (edit)) < KEY_PRESS) {
- switch ((int) ac) {
- case STACK_BOTTOM:
- goto done_undo;
- case CURS_RIGHT:
- edit_cursor_move (edit, 1);
- break;
- case CURS_LEFT:
- edit_cursor_move (edit, -1);
- break;
- case BACKSPACE:
- edit_backspace (edit, 1);
- break;
- case DELCHAR:
- edit_delete (edit, 1);
- break;
- case COLUMN_ON:
- column_highlighting = 1;
- break;
- case COLUMN_OFF:
- column_highlighting = 0;
- break;
- }
- if (ac >= 256 && ac < 512)
- edit_insert_ahead (edit, ac - 256);
- if (ac >= 0 && ac < 256)
- edit_insert (edit, ac);
- if (ac >= MARK_1 - 2 && ac < MARK_2 - 2) {
- edit->mark1 = ac - MARK_1;
- edit->column1 = edit_move_forward3 (edit, edit_bol (edit, edit->mark1), 0, edit->mark1);
- } else if (ac >= MARK_2 - 2 && ac < KEY_PRESS) {
- edit->mark2 = ac - MARK_2;
- edit->column2 = edit_move_forward3 (edit, edit_bol (edit, edit->mark2), 0, edit->mark2);
- }
- if (count++)
- edit->force |= REDRAW_PAGE; /* more than one pop usually means something big */
- }
- if (edit->start_display > ac - KEY_PRESS) {
- edit->start_line -= edit_count_lines (edit, ac - KEY_PRESS, edit->start_display);
- edit->force |= REDRAW_PAGE;
- } else if (edit->start_display < ac - KEY_PRESS) {
- edit->start_line += edit_count_lines (edit, edit->start_display, ac - KEY_PRESS);
- edit->force |= REDRAW_PAGE;
- }
- edit->start_display = ac - KEY_PRESS; /* see push and pop above */
- edit_update_curs_row (edit);
- done_undo:;
- edit->stack_disable = 0;
- }
- static void edit_delete_to_line_end (WEdit * edit)
- {
- while (edit_get_byte (edit, edit->curs1) != '\n') {
- if (!edit->curs2)
- break;
- edit_delete (edit, 1);
- }
- }
- static void edit_delete_to_line_begin (WEdit * edit)
- {
- while (edit_get_byte (edit, edit->curs1 - 1) != '\n') {
- if (!edit->curs1)
- break;
- edit_backspace (edit, 1);
- }
- }
- void
- edit_delete_line (WEdit *edit)
- {
- /*
- * Delete right part of the line.
- * Note that edit_get_byte() returns '\n' when byte position is
- * beyond EOF.
- */
- while (edit_get_byte (edit, edit->curs1) != '\n') {
- (void) edit_delete (edit, 1);
- }
- /*
- * Delete '\n' char.
- * Note that edit_delete() will not corrupt anything if called while
- * cursor position is EOF.
- */
- (void) edit_delete (edit, 1);
- /*
- * Delete left part of the line.
- * Note, that edit_get_byte() returns '\n' when byte position is < 0.
- */
- while (edit_get_byte (edit, edit->curs1 - 1) != '\n') {
- (void) edit_backspace (edit, 1);
- }
- }
- void insert_spaces_tab (WEdit * edit, int half)
- {
- int i;
- edit_update_curs_col (edit);
- i = ((edit->curs_col / (option_tab_spacing * space_width / (half + 1))) + 1) * (option_tab_spacing * space_width / (half + 1)) - edit->curs_col;
- while (i > 0) {
- edit_insert (edit, ' ');
- i -= space_width;
- }
- }
- static int is_aligned_on_a_tab (WEdit * edit)
- {
- edit_update_curs_col (edit);
- return !((edit->curs_col % (TAB_SIZE * space_width))
- && edit->curs_col % (TAB_SIZE * space_width) != (HALF_TAB_SIZE * space_width));
- }
- static int right_of_four_spaces (WEdit *edit)
- {
- int i, ch = 0;
- for (i = 1; i <= HALF_TAB_SIZE; i++)
- ch |= edit_get_byte (edit, edit->curs1 - i);
- if (ch == ' ')
- return is_aligned_on_a_tab (edit);
- return 0;
- }
- static int left_of_four_spaces (WEdit *edit)
- {
- int i, ch = 0;
- for (i = 0; i < HALF_TAB_SIZE; i++)
- ch |= edit_get_byte (edit, edit->curs1 + i);
- if (ch == ' ')
- return is_aligned_on_a_tab (edit);
- return 0;
- }
- int edit_indent_width (WEdit * edit, long p)
- {
- long q = p;
- while (strchr ("\t ", edit_get_byte (edit, q)) && q < edit->last_byte - 1) /* move to the end of the leading whitespace of the line */
- q++;
- return edit_move_forward3 (edit, p, 0, q); /* count the number of columns of indentation */
- }
- void edit_insert_indent (WEdit * edit, int indent)
- {
- if (!option_fill_tabs_with_spaces) {
- while (indent >= TAB_SIZE) {
- edit_insert (edit, '\t');
- indent -= TAB_SIZE;
- }
- }
- while (indent-- > 0)
- edit_insert (edit, ' ');
- }
- static void
- edit_auto_indent (WEdit * edit)
- {
- long p;
- char c;
- p = edit->curs1;
- /* use the previous line as a template */
- p = edit_move_backward (edit, p, 1);
- /* copy the leading whitespace of the line */
- for (;;) { /* no range check - the line _is_ \n-terminated */
- c = edit_get_byte (edit, p++);
- if (c != ' ' && c != '\t')
- break;
- edit_insert (edit, c);
- }
- }
- static inline void
- edit_double_newline (WEdit * edit)
- {
- edit_insert (edit, '\n');
- if (edit_get_byte (edit, edit->curs1) == '\n')
- return;
- if (edit_get_byte (edit, edit->curs1 - 2) == '\n')
- return;
- edit->force |= REDRAW_PAGE;
- edit_insert (edit, '\n');
- }
- static inline void
- edit_tab_cmd (WEdit * edit)
- {
- int i;
- if (option_fake_half_tabs) {
- if (is_in_indent (edit)) {
- /*insert a half tab (usually four spaces) unless there is a
- half tab already behind, then delete it and insert a
- full tab. */
- if (!option_fill_tabs_with_spaces && right_of_four_spaces (edit)) {
- for (i = 1; i <= HALF_TAB_SIZE; i++)
- edit_backspace (edit, 1);
- edit_insert (edit, '\t');
- } else {
- insert_spaces_tab (edit, 1);
- }
- return;
- }
- }
- if (option_fill_tabs_with_spaces) {
- insert_spaces_tab (edit, 0);
- } else {
- edit_insert (edit, '\t');
- }
- }
- static void check_and_wrap_line (WEdit * edit)
- {
- int curs, c;
- if (!option_typewriter_wrap)
- return;
- edit_update_curs_col (edit);
- if (edit->curs_col < option_word_wrap_line_length)
- return;
- curs = edit->curs1;
- for (;;) {
- curs--;
- c = edit_get_byte (edit, curs);
- if (c == '\n' || curs <= 0) {
- edit_insert (edit, '\n');
- return;
- }
- if (c == ' ' || c == '\t') {
- int current = edit->curs1;
- edit_cursor_move (edit, curs - edit->curs1 + 1);
- edit_insert (edit, '\n');
- edit_cursor_move (edit, current - edit->curs1 + 1);
- return;
- }
- }
- }
- static inline void edit_execute_macro (WEdit *edit, struct macro macro[], int n);
- void edit_push_key_press (WEdit * edit)
- {
- edit_push_action (edit, KEY_PRESS + edit->start_display);
- if (edit->mark2 == -1)
- edit_push_action (edit, MARK_1 + edit->mark1);
- }
- /* this find the matching bracket in either direction, and sets edit->bracket */
- static long edit_get_bracket (WEdit * edit, int in_screen, unsigned long furthest_bracket_search)
- {
- const char * const b = "{}{[][()(", *p;
- int i = 1, a, inc = -1, c, d, n = 0;
- unsigned long j = 0;
- long q;
- edit_update_curs_row (edit);
- c = edit_get_byte (edit, edit->curs1);
- p = strchr (b, c);
- /* no limit */
- if (!furthest_bracket_search)
- furthest_bracket_search--;
- /* not on a bracket at all */
- if (!p)
- return -1;
- /* the matching bracket */
- d = p[1];
- /* going left or right? */
- if (strchr ("{[(", c))
- inc = 1;
- for (q = edit->curs1 + inc;; q += inc) {
- /* out of buffer? */
- if (q >= edit->last_byte || q < 0)
- break;
- a = edit_get_byte (edit, q);
- /* don't want to eat CPU */
- if (j++ > furthest_bracket_search)
- break;
- /* out of screen? */
- if (in_screen) {
- if (q < edit->start_display)
- break;
- /* count lines if searching downward */
- if (inc > 0 && a == '\n')
- if (n++ >= edit->num_widget_lines - edit->curs_row) /* out of screen */
- break;
- }
- /* count bracket depth */
- i += (a == c) - (a == d);
- /* return if bracket depth is zero */
- if (!i)
- return q;
- }
- /* no match */
- return -1;
- }
- static long last_bracket = -1;
- void edit_find_bracket (WEdit * edit)
- {
- edit->bracket = edit_get_bracket (edit, 1, 10000);
- if (last_bracket != edit->bracket)
- edit->force |= REDRAW_PAGE;
- last_bracket = edit->bracket;
- }
- static inline void
- edit_goto_matching_bracket (WEdit *edit)
- {
- long q;
- q = edit_get_bracket (edit, 0, 0);
- if (q >= 0) {
- edit->bracket = edit->curs1;
- edit->force |= REDRAW_PAGE;
- edit_cursor_move (edit, q - edit->curs1);
- }
- }
- /*
- * This executes a command as though the user initiated it through a key
- * press. Callback with WIDGET_KEY as a message calls this after
- * translating the key press. This function can be used to pass any
- * command to the editor. Note that the screen wouldn't update
- * automatically. Either of command or char_for_insertion must be
- * passed as -1. Commands are executed, and char_for_insertion is
- * inserted at the cursor.
- */
- void
- edit_execute_key_command (WEdit *edit, unsigned long command, int char_for_insertion)
- {
- if (command == CK_Begin_Record_Macro) {
- edit->macro_i = 0;
- edit->force |= REDRAW_CHAR_ONLY | REDRAW_LINE;
- return;
- }
- if (command == CK_End_Record_Macro && edit->macro_i != -1) {
- edit->force |= REDRAW_COMPLETELY;
- edit_save_macro_cmd (edit, edit->macro, edit->macro_i);
- edit->macro_i = -1;
- return;
- }
- if (edit->macro_i >= 0 && edit->macro_i < MAX_MACRO_LENGTH - 1) {
- edit->macro[edit->macro_i].command = command;
- edit->macro[edit->macro_i++].ch = char_for_insertion;
- }
- /* record the beginning of a set of editing actions initiated by a key press */
- if (command != CK_Undo && command != CK_Ext_Mode)
- edit_push_key_press (edit);
- edit_execute_cmd (edit, command, char_for_insertion);
- if (column_highlighting)
- edit->force |= REDRAW_PAGE;
- }
- static const char * const shell_cmd[] = SHELL_COMMANDS_i;
- /*
- This executes a command at a lower level than macro recording.
- It also does not push a key_press onto the undo stack. This means
- that if it is called many times, a single undo command will undo
- all of them. It also does not check for the Undo command.
- */
- void
- edit_execute_cmd (WEdit *edit, unsigned long command, int char_for_insertion)
- {
- edit->force |= REDRAW_LINE;
- /* The next key press will unhighlight the found string, so update
- * the whole page */
- if (edit->found_len || column_highlighting)
- edit->force |= REDRAW_PAGE;
- if (command / 100 == 6) { /* a highlight command like shift-arrow */
- column_highlighting = 0;
- if (!edit->highlight
- || (edit->mark2 != -1 && edit->mark1 != edit->mark2)) {
- edit_mark_cmd (edit, 1); /* clear */
- edit_mark_cmd (edit, 0); /* marking on */
- }
- edit->highlight = 1;
- } else { /* any other command */
- if (edit->highlight)
- edit_mark_cmd (edit, 0); /* clear */
- edit->highlight = 0;
- }
- /* first check for undo */
- if (command == CK_Undo) {
- edit_do_undo (edit);
- edit->found_len = 0;
- edit->prev_col = edit_get_col (edit);
- edit->search_start = edit->curs1;
- return;
- }
- /* An ordinary key press */
- if (char_for_insertion >= 0) {
- if (edit->overwrite) {
- if (edit_get_byte (edit, edit->curs1) != '\n')
- edit_delete (edit, 0);
- }
- if ( option_cursor_beyond_eol && edit->over_col > 0 )
- edit_insert_over (edit);
- #ifdef HAVE_CHARSET
- if ( char_for_insertion > 255 && utf8_display == 0 ) {
- unsigned char str[6 + 1];
- size_t i = 0;
- int res = g_unichar_to_utf8 (char_for_insertion, (char *)str);
- if ( res == 0 ) {
- str[0] = '.';
- str[1] = '\0';
- } else {
- str[res] = '\0';
- }
- while ( str[i] != 0 && i<=6) {
- char_for_insertion = str[i];
- edit_insert (edit, char_for_insertion);
- i++;
- }
- } else
- #endif
- edit_insert (edit, char_for_insertion);
- if (option_auto_para_formatting) {
- format_paragraph (edit, 0);
- edit->force |= REDRAW_PAGE;
- } else
- check_and_wrap_line (edit);
- edit->found_len = 0;
- edit->prev_col = edit_get_col (edit);
- edit->search_start = edit->curs1;
- edit_find_bracket (edit);
- return;
- }
- switch (command) {
- case CK_Begin_Page:
- case CK_End_Page:
- case CK_Begin_Page_Highlight:
- case CK_End_Page_Highlight:
- case CK_Word_Left:
- case CK_Word_Right:
- case CK_Up:
- case CK_Down:
- case CK_Left:
- case CK_Right:
- if ( edit->mark2 >= 0 ) {
- if ( !option_persistent_selections ) {
- if (column_highlighting)
- edit_push_action (edit, COLUMN_ON);
- column_highlighting = 0;
- edit_mark_cmd (edit, 1);
- }
- }
- }
- switch (command) {
- case CK_Begin_Page:
- case CK_End_Page:
- case CK_Begin_Page_Highlight:
- case CK_End_Page_Highlight:
- case CK_Word_Left:
- case CK_Word_Right:
- case CK_Up:
- case CK_Down:
- case CK_Word_Left_Highlight:
- case CK_Word_Right_Highlight:
- case CK_Up_Highlight:
- case CK_Down_Highlight:
- case CK_Up_Alt_Highlight:
- case CK_Down_Alt_Highlight:
- if (edit->mark2 == -1)
- break; /*marking is following the cursor: may need to highlight a whole line */
- case CK_Left:
- case CK_Right:
- case CK_Left_Highlight:
- case CK_Right_Highlight:
- edit->force |= REDRAW_CHAR_ONLY;
- }
- /* basic cursor key commands */
- switch (command) {
- case CK_BackSpace:
- /* if non persistent selection and text selected */
- if ( !option_persistent_selections ) {
- if ( edit->mark1 != edit->mark2 ) {
- edit_block_delete_cmd (edit);
- break;
- }
- }
- if ( option_cursor_beyond_eol && edit->over_col > 0 ) {
- edit->over_col--;
- break;
- }
- if (option_backspace_through_tabs && is_in_indent (edit)) {
- while (edit_get_byte (edit, edit->curs1 - 1) != '\n'
- && edit->curs1 > 0)
- edit_backspace (edit, 1);
- break;
- } else {
- if (option_fake_half_tabs) {
- int i;
- if (is_in_indent (edit) && right_of_four_spaces (edit)) {
- for (i = 0; i < HALF_TAB_SIZE; i++)
- edit_backspace (edit, 1);
- break;
- }
- }
- }
- edit_backspace (edit, 0);
- break;
- case CK_Delete:
- /* if non persistent selection and text selected */
- if ( !option_persistent_selections ) {
- if ( edit->mark1 != edit->mark2 ) {
- edit_block_delete_cmd (edit);
- break;
- }
- }
- if ( option_cursor_beyond_eol && edit->over_col > 0 )
- edit_insert_over (edit);
- if (option_fake_half_tabs) {
- int i;
- if (is_in_indent (edit) && left_of_four_spaces (edit)) {
- for (i = 1; i <= HALF_TAB_SIZE; i++)
- edit_delete (edit, 1);
- break;
- }
- }
- edit_delete (edit, 0);
- break;
- case CK_Delete_Word_Left:
- edit->over_col = 0;
- edit_left_delete_word (edit);
- break;
- case CK_Delete_Word_Right:
- if ( option_cursor_beyond_eol && edit->over_col > 0 )
- edit_insert_over (edit);
- edit_right_delete_word (edit);
- break;
- case CK_Delete_Line:
- edit_delete_line (edit);
- break;
- case CK_Delete_To_Line_End:
- edit_delete_to_line_end (edit);
- break;
- case CK_Delete_To_Line_Begin:
- edit_delete_to_line_begin (edit);
- break;
- case CK_Enter:
- edit->over_col = 0;
- if (option_auto_para_formatting) {
- edit_double_newline (edit);
- if (option_return_does_auto_indent)
- edit_auto_indent (edit);
- format_paragraph (edit, 0);
- } else {
- edit_insert (edit, '\n');
- if (option_return_does_auto_indent) {
- edit_auto_indent (edit);
- }
- }
- break;
- case CK_Return:
- edit_insert (edit, '\n');
- break;
- case CK_Page_Up_Alt_Highlight:
- column_highlighting = 1;
- case CK_Page_Up:
- case CK_Page_Up_Highlight:
- edit_move_up (edit, edit->num_widget_lines - 1, 1);
- break;
- case CK_Page_Down_Alt_Highlight:
- column_highlighting = 1;
- case CK_Page_Down:
- case CK_Page_Down_Highlight:
- edit_move_down (edit, edit->num_widget_lines - 1, 1);
- break;
- case CK_Left_Alt_Highlight:
- column_highlighting = 1;
- case CK_Left:
- case CK_Left_Highlight:
- if (option_fake_half_tabs) {
- if (is_in_indent (edit) && right_of_four_spaces (edit)) {
- if ( option_cursor_beyond_eol && edit->over_col > 0)
- edit->over_col--;
- else
- edit_cursor_move (edit, -HALF_TAB_SIZE);
- edit->force &= (0xFFF - REDRAW_CHAR_ONLY);
- break;
- }
- }
- edit_left_char_move_cmd (edit);
- break;
- case CK_Right_Alt_Highlight:
- column_highlighting = 1;
- case CK_Right:
- case CK_Right_Highlight:
- if (option_fake_half_tabs) {
- if (is_in_indent (edit) && left_of_four_spaces (edit)) {
- edit_cursor_move (edit, HALF_TAB_SIZE);
- edit->force &= (0xFFF - REDRAW_CHAR_ONLY);
- break;
- }
- }
- edit_right_char_move_cmd (edit);
- break;
- case CK_Begin_Page:
- case CK_Begin_Page_Highlight:
- edit_begin_page (edit);
- break;
- case CK_End_Page:
- case CK_End_Page_Highlight:
- edit_end_page (edit);
- break;
- case CK_Word_Left:
- case CK_Word_Left_Highlight:
- edit->over_col = 0;
- edit_left_word_move_cmd (edit);
- break;
- case CK_Word_Right:
- case CK_Word_Right_Highlight:
- edit->over_col = 0;
- edit_right_word_move_cmd (edit);
- break;
- case CK_Up_Alt_Highlight:
- column_highlighting = 1;
- case CK_Up:
- case CK_Up_Highlight:
- edit_move_up (edit, 1, 0);
- break;
- case CK_Down_Alt_Highlight:
- column_highlighting = 1;
- case CK_Down:
- case CK_Down_Highlight:
- edit_move_down (edit, 1, 0);
- break;
- case CK_Paragraph_Up_Alt_Highlight:
- column_highlighting = 1;
- case CK_Paragraph_Up:
- case CK_Paragraph_Up_Highlight:
- edit_move_up_paragraph (edit, 0);
- break;
- case CK_Paragraph_Down_Alt_Highlight:
- column_highlighting = 1;
- case CK_Paragraph_Down:
- case CK_Paragraph_Down_Highlight:
- edit_move_down_paragraph (edit, 0);
- break;
- case CK_Scroll_Up_Alt_Highlight:
- column_highlighting = 1;
- case CK_Scroll_Up:
- case CK_Scroll_Up_Highlight:
- edit_move_up (edit, 1, 1);
- break;
- case CK_Scroll_Down_Alt_Highlight:
- column_highlighting = 1;
- case CK_Scroll_Down:
- case CK_Scroll_Down_Highlight:
- edit_move_down (edit, 1, 1);
- break;
- case CK_Home:
- case CK_Home_Highlight:
- edit_cursor_to_bol (edit);
- break;
- case CK_End:
- case CK_End_Highlight:
- edit_cursor_to_eol (edit);
- break;
- case CK_Tab:
- /* if text marked shift block */
- if ( edit->mark1 != edit->mark2 && !option_persistent_selections ) {
- if (edit->mark2 < 0)
- edit_mark_cmd (edit, 0);
- edit_move_block_to_right (edit);
- } else {
- if ( option_cursor_beyond_eol )
- edit_insert_over (edit);
- edit_tab_cmd (edit);
- if (option_auto_para_formatting) {
- format_paragraph (edit, 0);
- edit->force |= REDRAW_PAGE;
- } else {
- check_and_wrap_line (edit);
- }
- }
- break;
- case CK_Toggle_Insert:
- edit->overwrite = (edit->overwrite == 0);
- break;
- case CK_Mark:
- if (edit->mark2 >= 0) {
- if (column_highlighting)
- edit_push_action (edit, COLUMN_ON);
- column_highlighting = 0;
- }
- edit_mark_cmd (edit, 0);
- break;
- case CK_Column_Mark:
- if (!column_highlighting)
- edit_push_action (edit, COLUMN_OFF);
- column_highlighting = 1;
- edit_mark_cmd (edit, 0);
- break;
- case CK_Unmark:
- if (column_highlighting)
- edit_push_action (edit, COLUMN_ON);
- column_highlighting = 0;
- edit_mark_cmd (edit, 1);
- break;
- case CK_Toggle_Line_State:
- option_line_state = !option_line_state;
- if ( option_line_state ) {
- option_line_state_width = LINE_STATE_WIDTH;
- } else {
- option_line_state_width = 0;
- }
- edit->force |= REDRAW_PAGE;
- break;
- case CK_Toggle_Bookmark:
- book_mark_clear (edit, edit->curs_line, BOOK_MARK_FOUND_COLOR);
- if (book_mark_query_color (edit, edit->curs_line, BOOK_MARK_COLOR))
- book_mark_clear (edit, edit->curs_line, BOOK_MARK_COLOR);
- else
- book_mark_insert (edit, edit->curs_line, BOOK_MARK_COLOR);
- break;
- case CK_Flush_Bookmarks:
- book_mark_flush (edit, BOOK_MARK_COLOR);
- book_mark_flush (edit, BOOK_MARK_FOUND_COLOR);
- edit->force |= REDRAW_PAGE;
- break;
- case CK_Next_Bookmark:
- if (edit->book_mark) {
- struct _book_mark *p;
- p = (struct _book_mark *) book_mark_find (edit,
- edit->curs_line);
- if (p->next) {
- p = p->next;
- if (p->line >= edit->start_line + edit->num_widget_lines
- || p->line < edit->start_line)
- edit_move_display (edit,
- p->line -
- edit->num_widget_lines / 2);
- edit_move_to_line (edit, p->line);
- }
- }
- break;
- case CK_Prev_Bookmark:
- if (edit->book_mark) {
- struct _book_mark *p;
- p = (struct _book_mark *) book_mark_find (edit,
- edit->curs_line);
- while (p->line == edit->curs_line)
- if (p->prev)
- p = p->prev;
- if (p->line >= 0) {
- if (p->line >= edit->start_line + edit->num_widget_lines
- || p->line < edit->start_line)
- edit_move_display (edit,
- p->line -
- edit->num_widget_lines / 2);
- edit_move_to_line (edit, p->line);
- }
- }
- break;
- case CK_Beginning_Of_Text:
- case CK_Beginning_Of_Text_Highlight:
- edit_move_to_top (edit);
- break;
- case CK_End_Of_Text:
- case CK_End_Of_Text_Highlight:
- edit_move_to_bottom (edit);
- break;
- case CK_Copy:
- if ( option_cursor_beyond_eol && edit->over_col > 0 )
- edit_insert_over (edit);
- edit_block_copy_cmd (edit);
- break;
- case CK_Remove:
- edit_block_delete_cmd (edit);
- break;
- case CK_Move:
- if ( option_cursor_beyond_eol && edit->over_col > 0 )
- edit_insert_over (edit);
- edit_block_move_cmd (edit);
- break;
- case CK_Shift_Block_Left:
- if (edit->mark1 != edit->mark2)
- edit_move_block_to_left (edit);
- break;
- case CK_Shift_Block_Right:
- if (edit->mark1 != edit->mark2)
- edit_move_block_to_right (edit);
- break;
- case CK_XStore:
- edit_copy_to_X_buf_cmd (edit);
- break;
- case CK_XCut:
- edit_cut_to_X_buf_cmd (edit);
- break;
- case CK_XPaste:
- if ( option_cursor_beyond_eol && edit->over_col > 0 )
- edit_insert_over (edit);
- edit_paste_from_X_buf_cmd (edit);
- break;
- case CK_Selection_History:
- edit_paste_from_history (edit);
- break;
- case CK_Save_As:
- edit_save_as_cmd (edit);
- break;
- case CK_Save:
- edit_save_confirm_cmd (edit);
- break;
- case CK_Load:
- edit_load_cmd (edit, EDIT_FILE_COMMON);
- break;
- case CK_Save_Block:
- edit_save_block_cmd (edit);
- break;
- case CK_Insert_File:
- edit_insert_file_cmd (edit);
- break;
- case CK_Load_Prev_File:
- edit_load_back_cmd (edit);
- break;
- case CK_Load_Next_File:
- edit_load_forward_cmd (edit);
- break;
- case CK_Load_Syntax_File:
- edit_load_cmd (edit, EDIT_FILE_SYNTAX);
- break;
- case CK_Choose_Syntax:
- edit_syntax_dialog ();
- break;
- case CK_Load_Menu_File:
- edit_load_cmd (edit, EDIT_FILE_MENU);
- break;
- case CK_Toggle_Syntax:
- if ((option_syntax_highlighting ^= 1) == 1)
- edit_load_syntax (edit, NULL, option_syntax_type);
- edit->force |= REDRAW_PAGE;
- break;
- case CK_Toggle_Tab_TWS:
- enable_show_tabs_tws ^= 1;
- edit->force |= REDRAW_PAGE;
- break;
- case CK_Find:
- edit_search_cmd (edit, 0);
- break;
- case CK_Find_Again:
- edit_search_cmd (edit, 1);
- break;
- case CK_Replace:
- edit_replace_cmd (edit, 0);
- break;
- case CK_Replace_Again:
- edit_replace_cmd (edit, 1);
- break;
- case CK_Complete_Word:
- /* if text marked shift block */
- if ( edit->mark1 != edit->mark2 && !option_persistent_selections ) {
- edit_move_block_to_left (edit);
- } else {
- edit_complete_word_cmd (edit);
- }
- break;
- case CK_Find_Definition:
- edit_get_match_keyword_cmd (edit);
- break;
- case CK_Quit:
- dlg_stop (edit->widget.parent);
- break;
- case CK_New:
- edit_new_cmd (edit);
- break;
- case CK_Help:
- edit_help_cmd (edit);
- break;
- case CK_Refresh:
- edit_refresh_cmd (edit);
- break;
- case CK_SaveSetupCmd:
- save_setup_cmd ();
- break;
- case CK_About:
- query_dialog (_(" About "),
- _("\n Cooledit v3.11.5\n\n"
- " Copyright (C) 1996 the Free Software Foundation\n\n"
- " A user friendly text editor written\n"
- " for the Midnight Commander.\n"), D_NORMAL,
- 1, _("&OK"));
- break;
- case CK_LearnKeys:
- learn_keys ();
- break;
- case CK_Edit_Options:
- edit_options_dialog ();
- break;
- case CK_Edit_Save_Mode:
- menu_save_mode_cmd ();
- break;
- case CK_Date:
- {
- char s[BUF_MEDIUM];
- /* fool gcc to prevent a Y2K warning */
- char time_format[] = "_c";
- time_format[0] = '%';
- FMT_LOCALTIME_CURRENT(s, sizeof(s), time_format);
- edit_print_string (edit, s);
- edit->force |= REDRAW_PAGE;
- break;
- }
- break;
- case CK_Goto:
- edit_goto_cmd (edit);
- break;
- case CK_Paragraph_Format:
- format_paragraph (edit, 1);
- edit->force |= REDRAW_PAGE;
- break;
- case CK_Delete_Macro:
- edit_delete_macro_cmd (edit);
- break;
- case CK_Match_Bracket:
- edit_goto_matching_bracket (edit);
- break;
- case CK_User_Menu:
- user_menu (edit);
- break;
- case CK_Sort:
- edit_sort_cmd (edit);
- break;
- case CK_ExtCmd:
- edit_ext_cmd (edit);
- break;
- case CK_Mail:
- edit_mail_dialog (edit);
- break;
- case CK_Shell:
- view_other_cmd ();
- break;
- case CK_SelectCodepage:
- edit_select_codepage_cmd (edit);
- break;
- case CK_Insert_Literal:
- edit_insert_literal_cmd (edit);
- break;
- case CK_Execute_Macro:
- edit_execute_macro_cmd (edit);
- break;
- case CK_Begin_End_Macro:
- edit_begin_end_macro_cmd (edit);
- break;
- case CK_Ext_Mode:
- edit->extmod = 1;
- break;
- default:
- break;
- }
- /* CK_Pipe_Block */
- if ((command / 1000) == 1) /* a shell command */
- edit_block_process_cmd (edit, shell_cmd[command - 1000], 1);
- if (command > CK_Macro (0) && command <= CK_Last_Macro) { /* a macro command */
- struct macro m[MAX_MACRO_LENGTH];
- int nm;
- if (edit_load_macro_cmd (edit, m, &nm, command - 2000))
- edit_execute_macro (edit, m, nm);
- }
- /* keys which must set the col position, and the search vars */
- switch (command) {
- case CK_Find:
- case CK_Find_Again:
- case CK_Replace:
- case CK_Replace_Again:
- case CK_Complete_Word:
- edit->prev_col = edit_get_col (edit);
- break;
- case CK_Up:
- case CK_Up_Highlight:
- case CK_Up_Alt_Highlight:
- case CK_Down:
- case CK_Down_Highlight:
- case CK_Down_Alt_Highlight:
- case CK_Page_Up:
- case CK_Page_Up_Highlight:
- case CK_Page_Up_Alt_Highlight:
- case CK_Page_Down:
- case CK_Page_Down_Highlight:
- case CK_Page_Down_Alt_Highlight:
- case CK_Beginning_Of_Text:
- case CK_Beginning_Of_Text_Highlight:
- case CK_End_Of_Text:
- case CK_End_Of_Text_Highlight:
- case CK_Paragraph_Up:
- case CK_Paragraph_Up_Highlight:
- case CK_Paragraph_Up_Alt_Highlight:
- case CK_Paragraph_Down:
- case CK_Paragraph_Down_Highlight:
- case CK_Paragraph_Down_Alt_Highlight:
- case CK_Scroll_Up:
- case CK_Scroll_Up_Highlight:
- case CK_Scroll_Up_Alt_Highlight:
- case CK_Scroll_Down:
- case CK_Scroll_Down_Highlight:
- case CK_Scroll_Down_Alt_Highlight:
- edit->search_start = edit->curs1;
- edit->found_len = 0;
- break;
- default:
- edit->found_len = 0;
- edit->prev_col = edit_get_col (edit);
- edit->search_start = edit->curs1;
- }
- edit_find_bracket (edit);
- if (option_auto_para_formatting) {
- switch (command) {
- case CK_BackSpace:
- case CK_Delete:
- case CK_Delete_Word_Left:
- case CK_Delete_Word_Right:
- case CK_Delete_To_Line_End:
- case CK_Delete_To_Line_Begin:
- format_paragraph (edit, 0);
- edit->force |= REDRAW_PAGE;
- }
- }
- }
- static void
- edit_execute_macro (WEdit *edit, struct macro macro[], int n)
- {
- int i = 0;
- if (edit->macro_depth++ > 256) {
- edit_error_dialog (_("Error"), _("Macro recursion is too deep"));
- edit->macro_depth--;
- return;
- }
- edit->force |= REDRAW_PAGE;
- for (; i < n; i++) {
- edit_execute_cmd (edit, macro[i].command, macro[i].ch);
- }
- edit_update_screen (edit);
- edit->macro_depth--;
- }
- /* User edit menu, like user menu (F2) but only in editor. */
- static void
- user_menu (WEdit * edit)
- {
- char *block_file;
- int nomark;
- long start_mark, end_mark;
- struct stat status;
- block_file = concat_dir_and_file (home_dir, EDIT_BLOCK_FILE);
- nomark = eval_marks (edit, &start_mark, &end_mark);
- if (nomark == 0)
- edit_save_block (edit, block_file, start_mark, end_mark);
- /* run shell scripts from menu */
- user_menu_cmd (edit);
- if ((mc_stat (block_file, &status) == 0) && (status.st_size != 0)) {
- int rc = 0;
- FILE *fd;
- if (nomark == 0) {
- /* i.e. we have marked block */
- rc = edit_block_delete_cmd (edit);
- }
- if (rc == 0)
- edit_insert_file (edit, block_file);
- /* truncate block file */
- fd = fopen (block_file, "w");
- if (fd != NULL)
- fclose (fd);
- }
- edit_refresh_cmd (edit);
- edit->force |= REDRAW_COMPLETELY;
- g_free (block_file);
- }
- void
- edit_stack_init (void)
- {
- for (edit_stack_iterator = 0;
- edit_stack_iterator < MAX_HISTORY_MOVETO;
- edit_stack_iterator++ ) {
- edit_history_moveto[edit_stack_iterator].filename = NULL;
- edit_history_moveto[edit_stack_iterator].line = -1;
- }
- edit_stack_iterator = 0;
- }
- void
- edit_stack_free (void)
- {
- for (edit_stack_iterator = 0;
- edit_stack_iterator < MAX_HISTORY_MOVETO;
- edit_stack_iterator++)
- g_free (edit_history_moveto[edit_stack_iterator].filename);
- }
- /* move i lines */
- void edit_move_up (WEdit * edit, unsigned long i, int scroll)
- {
- edit_move_updown (edit, i, scroll, TRUE);
- }
- /* move i lines */
- void edit_move_down (WEdit * edit, unsigned long i, int scroll)
- {
- edit_move_updown (edit, i, scroll, FALSE);
- }
|