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

+ Added FSplit and Octal

Browse Source
This commit is contained in:
michael 2000-05-26 19:26:17 +00:00
parent 535f63923c
commit 13d617c4e9
4 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
docs/linuxex/Makefile
View File

@ -37,7 +37,8 @@ OBJECTS=ex1 ex2 ex3 ex4 ex5 ex6 ex7 ex8 ex9 ex10 ex11 ex12 ex13 ex14 \
ex28 ex29 ex30 ex31 ex32 ex33 ex34 ex35 ex36 ex37 ex38 ex39 ex40 \
ex41 ex42 ex43 ex44 ex45 ex46 ex47 ex48 ex49 ex51 ex52 ex53 ex54 ex55 \
ex56 ex57 ex58 ex59 ex60 ex61 ex62 ex63 ex64 ex65 ex66
# ex67 ex68 ex69 ex70 ex71 ex72 ex73 ex74 ex75 ex76 ex77
ex67 ex68
#ex69 ex70 ex71 ex72 ex73 ex74 ex75 ex76 ex77
TEXOBJECTS=$(addsuffix .tex, $(OBJECTS))

2
docs/linuxex/README
View File

@ -67,4 +67,6 @@ ex63.pp contains an example of the FRename function.
ex64.pp contains an example of the SysInfo function.
ex64.pp contains an example of the SigRaise function.
ex66.pp contains an example of the MMap function.
ex67.pp contains an example of the FSplit function.
serial.pp contains an example of serial port programming in FPC.
ex68.pp contains an example of the Octal function.

16
docs/linuxex/ex67.pp Normal file
View File

@ -0,0 +1,16 @@
Program Example67;
uses Linux;
{ Program to demonstrate the FSplit function. }
var
Path,Name,Ext : string;
begin
FSplit(ParamStr(1),Path,Name,Ext);
WriteLn('Split ',ParamStr(1),' in:');
WriteLn('Path : ',Path);
WriteLn('Name : ',Name);
WriteLn('Extension: ',Ext);
end.

11
docs/linuxex/ex68.pp Normal file
View File

@ -0,0 +1,11 @@
Program Example68;
{ Program to demonstrate the Octal function. }
Uses linux;
begin
Writeln('Mode 777 : ', Octal(777));
Writeln('Mode 644 : ', Octal(644));
Writeln('Mode 755 : ', Octal(755));
end.