d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Added a pc.h to contain libpc prototypes; some ansification.

Browse source
This commit is contained in:
David Given 2018-06-17 15:54:18 +02:00
parent d1671fc2e3
commit 9947e7ac63
3 changed files with 62 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lang/pc/libpc/pc.h Normal file
View file

@ -0,0 +1,18 @@
#ifndef PC_H
#define PC_H
#include "pc_err.h"
#include "pc_file.h"
#include "pc_math.h"
extern void _trp(int trapno);
extern void _wrb(int b, struct file* f);
extern void _wrs(int len, char* s, struct file* f);
extern void _wrz(char* s, struct file* f);
extern void _wsb(int w, int b, struct file* f);
extern void _wsc(int w, char c, struct file* f);
extern void _wss(int w, int len, char* s, struct file* f);
extern void _wstrin(int width, int len, char* buf, struct file* f);
extern void _wsz(int w, char* s, struct file* f);
#endif

54
lang/pc/libpc/wrs.c
View file

@ -18,51 +18,55 @@
/* Author: J.W. Stevenson */
#include <pc_err.h>
#include <pc_file.h>
extern _wf();
extern _outcpt();
_wstrin(width,len,buf,f) int width,len; char *buf; struct file *f; {
#include "pc.h"
void _wstrin(int width, int len, char* buf, struct file* f)
{
_wf(f);
for (width -= len; width>0; width--) {
for (width -= len; width > 0; width--)
{
*f->ptr = ' ';
_outcpt(f);
}
while (--len >= 0) {
while (--len >= 0)
{
*f->ptr = *buf++;
_outcpt(f);
}
}
_wsc(w,c,f) int w; char c; struct file *f; {
if (w < 0) _trp(EWIDTH);
_wss(w,1,&c,f);
void _wsc(int w, char c, struct file* f)
{
if (w < 0)
_trp(EWIDTH);
_wss(w, 1, &c, f);
}
_wss(w,len,s,f) int w,len; char *s; struct file *f; {
if (w < 0 || len < 0) _trp(EWIDTH);
void _wss(int w, int len, char* s, struct file* f)
{
if (w < 0 || len < 0)
_trp(EWIDTH);
if (w < len)
len = w;
_wstrin(w,len,s,f);
_wstrin(w, len, s, f);
}
_wrs(len,s,f) int len; char *s; struct file *f; {
if (len < 0) _trp(EWIDTH);
_wss(len,len,s,f);
void _wrs(int len, char* s, struct file* f)
{
if (len < 0)
_trp(EWIDTH);
_wss(len, len, s, f);
}
_wsb(w,b,f) int w,b; struct file *f; {
void _wsb(int w, int b, struct file* f)
{
if (b)
_wss(w,4,"true",f);
_wss(w, 4, "true", f);
else
_wss(w,5,"false",f);
_wss(w, 5, "false", f);
}
_wrb(b,f) int b; struct file *f; {
_wsb(5,b,f);
void _wrb(int b, struct file* f)
{
_wsb(5, b, f);
}

29
lang/pc/libpc/wrz.c
View file

@ -16,23 +16,24 @@
*
*/
#include <pc_err.h>
#include <pc_file.h>
#include "pc.h"
extern _wss();
extern _wrs();
void _wsz(int w, char* s, struct file* f)
{
char* p;
_wsz(w,s,f) int w; char *s; struct file *f; {
char *p;
if (w < 0) _trp(EWIDTH);
for (p=s; *p; p++);
_wss(w,(int)(p-s),s,f);
if (w < 0)
_trp(EWIDTH);
for (p = s; *p; p++)
;
_wss(w, (int)(p - s), s, f);
}
_wrz(s,f) char *s; struct file *f; {
char *p;
void _wrz(char* s, struct file* f)
{
char* p;
for (p=s; *p; p++);
_wrs((int)(p-s),s,f);
for (p = s; *p; p++)
;
_wrs((int)(p - s), s, f);
}