WebSVN – Kolibri OS – Diff – /programs/develop/fasm/trunk/fasm.asm

    mov	   [_mode],CONSOLE_MODE
    jmp	   start
+start_1:
-start_1:
-sys_load_library  library_name, cur_dir_path, library_path, system_path, \
+;sys_
-  err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
+load_libraries l_libs_start,load_lib_end
   cmp eax,-1
   get_sys_colors 1,0
   edit_boxes_set_sys_color edit1,editboxes_end,sc
+  check_boxes_set_sys_color ch1_dbg,ch1_dbg+ch_struc_size,sc
+  ; OpenDialog initialisation
+  push dword OpenDialog_data
-  check_boxes_set_sys_color ch1_dbg,ch1_dbg+ch_struc_size,sc
+  call dword [OpenDialog_Init]
 red:	; Redraw
     call draw_window
     jne     noclose
     or	    eax,-1
     mcall
+noclose:
+	cmp ah,5 ;press button for OpenDialog
+	jne @f
+		call fun_opn_dlg
-noclose:
+	@@:
     cmp  ah,2	      ; Start compiling
     je	 start
     cmp  ah,3	      ; Start compiled file
     madd  ecx, (14*3+16)/3+1,0
     mcall  ,,,0x00000003
     madd  ecx, (14*3+16)/3+1,0
     mcall ,,,4
+	;button for OpenDialog [..]
+	mov ebx, 5*65536+47
+	mov ecx, 33*65536+14
+	mcall ,,,5
     mpack ebx,6,0    ; Draw Window Text
     add  ebx,1+ 14/2-3
     mov  ecx,[sc.work_text]
     mov  edx,text
     mov  esi,text.line_size
+    mov  eax,4
-    mov  eax,4
+    mcall ;InFile
+    add  ebx, 16 ;14
-   newline:
+    add  edx,text.line_size
+    mcall ;OutFile
-    mcall
+	mov ecx,[sc.work_button_text]
     add  ebx, 16 ;14
-    add  edx,text.line_size
-    cmp  byte[edx],'x'
+    add  edx,text.line_size
-    jne  newline
+	mcall ;Path
     mov   ebx,[pinfo.box.width]
     sub   ebx,MAGIC1+10+1-9
     popa
     ret
+bottom_right dd ?
+align 4
+fun_opn_dlg: ;äãªæ¨ï ¤«ï ¢ë§®¢  OpenFile ¤¨ «®£
+	pushad
+	copy_path open_dialog_name,communication_area_default_path,library_path,0
+	mov [OpenDialog_data.type],0
+	xor al,al
+	mov edi,dword[edit3.text]
+	mov ecx,dword[edit3.max]
+	cld
+	repne scasb
+	cmp byte[edi-2],'/'
+	jne @f
+		mov byte[edi-2],0 ;¥á«¨ ¢ ª®æ¥ ¯ãâ¨ ¥áâì á«¥è, â® ¯ãâì ãª®à ç¨¢ ¥¬   1 á¨¬¢®«
+	@@:
+	push dword OpenDialog_data
+	call dword [OpenDialog_Start]
+	cmp [OpenDialog_data.status],2
+	je @f
+		xor al,al
+		mov edi,dword[edit3.text]
+		mov ebx,edi ;copy text pointer
+		mov ecx,dword[edit3.max]
+		cld
+		repne scasb
+		cmp byte[edi-2],'/'
+		jne .no_slash
+			dec edi ;¥á«¨ ¢ ª®æ¥ ¯ãâ¨ ¥áâì á«¥è, â® ¯ãâì ãª®à ç¨¢ ¥¬   1 á¨¬¢®«
+		.no_slash:
+		mov byte[edi-1],'/' ;áâ ¢¨¬ ¢ ª®æ¥ ¯ãâ¨ á«¥è
+		mov byte[edi],0 ;®âà¥§ ¥¬ ¨¬ï  ©¤¥®£® ä ©«
+		sub edi,ebx ;edi = strlen(edit3.text)
+		mov [edit3.size],edi
+		mov [edit3.pos],edi
+		;xor al,al
+		mov edi,dword[OpenDialog_data.filename_area]
+		mov ebx,edi ;copy text pointer
+		mov ecx,dword[edit1.max]
+		;cld
+		repne scasb
+		sub edi,ebx ;edi = strlen(OpenDialog_data.filename_area)
+		mov ecx,edi
+		dec edi
+		mov [edit1.size],edi
+		mov [edit1.pos],edi
+		mov esi,dword[OpenDialog_data.filename_area]
+		mov edi,dword[edit1.text]
+		;cld
+		rep movsb
+		push dword edit1
+		call dword [edit_box_draw]
+		push dword edit3
+		call dword [edit_box_draw]
+	@@:
+	popad
-bottom_right dd ?
+	ret
 draw_messages:
     mov    eax,13      ; clear work area
     mpack  ebx,7-2,[pinfo.box.width]
 text:
   db ' å ©«:'
 .line_size = $-text
   db 'ëå ©«:'
   db '   ãâì:'
