From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- systems/knuth/local/bdemo_ext.h | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 systems/knuth/local/bdemo_ext.h (limited to 'systems/knuth/local/bdemo_ext.h') diff --git a/systems/knuth/local/bdemo_ext.h b/systems/knuth/local/bdemo_ext.h new file mode 100644 index 0000000000..f8eaa69bf2 --- /dev/null +++ b/systems/knuth/local/bdemo_ext.h @@ -0,0 +1,15 @@ +{names of external C routines to include in GNU Pascal binarydemo program} + +function argv(no:Integer;var str:UNIXfilename):boolean; external; + +procedure bread(var a:bytefile; var x:byte); external; + +function testeof(var f:bytefile):boolean; external; + +function testreadaccess(var a:UNIXfilename):boolean; external; + +function testwriteaccess(var a:UNIXfilename):boolean; external; + +function flength(var f:bytefile):integer; external; + +procedure movetobyte(var f:bytefile; n:integer); external; -- cgit v1.2.3