Pārlūkot izejas kodu

Added SUPPORT_REMOTE related new variables

git-svn-id: trunk@28921 -
pierre 10 gadi atpakaļ
vecāks
revīzija
d61152af67
1 mainītis faili ar 22 papildinājumiem un 0 dzēšanām
  1. 22 0
      ide/fpini.pas

+ 22 - 0
ide/fpini.pas

@@ -102,10 +102,17 @@ const
   ieDebuggeeRedir    = 'DebugRedirection';
   ieRemoteMachine    = 'RemoteMachine';
   ieRemotePort       = 'RemotePort';
+  ieRemotePuttySession = 'RemotePuttySession';
   ieRemoteSendCommand = 'RemoteSendCommand';
+  ieRemoteExecCommand = 'RemoteExecCommand';
+  ieRemoteSshExecCommand = 'RemoteSshExecCommand';
   ieRemoteConfig     = 'RemoteSendConfig';
   ieRemoteIdent      = 'RemoteSendIdent';
   ieRemoteDirectory  = 'RemoteDirectory';
+  ieRemoteCopy       = 'RemoteCopy';
+  ieRemoteShell      = 'RemoteShell';
+  ieRemoteGdbServer  = 'gdbserver';
+
   iePrimaryFile      = 'PrimaryFile';
   ieCompileMode      = 'CompileMode';
   iePalette          = 'Palette';
@@ -420,10 +427,16 @@ begin
 {$ifdef SUPPORT_REMOTE}
   RemoteMachine :=INIFile^.GetEntry(secRun,ieRemoteMachine,RemoteMachine);
   RemotePort :=INIFile^.GetEntry(secRun,ieRemotePort,RemotePort);
+  RemotePuttySession :=INIFile^.GetEntry(secRun,ieRemotePuttySession,RemotePuttySession);
   RemoteSendCommand :=INIFile^.GetEntry(secRun,ieRemoteSendCommand,RemoteSendCommand);
+  RemoteExecCommand :=INIFile^.GetEntry(secRun,ieRemoteExecCommand,RemoteExecCommand);
+  RemoteSshExecCommand :=INIFile^.GetEntry(secRun,ieRemoteSshExecCommand,RemoteSshExecCommand);
   RemoteConfig :=INIFile^.GetEntry(secRun,ieRemoteConfig,RemoteConfig);
   RemoteIdent :=INIFile^.GetEntry(secRun,ieRemoteIdent,RemoteIdent);
   RemoteDir :=INIFile^.GetEntry(secRun,ieRemoteDirectory,RemoteDir);
+  RemoteGDBServer :=INIFile^.GetEntry(secRun,ieRemoteGDBServer,RemoteGDBServer);
+  RemoteCopy :=INIFile^.GetEntry(secRun,ieRemoteCopy,RemoteCopy);
+  RemoteShell :=INIFile^.GetEntry(secRun,ieRemoteShell,RemoteShell);
 {$endif SUPPORT_REMOTE}
   { Compile }
   S:=INIFile^.GetEntry(secCompile,ieCompileMode,'');
@@ -637,10 +650,19 @@ begin
 {$ifdef SUPPORT_REMOTE}
     INIFile^.SetEntry(secRun,ieRemoteMachine,RemoteMachine);
     INIFile^.SetEntry(secRun,ieRemotePort,RemotePort);
+    INIFile^.SetEntry(secRun,ieRemotePuttySession,RemotePuttySession);
     INIFile^.SetEntry(secRun,ieRemoteSendCommand,RemoteSendCommand);
     INIFile^.SetEntry(secRun,ieRemoteConfig,RemoteConfig);
     INIFile^.SetEntry(secRun,ieRemoteIdent,RemoteIdent);
     INIFile^.SetEntry(secRun,ieRemoteDirectory,RemoteDir);
+    INIFile^.SetEntry(secRun,ieRemoteExecCommand,RemoteExecCommand);
+    INIFile^.SetEntry(secRun,ieRemoteSshExecCommand,RemoteSshExecCommand);
+    INIFile^.SetEntry(secRun,ieRemoteConfig,RemoteConfig);
+    INIFile^.SetEntry(secRun,ieRemoteIdent,RemoteIdent);
+    INIFile^.SetEntry(secRun,ieRemoteDirectory,RemoteDir);
+    INIFile^.SetEntry(secRun,ieRemoteGDBServer,RemoteGDBServer);
+    INIFile^.SetEntry(secRun,ieRemoteCopy,RemoteCopy);
+    INIFile^.SetEntry(secRun,ieRemoteShell,RemoteShell);
 {$endif SUPPORT_REMOTE}
   { Compile }
   INIFile^.SetEntry(secCompile,iePrimaryFile,PrimaryFile);