-  db 'x'
+  ;db 'x'
   s_compile db '®¬¯¨«.'
   s_run     db ' ãáª  '
   s_debug   db 'â« ¤ª '
   s_dbgdescr db '®§¤ ¢ âì ®â« ¤®çãî ¨ä®à¬ æ¨î',0
+  s_dbgdescr_end:
-  s_dbgdescr_end:
+  err_message_found_lib0 db '¥  ©¤¥  ¡¨¡«¨®â¥ª  box_lib.obj',0  ;áâà®ª , ª®â®à ï ¡ã¤¥â ¢ áä®à¬¨à®¢ ®¬ ®ª¥, ¥á«¨ ¡¨¡«¨®â¥ª  ¥ ¡ã¤¥â  ©¤¥
+  err_message_import0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ box_lib.obj',0
-  err_message_import db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ box_lib.obj',0
+  err_message_found_lib1 db '¥  ©¤¥  ¡¨¡«¨®â¥ª  proc_lib.obj',0
-  err_message_found_lib db 'è¨¡ª  ¯à¨ ¯®¨áª¥ box_lib.obj',0 ;áâà®ª , ª®â®à ï ¡ã¤¥â ¢ áä®à¬¨à®¢ ®¬ ®ª¥, ¥á«¨ ¡¨¡«¨®â¥ª  ¥ ¡ã¤¥â  ©¤¥
+  err_message_import1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ proc_lib.obj',0
-  head_f_i:
-  head_f_l db '¨áâ¥¬ ï ®è¨¡ª ',0 ;§ £®«®¢®ª ®ª , ¯à¨ ¢®§¨ª®¢¥¨¨ ®è¨¡ª¨
-  system_path db '/sys/lib/'
+  head_f_i:
-  library_name db 'box_lib.obj',0
+  head_f_l db '¨áâ¥¬ ï ®è¨¡ª ',0 ;§ £®«®¢®ª ®ª , ¯à¨ ¢®§¨ª®¢¥¨¨ ®è¨¡ª¨
 else
 text:
-  db ' INFILE:'
+  db ' InFile:'
 .line_size = $-text
-  db 'OUTFILE:'
+  db 'OutFile:'
-  db '   PATH:'
+  db '   Path:'
-  db 'x'
+  ;db 'x'
   s_compile db 'COMPILE'
   s_run     db '  RUN  '
+  s_debug   db ' DEBUG '
-  s_debug   db ' DEBUG '
+  s_dbgdescr db 'Generate debug information',0
-  s_dbgdescr db 'Generate debug information',0
+  s_dbgdescr_end:
+  err_message_found_lib0 db 'Sorry I cannot found library box_lib.obj',0
-  s_dbgdescr_end:
+  err_message_import0 db 'Error on load import library box_lib.obj',0
   err_message_found_lib1 db 'Sorry I cannot found library proc_lib.obj',0
-  err_message_import db 'Error on load import library box_lib.obj',0
-  err_message_found_lib db 'Sorry I cannot found library box_lib.obj',0 ;áâà®ª , ª®â®à ï ¡ã¤¥â ¢ áä®à¬¨à®¢ ®¬ ®ª¥, ¥á«¨ ¡¨¡«¨®â¥ª  ¥ ¡ã¤¥â  ©¤¥
-  head_f_i:
+  err_message_import1 db 'Error on load import library proc_lib.obj',0
+  head_f_i:
+  head_f_l db 'System error',0 ;§ £®«®¢®ª ®ª , ¯à¨ ¢®§¨ª®¢¥¨¨ ®è¨¡ª¨
+end if
+  system_dir0 db '/sys/lib/'
+  lib0_name db 'box_lib.obj',0
-  head_f_l db 'System error',0 ;§ £®«®¢®ª ®ª , ¯à¨ ¢®§¨ª®¢¥¨¨ ®è¨¡ª¨
+  system_dir1 db '/sys/lib/'
-  system_path db '/sys/lib/'
+  lib1_name db 'proc_lib.obj',0
   library_name db 'box_lib.obj',0
 end if
 align 4
   aCheck_box_draw  db 'check_box_draw',0
   aCheck_box_mouse db 'check_box_mouse',0
