Subversion Repositories Kolibri OS

  org	 0x0

  dd	 0x01

  dd	 START

  dd	 I_END

  dd	 0x1000

  dd	 0x1000

  dd	 0x0

  dd	 0x0

TRUE  = 1

include '../../../../../macros.inc'

include '../../libio/libio.inc'

include '../dll.inc'

	pushad

	mov	edi,buf

	cld

	mov	al,"'"

	stosb

    @@: lodsb

	stosb

	or	al,al

	jnz	@b

	mov	word[edi-1],"'"

	or	esi,esi

	je	.noval

	mov	eax," = '"

	stosd

    @@: lodsb

	stosb

	or	al,al

	jnz	@b

	mov	word[edi-1],"'"

  .noval:

	mcall	4,<[xx],[yy]>,[color],buf

	add	[yy],10

	popad

	ret

endp

	stdcall draw,224,0x0000FF,[key_name],[key_val]

	mov	eax,TRUE

	ret

endp

	stdcall draw,200,0xFF0000,[sec_name],0

	invoke	ini.enum_keys,[f_name],[sec_name],callb_k

	mov	eax,TRUE

	ret

endp

;---  ÍÀ×ÀËÎ ÏÐÎÃÐÀÌÌÛ  ----------------------------------------------

;---------------------------------------------------------------------

s_key2 db "RightViewMode",0

{

  common

    label label1

  forward

    local ..lbl

    dd ..lbl - $

    db str1,0

    ..lbl:

  common

    dd 0

    label label2

  forward

    local ..lbl

    dd ..lbl - $

    db str2,0

    ..lbl:

  common

    label label3

  forward

    if res = "t"

      dd 1

    else

      dd 0

    end if

}

  ""	       ,""	 ,"t",	  ""		,"a"	    ,"f", \

  "a"	       ,"a"	 ,"t",	  "a"		,"b"	    ,"f", \

  "?"	       ,"b"	 ,"t",	  "??"		,"bc"	    ,"t", \

  "?c"	       ,"bc"	 ,"t",	  "b?"		,"bc"	    ,"t", \

  "[a-z]"      ,"b"	 ,"t",	  "[A-Z]"	,"b"	    ,"f", \

  "*"	       ,"a"	 ,"t",	  "**"		,"a"	    ,"t", \

  "*"	       ,""	 ,"t",	  "*bc*hij"	,"abcdfghij","t", \

  "*b*a*"      ,"b"	 ,"f",	  "*bc*hik"	,"abcdfghij","f", \

  "abc*"       ,"abc"	 ,"t",	  "abc**"	,"abc"	    ,"t", \

  "[^]]"       ,"^"	 ,"t",	  "[^]]"	,"]"	    ,"f", \

  "[^abc]"     ,"d"	 ,"t",	  "[^abc]"	,"b"	    ,"f", \

  "*???"       ,"abc"	 ,"t",	  "*???"	,"ab"	    ,"f", \

  "*???"       ,"abcd"	 ,"t",	  "*?*" 	,"abcd"     ,"t", \

  "*bc"        ,"abc"	 ,"t",	  "*cc" 	,"abc"	    ,"f", \

  "[a-c]*"     ,"d"	 ,"f",	  "*[a-e]"	,"d"	    ,"t", \

  "*a*"        ,"de"	 ,"f",	  "*[a-c]"	,"d"	    ,"f", \

  "[a-c]"      ,"d"	 ,"f",	  "[b-d]"	,"a"	    ,"f", \

  "[]abc]"     ,"b"	 ,"t",	  "[]abc]"	,"d"	    ,"f", \

  "[z-a]"      ,"-"	 ,"t",	  "[z-a]"	,"b"	    ,"f", \

  "[A-]"       ,"-"	 ,"t",	  "[A-]"	,"]"	    ,"f", \

  "[-a]"       ,"-"	 ,"t",	  "[-[]"	,"-"	    ,"t", \

  "[-]"        ,"-"	 ,"t",	  "[^-b]"	,"a"	    ,"t", \

  "[^-b]"      ,"-"	 ,"f",	  "[-b]"	,"a"	    ,"f", \

  "[a-g]lorian","florian","t",	  "[a-g]*rorian","f"	    ,"f", \

  "*???*"      ,"123"	 ,"t"

	mcall	68,11

	or	eax,eax

	jnz	exit

	mov	esi,_str1 + 4

	mov	edi,_str2 + 4

	mov	ecx,_str3

	xor	ebx,ebx

	inc	ebx

    @@: invoke	file.aux.match_wildcard,edi,esi,0

	cmp	eax,[ecx]

	je	.ok

	mcall	-1

  .ok:	inc	ebx

	add	esi,[esi-4]

	add	edi,[edi-4]

	add	ecx,4

	cmp	dword[esi-4],0

	jnz	@b

