forked from KolibriOS/kolibrios
upload RUN sources; upload KolibriOS.lib
git-svn-id: svn://kolibrios.org@7039 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
0CodErr
parent
58bb0f9255
commit
41838ddb4c
BIN
contrib/sdk/lib/KolibriOS.lib
Normal file
BIN
contrib/sdk/lib/KolibriOS.lib
Normal file
Binary file not shown.
24
programs/system/RunOD/1/LScript.x
Normal file
24
programs/system/RunOD/1/LScript.x
Normal file
@ -0,0 +1,24 @@
|
||||
PATH_SIZE = 1024;
|
||||
PARAMS_SIZE = 256;
|
||||
STACK_SIZE = 1024;
|
||||
|
||||
SECTIONS
|
||||
{
|
||||
.all : AT(0){
|
||||
LONG(0x554e454D);
|
||||
LONG(0x31305445);
|
||||
LONG(1);
|
||||
LONG("@Main");
|
||||
LONG(END);
|
||||
LONG($END + PATH_SIZE + PARAMS_SIZE + STACK_SIZE);
|
||||
LONG($END + PATH_SIZE + PARAMS_SIZE + STACK_SIZE);
|
||||
LONG($END + PATH_SIZE);
|
||||
LONG($END);
|
||||
*(.text)
|
||||
*(.rdata)
|
||||
*(.data)
|
||||
}
|
||||
END = .;
|
||||
.bss ALIGN(16) : {*(.bss)}
|
||||
$END = .;
|
||||
}
|
||||
655
programs/system/RunOD/1/RUN.asm
Normal file
655
programs/system/RunOD/1/RUN.asm
Normal file
@ -0,0 +1,655 @@
|
||||
Comment *--------------------+
|
||||
| |
|
||||
| Run with OpenDialog |
|
||||
| UASM + KolibriOS.lib |
|
||||
| |
|
||||
+----------------------------*
|
||||
.586
|
||||
.Model Flat, StdCall
|
||||
Option CaseMap: None
|
||||
|
||||
Public @Main
|
||||
|
||||
FALSE = 0
|
||||
TRUE = Not FALSE
|
||||
|
||||
CStr Macro QuotedText:VarArg
|
||||
Local LocalText
|
||||
.Const
|
||||
LocalText db QuotedText,0
|
||||
.Code
|
||||
ExitM <Offset LocalText>
|
||||
EndM
|
||||
|
||||
IfDef LANG_IT
|
||||
szProgramRunSuccessfully equ <CStr("Programma eseguito correttamente")>
|
||||
szFileNotFound equ <CStr("File non trovato")>
|
||||
szFileIsNotExecutable equ <CStr("File non eseguibile")>
|
||||
szTooManyProcesses equ <CStr("Troppi processi")>
|
||||
szAccessDenied equ <CStr("Accesso negato")>
|
||||
szOutOfMemory equ <CStr("Memoria esaurita")>
|
||||
szUnknownError equ <CStr("Errore sconosciuto")>
|
||||
szTypeNameOfProgram equ <CStr("Digita il nome del programma per eseguirlo")>
|
||||
szRun equ <CStr("Esegui")>
|
||||
szTitle equ <CStr("Esegui")>
|
||||
szPressF1 equ <CStr("Premere F1 per visualizzare le informazioni sui tasti di scelta rapida")>
|
||||
szHelpInfo equ <CStr("Insert - il percorso da aprire la finestra di dialogo casella di modifica\n",\
|
||||
"Ctrl + Insert - aggiungi percorso alla posizione corrente del cursore\n",\
|
||||
"Ctrl + Shift + Insert - aggiungi sempre un percorso senza virgolette")>
|
||||
ElseIfDef LANG_SP
|
||||
szProgramRunSuccessfully equ <CStr("Programa ejecutado con exito")>
|
||||
szFileNotFound equ <CStr("Archivo no encontrado")>
|
||||
szFileIsNotExecutable equ <CStr("Archivo no es ejecutable")>
|
||||
szTooManyProcesses equ <CStr("Muchos procesos")>
|
||||
szAccessDenied equ <CStr("Acceso denegado")>
|
||||
szOutOfMemory equ <CStr("Memoria insuficiente")>
|
||||
szUnknownError equ <CStr("Error desconocido")>
|
||||
szTypeNameOfProgram equ <CStr("Tipo nombre del programa a ejecutar")>
|
||||
szRun equ <CStr("Ejecutar")>
|
||||
szTitle equ <CStr("Ejecutar")>
|
||||
szPressF1 equ <CStr("Presione F1 para ver la informacion acerca de las teclas de acceso rapido")>
|
||||
szHelpInfo equ <CStr("Insert - establecer la ruta de recuadro de dialogo en el cuadro de edicion\n",\
|
||||
"Ctrl + Insert - agregar ruta a la posicion actual del cursor\n",\
|
||||
"Ctrl + Shift + Insert - siempre agregar la ruta sin las comillas")>
|
||||
ElseIfDef LANG_RU
|
||||
szProgramRunSuccessfully equ <CStr("<22>à®£à ¬¬ § ¯ãé¥ ãᯥè®")>
|
||||
szFileNotFound equ <CStr("” ©« ¥ ©¤¥")>
|
||||
szFileIsNotExecutable equ <CStr("” ©« ¥ ï¥âáï ¨á¯®«ï¥¬ë¬")>
|
||||
szTooManyProcesses equ <CStr("‘«¨èª®¬ ¬®£® ¯à®æ¥áᮢ")>
|
||||
szAccessDenied equ <CStr("„®áâ㯠§ ¯à¥é¥")>
|
||||
szOutOfMemory equ <CStr("<22>¥¤®áâ â®ç® ¯ ¬ïâ¨")>
|
||||
szUnknownError equ <CStr("<22>¥¨§¢¥áâ ï ®è¨¡ª ")>
|
||||
szTypeNameOfProgram equ <CStr("‚¢¥¤¨â¥ §¢ ¨¥ ¯à®£à ¬¬ë")>
|
||||
szRun equ <CStr("‡ ¯ãáâ¨âì")>
|
||||
szTitle equ <CStr("‡ ¯ã᪠¯à®£à ¬¬ë")>
|
||||
szPressF1 equ <CStr("<22> ¦¬¨â¥ ª« ¢¨èã F1, çâ®¡ë ¯à®á¬®âà¥âì ¨ä®à¬ æ¨î ® £®àïç¨å ª« ¢¨è å")>
|
||||
szHelpInfo equ <CStr("Insert - ãáâ ®¢¨âì ¯ãâì ¨§ ¤¨ «®£ ®âªàëâ¨ï ¢ ¯®«¥ ¢¢®¤ \n",\
|
||||
"Ctrl + Insert - ¤®¡ ¢¨âì ¯ãâì ¨§ ¤¨ «®£ ®âªàëâ¨ï ¢ ¯®«¥ ¢¢®¤ ¢ ⥪ãéãî ¯®§¨æ¨î ªãàá®à \n",\
|
||||
"Ctrl + Shift + Insert - ¢á¥£¤ ¤®¡ ¢«ïâì ¯ãâì ¡¥§ ª ¢ë祪")>
|
||||
ElseIfDef LANG_EN
|
||||
szProgramRunSuccessfully equ <CStr("Program run successfully")>
|
||||
szFileNotFound equ <CStr("File not found")>
|
||||
szFileIsNotExecutable equ <CStr("File is not executable")>
|
||||
szTooManyProcesses equ <CStr("Too many processes")>
|
||||
szAccessDenied equ <CStr("Access denied")>
|
||||
szOutOfMemory equ <CStr("Out of memory")>
|
||||
szUnknownError equ <CStr("Unknown error")>
|
||||
szTypeNameOfProgram equ <CStr("Type name of program to run")>
|
||||
szRun equ <CStr(" Run ")>
|
||||
szTitle equ <CStr("Run")>
|
||||
szPressF1 equ <CStr("Press F1 to view information about the hot keys")>
|
||||
szHelpInfo equ <CStr("Insert - set path from open dialog to edit box\n",\
|
||||
"Ctrl + Insert - add path from open dialog into edit box at the current cursor position\n",\
|
||||
"Ctrl + Shift + Insert - always add path without quotes")>
|
||||
Else
|
||||
.Err LANG_??
|
||||
EndIf
|
||||
|
||||
; Events
|
||||
REDRAW_EVENT = 1
|
||||
KEY_EVENT = 2
|
||||
BUTTON_EVENT = 3
|
||||
BACKGROUND_EVENT = 5
|
||||
MOUSE_EVENT = 6
|
||||
IPC_EVENT = 7
|
||||
NETWORK_EVENT = 8
|
||||
DEBUG_EVENT = 9
|
||||
|
||||
; Window Style Constants
|
||||
WS_SKINNED_FIXED = 4000000H
|
||||
WS_COORD_CLIENT = 20000000H
|
||||
WS_CAPTION = 10000000H
|
||||
|
||||
; Caption Style Constants
|
||||
CS_MOVABLE = 0
|
||||
|
||||
; Event Mask Constants
|
||||
EM_REDRAW = 001H
|
||||
EM_KEY = 002H
|
||||
EM_BUTTON = 004H
|
||||
EM_BACKGROUND = 010H
|
||||
EM_MOUSE = 020H
|
||||
EM_IPC = 040H
|
||||
EM_NETWORK = 080H
|
||||
EM_DEBUG = 100H
|
||||
|
||||
; Draw zero terminated string for DrawText
|
||||
DT_ZSTRING = 080000000H
|
||||
|
||||
; Charset specifiers for DrawText
|
||||
DT_CP866_8X16 = 10000000H
|
||||
|
||||
; bits for the GetControlKeyState
|
||||
LEFT_SHIFT_PRESSED = 1
|
||||
RIGHT_SHIFT_PRESSED = 2
|
||||
LEFT_CTRL_PRESSED = 4
|
||||
RIGHT_CTRL_PRESSED = 8
|
||||
|
||||
TOpenDialog Struct
|
||||
mode Dword ?
|
||||
procinfo Dword ?
|
||||
com_area_name Dword ?
|
||||
com_area Dword ?
|
||||
opendir_path Dword ?
|
||||
dir_default_path Dword ?
|
||||
start_path Dword ?
|
||||
draw_Window Dword ?
|
||||
status Dword ?
|
||||
openfile_path Dword ?
|
||||
filename_area Dword ?
|
||||
filter_area Dword ?
|
||||
x_size Word ?
|
||||
x_start SWord ?
|
||||
y_size Word ?
|
||||
y_start SWord ?
|
||||
TOpenDialog EndS
|
||||
|
||||
TEditBox Struct
|
||||
x_size Dword ?
|
||||
left SDword ?
|
||||
top SDword ?
|
||||
color Dword ?
|
||||
shift_color Dword ?
|
||||
focus_border_color Dword ?
|
||||
blur_border_color Dword ?
|
||||
text_color Dword ?
|
||||
max Dword ?
|
||||
text Dword ?
|
||||
mouse_variable Dword ?
|
||||
flags Dword ?
|
||||
count Dword ?
|
||||
pos Dword ?
|
||||
offs Dword ?
|
||||
cl_curs_x SWord ?
|
||||
cl_curs_y SWord ?
|
||||
shift Word ?
|
||||
shift_old Word ?
|
||||
height Dword ?
|
||||
char_width Dword ?
|
||||
TEditBox EndS
|
||||
|
||||
TStandartColors Struct
|
||||
frames Dword ?
|
||||
grab Dword ?
|
||||
grab_button Dword ?
|
||||
grab_button_text Dword ?
|
||||
grab_text Dword ?
|
||||
work Dword ?
|
||||
work_button Dword ?
|
||||
work_button_text Dword ?
|
||||
work_text Dword ?
|
||||
work_graph Dword ?
|
||||
TStandartColors EndS
|
||||
|
||||
TRect Struct
|
||||
Left SDword ?
|
||||
Top SDword ?
|
||||
Right SDword ?
|
||||
Bottom SDword ?
|
||||
TRect EndS
|
||||
|
||||
TSize Struct
|
||||
SizeY Word ?
|
||||
SizeX Word ?
|
||||
TSize EndS
|
||||
|
||||
TKeyboardInput Struct
|
||||
Flag Byte ?
|
||||
Code Byte ?
|
||||
Union
|
||||
Scan Byte ?
|
||||
Control Word ?
|
||||
EndS
|
||||
TKeyboardInput EndS
|
||||
|
||||
TButtonInput Struct
|
||||
MouseButton Byte ?
|
||||
ID Word ?
|
||||
HiID Byte ?
|
||||
TButtonInput EndS
|
||||
|
||||
; Button identifiers
|
||||
BUTTON_RUN = 10
|
||||
BUTTON_BROWSE = 20
|
||||
|
||||
KEY_SCAN_ENTER = 01CH
|
||||
KEY_SCAN_INSERT = 052H
|
||||
KEY_SCAN_F1 = 03BH
|
||||
|
||||
KEY_CODE_0 = 030H
|
||||
|
||||
PROC_INFO_BUFFER_SIZE = 1024
|
||||
OPEN_FILE_PATH_BUFFER_SIZE = 4096
|
||||
FILE_NAME_AREA_BUFFER_SIZE = 1024
|
||||
OPEN_DIR_PATH_BUFFER_SIZE = OPEN_FILE_PATH_BUFFER_SIZE - FILE_NAME_AREA_BUFFER_SIZE
|
||||
|
||||
EDIT1_TEXT_BUFFER_SIZE = 4096
|
||||
TMP_BUFFER_SIZE = 4096
|
||||
|
||||
GetButton Proto
|
||||
GetKey Proto
|
||||
WaitEvent Proto
|
||||
BeginDraw Proto
|
||||
EndDraw Proto
|
||||
DrawWindow Proto Left:SDword, Top:SDword, Right:SDword, Bottom:SDword, Caption:Ptr, BackColor:Dword, Style:Dword, CapStyle:Dword
|
||||
ThreadTerminate Proto
|
||||
LoadLibrary Proto Path:Ptr
|
||||
GetProcAddress Proto hLib:Ptr, ProcName:Ptr
|
||||
SetEventMask Proto EventMask:Dword
|
||||
GetScreenSize Proto
|
||||
GetSkinHeight Proto
|
||||
HeapAllocate Proto Bytes:Dword
|
||||
DrawButton Proto Left:SDword, Top:SDword, Right:SDword, Bottom:SDword, BackColor:Dword, Style:Dword, ID:Dword
|
||||
RunFile Proto Path:Ptr, CmdLine:Ptr
|
||||
GetStandardColors Proto ColorTable:Ptr, TableSize:Dword
|
||||
DrawText Proto X:SDword, Y:SDword, Text:Ptr, ForeColor:Dword, BackColor:Dword, Flags:Dword, Count:Dword
|
||||
GetControlKeyState Proto
|
||||
|
||||
EditBoxDraw_proto TypeDef Proto :Ptr
|
||||
EditBoxKey_proto TypeDef Proto :Ptr
|
||||
EditBoxMouse_proto TypeDef Proto :Ptr
|
||||
EditBoxSetText_proto TypeDef Proto :Ptr, :Ptr
|
||||
|
||||
OpenDialogInit_proto TypeDef Proto :Ptr
|
||||
OpenDialogStart_proto TypeDef Proto :Ptr
|
||||
|
||||
OpenDialogInit_proc TypeDef Ptr OpenDialogInit_proto
|
||||
OpenDialogStart_proc TypeDef Ptr OpenDialogStart_proto
|
||||
|
||||
EditBoxDraw_proc TypeDef Ptr EditBoxDraw_proto
|
||||
EditBoxKey_proc TypeDef Ptr EditBoxKey_proto
|
||||
EditBoxMouse_proc TypeDef Ptr EditBoxMouse_proto
|
||||
EditBoxSetText_proc TypeDef Ptr EditBoxSetText_proto
|
||||
; -------------------------------------------------------- ;
|
||||
.Const; -------------------------------------------------- ;
|
||||
; -------------------------------------------------------- ;
|
||||
szFFFFFFFFOpenDialog db "FFFFFFFF_open_dialog",0
|
||||
szSYS db "/sys",0
|
||||
szOpenDialPath db "/sys/File managers/opendial",0
|
||||
szEmpty db 0
|
||||
; -------------------------------------------------------- ;
|
||||
.Data; --------------------------------------------------- ;
|
||||
; -------------------------------------------------------- ;
|
||||
FileFilter Dword 0
|
||||
|
||||
OD TOpenDialog <\
|
||||
0,\
|
||||
Offset ProcInfoBuffer,\
|
||||
Offset szFFFFFFFFOpenDialog,\
|
||||
0,\
|
||||
Offset OpenDirPathBuffer,\
|
||||
Offset szSYS,\
|
||||
Offset szOpenDialPath,\
|
||||
Offset OnRedraw,\
|
||||
0,\
|
||||
0,\
|
||||
Offset FileNameAreaBuffer,\
|
||||
Offset FileFilter,\
|
||||
414,\
|
||||
0,\
|
||||
414,\
|
||||
0\
|
||||
>
|
||||
|
||||
Edit1 TEditBox <\
|
||||
0,\
|
||||
5,\
|
||||
26,\
|
||||
00FFFFFFH,\
|
||||
00A4C4E4H,\
|
||||
0,\
|
||||
0,\
|
||||
DT_CP866_8X16,\
|
||||
EDIT1_TEXT_BUFFER_SIZE,\
|
||||
Offset Edit1TextBuffer,\
|
||||
Offset Edit1MouseVariable,\
|
||||
4002H,\
|
||||
0,\
|
||||
0,\
|
||||
0,\
|
||||
0,\
|
||||
0,\
|
||||
0,\
|
||||
0\
|
||||
>
|
||||
; -------------------------------------------------------- ;
|
||||
.Data? ; ------------------------------------------------- ;
|
||||
; -------------------------------------------------------- ;
|
||||
BoxLib Dword ?
|
||||
ProcLib Dword ?
|
||||
|
||||
OpenDialogInit OpenDialogInit_proc ?
|
||||
OpenDialogStart OpenDialogStart_proc ?
|
||||
|
||||
EditBoxDraw EditBoxDraw_proc ?
|
||||
EditBoxKey EditBoxKey_proc ?
|
||||
EditBoxMouse EditBoxMouse_proc ?
|
||||
EditBoxSetText EditBoxSetText_proc ?
|
||||
|
||||
SC TStandartColors <>
|
||||
Window TRect <>
|
||||
Screen TSize <>
|
||||
|
||||
RunResult Dword ?
|
||||
RunParams Dword ?
|
||||
RunPath Dword ?
|
||||
|
||||
AlwaysWithoutQuote Dword ?
|
||||
ClearBeforeInsert Dword ?
|
||||
|
||||
Key TKeyboardInput <>
|
||||
Button TButtonInput <>
|
||||
|
||||
FileNameAreaBuffer Byte FILE_NAME_AREA_BUFFER_SIZE Dup (?)
|
||||
OpenFilePathBuffer Byte OPEN_FILE_PATH_BUFFER_SIZE Dup (?)
|
||||
OpenDirPathBuffer Byte OPEN_DIR_PATH_BUFFER_SIZE Dup (?)
|
||||
ProcInfoBuffer Byte PROC_INFO_BUFFER_SIZE Dup (?)
|
||||
|
||||
Edit1MouseVariable Dword ?
|
||||
Edit1TextBuffer Byte EDIT1_TEXT_BUFFER_SIZE + 2 Dup (?) ; buffer for Edit1.text
|
||||
TmpBuffer Byte TMP_BUFFER_SIZE Dup (?) ; this buffer uses in StrInsert
|
||||
; -------------------------------------------------------- ;
|
||||
.Code ; -------------------------------------------------- ;
|
||||
; -------------------------------------------------------- ;
|
||||
OnRedraw Proc
|
||||
Invoke BeginDraw
|
||||
Invoke GetStandardColors, Offset SC, SizeOf(SC)
|
||||
|
||||
mov eax, SC.work_graph
|
||||
mov Edit1.focus_border_color, eax
|
||||
|
||||
Invoke DrawWindow, Window.Left, Window.Top, Window.Right, Window.Bottom, szTitle, SC.work, WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CS_MOVABLE
|
||||
Invoke DrawText, 5, 5, szTypeNameOfProgram, SC.work_text, 0, DT_ZSTRING + DT_CP866_8X16, 0
|
||||
; Browse button
|
||||
mov eax, Window.Right
|
||||
sub eax, 70
|
||||
Invoke DrawButton, eax, 26, 52, 21, SC.work_button, 0, 20
|
||||
mov eax, Window.Right
|
||||
sub eax, 56
|
||||
Invoke DrawText, eax, 29, CStr("..."), SC.work_button_text, 0, DT_ZSTRING + DT_CP866_8X16, 0
|
||||
; Run button
|
||||
mov eax, Window.Right
|
||||
sub eax, 22
|
||||
Invoke DrawButton, 5, 52, eax, 21, SC.work_button, 0, 10
|
||||
mov eax, Window.Right
|
||||
shr eax, 1
|
||||
sub eax, 40
|
||||
Invoke DrawText, eax, 55, szRun, SC.work_button_text, 0, DT_ZSTRING + DT_CP866_8X16, 0
|
||||
; Result text
|
||||
Invoke DrawText, 5, 80, RunResult, SC.work_text, 0, DT_ZSTRING + DT_CP866_8X16, 0
|
||||
Invoke EditBoxDraw, Offset Edit1
|
||||
Invoke EndDraw
|
||||
ret
|
||||
OnRedraw Endp
|
||||
; -------------------------------------------------------- ;
|
||||
StrInsert Proc Uses esi edi Src:Ptr, Dst:Ptr, Pos:Dword
|
||||
Local TotalLength:Dword
|
||||
|
||||
mov TotalLength, 0
|
||||
|
||||
mov esi, Dst
|
||||
mov edi, Offset TmpBuffer
|
||||
mov ecx, Pos
|
||||
add TotalLength, ecx
|
||||
rep movsb
|
||||
|
||||
mov edi, Src
|
||||
mov ecx, 0FFFFFFFFH
|
||||
xor eax, eax
|
||||
repne scasb
|
||||
mov eax, 0FFFFFFFEH
|
||||
sub eax, ecx
|
||||
add TotalLength, eax
|
||||
|
||||
mov esi, Src
|
||||
mov edi, Offset TmpBuffer
|
||||
add edi, Pos
|
||||
mov ecx, eax
|
||||
rep movsb
|
||||
|
||||
push edi
|
||||
|
||||
mov edi, Dst
|
||||
add edi, Pos
|
||||
mov ecx, 0FFFFFFFFH
|
||||
xor eax, eax
|
||||
repne scasb
|
||||
mov eax, 0FFFFFFFEH
|
||||
sub eax, ecx
|
||||
inc eax
|
||||
add TotalLength, eax
|
||||
|
||||
pop edi
|
||||
|
||||
mov esi, Dst
|
||||
add esi, Pos
|
||||
mov ecx, eax
|
||||
rep movsb
|
||||
|
||||
mov esi, Offset TmpBuffer
|
||||
mov edi, Dst
|
||||
mov ecx, TotalLength
|
||||
rep movsb
|
||||
|
||||
ret
|
||||
StrInsert Endp
|
||||
; -------------------------------------------------------- ;
|
||||
OnButtonRun Proc
|
||||
Local TmpChar: Byte
|
||||
Local StartWithQuote: Dword
|
||||
; need to split path & params
|
||||
mov eax, Edit1.text
|
||||
; Skip Spaces
|
||||
.While Byte Ptr [eax] == ' '
|
||||
inc eax
|
||||
.EndW
|
||||
mov StartWithQuote, 0
|
||||
; Skip Possible Quotation Mark
|
||||
.If Byte Ptr [eax] == '"'
|
||||
mov StartWithQuote, TRUE
|
||||
inc eax
|
||||
.EndIf
|
||||
mov RunPath, eax
|
||||
; Find Space Or Quote Or EndOfString
|
||||
.Repeat
|
||||
.If Byte Ptr [eax] == ' '
|
||||
.If !StartWithQuote
|
||||
mov TmpChar, ' '
|
||||
mov Byte Ptr [eax], 0
|
||||
push eax ; save pointer
|
||||
inc eax
|
||||
; Skip Spaces
|
||||
.While Byte Ptr [eax] == ' '
|
||||
inc eax
|
||||
.EndW
|
||||
.Break
|
||||
.EndIf
|
||||
.ElseIf Byte Ptr [eax] == '"'
|
||||
mov TmpChar, '"'
|
||||
mov Byte Ptr [eax], 0
|
||||
push eax ; save pointer
|
||||
inc eax
|
||||
; Skip Spaces
|
||||
.While Byte Ptr [eax] == ' '
|
||||
inc eax
|
||||
.EndW
|
||||
; params can be written immediately after quotation mark
|
||||
; without any spaces
|
||||
; like this way: "path"params
|
||||
.Break
|
||||
.ElseIf Byte Ptr [eax] == 0
|
||||
push eax ; save pointer
|
||||
mov TmpChar, 0
|
||||
.Break
|
||||
.EndIf
|
||||
inc eax
|
||||
.Until 0
|
||||
mov RunParams, eax
|
||||
Invoke RunFile, RunPath, RunParams
|
||||
test eax, eax
|
||||
.If SIGN?
|
||||
.If eax == -5
|
||||
mov RunResult, szFileNotFound
|
||||
.ElseIf eax == -31
|
||||
mov RunResult, szFileIsNotExecutable
|
||||
.ElseIf eax == -32
|
||||
mov RunResult, szTooManyProcesses
|
||||
.ElseIf eax == -10
|
||||
mov RunResult, szAccessDenied
|
||||
.ElseIf eax == -30
|
||||
mov RunResult, szOutOfMemory
|
||||
.Else
|
||||
mov RunResult, szUnknownError
|
||||
.EndIf
|
||||
.Else
|
||||
mov RunResult, szProgramRunSuccessfully
|
||||
.EndIf
|
||||
|
||||
pop eax ; restore char changed by 0
|
||||
mov cl, TmpChar
|
||||
mov Byte Ptr [eax], cl
|
||||
|
||||
Invoke OnRedraw
|
||||
ret
|
||||
OnButtonRun Endp
|
||||
; -------------------------------------------------------- ;
|
||||
OnButtonBrowse Proc
|
||||
Local NeedQuote:Dword
|
||||
|
||||
Invoke OpenDialogStart, Offset OD
|
||||
.If OD.status != 0
|
||||
|
||||
; need to check if spaces are in path and if so then quote path
|
||||
mov eax, OD.openfile_path
|
||||
; by default assume quote not needed
|
||||
mov NeedQuote, 0
|
||||
.While Byte Ptr [eax]
|
||||
.If Byte Ptr [eax] == ' '
|
||||
; need quote
|
||||
mov NeedQuote, TRUE
|
||||
.EndIf
|
||||
inc eax
|
||||
.EndW
|
||||
; eax -> zero byte
|
||||
.If NeedQuote && !AlwaysWithoutQuote
|
||||
mov Byte Ptr [eax], '"'
|
||||
mov Byte Ptr [eax + 1], 0
|
||||
push eax ; save pointer
|
||||
mov eax, OD.openfile_path
|
||||
dec eax
|
||||
.Else
|
||||
mov eax, OD.openfile_path
|
||||
.EndIf
|
||||
|
||||
.If ClearBeforeInsert
|
||||
Invoke EditBoxSetText, Offset Edit1, Offset szEmpty
|
||||
.EndIf
|
||||
|
||||
Invoke StrInsert, eax, Edit1.text, Edit1.pos
|
||||
|
||||
.If NeedQuote && !AlwaysWithoutQuote
|
||||
pop eax ; restore zero changed by quote
|
||||
mov Byte Ptr [eax], 0
|
||||
.EndIf
|
||||
|
||||
Invoke EditBoxSetText, Offset Edit1, Edit1.text
|
||||
.EndIf
|
||||
ret
|
||||
OnButtonBrowse Endp
|
||||
; -------------------------------------------------------- ;
|
||||
@Main:
|
||||
Invoke SetEventMask, EM_REDRAW + EM_KEY + EM_BUTTON + EM_MOUSE
|
||||
Invoke LoadLibrary, CStr("/sys/lib/box_lib.obj")
|
||||
mov BoxLib, eax
|
||||
Invoke LoadLibrary, CStr("/sys/lib/proc_lib.obj")
|
||||
mov ProcLib, eax
|
||||
Invoke GetProcAddress, BoxLib, CStr("edit_box")
|
||||
mov EditBoxDraw, eax
|
||||
Invoke GetProcAddress, BoxLib, CStr("edit_box_key")
|
||||
mov EditBoxKey, eax
|
||||
Invoke GetProcAddress, BoxLib, CStr("edit_box_mouse")
|
||||
mov EditBoxMouse, eax
|
||||
Invoke GetProcAddress, BoxLib, CStr("edit_box_set_text")
|
||||
mov EditBoxSetText, eax
|
||||
Invoke GetProcAddress, ProcLib, CStr("OpenDialog_init")
|
||||
mov OpenDialogInit, eax
|
||||
Invoke GetProcAddress, ProcLib, CStr("OpenDialog_start")
|
||||
mov OpenDialogStart, eax
|
||||
|
||||
; it need for case if spaces are present in filepath
|
||||
lea eax, [OpenFilePathBuffer + 1]
|
||||
mov OD.openfile_path, eax
|
||||
mov OpenFilePathBuffer, '"'
|
||||
|
||||
Invoke OpenDialogInit, Offset OD
|
||||
|
||||
Invoke GetScreenSize
|
||||
mov Screen, eax
|
||||
shr eax, 17
|
||||
add eax, 90
|
||||
mov Window.Right, eax
|
||||
|
||||
Invoke GetSkinHeight
|
||||
add eax, 100
|
||||
mov Window.Bottom, eax
|
||||
|
||||
movzx eax, Screen.SizeX
|
||||
sub eax, Window.Right
|
||||
shr eax, 1
|
||||
mov Window.Left, eax
|
||||
|
||||
movzx eax, Screen.SizeY
|
||||
sub eax, Window.Bottom
|
||||
sub eax, 100
|
||||
mov Window.Top, eax
|
||||
|
||||
mov eax, Window.Right
|
||||
sub eax, 80
|
||||
mov Edit1.x_size, eax
|
||||
|
||||
mov RunResult, szPressF1
|
||||
|
||||
.Repeat
|
||||
Invoke WaitEvent
|
||||
.If eax == REDRAW_EVENT
|
||||
Invoke OnRedraw
|
||||
.ElseIf eax == KEY_EVENT
|
||||
Invoke GetControlKeyState
|
||||
.If eax & (RIGHT_SHIFT_PRESSED Or LEFT_SHIFT_PRESSED)
|
||||
mov AlwaysWithoutQuote, TRUE
|
||||
.Else
|
||||
mov AlwaysWithoutQuote, FALSE
|
||||
.EndIf
|
||||
.If eax & (RIGHT_CTRL_PRESSED Or LEFT_CTRL_PRESSED)
|
||||
mov ClearBeforeInsert, FALSE
|
||||
.Else
|
||||
mov ClearBeforeInsert, TRUE
|
||||
.EndIf
|
||||
Invoke GetKey
|
||||
mov Key, eax
|
||||
.If Key.Scan == KEY_SCAN_ENTER
|
||||
Invoke OnButtonRun
|
||||
; need check Code cause numpad0.Scan = Insert.Scan
|
||||
.ElseIf (Key.Scan == KEY_SCAN_INSERT) && \
|
||||
(Key.Code != KEY_CODE_0)
|
||||
Invoke OnButtonBrowse
|
||||
.ElseIf Key.Scan == KEY_SCAN_F1
|
||||
Invoke RunFile, CStr("/SYS/@NOTIFY"), szHelpInfo
|
||||
.Else
|
||||
Invoke EditBoxKey, Offset Edit1
|
||||
.EndIf
|
||||
.ElseIf eax == BUTTON_EVENT
|
||||
Invoke GetButton
|
||||
mov Button, eax
|
||||
.If Button.ID == 1
|
||||
Invoke ThreadTerminate
|
||||
.ElseIf Button.ID == BUTTON_RUN
|
||||
Invoke OnButtonRun
|
||||
.ElseIf Button.ID == BUTTON_BROWSE
|
||||
Invoke OnButtonBrowse
|
||||
.EndIf
|
||||
.ElseIf eax == MOUSE_EVENT
|
||||
Invoke EditBoxMouse, Offset Edit1
|
||||
.EndIf
|
||||
.Until 0
|
||||
END
|
||||
7
programs/system/RunOD/1/make.bat
Normal file
7
programs/system/RunOD/1/make.bat
Normal file
@ -0,0 +1,7 @@
|
||||
: %KolibriOS% - directory which contains KolibriOS.lib
|
||||
@jwasm -zt0 -coff -Fi lang.inc RUN.asm
|
||||
@ld -T LScript.x RUN.obj -o RUN.kex -L %KolibriOS% -l KolibriOS
|
||||
@objcopy -O binary -j .all RUN.kex
|
||||
@del RUN.obj
|
||||
@del lang.inc
|
||||
@pause
|
||||
2
programs/system/RunOD/1/make_en.bat
Normal file
2
programs/system/RunOD/1/make_en.bat
Normal file
@ -0,0 +1,2 @@
|
||||
@echo LANG_EN = 1 > lang.inc
|
||||
make.bat
|
||||
2
programs/system/RunOD/1/make_it.bat
Normal file
2
programs/system/RunOD/1/make_it.bat
Normal file
@ -0,0 +1,2 @@
|
||||
@echo LANG_IT = 1 > lang.inc
|
||||
make.bat
|
||||
2
programs/system/RunOD/1/make_ru.bat
Normal file
2
programs/system/RunOD/1/make_ru.bat
Normal file
@ -0,0 +1,2 @@
|
||||
@echo LANG_RU = 1 > lang.inc
|
||||
make.bat
|
||||
2
programs/system/RunOD/1/make_sp.bat
Normal file
2
programs/system/RunOD/1/make_sp.bat
Normal file
@ -0,0 +1,2 @@
|
||||
@echo LANG_SP = 1 > lang.inc
|
||||
make.bat
|
||||
Loading…
Reference in New Issue
Block a user