+  ;aVersion_ch      db 'version_ch',0
+align 4
+import_proc_lib:
+	OpenDialog_Init dd aOpenDialog_Init
+	OpenDialog_Start dd aOpenDialog_Start
+dd 0,0
+	aOpenDialog_Init db 'OpenDialog_init',0
+	aOpenDialog_Start db 'OpenDialog_start',0
+;library structures
+l_libs_start:
+  lib0 l_libs lib0_name, cur_dir_path, library_path, system_dir0, err_message_found_lib0, head_f_l, import_box_lib, err_message_import0, head_f_i
+  lib1 l_libs lib1_name, cur_dir_path, library_path, system_dir1, err_message_found_lib1, head_f_l, import_proc_lib,err_message_import1, head_f_i
-  ;aVersion_ch      db 'version_ch',0
+load_lib_end:
 edit1 edit_box 153, 56, 1, 0xffffff, 0xff, 0x80ff, 0, 0x8000, (outfile-infile-1), infile, mouse_dd, 0, 11,11
 edit2 edit_box 153, 56, 17, 0xffffff, 0xff, 0x80ff, 0, 0x8000,(path-outfile-1), outfile, mouse_dd, 0, 7,7
 edit3 edit_box 153, 56, 33, 0xffffff, 0xff, 0x80ff, 0, 0x8000,(path_end-path-1), path, mouse_dd, 0, 6,6
+editboxes_end:
+ch1_dbg check_box 5, 49, 6, 12, 0xffffff, 0x80ff, 0, s_dbgdescr,(s_dbgdescr_end-s_dbgdescr)
+;---------------------------------------------------------------------
+align 4
+OpenDialog_data:
+.type			dd 0
+.procinfo		dd pinfo	;+4
+.com_area_name		dd communication_area_name	;+8
+.com_area		dd 0	;+12
+.opendir_path		dd path ;+16
+.dir_default_path	dd default_dir ;+20
+.start_path		dd library_path ;+24 ¯ãâì ª ¤¨ «®£ã ®âªàëâ¨ï ä ©«®¢
+.draw_window		dd draw_window	;+28
+.status 		dd 0	;+32
+.openfile_path		dd path ;+36 ¯ãâì ª ®âªàë¢ ¥¬®¬ã ä ©«ã
+.filename_area		dd filename_area	;+40
+.filter_area		dd Filter
+.x:
+.x_size 		dw 420 ;+48 ; Window X size
+.x_start		dw 10 ;+50 ; Window X position
+.y:
+.y_size 		dw 320 ;+52 ; Window y size
+.y_start		dw 10 ;+54 ; Window Y position
+default_dir db '/rd/1',0 ;¤¨à¥ªâ®à¨ï ¯® ã¬®«ç ¨î
+communication_area_name:
+	db 'FFFFFFFF_open_dialog',0
+open_dialog_name:
+	db 'opendial',0
+communication_area_default_path:
+	db '/rd/1/File managers/',0
+Filter:
+dd Filter.end - Filter
+.1:
+db 'ASM',0
-editboxes_end:
+.end:
-ch1_dbg check_box 5, 49, 6, 12, 0xffffff, 0x80ff, 0, s_dbgdescr,(s_dbgdescr_end-s_dbgdescr)
+db 0
 mouse_dd dd 0 ;íóæíî äëÿ Shift-à â editbox
-infile	  db 'example.asm'
+infile	  db 'example.asm'
   times MAX_PATH-$+infile  db 0
 outfile db 'example'
   times MAX_PATH-$+outfile db 0
 program_end:
 ;  params db 0 ; 'TINYPAD.ASM,TINYPAD,/HD/1/TPAD4/',
 params	rb 4096
 cur_dir_path rb 4096
 library_path rb 4096
+filename_area rb 256
 align 4

Subversion Repositories Kolibri OS

(root)/programs/develop/fasm/trunk/fasm.asm – Rev 1443 → 1617