paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 15:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@28919 -
This commit is contained in:
pierre 2014-10-24 21:53:27 +00:00
parent 34bf64abd0
commit 15746fdcaf
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/fpvars.pas
View File

@ -121,11 +121,28 @@ const ClipboardWindow : PClipboardWindow = nil;
{$ifdef SUPPORT_REMOTE}
RemoteMachine : string = '';
RemotePuttySession : string = '';
RemotePort : string = '2345';
RemoteConfig : string = '';
RemoteIdent : 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}
DebuggeeTTY : string = '';