paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 12:14:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Less bloated ttyname implementation

Browse Source 
git-svn-id: trunk@1928 -
This commit is contained in:
daniel 2005-12-11 16:58:35 +00:00
parent 15e90d7f17
commit 79329acde4
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/linux/termio.pp
View File

@ -36,7 +36,34 @@ implementation
// load implementation for prototypes from current dir.
{$i termiosproc.inc}
// load ttyname from unix dir.
{$i ttyname.inc}
{We can implement ttyname more efficiently using proc than by including the
generic ttyname.inc file.}
function TTYName(Handle:cint):string;
{ Return the name of the current tty described by handle f.
returns empty string in case of an error.}
var s:string[32];
t:string[64];
begin
ttyname:='';
if isatty(handle)=1 then
begin
str(handle,s);
t:='/proc/self/fd/'+s+#0;
fpreadlink(@t[1],@ttyname[1],255);
ttyname[0]:=char(strlen(@ttyname[1]));
end;
end;
function TTYName(var F:Text):string;inline;
{
Idem as previous, only now for text variables;
}
begin
TTYName:=TTYName(textrec(f).handle);
end;
end.