Subversion Repositories Kolibri OS

Rev

Rev 2855 | Rev 3366 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1464 IgorA 1
struct FileInfoBlock
2
	Function dd ?
3
	Position dd ?
4
	Flags	 dd ?
5
	Count	 dd ?
6
	Buffer	 dd ?
7
		db ?
8
	FileName dd ?
1457 IgorA 9
ends
10
 
11
struct symbol
2125 IgorA 12
	c db ?    ; +0 символ
13
	col db ?  ; +1 цвет
14
	perv dd ? ; +2
15
	next dd ? ; +6 указатели
16
	tc dd ?   ;+10 врем. создания
17
	td dd ?   ;+14 врем. удаления
1457 IgorA 18
ends
19
 
20
sc system_colors
21
 
22
bmp_icon dd 0
1464 IgorA 23
run_file_70 FileInfoBlock
1457 IgorA 24
 
25
 
26
;input:
27
; al = код ошибки
1456 IgorA 28
align 4
1457 IgorA 29
ted_on_init_synt_err:
2855 IgorA 30
	mov byte[msgbox_3.err],'0'
31
	add byte[msgbox_3.err],al
1457 IgorA 32
	stdcall [mb_create],msgbox_3,thread ;message: Can-t open color options file!
33
	ret
34
 
35
 
36
align 4
37
ted_but_new_file:
38
  push eax ebx
39
  stdcall [ted_can_save], tedit0
1338 IgorA 40
  cmp al,1
41
  jne @f
1456 IgorA 42
    stdcall [mb_create],msgbox_2,thread ;message: save changes in file?
1338 IgorA 43
    ;mov eax,5
44
    ;mov ebx,50
45
    ;int 0x40
1456 IgorA 46
    stdcall [mb_setfunctions],msgbox_2_funct
1338 IgorA 47
    jmp .ret_f
48
  @@:
49
  call On_NewFile
50
  .ret_f:
51
  pop ebx eax
52
  ret
53
 
1456 IgorA 54
align 4
1338 IgorA 55
On_NewFile:
1457 IgorA 56
  stdcall [ted_clear], tedit0,1
1338 IgorA 57
  call draw_but_toolbar
1457 IgorA 58
  stdcall [ted_draw], tedit0
1338 IgorA 59
  ret
60
 
1456 IgorA 61
align 4
1338 IgorA 62
On_SaveAndNewFile:
1456 IgorA 63
  push edi
64
  mov edi, tedit0
65
 
1457 IgorA 66
  stdcall [ted_but_save_file],edi,run_file_70,[edit1.text]
1456 IgorA 67
  cmp ted_err_save,0
1338 IgorA 68
  jne @f
69
    call On_NewFile
70
  @@:
1456 IgorA 71
  pop edi
1338 IgorA 72
  ret
73
 
1457 IgorA 74
;description:
2102 IgorA 75
; функция открытия файла без окна сообщения
1456 IgorA 76
align 4
1457 IgorA 77
but_no_msg_OpenFile:
78
	push eax ebx
79
	stdcall [ted_open_file], tedit0,run_file_70,[edit1.text]
80
	call ted_messages_after_open_file
81
	pop ebx eax
82
	ret
1456 IgorA 83
 
1457 IgorA 84
;description:
85
; функция открытия файла с возможным окном сообщения (о возможности отменить открытие)
1456 IgorA 86
align 4
1457 IgorA 87
ted_but_open_file:
1467 IgorA 88
	pushad
89
 
1457 IgorA 90
	stdcall [ted_can_save], tedit0
91
	cmp al,1
92
	jne @f
93
		stdcall [mb_create],msgbox_5,thread ;message: save changes in file?
94
		stdcall [mb_setfunctions],msgbox_5_funct
95
		jmp .ret_f
96
	@@:
1467 IgorA 97
 
1468 IgorA 98
	copy_path open_dialog_name,communication_area_default_path,file_name,0
1467 IgorA 99
	mov [OpenDialog_data.type],0
1592 IgorA 100
	stdcall [OpenDialog_Start],OpenDialog_data