^@

	invoke	ini.set_int,s_ini,s_sec,s_key2,101

	cmp	eax,100

	jne	exit

	invoke	ini.get_int,s_ini,s_sec,s_key2,-1

	cmp	eax,101

	jne	exit

	invoke	ini.set_str,s_ini,s_sec,s_key1,buf,3

	mov	dword[buf],'103'

	invoke	ini.set_str,s_ini,s_sec,s_key2,buf,3

	cmp	dword[buf],'102'

	jne	exit

	invoke	ini.get_str,s_ini,s_sec,s_key2,buf,1024,0

	cmp	dword[buf],'103'

	jne	exit

;       or      eax,eax

;       jnz     @f

;       int3

;   @@: mov     [fh],eax

;       invoke  file.seek,[fh],SEEK_SET,8192

;       invoke  file.write,[fh],s_ininame,16

;       invoke  file.seteof,[fh]

;       invoke  file.close,[fh]

;---  ÖÈÊË ÎÁÐÀÁÎÒÊÈ ÑÎÁÛÒÈÉ  ----------------------------------------

;---------------------------------------------------------------------

	mcall	10

	je	red

	cmp	eax,2

	je	key

	cmp	eax,3

	je	button

	mcall	2

	jmp	still

	mcall	17

	jne	still

	mcall	-1

;---  ÎÏÐÅÄÅËÅÍÈÅ È ÎÒÐÈÑÎÂÊÀ ÎÊÍÀ  ----------------------------------

;---------------------------------------------------------------------

	invoke	gfx.open,TRUE

	mov	[ctx],eax

	mcall	0,<200,700>,<200,200>,0x33FFFFFF,,s_header

	invoke	gfx.pen.color,[ctx],0x00FF0000

	invoke	gfx.line,[ctx],0,0,50,50

	invoke	gfx.framerect,[ctx],10,10,100,70

	invoke	gfx.brush.color,[ctx],0x000000FF

	invoke	gfx.fillrect,[ctx],15,15,95,65

	invoke	gfx.pen.color,[ctx],0x00008800

	invoke	gfx.brush.color,[ctx],0x00CCCCFF

	invoke	gfx.rectangle,[ctx],20,20,90,60

	invoke	gfx.move.to,[ctx],13,5

	invoke	gfx.line.to,[ctx],105,5

	invoke	gfx.line.to,[ctx],105,75

	invoke	gfx.line.to,[ctx],5,75

	invoke	gfx.line.to,[ctx],5,13

	invoke	gfx.line.to,[ctx],13,5

	invoke	gfx.pen.color,[ctx],0x00888888

	invoke	gfx.polyline,[ctx],poly_points,11

	invoke	gfx.close,[ctx]

	invoke	ini.enum_sections,s_ini,callb

	cmp	eax,0

	jle	.finished

	mov	ebp,eax

	mov	[yy],10

    @@: lea	edx,[ebp+FileInfo.FileName]

	mcall	4,<450,[yy]>,0x80000000

	add	[yy],10

	invoke	file.find_next,ebp

	cmp	eax,0

	jg	@b

	invoke	file.find_close,ebp

