void exname();
void printnam();
void printflg();
-void prs();
-void prc();
#define attrib(n,f) (n->namflg |= f)
#define round(a,b) (((int)((ADR(a)+b)-1))&~((b)-1))
/* error.c */
extern void exitset(void);
extern void sigchk(void);
-extern void failed(const STRING s1, const STRING s2);
-extern void error(const STRING s);
+extern void failed(const char *s1, const char *s2);
+extern void error(const char *s);
extern void exitsh(int xno);
extern void done(void);
extern void rmtemp(IOPTR base);
+/* print.c */
+extern void newline(void);
+extern void blank(void);
+extern void prp(void);
+extern void prs(const char *as);
+extern void prc(char c);
+extern void prt(L_INT t);
+extern void prn(int n);
+extern void itos(int n);
+extern int stoi(const char *icp);
/* stak.c */
extern STKPTR getstak(int asize);
extern STKPTR locstak(void);
extern void tdystak(register STKPTR x);
extern void stakchk(void);
extern STKPTR cpystak(STKPTR x);
-
-
-
-
/* string.c */
extern char *movstr(register const char *a, register char *b);
extern int any(char c, const char *s);
exitsh(SIGFAIL);
}
-void failed(const STRING s1, const STRING s2)
+void failed(const char *s1, const char *s2)
{
prp();
prs(s1);
exitsh(ERROR);
}
-void error(const STRING s)
+void error(const char *s)
{
failed(s, NIL);
}
/* printing and io conversion */
-newline()
+void newline(void)
{
prc(NL);
}
-blank()
+void blank(void)
{
prc(SP);
}
-prp()
+void prp(void)
{
if ((flags & prompt) == 0 && cmdadr) {
prs(cmdadr);
prs(colon);
- ;
}
}
-void prs(as)
-STRING as;
+void prs(const char *as)
{
- register STRING s;
+ register const char *s;
- if (s = as) {
+ if (s = as)
write(output, s, length(s) - 1);
- ;
- }
}
-void prc(c)
-CHAR c;
+void prc(char c)
{
- if (c) {
+ if (c)
write(output, &c, 1);
- ;
- }
}
-prt(t)
-L_INT t;
+/* FIXME: time_t is not safely L_INT ! */
+void prt(L_INT t)
{
register int hr, min, sec;
if (hr = t / 60) {
prn(hr);
prc('h');
- ;
}
prn(min);
prc('m');
prc('s');
}
-prn(n)
-int n;
+void prn(int n)
{
itos(n);
prs(numbuf);
}
-itos(n)
+/* FIXME: use libc */
+void itos(int n)
{
register char *abuf;
register POS a, i;
*abuf++ = 0;
}
-stoi(icp)
-STRING icp;
+/* FIXME: use libc */
+int stoi(const char *icp)
{
- register CHAR *cp = icp;
+ register const char *cp = icp;
register int r = 0;
- register CHAR c;
+ register char c;
while ((c = *cp, digit(c)) && c && r >= 0) {
r = r * 10 + c - '0';