1467 IgorA 101
	cmp [OpenDialog_data.status],2
102
	jne @f
1468 IgorA 103
		stdcall mem_spac, msgbox_9.fdp,100
104
		mov esi,file_name
105
		call strlen
106
		cmp eax,100
107
		jle .no_crop
108
			mov eax,100
109
		.no_crop:
110
		stdcall mem_copy, esi,msgbox_9.fdp,eax
1467 IgorA 111
		stdcall [mb_create],msgbox_9,thread ;message: error run 'open file dialog'
112
		jmp .ret_f
113
	@@:
2817 IgorA 114
	cmp [OpenDialog_data.status],1
2632 IgorA 115
	jne .ret_f
2817 IgorA 116
		mov esi,[OpenDialog_data.openfile_path]
117
		call strlen
118
		mov [edit1.size],eax
119
		mov [edit1.pos],eax
120
		stdcall [edit_box_draw], edit1
2855 IgorA 121
 
122
		;ищем есть ли файл подсветки для открываемого текстового файла
123
		mov edx,[edit1.text]
124
		add edx,eax
125
		.f_beg:
126
		cmp byte[edx],'.'
127
		je .found
128
			dec edx
129
			cmp edx,[edit1.text]
130
			jg .f_beg
131
		.found:
132
		inc edx ;edx - указатель на расширение открытого файла
133
 
134
		mov ebx,synt_auto_open
135
		.cycle_0:
136
			add ebx,32
137
			stdcall strcmp,ebx,edx ;сравниваем расширение открытого файла со значениями открытыми с ini файла
138
			test eax,eax
139
			jz .ok
140
			add ebx,32
141
			cmp byte[ebx],0
142
			jne .cycle_0
143
		jmp .end_0
144
		.ok: ;открытие файла подсветки в зависимости от найденного расширения
145
			sub ebx,32
146
			;mov ecx,ebx
147
			;mcall 71,1
148
			call open_unpac_synt_file
149
		.end_0:
150
 
2817 IgorA 151
		stdcall [ted_open_file], tedit0,run_file_70,[edit1.text]
152
		call ted_messages_after_open_file
2855 IgorA 153
 
1457 IgorA 154
	.ret_f:
1467 IgorA 155
	popad
1457 IgorA 156
	ret
1338 IgorA 157
 
2102 IgorA 158
;description:
159
; копирование памяти
1468 IgorA 160
align 4
161
proc mem_copy, source:dword, destination:dword, len:dword
162
  push ecx esi edi
163
    cld
164
    mov esi, dword[source]
165
    mov edi, dword[destination]
166
    mov ecx, dword[len]
167
    rep movsb
168
  pop edi esi ecx
169
  ret
170
endp
171
 
2102 IgorA 172
;description:
173
; заполнение памяти пробелами
1468 IgorA 174
align 4
175
proc mem_spac, mem:dword, len:dword
176
  push eax ecx edi
177
    cld
178
    mov al,' '
179
    mov edi, dword[mem]
180
    mov ecx, dword[len]
181
    repne stosb
182
  pop edi ecx eax
183
  ret
184
endp
185
 
1457 IgorA 186
;input:
187
; eax = код ошибки
188
; ebx = колличество прочитанных байт
1456 IgorA 189
align 4
1457 IgorA 190
ted_messages_after_open_file:
2847 IgorA 191
	push ecx edi
1457 IgorA 192
	cmp eax,0
193
	je @f
194
	cmp eax,6
195
	je @f
196
		cmp ax,10
197
		jl .zifra_0_9
198
			mov al,'?'
199
			sub ax,48
200
		.zifra_0_9:
201
		add ax,48
1456 IgorA 202
 
1457 IgorA 203
		mov byte[msgbox_4.err],al
204
		stdcall [mb_create],msgbox_4,thread ;message: Can-t open text file!
205
		jmp .ret_f
206
	@@:
207
	cmp ebx,-1
208
	je .ret_f
209
		;if open file
2847 IgorA 210
		mov edi,tedit0
