/* ------------ test for a blank line ---------------- */ static int blankline(int line) { char *cp; int x; cp = topptr + (line-1) * wwd; for(x=0; x < wwd; x++) if(*(cp+x) != ' ') break; return(x == wwd ); } /*------------ delete a word ------------------------ */ static void delete_word(int x, int y) { int wct = 0; char *cp1, *cp2; cp1= cp2= curr(x, y); if(*cp2 == ' ') while(*cp2 == ' ' && x+wct < wwd) { wct++; cp2++; } else { while(*cp2 != ' ' && x+wct < wwd) { wct++; cp2++; } while(*cp2 == ' ' && x+wct < wwd) { wct++; cp2++; } } movmem(cp2, cp1, wwd-x-wct); setmem(cp1+wwd-x-wct, wct, ' '); dispay_text(); - 2 - findlast(); } /*------------------ delete a line -----------------*/ static void delete_line(int y) { char *cp1, *cp2; int len; cp1=bfptr + y + wwd; cp2=cp1 + wwd; if(cp1 blkbeg-1 && lineno(y) <= blkend-1) { error_message("Can't move/copy a blok into itself"); return; } len=(blkend - blkbeg + 1) * wwd; if((hd=malloc(len)) == 0) return; cp1 = topptr + (blkbeg + 1) * wwd; movmem(cp1, hd, len); cp2 = topptr + lineno(y) * wwd; if (moving) { if(lineno(y) > blkbeg-1) cp2 -= len; do_display_text =0; delete_block(); do_display_text =1; } if(cp2+len <= endptr) { movemem(cp2, cp2 + len, endptr - cp2 - len); movemem(hd, cp2, len); } free(hd); blkbeg = blkend = 0 ; display_text(); } - 4 - /*------------ copy a block -----------------------*/ static void copy_block(int y) { mvblock(y, FALSE); findlast(); } /*------------------- move a block -----------------*/ static void move_block(int y) { mvblock(y, TRUE); } /*-------- find the last caracter in the buffer -------*/ static void findlast() { register char *lp = endptr - 1; register char *tp = topptr; while(lp > tp && (*lp == ' ' || *lp == '\0')) { if (*lp == '\0') *lp = ' '; --lp; } if(*lp != ' ') lp++; lstptr = lp; } /*------- go to end of the data in the buffer ---------*/ static void find_end(int *x, int *y) { int ct; bfptr = lstptr; - 5 - ct = (lstptr - topptr) % wsz; bfptr -= ct; if (bfptr + wsz > endptr) bfptr = endptr - wsz; *x = 0; *y = (ct / wwd); downward(y); } /*---------------------carriage return ----------------*/ static void carrtn(int *x, int *y, int insert) { int insct; char *cp, *nl; int ctl = 2; cp = curr(*x, *y); nl = cp + ((cp - topptr) % wwd); if (lineno(*y)+2 < lines) if (insert && nl < endptr) { insct = wwd - *x; while (ctl--) { if (endptr > cp + insct) { movemem(cp, cp+insct, endptr-insct-cp); setmem(cp, insct, ' '); } else if(ctl == 1) setmem(cp, endptr - cp, ' '); cp += insct * 2; insct= *x; } } *x = 0; downward(y); if (insert) { testpara(*x, *y); display_text(); - 6 - } if (lineno(*y)+2 < lines) if (insert) if ((lstptr + wwd) <= endptr) if(lstptr > curr(*x, *y)) lstptr += wwd; } /* ------- move the buffer offset back one position ------ */ static void backspase(int *x, int *y) { if (*x == 0) { *x = wwd - 1; upward(y); } else --(*x); } /* ------- move the buffer offset forward one word ------ */ static void fore_word(int *x, int *y, char *bf) { while (*bf != ' ') { if (spaceup(x, y, &bf) == 0) return; if (*x == 0) break; } while (*bf == ' ') if (spaceup(x, y, &bf) == 0) return; } static int spaceup(int *x, int *y, char **bf) { if (*bf == lstptr) return 0; (*bf)++; forward(x, y); - 7 - return 1; } /* ------- move the buffer offset backrward one word ------ */ static void back_word(int *x, int *y, char *bf) { spacedn(x, y, &bf); while (*bf == ' ') if (spacedn(x, y, &bf) == 0) return; while (*bf != ' ') { if (*x == 0) return; if (spacedn(x, y, &bf) == 0) return; } spaceup(x, y, &bf); return; } static int spacedn(int *x, int *y, char **bf) { if (*bf == topptr) return 0; --(*bf); backspace(x, y); return 1; } /* ------- move the buffer offset forward one position ------ */ static void backspace(int *x, int *y) { if (*x == 0) { *x = wwd - 1; upward(y); } else --(*x); } /* ---------------------------------------------------------------- */ - 8 - static void forward(int *x, int *y) { int ww = wwd; (*x)++; if (*x == ww) { downward(y); *x = 0; } } /* ------- move the buffer offset down one position ------ */ static int downward(int *y) { if (*y < wht - 1) { (*y)++; return 1; } else if ((bfptr + wsz) < endptr) { bfptr += wwd; scroll(wnd, UP); disp_line(wht-1); return 1; } return 0; } /* --------- move the buffer offset up one position ------ */ static void upward(int *y) { if (*y) /* !!!!!!!!!!! */ --(*y); else if ((topptr + wwd) <= bfptr) { bfptr -= wwd; scroll(wnd, DN); disp_line(0); } } /* ---- display all the lines in a window ------ */ - 9 - static void display_text() { int y = 0; if (do_display_text) while (y < wht) disp_line(y++); } /* ---------- Display a line -------- */ static void disp_line(int y) { int x = 0, atr = WNORMAL; if (blkbeg || blkend) if (lineno(y) >= blkbeg-1) if (lineno(y) <= blkend-1) atr = WACCENT; while (x < wwd) { displine(wnd, x+1, y+1, *(bfptr+y * wwd+x), atr); x++; } } /*--------- set insert /exchange cursor shape -----------*/ static void insert_line() { set_cursor_type(inserting ? 0x0106 : 0x0607); } Описание программы: editor.c ----------------------------------------------------------------- Программа editor.c содержит ряд операторов #define, которые управляют установкой позиции табуляции в окне редактора. Значение глобальной переменной ТАВ определено равным 4, что устанавливает - 10 - позицию табуляции в четыре любых символа. Остальные глобальные переменные - NEXTAB, LASTTAB и PREVTAB - являются макровыражениями, позволяющими улучшить удобочитаемость текста программы в целом. Макрос curr возвращает указатель на символ в буфере редактирования в зависимости от значения его координат в окне, задаваемых аргументами X и Y. Макрос lineno возвращает номер строки в буфере, который соответствует относительному номеру строки в окне редактора, задаваемого значением аргумента y. Некоторые переменные, объявленные как external, являются вычисляемыми и предназначены прежде всего для сокращения числа вычислительных операций в тексте программы, что делает листинг более удобочитаемым. Переменная wht принимает значение высоты максимально возможной области в окне, отводимой под текст; при вычислении значения wht делается коррекция на наличие символов рамки окна. Переменная wwd принимает значение ширины максимально возможной области, отводимой под текст, с учетом наличия символов рамки окна. Переменная wsz содержит размер области окна, отводимой под текст. Переменная lines содержит количество строк текста, которые могут быть сохранены в текстовом буфере. Параметр endptr является указателем на позицию последнего символа в буфере плюс единица. Значение lstptr - указатель на последний, отличный от пробела, символ, хранящийся в буфере. Значение topptr является указателем на первый символ, хранящийся в буфере. Указатель bfptr используется при листании текста постранично или скроллинга текста; он всегда указывает на символ в буфере текста, который в данный момент отображается в левом верхнем углу окна. Функция text_editor вызывается в случае, если пользователю понадобилось вводить или модифицировать текст в буфере. После инициализации функции происходит вычисление соответствующих значений переменных, и курсор устанавливается в начальную позицию с координатами (0,0). При вводе пользователем символов с клавиатуры автоматически осуществляется проверка ввода на наличие прерываний от функциональных клавиш и управляющих сигналов. При нажатии пользователем клавиши <ВВОД> автоматически вызывается - 11 - функция carrtn. Нажатие клавиши управления курсором <Стрелка вниз> приведет к вызову функции downward. Нажатие клавиш <Страница вверх> и <Страница вниз> приведут к вызову функций upward или downward соответственно для обработки отображенных в окне строк текста. Клавиши и ) вызовут изменение значения текущей координаты X курсора, переместив последний в следующую или предыдущую позицию табуляции. Клавиши приведут к вызову функций fore_word или back_word соответственно. приведет к изменению координаты у курсора, позиционировав его в нижней части экрана. позиционирует курсор в верхней части экрана, изменяя значение его координаты Y. приведет к перемещению курсора в точку с координатами (0,0) (изменив соответственно значения координатных аргументов курсора X и Y), переопределит значение bfptr на адрес начала буфера и вызовет функцию display_text для выдачи новой информации на экран из буфера. Клавиша <Курсор в начало экрана> () обнуляет координату курсора X. ) использует функцию find_end для поиска последнего символа в буфере и выдачи текста на экран. использует функцию find_end для позиционирования курсора (и изменения его координаты X) в конце текущей строки текста. вызовет функцию upward. Нажатие или сигнализирует о завершении ввода текста. и ) приводят к перемещению курсора на одну позицию влево, вызывая для этого функцию backspace. Клавиша <Забой> () в этом случае не генерирует в программе кода, соответствующего клавише , которая уничтожает символ в позиции курсора, обращаясь для этого к функции movmem. приводит к вызову delete_line. вызывает функцию delete _word. Клавиша переключает флаг inserting и вызывает функцию insert_line для изменения формы курсора. вызывает erase_buffer. вызывает paraform. Клавиши и устанавливают значения переменных blkbeg и blkend для текущей строки текста. Эти же клавиши приводят к обращению к функции display_text для отображения блока текста в инверсном режиме. Клавиши , и приводят к вызову функций move_ block, copy_block и delete_block соответственно. Клавиша обнуляет значения переменных blkbeg и blkend и - 12 - вызывает функцию display_text. Нажатие клавиши <Стрелка вправо> () приводит к вызову функции forward. Если вводимый пользователем символ отличается от рассмотренных выше и является одним из отображаемых символов кода ASCII, то он копируется в буфер. При этом вначале анализируется ситуация на переполнение буфера в результате ввода символа (ввод символа может привести впоследствии к выходу за пределы буфера точно так же, как и вставка символа в режиме ВСТАВКА может привести к потере последнего символа результата операции). Затем, если включен режим ВСТАВКА, текущая строка сдвигается на один символ вправо, после чего символ записывается в буфер. Если в результате добавления символа в буфер был внесен последний символ, то указатель lstptr соответственно корректируется, и текущая строка отображается на экране дисплея. Далее функция анализирует состояние "конец слова". Если последний символ строки отличен от пробела, то очередное слово считается завершенным. Функция сканирует буфер с начала до конца (от младшего адреса по возрастанию адресов) до тех пор, пока не достигнет конца буфера или не обнаружит двух следующих подряд пробелов. Затем она сдвигает текст на одну позицию вправо, начиная со следующей строки относительно строки текста, в которой обнаружен факт завершения слова. Таким образом, эта процедура создает промежуток между завершенным (законченным) словом и текстом следующей строки. Функция lastword вызывается для анализа нового символа, если он является символом, вводимым в последнее слово, или если факт завершения очередного слова явился результатом вставки в предыдущее слово строки. Эта проверка осуществляется программой в случае изменения местоположения курсора после обнаружения конца слова. Результат такой проверки запоминается в переменной svlw. Координата X принимает значение конца строки текста. Если символ, предшествующий последнему символу, отличен от пробела, то для позиционирования курсора в начале следующего слова (и изменения координаты X) используется функция back_word. Функция carrtn вызывается для логической вставки новой строки в текущей X-позиции. (На самом деле физической вставки строки непосредственно в буфер не происходит в силу того, что буфер представляет собой обычный двумерный массив прямоугольной формы. - 13 - Поэтому осуществляется лишь сдвиг текста и освобождение внутри него пространства). Курсор позиционируется на символе, следующим за символом, непосредственно добавленным в буфер. Функция forward вызывается, не обращая внимания даже на факт окончания слова, для коррекции координаты X. Функция erase_buffer открывает окно и запрашивает у пользователя разрешение на выполнение команды очистки (erase). По соглашению пользователя функция очищает буфер и переопределяет значения всех переменных и указателей. Функция lastword проводит анализ координаты X расположения курсора в последнем слове строки, определяемой координатой Y. Функция last_char переопределяет координату Y расположения курсора, присваивая ей значение на единицу больше, чем позиция расположения последнего отображаемого символа в строке. Функция test_para вызывается в случае необходимости переформатирования параграфа для проверки возможности его выполнения. Переключатель клавиатуры должен находиться в выключенном состоянии (off), и число завершающих пробелов текущей строки текста должно быть больше длины первого слова следующей строки текста. Если это условие выполняется, функция test_para вызывает функцию paraform, которая позволяет переформатировать параграф. Функция trailing_spaces осуществляет подсчет завершающих пробелов строки текста. Функция first_woldlen подсчитывает длину первого слова следующей строки текста. Функция paraform осуществляет переформатирование параграфа, если, естественно, предварительно параграф был отделен от остального текста двумя пустыми строками. Функция paraform вызывается в результате нажатия пользователем клавиши или в - 14 - результате работы функции test_para, осуществляющей автоматическое принятие решения о возможности переформатирования параграфа. Во всех этих случаях, если предварительно переменные blkbeg и blkend не получили соответствующих значений для блока текста, включающего текущий параграф, функция устанавливает соответствующие значения этих переменных. Значение переменной blkbeg устанавливается равным текущей строке текста. Функция просматривает текст вперед, начиная с текущей строки, на предмет наличия двух пустых строк (строк, целиком состоящих из пробелов) или достижения конца буфера, устанавливая при этом значение переменной blkend. Переформатирование параграфа функция начинает со сканирования текста после предшествующих параграфу лидирующих пробелов. Если она обнаружила непустое слово, то сразу же начинается процесс копирования этого слова в начало буфера. Если обнаружен пробел, то функция логически уничтожает этот пробел. В процессе копирования слова функция анализирует ситуацию на предмет завершения строки текста, затем возвращается в начало копируемого слова, вставляет пробелы в буфер и продолжает работу далее. В связи с этим возможно логическое сжатие области, занимаемой группой слов, путем удаления избыточных пробелов. В результате работы функции могут быть образованы одна или более пустых строк, для удаления которых используется функция delete_block. Функция blank_line используется в том случае, если специфицированная строка целиком состоит из пробелов для анализа строки. Функция delete_word уничтожает слово в буфере. Если текущее значение координаты месторасположения курсора X соответствует пробелу, то функция уничтожает пробел, предшествующий следующему слову; таким образом, функция уничтожает слово, начиная с позиции, специфицированной кординатой X, но после пробела, стоящего за предшествующим словом, до начала следующего слова. - 15 - Функция delete_line уничтожает строку текста с последующим сдвигом всего текста. Вначале функция вычисляет адрес первого символа текущей и следующей строки. Затем функция определяет объем текста, который должен быть сдвинут, как расстояние от следующей (за уничтоженной) строки до конца буфера текста. После перечисленных действий осуществляется сдвижка текста, и переменная lstptr принимает новое значение. Буфер заполняется до конца избыточными пробелами. Функция delete_block реботает точно так же, как и функция delete_line, однако оперирует с блоком текста, который содержит более одной строки текста. Функция mvblock используется для перемещения и копирования блока текста. Вначале происходит размещение в памяти буфера для хранения текста, и блок текста помещается в этот буфер. Если операция перемещения блока текста предпочтительнее, чем его копирование, то вызывается функция уничтожения блока текста delete_block() в буфере редактора. Текст в буфере редактора смещается вправо, начиная с текущей строки, освобождая место для блока текста, который будет перемещен сюда или скопирован на это место. Текст из промежуточного буфера перемещается на освобожденное после сдвижки текста пространство. Промежуточный буфер удаляется из памяти и восстанавливается изображение окна после обращения к функции display_text. Функции copy_block и move_block вызываются для копирования и перемещения блока текста соответственно. Эти функции используют mvblock для выполнения возложенных на них операций. Функция findlast организует поиск последнего значащего символа в буфере и устанавливает указатель lstptr на следующую за ним позицию. Функция carrtn отслеживает ситуацию возврата каретки при окончании строки текста внутри буфера редактора вслед за - 16 - движением курсора пользователя. Она вычисляет адрес первого символа следующей строки текста по текущей позиции символа, в которой позиционирован курсор. Если включен режим "Вставка символа", функция должна обеспечить "раздвигание" строки текста, которое достигается смещением текста, находящегося в буфере редактора, вправо, начиная с позиции, в которой расположен курсор, к концу текущей строки и заполнения образовавшихся пустот избыточными пробелами. Новая строка подвергается точно такому же сдвигу и заполнению пробелами до минимальной ее длины после операции вставки. Функция downward используется для отслеживания изменения координат следующей (возможно, новой) строки текста и, если включен режим "Вставка", для переопределения значения указателя lstptr. Большинство функций, к которым осуществляется обращение, используют прямо или косвенно координаты позиции расположения курсора. Такими функциями являются find_end, backspace, fore_word, spaceup, back_word, spacedn, forward, downward и upward. Пример: Использование редактора ----------------------------------------------------------------- Листинги 9.2, 9.3 и 9.4 демонстрируют пример использования оконного редактора текстов в диалоговой программе. Листинг 9.2 содержит текст программы note.c, которая является главной функцией, обращающейся к функции notepad.c, исходный текст которой приведен в листинге 9.3. Функция notepad.c выделена в отдельный файл в связи с тем, что она используется в примерах меню (Глава 10) и при описании резидентных утилит (Глава 12). Листинг 9.4 содержит пример make-файла Турбо Си, в - 17 - соответствии с которым строится пример использования оконного редактора. Функция notepad.c обрабатывает файл, имя которого определено в массиве, описанном как external. В данном примере этот массив определен в note.c, и имя файла указано как note.pad. Если такой файл уже существует на момент запуска примера, то notepad.c считывает его в буфер редактора. Notepad.c устанавливает окно, заключает его в рамку, присваивает окну название, назначает цвета для окна и отображает его на экране дисплея. Затем notepad.c вызывает функцию оконного редактора text_editor. По завершении работы функции text_editor notepad.c уничтожает окно и сохраняет строки текста в буфере, в который был записан последний нужный текст. Затем notepad.c записывает содержимое буфера в файл (note.pad). Листинг 9.2. note.c /* ------ note.c ---------*/ #include "twindow.h" void notepad(void); char notefile [] = "note.pad"; main() { load_help("tcprogs.hlp"); notepad(); } Листинг 9.3: notepad.c - 18 - /* ----------------- notepad.c -----------------*/ #include #include #include "twindow.h" #define LWID 60 #define WHT 10 #define PADHT 20 char bf [PADHT] [LWID]; extern char notefile[]; void notepad() { WINDOW *wnd; FILE *fp, *fopen(); int i, ctr = 0; set_help("notepad ",0,0); setmem(bf, sizeof bf, ' '); if ((fp = fopen(notefile, "rt")) != NULL) { while (fread(bf [ctr], LWID, 1, fp)) ctr++; fclose(fp); } wnd = establish_window ((80-(LWID+2))/2, (25-(WHT+2))/2, WHT+2, LWID+2); set_border(wnd, 3); set_title(wnd, " Note Pad "); set_colors(wnd, ALL, BLUE, AQUA, BRIGHT); set_colors(wnd, ACCENT, WHITE, BLACK, DIM); display_window(wnd); text_editor(wnd, bf[0], (unsigned) LWID * PADHT); delete_window(wnd); ctr = PADHT; - 19 - while (--ctr) { for (i = 0; i < LWID; i++) if( bf [ctr] [i] != ' ') break; if (i < LWID) break; } fp = fopen(notefile, "w"); for (i = 0; i < ctr+1; i++) fwrite(bf[i], LWID, 1, fp); fclose(fp); } Листинг 9.4 note.prj note notepad(twindow.h) editor(twindow.h, keys.h) thelp(twindow.h, keys.h) twindow(twindow.h, keys.h) ibmpc.obj Для выполнения примера введите команду C > note После трансляции и редактирования ваших программ вы увидите на экране дисплея копию рисунка 9.2. При первом запуске примера файл note.pad будет пустым. После того, как вы введете с помощью редактора какую-либо информацию, при выходе из редактора по клавише или данные будут запомнены в файле note.pad для дальнейшего использования. Естественно, что если вы запомнили текст, то при следующем выполнении программы он будет вам - 20 - отображаться в окне редактора. +---------------------------------------------------------------+ | | | | | | | | | | | +---------------- Note Pad --------------+ | | |The window notepad can be used to record | | | |random thoughts, appointments, reminders,| | | |and daily activities._ | | | | | | | | | | | | | | | +-----------------------------------------+ | | | | | | | | | | | | | +---------------------------------------------------------------+ Рис. 9.2 Пример использования редактора. При вводе текста и его дальнейшей обработке используйте перечень команд, отображенный на рисунке 9.1. Нажав клавишу , вы можете получить перечень этих команд на экране своего дисплея. Резюме ----------------------------------------------------------------- Итак, мы рассмотрели еще одну дополнительную возможность, - 21 - которая может быть добавлена в список библиотеки поддержки оконной технологии. Таким образом, изученное вами на настоящий момент программное обеспечение может использоваться как функциональное средство поддержки специализированных задач, ориентированных на использование оконной технологии. Программное обеспечение позволяет организовать диалоговую help-поддержку, шаблоны ввода данных, а также использовать оконный текстовый редактор. Следующей дополнительной возможностью, которая может вами с успехом применяться, является иерархическая система меню, используемых в окне. Эта система меню включает в себя скользящее меню-строку и систему появляющихся меню типа "pop-down" (этот тип меню еще называют "всплывающим", так как его появление на экране очень напоминает эффект всплытия из "глубины" дисплея) для выбора и выполнения различных функций прикладной программой, в которой система меню используется.