From: ceriel Date: Wed, 11 Mar 1987 14:54:29 +0000 (+0000) Subject: minor changes X-Git-Tag: release-5-5~4425 X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=b99a714497d334d225c338d401f978bed1428fe7;p=ack.git minor changes --- diff --git a/man/6500_as.6 b/man/6500_as.6 index 9a3b03991..d8855ebb2 100644 --- a/man/6500_as.6 +++ b/man/6500_as.6 @@ -1,5 +1,6 @@ .\" $Header$ .TH 6500_AS 6ACK +.ad .SH NAME 6500_as \- assembler for Mostek 6500 .SH SYNOPSIS diff --git a/man/Makefile b/man/Makefile index d1d1e1c91..58f0d4c7f 100644 --- a/man/Makefile +++ b/man/Makefile @@ -2,18 +2,19 @@ NROFF=nroff MANDIR=/usr/man +SUF=opr all: for i in *.[1-8] ; do \ - $(NROFF) -man head $$i > $$i.opr ; \ + $(NROFF) -man head $$i > $$i.$(SUF) ; \ done install: for i in *.[1-8] ; do \ num=expr $$i : '.*\.\([1-8]\)' ; \ if test -f $(MANDIR)/man$$num/$$i ; \ - then cp $$i $(MANDIR)/man$$num/em_$$i ; \ - else cp $$i $(MANDIR)/man$$num/$$i ; \ + then cat head $$i > $(MANDIR)/man$$num/em_$$i ; \ + else cat head $$i $(MANDIR)/man$$num/$$i ; \ fi ; \ done @@ -26,3 +27,4 @@ pr: clean: -rm -f *.opr *.out + -rm -f *.$(SUF) diff --git a/man/libpc.7 b/man/libpc.7 index a1f262ec3..4fab26cc1 100644 --- a/man/libpc.7 +++ b/man/libpc.7 @@ -5,71 +5,71 @@ libpc \- library of external routines for Pascal programs .SH SYNOPSIS .ta 11n -const bufsize = ?; +const bufsize = ?; .br -type br1 = 1..bufsize; +type br1 = 1..bufsize; .br - br2 = 0..bufsize; + br2 = 0..bufsize; .br - br3 = -1..bufsize; + br3 = -1..bufsize; .br - ok = -1..0; + ok = -1..0; .br - buf = packed array[br1] of char; + buf = packed array[br1] of char; .br - alfa = packed array[1..8] of char; + alfa = packed array[1..8] of char; .br - string = ^packed array[1..?] of char; + string = ^packed array[1..?] of char; .br - filetype = file of ?; + filetype = file of ?; .br - long = record high,low:integer end; + long = record high,low:integer end; {all routines must be declared extern} -function argc:integer; +function argc:integer; .br -function argv(i:integer):string; +function argv(i:integer):string; .br -function environ(i:integer):string; +function environ(i:integer):string; .br -procedure argshift; +procedure argshift; -procedure buff(var f:filetype); +procedure buff(var f:filetype); .br -procedure nobuff(var f:filetype); +procedure nobuff(var f:filetype); .br -procedure notext(var f:text); +procedure notext(var f:text); .br -procedure diag(var f:text); +procedure diag(var f:text); .br -procedure pcreat(var f:text; s:string); +procedure pcreat(var f:text; s:string); .br -procedure popen(var f:text; s:string); +procedure popen(var f:text; s:string); .br -procedure pclose(var f:filetype); +procedure pclose(var f:filetype); -procedure trap(err:integer); +procedure trap(err:integer); .br -procedure encaps(procedure p; procedure q(n:integer)); +procedure encaps(procedure p; procedure q(n:integer)); -function perrno:integer; +function perrno:integer; .br -function uread(fd:integer; var b:buf; len:br1):br3; +function uread(fd:integer; var b:buf; len:br1):br3; .br -function uwrite(fd:integer; var b:buf; len:br1):br3; +function uwrite(fd:integer; var b:buf; len:br1):br3; -function strbuf(var b:buf):string; +function strbuf(var b:buf):string; .br -function strtobuf(s:string; var b:buf; len:br1):br2; +function strtobuf(s:string; var b:buf; len:br1):br2; .br -function strlen(s:string):integer; +function strlen(s:string):integer; .br -function strfetch(s:string; i:integer):char; +function strfetch(s:string; i:integer):char; .br -procedure strstore(s:string; i:integer; c:char); +procedure strstore(s:string; i:integer; c:char); -function clock:integer; +function clock:integer; .SH DESCRIPTION This library contains some often used external routines for Pascal programs. Two versions exist: one for the EM interpreter and another one @@ -214,71 +214,70 @@ Return the number of ticks of user and system time consumed by the program. The following program presents an example of how these routines can be used. This program is equivalent to the UNIX command cat(1). .nf - {$c+} - program cat(input,inp,output); - var inp:text; - s:string; +{$c+} +program cat(input,inp,output); +var inp:text; + s:string; - function argc:integer; extern; - function argv(i:integer):string; extern; - procedure argshift; extern; - function strlen(s:string):integer; extern; - function strfetch(s:string; i:integer):char; extern; +function argc:integer; extern; +function argv(i:integer):string; extern; +procedure argshift; extern; +function strlen(s:string):integer; extern; +function strfetch(s:string; i:integer):char; extern; - procedure copy(var fi:text); - var c:char; - begin reset(fi); - while not eof(fi) do - begin - while not eoln(fi) do - begin - read(fi,c); - write(c) - end; - readln(fi); - writeln - end - end; +procedure copy(var fi:text); +var c:char; +begin reset(fi); + while not eof(fi) do + begin + while not eoln(fi) do + begin + read(fi,c); + write(c) + end; + readln(fi); + writeln + end +end; - begin {main} - if argc = 1 then - copy(input) - else - repeat - s := argv(1); - if (strlen(s) = 1) and (strfetch(s,1) = '-') - then copy(input) - else copy(inp); - argshift; - until argc <= 1; - end. +begin {main} + if argc = 1 then + copy(input) + else + repeat + s := argv(1); + if (strlen(s) = 1) and (strfetch(s,1) = '-') + then copy(input) + else copy(inp); + argshift; + until argc <= 1; +end. .fi .PP Another example gives some idea of the way to manage trap handling: .nf - program bigreal(output); - const EFOVFL=4; - var trapped:boolean; +program bigreal(output); +const EFOVFL=4; +var trapped:boolean; - procedure encaps(procedure p; - procedure q(n:integer)); extern; - procedure trap(n:integer); extern; +procedure encaps(procedure p; procedure q(n:integer)); extern; +procedure trap(n:integer); extern; - procedure traphandler(n:integer); - begin if n=EFOVFL then trapped:=true else trap(n) end; +procedure traphandler(n:integer); +begin if n=EFOVFL then trapped:=true else trap(n) end; - procedure work; - var i,j:real; - begin trapped:=false; i:=1; - while not trapped do - begin j:=i; i:=i*2 end; - writeln('bigreal = ',j); - end; +procedure work; +var i,j:real; +begin trapped:=false; i:=1; + while not trapped do + begin j:=i; i:=i*2 end; + writeln('bigreal = ',j); +end; - begin - encaps(work,traphandler); - end. +begin + encaps(work,traphandler); +end. .fi .SH FILES .IP ~em/lib/*/tail_pc 20 diff --git a/man/ns_as.6 b/man/ns_as.6 index a93ab96a3..9c42e8909 100644 --- a/man/ns_as.6 +++ b/man/ns_as.6 @@ -1,5 +1,5 @@ .\" $Header$ -.TH NS_ASS 6ACK +.TH NS_AS 6ACK .ad .SH NAME ns_as \- National Semiconductor 16032 assembler/linker diff --git a/man/pc_prlib.7 b/man/pc_prlib.7 index e2a0e36e8..959507d2f 100644 --- a/man/pc_prlib.7 +++ b/man/pc_prlib.7 @@ -4,196 +4,117 @@ .SH NAME pc_prlib \- library of Pascal runtime routines .SH SYNOPSIS -.ta 11n -type alpha=packed array[1..8] of char; -.br - pstring= ^packed array[] of char; +.ta 11n 22n 33n 44n 55n +.nf +type alpha=packed array[1..8] of char; + pstring= ^packed array[] of char; -function _abi(i:integer):integer; -.br -function _abl(i:long):long; -.br -function _mdi(j,i:integer):integer; -.br -function _mdl(j,i:long):long; -.br -function _abr(r:real):real; -.br -function _sin(r:real):real; -.br -function _cos(r:real):real; -.br -function _atn(r:real):real; -.br -function _exp(r:real):real; -.br -function _log(r:real):real; -.br -function _sqt(r:real):real; -.br -function _rnd(r:real):real; +function _abi(i:integer):integer; +function _abl(i:long):long; +function _mdi(j,i:integer):integer; +function _mdl(j,i:long):long; +function _abr(r:real):real; +function _sin(r:real):real; +function _cos(r:real):real; +function _atn(r:real):real; +function _exp(r:real):real; +function _log(r:real):real; +function _sqt(r:real):real; +function _rnd(r:real):real; -type compared=-1..1; -.br - gotoinfo=record -.br - pcoffset:^procedure; { procedure id. without static link } -.br - nlocals: integer; -.br - end; +type compared=-1..1; + gotoinfo=record + pcoffset:^procedure; { procedure id. without static link } + nlocals: integer; + end; -function _bcp(sz:integer; s2,s1:pstring):compared; -.br -function _bts(size,high,low:integer; base:^set 0..(8*size-1)) - :set of 0..(8*size-1); -.br -procedure _gto(lb:^integer; p:^gotoinfo); +function _bcp(sz:integer; s2,s1:pstring):compared; +function _bts(size,high,low:integer; base:^set 0..(8*size-1)) + :set of 0..(8*size-1); +procedure _gto(lb:^integer; p:^gotoinfo); -procedure _new(size:integer; var p:^integer); -.br -procedure _dis(size:integer; var p:^integer); -.br -procedure _sav(var p:^integer); -.br -procedure _rst(var p:^integer); +procedure _new(size:integer; var p:^integer); +procedure _dis(size:integer; var p:^integer); +procedure _sav(var p:^integer); +procedure _rst(var p:^integer); -type arrdescr=record -.br - lowbnd: integer; -.br - diffbnds:integer; -.br - elsize: integer; -.br - end; -.br - arr1=array[] of ?; -.br - arr2=packed array[] of ?; +type arrdescr=record + lowbnd: integer; + diffbnds:integer; + elsize: integer; + end; + arr1=array[] of ?; + arr2=packed array[] of ?; -procedure _pac(var ad,zd:arrdescr; var zp:arr2; i:integer; -.br - var ap:arr1); -.br -procedure _unp(var ad,zd:arrdescr; i:integer; var ap:arr1; -.br - var zp:arr2;); -.br -function _asz(var dp:arrdescr):integer; +procedure _pac(var ad,zd:arrdescr; var zp:arr2; i:integer; + var ap:arr1); +procedure _unp(var ad,zd:arrdescr; i:integer; var ap:arr1; + var zp:arr2;); +function _asz(var dp:arrdescr):integer; -procedure _ass(line:integer; b:boolean); -.br -procedure procentry(var name:alpha); -.br -procedure procexit(var name:alpha); +procedure _ass(line:integer; b:boolean); +procedure procentry(var name:alpha); +procedure procexit(var name:alpha); -const lowbyte=[0..7]; -.br - MAGIC =[1,3,5,7]; -.br - WINDOW =[11]; -.br - ELNBIT =[12]; -.br - EOFBIT =[13]; -.br - TXTBIT =[14]; -.br - WRBIT =[15]; -.br -type file=record -.br - ptr: ^char; -.br - flags: set of [0..15]; -.br - fname: string; -.br - ufd: 0..15; -.br - size: integer; -.br - count: 0..buflen; -.br - buflen: max(512,size) div size * size; -.br - bufadr: packed array[1..max(512,size)] -.br - of char; -.br - end; -.br - filep=^file; -.br -const NFILES=15; -.br - _extfl:^array[] of filep; +const lowbyte=[0..7]; + MAGIC =[1,3,5,7]; + WINDOW =[11]; + ELNBIT =[12]; + EOFBIT =[13]; + TXTBIT =[14]; + WRBIT =[15]; +type file=record + ptr: ^char; + flags: set of [0..15]; + fname: string; + ufd: 0..15; + size: integer; + count: 0..buflen; + buflen: max(512,size) div size * size; + bufadr: packed array[1..max(512,size)] + of char; + end; + filep=^file; +const NFILES=15; + _extfl:^array[] of filep; -procedure _ini(var args:integer; var hb:integer; - var p:array[] of filep; var mainlb:integer); -.br -procedure _hlt(status:0..255); +procedure _ini(var args:integer; var hb:integer; + var p:array[] of filep; var mainlb:integer); +procedure _hlt(status:0..255); -procedure _opn(size:integer; f:filep); -.br -procedure _cre(size:integer; f:filep); -.br -procedure _cls(f:filep); +procedure _opn(size:integer; f:filep); +procedure _cre(size:integer; f:filep); +procedure _cls(f:filep); -procedure _get(f:filep); -.br -procedure _put(f:filep); -.br -function _wdw(f:filep):^char; -.br -function _efl(f:filep):boolean; +procedure _get(f:filep); +procedure _put(f:filep); +function _wdw(f:filep):^char; +function _efl(f:filep):boolean; -function _eln(f:filep):boolean; -.br -function _rdc(f:filep):char; -.br -function _rdi(f:filep):integer; -.br -function _rdl(f:filep):long; -.br -function _rdr(f:filep):real; -.br -procedure _rln(f:filep); -.br -procedure _wrc(c:char; f:filep); -.br -procedure _wsc(w:integer; c:char; f:filep); -.br -procedure _wri(i:integer; f:filep); -.br -procedure _wsi(w:integer; i:integer; f:filep); -.br -procedure _wrl(l:long; f:filep); -.br -procedure _wsl(w:integer; l:long; f:filep); -.br -procedure _wrr(r:real; f:filep); -.br -procedure _wsr(w:integer; r:real; f:filep); -.br -procedure _wrf(ndigit:integer; w:integer; r:real; f:filep); -.br -procedure _wrs(l:integer; s:pstring; f:filep); -.br -procedure _wss(w:integer; l:integer; s:pstring; f:filep); -.br -procedure _wrb(b:boolean; f:filep); -.br -procedure _wsb(w:integer; b:boolean; f:filep); -.br -procedure _wrz(s:string; f:filep); -.br -procedure _wsz(w:integer; s:string; f:filep); -.br -procedure _wln(f:filep); -.br -procedure _pag(f:filep); +function _eln(f:filep):boolean; +function _rdc(f:filep):char; +function _rdi(f:filep):integer; +function _rdl(f:filep):long; +function _rdr(f:filep):real; +procedure _rln(f:filep); +procedure _wrc(c:char; f:filep); +procedure _wsc(w:integer; c:char; f:filep); +procedure _wri(i:integer; f:filep); +procedure _wsi(w:integer; i:integer; f:filep); +procedure _wrl(l:long; f:filep); +procedure _wsl(w:integer; l:long; f:filep); +procedure _wrr(r:real; f:filep); +procedure _wsr(w:integer; r:real; f:filep); +procedure _wrf(ndigit:integer; w:integer; r:real; f:filep); +procedure _wrs(l:integer; s:pstring; f:filep); +procedure _wss(w:integer; l:integer; s:pstring; f:filep); +procedure _wrb(b:boolean; f:filep); +procedure _wsb(w:integer; b:boolean; f:filep); +procedure _wrz(s:string; f:filep); +procedure _wsz(w:integer; s:string; f:filep); +procedure _wln(f:filep); +procedure _pag(f:filep); +.fi .SH DESCRIPTION This library is used by the Pascal to EM compiler and contains all the runtime routines for standard Pascal programs. @@ -428,7 +349,7 @@ the argument list to global memory, mainlb to _m_lb and hb to _hbase. The first contains the local base of the program body, the second contains the address of the hol containing the global variables of the program. -A last task of _ini is to set the global variables _argc, _argv and _environ +A last task of _ini is to set the global variables _argc, _argv and _environ from args for possible reference later on. Args points to the argument count placed on the stack by the EM runtime system, diff --git a/man/z80_as.6 b/man/z80_as.6 index ffc61d24e..a644c5526 100644 --- a/man/z80_as.6 +++ b/man/z80_as.6 @@ -1,5 +1,5 @@ .\" $Header$ -.TH z80_AS 6ACK +.TH Z80_AS 6ACK .ad .SH NAME z80_as \- assembler for Zilog z80