_f_mask db '*ini*',0

proc mem.Alloc size ;/////////////////////////////////////////////////////////

;-----------------------------------------------------------------------------

	push	ebx ecx

	mov	eax,[size]

	lea	ecx,[eax+4+4095]

	and	ecx,not 4095

	mcall	68,12

	add	ecx,-4

	mov	[eax],ecx

	add	eax,4

	pop	ecx ebx

	ret

endp

proc mem.ReAlloc mptr,size;///////////////////////////////////////////////////

;-----------------------------------------------------------------------------

	push	ebx ecx esi edi eax

	mov	eax,[mptr]

	mov	ebx,[size]

	or	eax,eax

	jz	@f

	lea	ecx,[ebx+4+4095]

	and	ecx,not 4095

	add	ecx,-4

	cmp	ecx,[eax-4]

	je	.exit

    @@: mov	eax,ebx

	call	mem.Alloc

	xchg	eax,[esp]

	or	eax,eax

	jz	.exit

	mov	esi,eax

	xchg	eax,[esp]

	mov	edi,eax

	mov	ecx,[esi-4]

	cmp	ecx,[edi-4]

	jbe	@f

	mov	ecx,[edi-4]

    @@: add	ecx,3

	shr	ecx,2

	cld

	rep	movsd

	xchg	eax,[esp]

	call	mem.Free

  .exit:

	pop	eax edi esi ecx ebx

	ret

endp

proc mem.Free mptr ;//////////////////////////////////////////////////////////

;-----------------------------------------------------------------------------

	mov	eax,[mptr]

	or	eax,eax

	jz	@f

	push	ebx ecx

	lea	ecx,[eax-4]

	mcall	68,13

	pop	ecx ebx

    @@: ret

endp

;---  ÄÀÍÍÛÅ ÏÐÎÃÐÀÌÌÛ  ----------------------------------------------

;---------------------------------------------------------------------

s_sec db 'Panels',0

s_key db 'param1',0

poly_points dd \

  140, 10, \

  150, 10, \

  150, 20, \

  160, 20, \

  160, 30, \

  170, 30, \

  170, 40, \

  180, 40, \

  180, 50, \

  140, 50, \

  140, 10

@IMPORT:

	libini,'libini.obj',\

	libio ,'libio.obj',\

	libgfx,'libgfx.obj'

	ini.get_str,'ini.get_str',\

	ini.set_str,'ini.set_str',\

	ini.get_int,'ini.get_int',\

	ini.set_int,'ini.set_int',\

	ini.enum_sections,'ini.enum_sections',\

	ini.enum_keys,'ini.enum_keys'

\;      file.aux.match_wildcard,'file.aux.match_wildcard',\

	file.find_first,'file.find_first',\

	file.find_next,'file.find_next',\

	file.find_close,'file.find_close',\

	file.open,'file.open',\

	file.seek,'file.seek',\

	file.write,'file.write',\

	file.truncate,'file.truncate',\

	file.close,'file.close'

	gfx.open	,'gfx.open',\

	gfx.close	,'gfx.close',\

	gfx.pen.color	,'gfx.pen.color',\

	gfx.brush.color ,'gfx.brush.color',\

	gfx.pixel	,'gfx.pixel',\

	gfx.move.to	,'gfx.move.to',\

	gfx.line.to	,'gfx.line.to',\

	gfx.line	,'gfx.line',\

	gfx.polyline	,'gfx.polyline',\

	gfx.polyline.to ,'gfx.polyline.to',\

	gfx.fillrect	,'gfx.fillrect',\

	gfx.fillrect.ex ,'gfx.fillrect.ex',\

	gfx.framerect	,'gfx.framerect',\

	gfx.framerect.ex,'gfx.framerect.ex',\

	gfx.rectangle	,'gfx.rectangle',\

	gfx.rectangle.ex,'gfx.rectangle.ex'