Subversion Repositories Kolibri OS

Rev

Rev 2159 | Rev 4990 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2159 Rev 2819
Line 8... Line 8...
8 
  dd stacktop
 8 
  dd stacktop
9 
  dd file_name
 9 
  dd file_name
10 
  dd sys_path
 10 
  dd sys_path
Line 11... Line 11...
11 
 
 11 
 
12 
MAX_COLOR_WORD_LEN equ 40
 12 
MAX_COLOR_WORD_LEN equ 40
13 
BUF_SIZE equ 1000 ;buffer for copy|paste
 13 
BUF_SIZE equ 4096 ;buffer for copy|paste
14 
maxSyntaxFileSize equ 310000
 14 
maxSyntaxFileSize equ 310000
Line 15... Line 15...
15 
CAPT_PATH_WIDTH equ 50 ;è¨à¨­  ¯®¤¯¨á¨ ¯¥à¥¤ ⥪áâ®¢ë¬ ¯®«¥¬
 15 
CAPT_PATH_WIDTH equ 50 ;è¨à¨­  ¯®¤¯¨á¨ ¯¥à¥¤ ⥪áâ®¢ë¬ ¯®«¥¬
16 
 
 16 
 
Line 24... Line 24...
24 
 
 24 
 
Line 25... Line 25...
25 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,0
 25 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,0
26 
 
 26 
 
27 
align 4
 - 
 
28 
start:
 - 
 
29 
  mov eax,48
 - 
 
30 
  mov ebx,3
 27 
align 4
31 
  mov ecx,sc
 - 
 
Line 32... Line 28...
32 
  mov edx,sizeof.system_colors
 28 
start:
33 
  mcall
 29 
	mcall 48,3,sc,sizeof.system_colors
34 
 
 30 
 
Line -... Line 31...
- 
 
 31 
	mcall 68,11
35 
  mcall 68,11
 32 
	or eax,eax
Line 36... Line 33...
36 
  or eax,eax
 33 
	jz button.exit
37 
  jz button.exit
 34 
 
38 
 
 35 
	mcall 66,1,1 ;scan code
Line 221... Line 218...
221 
	stdcall [tl_mouse],tree1
 218 
	stdcall [tl_mouse],tree1
222 
	stdcall [edit_box_mouse],edit1
 219 
	stdcall [edit_box_mouse],edit1
223 
	stdcall [ted_mouse], tedit0
 220 
	stdcall [ted_mouse], tedit0
224 
	jmp still
 221 
	jmp still
Line -... Line 222...
- 
 
 222 
 
- 
 
 223 
;output:
- 
 
 224 
; ah = symbol
- 
 
 225 
align 4
- 
 
 226 
proc KeyConvertToASCII, table:dword
- 
 
 227 
	push ebx
- 
 
 228 
	mov ebx,dword[table] ;convert scan to ascii
- 
 
 229 
	ror ax,8
- 
 
 230 
	xor ah,ah
- 
 
 231 
	add bx,ax
- 
 
 232 
	mov ah,byte[ebx]
- 
 
 233 
	pop ebx
- 
 
 234 
	ret
Line 225... Line 235...
225 
 
 235 
endp
226 
 
 236 
 
- 
 
 237 
align 4
- 
 
 238 
key:
- 
 
 239 
	mcall 66,3 ;66.3 ¯®«ãç¨âì á®áâ®ï­¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è
- 
 
 240 
	xor esi,esi
- 
 
 241 
	mov ecx,1
- 
 
 242 
	test al,0x03 ;[Shift]
- 
 
 243 
	jz @f
- 
 
 244 
		mov cl,2
- 
 
 245 
		or esi,KM_SHIFT
- 
 
 246 
	@@:
- 
 
 247 
	test al,0x0c ;[Ctrl]
- 
 
 248 
	jz @f
- 
 
 249 
		or esi,KM_CTRL
- 
 
 250 
	@@:
- 
 
 251 
	test al,0x30 ;[Alt]
- 
 
 252 
	jz @f
- 
 
 253 
		mov cl,3
- 
 
 254 
		or esi,KM_ALT
- 
 
 255 
	@@:
- 
 
 256 
	test al,0x80 ;[NumLock]
- 
 
 257 
	jz @f
- 
 
 258 
		or esi,KM_NUMLOCK
- 
 
 259 
	@@:
227 
align 4
 260 
 
228 
key:
 261 
	mcall 26,2,,conv_tabl ;26.2 ¯®«ãç¨âì à áª« ¤ªã ª« ¢¨ âãàë
- 
 
 262 
	mcall 2
- 
 
 263 
	stdcall [tl_key],tree1
- 
 
 264 
 
- 
 
 265 
	test word [edit1.flags],10b;ed_focus ; ¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
- 
 
 266 
	je @f
- 
 
 267 
		cmp ah,0x80 ;if key up
- 
 
 268 
		ja still
- 
 
 269 
		cmp ah,42 ;[Shift] (left)
- 
 
 270 
		je still
- 
 
 271 
		cmp ah,54 ;[Shift] (right)
- 
 
 272 
		je still
- 
 
 273 
		cmp ah,56 ;[Alt]
- 
 
 274 
		je still
- 
 
 275 
		cmp ah,29 ;[Ctrl]
- 
 
 276 
		je still
- 
 
 277 
		cmp ah,69 ;[Pause Break]
- 
 
 278 
		je still
229 
	mcall 2
 279 
 
- 
 
 280 
		stdcall KeyConvertToASCII, dword conv_tabl
- 
 
 281 
		stdcall [edit_box_key],edit1
- 
 
 282 
		jmp still
230 
	stdcall [tl_key],tree1
 283 
	@@:
231 
	stdcall [edit_box_key],edit1
 284 
 
Line 232... Line 285...
232 
;;;stdcall [ted_key], tedit0, conv_tabl,esi
 285 
	stdcall [ted_key], tedit0, conv_tabl,esi
233 
	jmp still
 286 
	jmp still
234 
 
 287 
 
Line 310... Line 363...
310 
	;jne @f
 363 
	;jne @f
311 
	;       mov eax,tedit1
 364 
	;       mov eax,tedit1
312 
	;@@:
 365 
	;@@:
313 
	ret
 366 
	ret
Line 314... Line 367...
314 
 
 367 
 
- 
 
 368 
hed db 'TextEditor syntax file converter 23.06.12',0 ;¯®¤¯¨áì ®ª­ 
Line 315... Line 369...
315 
hed db 'TextEditor syntax file converter 06.09.11',0 ;¯®¤¯¨áì ®ª­ 
 369 
conv_tabl rb 128 ; â ¡«¨æ  ¤«ï ª®­¢¥àâ¨à®¢ ­¨ï scan-ª®¤  ¢ ascii-ª®¤
316 
 
 370 
 
317 
txt122 db '‡ £à. ä ©«',0
 371 
txt122 db '‡ £à. ä ©«',0
318 
txt148 db '‘®åà. ä ©«',0
 372 
txt148 db '‘®åà. ä ©«',0