Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. ;-----------------------------------------------------------------------------
  2. lsz     s_text,\
  3.         ru,'‚ë¡®à ä ©« ',\
  4.         en,'Select file'
  5. ;-----------------------------------------------------------------------------
  6. lsz     r_text,\
  7.         ru,'ãáª',\
  8.         en,'Start'
  9. ;-----------------------------------------------------------------------------
  10. title   db 'File Speed  v0.1',0
  11. ;-----------------------------------------------------------------------------
  12. include_debug_strings
  13. ;-----------------------------------------------------------------------------
  14. l_libs_start:
  15.  
  16. library01  l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
  17. err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
  18.  
  19. library02  l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
  20. err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
  21.  
  22. end_l_libs:
  23. ;-----------------------------------------------------------------------------
  24. system_dir_Boxlib       db '/sys/lib/box_lib.obj',0
  25. system_dir_ProcLib      db '/sys/lib/proc_lib.obj',0
  26.  
  27. head_f_i:
  28. head_f_l        db 'System error',0
  29.  
  30. err_message_found_lib1  db 'box_lib.obj - Not found!',0
  31. err_message_found_lib2  db 'proc_lib.obj - Not found!',0
  32.  
  33. err_message_import1     db 'box_lib.obj - Wrong import!',0
  34. err_message_import2     db 'proc_lib.obj - Wrong import!',0
  35.  
  36. ;-----------------------------------------------------------------------------
  37. align 4
  38. ProcLib_import:
  39. OpenDialog_Init         dd aOpenDialog_Init
  40. OpenDialog_Start        dd aOpenDialog_Start
  41. ;OpenDialog_Version     dd aOpenDialog_Version
  42.  
  43. ;ColorDialog_Init       dd aColorDialog_Init
  44. ;ColorDialog_Start      dd aColorDialog_Start
  45. ;ColorDialog_Version    dd aColorDialog_Version
  46.  
  47.         dd      0
  48.         dd      0
  49.  
  50. aOpenDialog_Init        db 'OpenDialog_init',0
  51. aOpenDialog_Start       db 'OpenDialog_start',0
  52. ;aOpenDialog_Version    db 'Version_OpenDialog',0
  53.  
  54. ;aColorDialog_Init      db 'ColorDialog_init',0
  55. ;aColorDialog_Start     db 'ColorDialog_start',0
  56. ;aColorDialog_Version   db 'Version_ColorDialog',0
  57. ;-----------------------------------------------------------------------------
  58. align 4
  59. Box_lib_import:
  60. ;init_lib               dd a_init
  61. ;version_lib            dd a_version
  62.  
  63.  
  64. ;edit_box_draw          dd aEdit_box_draw
  65. ;edit_box_key           dd aEdit_box_key
  66. ;edit_box_mouse         dd aEdit_box_mouse
  67. ;version_ed             dd aVersion_ed
  68.  
  69. ;check_box_draw         dd aCheck_box_draw
  70. ;check_box_mouse        dd aCheck_box_mouse
  71. ;version_ch             dd aVersion_ch
  72.  
  73. ;option_box_draw        dd aOption_box_draw
  74. ;option_box_mouse       dd aOption_box_mouse
  75. ;version_op             dd aVersion_op
  76.  
  77. ;scrollbar_ver_draw     dd aScrollbar_ver_draw
  78. ;scrollbar_ver_mouse    dd aScrollbar_ver_mouse
  79. ;scrollbar_hor_draw     dd aScrollbar_hor_draw
  80. ;scrollbar_hor_mouse    dd aScrollbar_hor_mouse
  81. ;version_scrollbar      dd aVersion_scrollbar
  82.  
  83. ;dinamic_button_draw    dd aDbutton_draw
  84. ;dinamic_button_mouse   dd aDbutton_mouse
  85. ;version_dbutton        dd aVersion_dbutton
  86.  
  87. ;menu_bar_draw          dd aMenu_bar_draw
  88. ;menu_bar_mouse         dd aMenu_bar_mouse
  89. ;menu_bar_activate      dd aMenu_bar_activate
  90. ;version_menu_bar       dd aVersion_menu_bar
  91.  
  92. ;FileBrowser_draw       dd aFileBrowser_draw
  93. ;FileBrowser_mouse      dd aFileBrowser_mouse
  94. ;FileBrowser_key        dd aFileBrowser_key
  95. ;Version_FileBrowser    dd aVersion_FileBrowser
  96.  
  97. PathShow_prepare        dd sz_PathShow_prepare
  98. PathShow_draw           dd sz_PathShow_draw
  99. ;Version_path_show      dd szVersion_path_show
  100.  
  101. ;Frame_draw             dd sz_Frame_draw
  102. ;Version_frame          dd szVersion_frame
  103.  
  104.                         dd 0
  105.                         dd 0
  106.  
  107. ;a_init                 db 'lib_init',0
  108. ;a_version              db 'version',0
  109.  
  110. ;aEdit_box_draw         db 'edit_box',0
  111. ;aEdit_box_key          db 'edit_box_key',0
  112. ;aEdit_box_mouse        db 'edit_box_mouse',0
  113. ;aVersion_ed            db 'version_ed',0
  114.  
  115. ;aCheck_box_draw        db 'check_box_draw',0
  116. ;aCheck_box_mouse       db 'check_box_mouse',0
  117. ;aVersion_ch            db 'version_ch',0
  118.  
  119. ;aOption_box_draw       db 'option_box_draw',0
  120. ;aOption_box_mouse      db 'option_box_mouse',0
  121. ;aVersion_op            db 'version_op',0
  122.  
  123. ;aScrollbar_ver_draw    db 'scrollbar_v_draw',0
  124. ;aScrollbar_ver_mouse   db 'scrollbar_v_mouse',0
  125. ;aScrollbar_hor_draw    db 'scrollbar_h_draw',0
  126. ;aScrollbar_hor_mouse   db 'scrollbar_h_mouse',0
  127. ;aVersion_scrollbar     db 'version_scrollbar',0
  128.  
  129. ;aDbutton_draw          db 'dbutton_draw',0
  130. ;aDbutton_mouse         db 'dbutton_mouse',0
  131. ;aVersion_dbutton       db 'version_dbutton',0
  132.  
  133. ;aMenu_bar_draw         db 'menu_bar_draw',0
  134. ;aMenu_bar_mouse                db 'menu_bar_mouse',0
  135. ;aMenu_bar_activate     db 'menu_bar_activate',0
  136. ;aVersion_menu_bar      db 'version_menu_bar',0
  137.  
  138. ;aFileBrowser_draw      db 'FileBrowser_draw',0
  139. ;aFileBrowser_mouse     db 'FileBrowser_mouse',0
  140. ;aFileBrowser_key       db 'FileBrowser_key',0
  141. ;aVersion_FileBrowser   db 'version_FileBrowser',0
  142.  
  143. sz_PathShow_prepare     db 'PathShow_prepare',0
  144. sz_PathShow_draw        db 'PathShow_draw',0
  145. ;szVersion_path_show    db 'version_PathShow',0
  146.  
  147. ;sz_Frame_draw          db 'frame_draw',0
  148. ;szVersion_frame        db 'version_frame',0
  149. ;-----------------------------------------------------------------------------
  150. PathShow_data:
  151. .type                   dd 0    ;+0
  152. .start_y                dw 5+4  ;+4
  153. .start_x                dw 5+5  ;+6
  154. .font_size_x            dw 6    ;+8     ; 6 - for font 0, 8 - for font 1
  155. .area_size_x            dw 400-30       ;+10
  156. .font_number            dd 0    ;+12    ; 0 - monospace, 1 - variable
  157. .background_flag        dd 0    ;+16
  158. .font_color             dd 0x0  ;+20
  159. .background_color       dd 0x0  ;+24
  160. .text_pointer           dd fname        ;+28
  161. .work_area_pointer      dd text_work_area       ;+32
  162. .temp_text_length       dd 0    ;+36
  163. ;-----------------------------------------------------------------------------
  164. OpenDialog_data:
  165. .type                   dd 0
  166. .procinfo               dd process_info ;+4
  167. .com_area_name          dd communication_area_name      ;+8
  168. .com_area               dd 0    ;+12
  169. .opendir_pach           dd temp_dir_pach        ;+16
  170. .dir_default_pach       dd communication_area_default_pach      ;+20
  171. .start_path             dd open_dialog_path     ;+24
  172. .draw_window            dd draw_window  ;+28
  173. .status                 dd 0    ;+32
  174. .openfile_pach          dd fname        ;+36
  175. .filename_area          dd filename_area        ;+40
  176. .filter_area            dd Filter
  177. .x:
  178. .x_size                 dw 420 ;+48 ; Window X size
  179. .x_start                dw 10 ;+50 ; Window X position
  180. .y:
  181. .y_size                 dw 320 ;+52 ; Window y size
  182. .y_start                dw 10 ;+54 ; Window Y position
  183.  
  184. communication_area_name:
  185.         db 'FFFFFFFF_open_dialog2',0
  186.        
  187. open_dialog_path:
  188. if __nightbuild eq yes
  189.         db '/sys/MANAGERS/opendial',0
  190. else
  191.         db '/sys/File Managers/opendial',0
  192. end if
  193.  
  194. communication_area_default_pach:
  195.         db '/sys',0
  196.  
  197. Filter:
  198. dd      Filter.end - Filter.1
  199. .1:
  200. ;db     'BIN',0
  201. ;db     'DAT',0
  202. .end:
  203. db      0
  204.  
  205. start_temp_file_name:
  206.         db 'default.dtp',0
  207.  
  208. default_dtp:
  209.         db '/sys/default.dtp',0
  210. ;-----------------------------------------------------------------------------
  211. sector equ 512
  212. ;--------------------------------------
  213. result_table:
  214.         dd a512b, 0, sector*1
  215.         dd a1K, 1, sector*2
  216.         dd a2K, 2, sector*4
  217.         dd a4K, 3, sector*8
  218.         dd a8K, 4, sector*16
  219.         dd a16K, 5, sector*32
  220.         dd a32K, 6, sector*64
  221.         dd a64K, 7, sector*128
  222.         dd a128K, 8, sector*256
  223.         dd a256K, 9, sector*512
  224.         dd a512K, 10, sector*1024
  225.         dd a1M, 11, sector*2*1024
  226.         dd a2M, 12, sector*4*1024
  227.         dd a4M, 13, sector*8*1024
  228.         dd a8M, 14, sector*16*1024
  229.         dd a16M, 15, sector*32*1024
  230.         dd a32M, 16, sector*64*1024
  231.         dd a64M, -1, sector*128*1024
  232. ;-----------------------------------------------------------------------------
  233. a512b   db ' 512',0
  234. a1K     db '  1K',0
  235. a2K     db '  2K',0
  236. a4K     db '  4K',0
  237. a8K     db '  8K',0
  238. a16K    db ' 16K',0
  239. a32K    db ' 32K',0
  240. a64K    db ' 64K',0
  241. a128K   db '128K',0
  242. a256K   db '256K',0
  243. a512K   db '512K',0
  244. a1M     db '  1M',0
  245. a2M     db '  2M',0
  246. a4M     db '  4M',0
  247. a8M     db '  8M',0
  248. a16M    db ' 16M',0
  249. a32M    db ' 32M',0
  250. a64M    db ' 64M',0
  251. ;-----------------------------------------------------------------------------
  252. align 4
  253. fileinfo:
  254. .subfunction    dd 5
  255. .offset         dd 0
  256. .offset_1       dd 0
  257. .size           dd 0
  258. .return         dd file_info
  259.                 db 0
  260. .name:          dd fname
  261. ;-----------------------------------------------------------------------------
  262. align 4
  263. fileread:
  264. .subfunction    dd 0
  265. .offset         dd 0
  266. .offset_1       dd 0
  267. .size           dd 0
  268. .return         dd process_info
  269.                 db 0
  270. .name:          dd fname
  271. ;-----------------------------------------------------------------------------
  272.