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

* editing added

Browse Source
This commit is contained in:
marco 2005-04-06 18:45:47 +00:00
parent 250c8a835c
commit c2ae860fc1
1 changed files with 35 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
demo/lister/lister.pas
View File

@ -29,7 +29,6 @@ Uses Process,SysUtils,Video,Keyboard,FList
Function Do_File_cmd(path:String):String;
Const BufSize = 1024;
TheProgram = 'file' {$IFDEF Win32}+'.exe' {$ENDIF};
@ -37,7 +36,6 @@ Var S : TProcess;
Buf : Array[1..BUFSIZE] of char;
I,Count : longint;
begin
S:=TProcess.Create(Nil);
S.Commandline:=theprogram+' '+path;
@ -82,6 +80,7 @@ Var
Forced,
ForcedFull: Boolean;
C : Char;
Editor,
Pager : AnsiString;
Procedure ReDraw;
@ -93,6 +92,16 @@ Begin
UpdateScreen(true);
End;
procedure loadutil(const envvar,default : string;var symbol : string);
begin
Symbol:=GetEnvironmentVariable(envvar);
if Symbol='' Then
Symbol:=default;
if Pos('/',Symbol)=0 Then
Symbol:=FileSearch(Symbol,GetEnvironmentVariable('PATH'));
end;
Begin
InitVideo;
@ -105,12 +114,11 @@ Begin
ExitNow:=False;
{$ifdef win32}
Pager:='notepad.exe';
Editor:='notepad.exe';
{$else}
Pager:=GetEnvironmentVariable('PAGER');
if Pos('/',Pager)=0 Then
Pager:=FileSearch(Pager,GetEnvironmentVariable('PATH'));
loadutil('EDITOR','joe' ,editor);
loadutil('PAGER' ,'less',pager);
{$endif}
If ParamCount()>0 Then
FileSpec:=ParamStr(1);
{$ifdef debug}
@ -193,8 +201,10 @@ Begin
#13 : Begin
If D.Cursor>=D.DirCount Then
Begin
S:=ExtractFileExt(D[D.Cursor]);
Delete(S,1,1);
{$ifdef win32} // try to get "open" action ?
S:=ExtractFileExt(D[D.Cursor]);
Delete(S,1,1);
{$endif}
ExecuteProcess(Pager,[D.Directory+D[D.Cursor]]);
// TextOut(10,1,' ');
//TextOut(10,1,D[D.Cursor]);
@ -218,6 +228,19 @@ Begin
{$ENDIF}
End;
End;
'e','E' : begin
If D.Cursor>=D.DirCount Then
Begin
{$ifdef win32} // try to get "edit" action ?
S:=ExtractFileExt(D[D.Cursor]);
Delete(S,1,1);
{$endif}
ExecuteProcess(Editor,[D.Directory+D[D.Cursor]]);
// TextOut(10,1,' ');
//TextOut(10,1,D[D.Cursor]);
ForcedFull:=True;
End
end;
#27,'q' : exitnow:=True;
' ' : Begin
D.Toggle(D.Cursor);
@ -268,7 +291,10 @@ End.
{
$Log$
Revision 1.1 2005-04-06 08:54:16 marco
Revision 1.2 2005-04-06 18:45:47 marco
* editing added
Revision 1.1 2005/04/06 08:54:16 marco
* new Unix demo: lister
}