moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-24 08:18:52 -05:00
Code Issues Releases Wiki Activity

Small fix.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@186 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-11-03 20:54:35 +00:00
parent 61c802d7c0
commit 29d0b3f267
2 changed files with 280 additions and 311 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
Projects/forking/project1.lpi
View File

@ -9,7 +9,6 @@
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Icon Value="0"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="0"/>
</General> </General>
@ -30,139 +29,107 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<Units Count="8"> <Units Count="9">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<CursorPos X="30" Y="18"/> <CursorPos X="40" Y="57"/>
<TopLine Value="1"/> <TopLine Value="46"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="../../../../Documents/fpc/packages/fcl-process/src/process.pp"/> <Filename Value="../../../Documents/fpc/packages/fcl-process/src/process.pp"/>
<UnitName Value="process"/> <UnitName Value="process"/>
<CursorPos X="23" Y="94"/> <CursorPos X="23" Y="94"/>
<TopLine Value="72"/> <TopLine Value="72"/>
<EditorIndex Value="4"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../../../Documents/fpc/packages/fcl-process/src/unix/process.inc"/> <Filename Value="../../../Documents/fpc/packages/fcl-process/src/unix/process.inc"/>
<CursorPos X="34" Y="138"/> <CursorPos X="34" Y="138"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../../../Documents/fpc/packages/ncurses/src/form.pp"/> <Filename Value="../../../Documents/fpc/packages/ncurses/src/form.pp"/>
<UnitName Value="form"/> <UnitName Value="form"/>
<CursorPos X="42" Y="9"/> <CursorPos X="42" Y="9"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../../../Documents/fpc/packages/fv/src/time.pas"/> <Filename Value="../../../Documents/fpc/packages/fv/src/time.pas"/>
<UnitName Value="Time"/> <UnitName Value="Time"/>
<CursorPos X="44" Y="9"/> <CursorPos X="44" Y="9"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../../../Documents/fpc/rtl/linux/system.pp"/> <Filename Value="../../../Documents/fpc/rtl/linux/system.pp"/>
<UnitName Value="System"/> <UnitName Value="System"/>
<CursorPos X="40" Y="9"/> <CursorPos X="40" Y="9"/>
<TopLine Value="350"/> <TopLine Value="350"/>
<EditorIndex Value="3"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="../../../../Documents/lazarus/lcl/extctrls.pp"/> <Filename Value="../../../Documents/lazarus/lcl/extctrls.pp"/>
<UnitName Value="ExtCtrls"/> <UnitName Value="ExtCtrls"/>
<CursorPos X="22" Y="324"/> <CursorPos X="22" Y="324"/>
<TopLine Value="316"/> <TopLine Value="316"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="../../../../Documents/lazarus/lcl/customtimer.pas"/> <Filename Value="../../../Documents/lazarus/lcl/customtimer.pas"/>
<UnitName Value="CustomTimer"/> <UnitName Value="CustomTimer"/>
<CursorPos X="37" Y="39"/> <CursorPos X="37" Y="39"/>
<TopLine Value="27"/> <TopLine Value="27"/>
<EditorIndex Value="2"/> <UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="../../../fpcsrc/fpc/rtl/inc/except.inc"/>
<CursorPos X="3" Y="194"/>
<TopLine Value="178"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit8>
</Units> </Units>
<JumpHistory Count="16" HistoryIndex="15"> <JumpHistory Count="8" HistoryIndex="7">
<Position1> <Position1>
<Filename Value="../../../../Documents/fpc/packages/fcl-process/src/process.pp"/>
<Caret Line="158" Column="9" TopLine="132"/>
</Position1>
<Position2>
<Filename Value="../../../../Documents/lazarus/lcl/extctrls.pp"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="../../../../Documents/lazarus/lcl/extctrls.pp"/>
<Caret Line="324" Column="9" TopLine="316"/>
</Position3>
<Position4>
<Filename Value="../../../../Documents/lazarus/lcl/extctrls.pp"/>
<Caret Line="329" Column="26" TopLine="316"/>
</Position4>
<Position5>
<Filename Value="../../../../Documents/lazarus/lcl/extctrls.pp"/>
<Caret Line="389" Column="26" TopLine="374"/>
</Position5>
<Position6>
<Filename Value="../../../../Documents/lazarus/lcl/extctrls.pp"/>
<Caret Line="1166" Column="19" TopLine="1151"/>
</Position6>
<Position7>
<Filename Value="../../../../Documents/lazarus/lcl/extctrls.pp"/>
<Caret Line="1248" Column="44" TopLine="1233"/>
</Position7>
<Position8>
<Filename Value="../../../../Documents/lazarus/lcl/extctrls.pp"/>
<Caret Line="324" Column="22" TopLine="316"/>
</Position8>
<Position9>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<Caret Line="53" Column="19" TopLine="26"/> <Caret Line="53" Column="19" TopLine="26"/>
</Position9> </Position1>
<Position10> <Position2>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<Caret Line="71" Column="15" TopLine="49"/> <Caret Line="71" Column="15" TopLine="49"/>
</Position10> </Position2>
<Position11> <Position3>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<Caret Line="9" Column="38" TopLine="1"/> <Caret Line="9" Column="38" TopLine="1"/>
</Position11> </Position3>
<Position12> <Position4>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<Caret Line="55" Column="37" TopLine="40"/> <Caret Line="55" Column="37" TopLine="40"/>
</Position12> </Position4>
<Position13> <Position5>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<Caret Line="57" Column="68" TopLine="40"/> <Caret Line="57" Column="68" TopLine="40"/>
</Position13> </Position5>
<Position14> <Position6>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<Caret Line="56" Column="23" TopLine="43"/> <Caret Line="56" Column="23" TopLine="43"/>
</Position14> </Position6>
<Position15> <Position7>
<Filename Value="../../../../Documents/fpc/packages/fcl-process/src/process.pp"/>
<Caret Line="119" Column="71" TopLine="104"/>
</Position15>
<Position16>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<Caret Line="75" Column="50" TopLine="88"/> <Caret Line="18" Column="27" TopLine="1"/>
</Position16> </Position7>
<Position8>
<Filename Value="project1.lpr"/>
<Caret Line="56" Column="34" TopLine="37"/>
</Position8>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

6
Projects/forking/project1.lpr
View File

@ -53,8 +53,9 @@ begin
for i := 0 to a - 1 do for i := 0 to a - 1 do
begin begin
Processes[i] := TProcess.Create(Self); Processes[i] := TProcess.Create(Self);
Processes[i].CommandLine := 'echo "wat"'; {$WARNING SET THIS PATH}
Processes[i].ApplicationName := 'ForkingTest: ' + inttostr(i); Processes[i].CommandLine := 'C:/mufasa/Projects/MufasaTests/project1.exe';
//Processes[i].ApplicationName := 'ForkingTest: ' + inttostr(i);
Processes[i].Execute; Processes[i].Execute;
Writeln('Process ' + inttostr(i) + ', has ID ' + inttostr(Processes[i].ProcessID)); Writeln('Process ' + inttostr(i) + ', has ID ' + inttostr(Processes[i].ProcessID));
end; end;
@ -83,6 +84,7 @@ begin
your program here } your program here }
// stop program loop // stop program loop
writeln('done');
Terminate; Terminate;
end; end;