Преглед изворни кода

Add RemoteGDBServer, RemoteCopy, RemoteShell, RemoteExecCommand, RemoteSshExecCommand for SUPPORT_REMOTE

git-svn-id: trunk@28919 -
pierre пре 10 година
родитељ
комит
15746fdcaf
1 измењених фајлова са 18 додато и 1 уклоњено
  1. 18 1
      ide/fpvars.pas

+ 18 - 1
ide/fpvars.pas

@@ -121,11 +121,28 @@ const ClipboardWindow  : PClipboardWindow = nil;
 
 
 {$ifdef SUPPORT_REMOTE}
 {$ifdef SUPPORT_REMOTE}
      RemoteMachine : string = '';
      RemoteMachine : string = '';
+     RemotePuttySession : string = '';
      RemotePort : string = '2345';
      RemotePort : string = '2345';
      RemoteConfig : string = '';
      RemoteConfig : string = '';
      RemoteIdent : string = '';
      RemoteIdent : string = '';
      RemoteDir : string = '';
      RemoteDir : string = '';
-     RemoteSendCommand : string = 'scp $CONFIG $IDENT $LOCALFILE $REMOTEMACHINE:$REMOTEDIR';
+     RemoteGDBServer : string = 'gdbserver';
+{$ifdef Windows}
+     RemoteCopy : string = 'pscp.exe';
+     RemoteShell : string = 'plink.exe';
+{$else not windows}
+     RemoteCopy : string = 'scp';
+     RemoteShell : string = 'ssh';
+{$endif not windows}
+
+     RemoteSendCommand : string =
+       '$REMOTECOPY $CONFIG $IDENT $LOCALFILE $REMOTEMACHINE:$REMOTEDIR';
+     RemoteExecCommand : string =
+       '"cd $REMOTEDIR; chmod u+x ./$LOCALFILENAME;'+
+       ' $REMOTEGDBSERVER :$REMOTEPORT ./$LOCALFILENAME"';
+     RemoteSshExecCommand : string =
+       '$START $REMOTESHELL $CONFIG $IDENT -L $REMOTEPORT:localhost:$REMOTEPORT $REMOTEMACHINE '+
+       '"$REMOTEEXECCOMMAND" $DOITINBACKGROUND';
 {$endif SUPPORT_REMOTE}
 {$endif SUPPORT_REMOTE}
 
 
      DebuggeeTTY : string = '';
      DebuggeeTTY : string = '';