1457 IgorA 211
		mov ecx,ted_max_chars
212
		sub ecx,2 ;ecx = максимальное число байт, для которых была выделена память
213
		cmp ebx,ecx
214
		jl .ret_f
215
			stdcall [mb_create],msgbox_1,thread
216
	.ret_f:
2847 IgorA 217
	pop edi ecx
1457 IgorA 218
	ret
1338 IgorA 219
 
1456 IgorA 220
align 4
1457 IgorA 221
ted_save_err_msg:
222
	mov byte[msgbox_6.err],al
223
	stdcall [mb_create],msgbox_6,thread ;message: Can-t save text file!
224
	ret
1456 IgorA 225
 
2102 IgorA 226
;description:
227
; функция нажатия на кнопку [Применить] в панели синтаксиса
1456 IgorA 228
align 4
2707 IgorA 229
proc ted_but_open_syntax uses eax ebx ecx edi, edit:dword
230
	mov edi,dword[edit]
231
	cmp ted_panel_id,TED_PANEL_SYNTAX
232
	jne @f
233
		stdcall dword[tl_node_get_data], tree1
234
		pop dword[fn_col_option]
235
		mov ebx,dword[fn_col_option]
2708 IgorA 236
		call open_unpac_synt_file
237
		cmp ebx,-1
238
		je @f
239
 
2707 IgorA 240
		call [ted_text_colored]
241
		stdcall [ted_draw],edi
242
	@@:
243
	ret
1456 IgorA 244
endp
1338 IgorA 245
 
2708 IgorA 246
;открытие и распаковка файла подсветки синтаксиса
2855 IgorA 247
;input:
248
; ebx - указатель на имя открываемого файла синтаксиса (без пути и папки info)
2708 IgorA 249
;output:
250
; ebx - число прочитанных байт из файла
2855 IgorA 251
; ecx - разрушается
2708 IgorA 252
align 4
253
open_unpac_synt_file:
254
push eax edi esi
2855 IgorA 255
	mov edi,last_open_synt_file
256
	stdcall strcmp,ebx,edi ;сравниваем имя подключенного файла с подключенным ранее файлом
257
	test eax,eax
258
	jz @f
259
 
260
	;копируем имя подключенного файла (для избежания повторных подключений)
261
	mov esi,ebx
262
	mov ecx,32
263
	cld
264
	rep movsb
265
 
266
	copy_path ebx,fn_syntax_dir,file_name_rez,0
267
	copy_path file_name_rez,sys_path,file_name,0
2708 IgorA 268
	mov edi, tedit0
269
	mov [run_file_70.Function], 0
270
	mov [run_file_70.Position], 0
271
	mov [run_file_70.Flags], 0
272
	mov ecx, ted_syntax_file_size
273
	mov dword[run_file_70.Count], ecx
274
	m2m dword[run_file_70.Buffer], ted_syntax_file
275
	mov byte[run_file_70+20], 0
276
	mov [run_file_70.FileName], file_name
277
	mcall 70, run_file_70
278
	cmp ebx,-1
279
	jne .end_0
280
		call ted_on_init_synt_err
281
		jmp @f
282
	.end_0:
283
		mov eax,ted_syntax_file
284
		cmp dword[eax],'KPCK'
285
		jne .end_unpack
286
		cmp dword[eax+4],ecx
287
		jg @f ;если для распакованого файла не хватает выделенной памяти
288
		cmp dword[unpac_mem],0
289
		jne .end_1
290
			;выделение памяти для распаковки файла
291
			stdcall mem.Alloc,ecx
292
			mov [unpac_mem],eax
293
		.end_1:
294
		stdcall unpack,ted_syntax_file,[unpac_mem]
295
		mov edi,ted_syntax_file
296
		mov esi,[unpac_mem]
297
		mov ecx,[edi+4]
298
		cld
299
		rep movsb
300
		.end_unpack:
301
		stdcall [ted_init_syntax_file], tedit0
302
	@@:
303
pop esi edi eax
304
	ret
305
 
