- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
unit uboot;
procedure boot;
begin
delay(100);
output_buffer:='Uboot v0.1'+chr(10)+'Status: ...Ready!';
uboot_shell;
end;
procedure uboot_shell;
begin
showForm;
removeCommand(enter_cmd);
input_buffer_num:=formAddString(output_buffer);
enter_cmd:=createCommand('ok', CM_ITEM, 1);
input_buffer_num:=formAddTextField('boot >>', '', 256, TF_ANY);
addCommand(enter_cmd);
repaint;
repeat
delay(100);
until getClickedCommand=enter_cmd;
uboot_parse;
end;
procedure uboot_parse;
//Получаем буфер ввода в нижнем регестре
input_buffer:=locase(formGetText(input_buffer_num));
if input_buffer='shutdown' then shutdown;
else if input_buffer='help' then output_buffer:='shutdown, help, boot, clear';
else if input_buffer='boot' then os_boot;
else if input_buffer='clear' then clear;
else output_buffer:='Unsupported command';
uboot_shell;
end;
procedure shutdown;
begin
clearForm;
halt;
end;
procedure clear;
begin
clearForm;
output_buffer:='';
delay(100);
uboot_shell;
end;
procedure os_boot;
begin
input_buffer:='';
output_buffer:='';
clearForm;
kernel.kernel_start('');
xXx_totalwar 09.02.2010 20:30 # +1
ядро на дельфях
упаси торвальдс...
SieMaster 09.02.2010 20:45 # −2.2
jtim 10.02.2010 00:32 # +0.8
guest 10.02.2010 11:16 # −0.8
На с-к я тебе баню обеспечу, здесь тоже ты долго не попостишь :)
И кстати, код не на Delphi а на MIDletPascal :D
guest 10.02.2010 16:16 # −3.6