2102 IgorA 306
;description:
307
; вызов/скрытие панели поиска
1456 IgorA 308
align 4
2102 IgorA 309
proc ted_but_find
1456 IgorA 310
  push edi
1457 IgorA 311
  mov edi,tedit0
1456 IgorA 312
 
1457 IgorA 313
  cmp ted_panel_id,TED_PANEL_NULL
1338 IgorA 314
  je @f
1457 IgorA 315
    mov ted_panel_id,TED_PANEL_NULL
1449 IgorA 316
    mov ted_wnd_l,0
1338 IgorA 317
    jmp .e_if
318
  @@:
1457 IgorA 319
    mov ted_panel_id,TED_PANEL_FIND
320
    mov ted_wnd_l,TED_PANEL_WIDTH
1338 IgorA 321
  .e_if:
2125 IgorA 322
  call EvSize
1457 IgorA 323
  stdcall [ted_draw],edi
1449 IgorA 324
  pop edi
325
  ret
326
endp
1338 IgorA 327
 
1456 IgorA 328
align 4
1457 IgorA 329
ted_on_find_err:
330
	stdcall [mb_create],msgbox_7,thread ;message: Can not find text
331
	ret
332
 
2102 IgorA 333
;description:
334
; кнопка [Заменить] на панели
1457 IgorA 335
align 4
1338 IgorA 336
but_replace:
2102 IgorA 337
	; пока не сделано
338
	ret
1338 IgorA 339
 
2102 IgorA 340
;description:
341
; функция поиска информации в списке ключевых слов
1456 IgorA 342
align 4
1338 IgorA 343
but_find_key_w:
3244 IgorA 344
	cmp byte[wnd_k_words_run],0
345
	jne @f
346
		pushad
347
		mcall 51,1,prop_start,thread_coords
348
		popad
349
	@@:
2102 IgorA 350
	ret
1338 IgorA 351
 
2102 IgorA 352
;description:
353
; выделение/скрытие непечатаемых символов
1456 IgorA 354
align 4
355
proc but_sumb_invis, edit:dword
356
  push edi
357
  mov edi,dword[edit]
1338 IgorA 358
 
1456 IgorA 359
  xor ted_mode_invis,1
360
  call draw_but_toolbar
1457 IgorA 361
  stdcall [ted_draw],edi
1456 IgorA 362
  pop edi
363
  ret
364
endp
1338 IgorA 365
 
2102 IgorA 366
;description:
367
; выделение/скрытие ключевых слов
1456 IgorA 368
align 4
369
proc but_k_words_show, edit:dword
370
  push edi
371
  mov edi,dword[edit]
1338 IgorA 372
 
1456 IgorA 373
  xor ted_mode_color,1
374
  cmp ted_mode_color,0
375
  je @f
1457 IgorA 376
    call [ted_text_colored]
1456 IgorA 377
  @@:
1338 IgorA 378
  call draw_but_toolbar
1457 IgorA 379
  stdcall [ted_draw],edi
1456 IgorA 380
  pop edi
1338 IgorA 381
  ret
1456 IgorA 382
endp
1338 IgorA 383
 
2102 IgorA 384
;description:
385
; вызов/скрытие панели с файлами синтаксиса
1456 IgorA 386
align 4
1449 IgorA 387
proc but_synt_show, edit:dword
388
  push edi
389
  mov edi,[edit]
390
 
1457 IgorA 391
  cmp ted_panel_id,TED_PANEL_NULL
1338 IgorA 392
  je @f
1457 IgorA 393
    mov ted_panel_id,TED_PANEL_NULL
1449 IgorA 394
    mov ted_wnd_l,0
1338 IgorA 395
    jmp .e_if
396
  @@:
1457 IgorA 397
    mov ted_panel_id,TED_PANEL_SYNTAX
398
    mov ted_wnd_l,TED_PANEL_WIDTH
1338 IgorA 399
  .e_if:
2125 IgorA 400
  call EvSize
1457 IgorA 401
  stdcall [ted_draw],edi
1449 IgorA 402
  pop edi
403
  ret
404
endp