← Back to branch summary

~ubuntu-branches/ubuntu/karmic/fweb/karmic

« back to all changes in this revision

Viewing changes to Web/termcap0.web

  • Committer: Bazaar Package Importer
  • Author(s): Yann Dirson
  • Date: 2002-01-04 23:20:22 UTC
  • Revision ID: james.westby@ubuntu.com-20020104232022-330ad4iyzpvb5bm4
Tags: upstream-1.62
Import upstream version 1.62

Show diffs side-by-side

added added

removed removed

Lines of Context:
Web/termcap0.web
 
1
@z --- termcap0.web ---
 
2
 
 
3
FWEB version 1.62 (September 25, 1998)
 
4
 
 
5
Based on version 0.5 of S. Levy's CWEB [copyright (C) 1987 Princeton University]
 
6
 
 
7
@x-----------------------------------------------------------------------------
 
8
 
 
9
 
 
10
\Title{TERMCAP0} % Dummy termcap routines.
 
11
 
 
12
@c
 
13
 
 
14
@* INTRODUCTION.  These dummy routines replace those of the termcap library
 
15
for the particular uses that \FWEB\ makes of them.
 
16
 
 
17
@A 
 
18
 
 
19
@<Include files@>@;
 
20
typedef char outer_char;
 
21
@<Prototypes@>@;
 
22
 
 
23
@I os.hweb // System-dependent stuff. 
 
24
 
 
25
@ The function prototypes must appear before the global variables.
 
26
@<Proto...@>=
 
27
 
 
28
#include SFILE(a_type.h)
 
29
 
 
30
@
 
31
@a
 
32
 
 
33
int tgetent FCN((buffer,name))
 
34
        outer_char *buffer C0("")@;
 
35
        CONST outer_char *name C1("")@;
 
36
{
 
37
*buffer = '\0';
 
38
 
 
39
return 0;
 
40
}
 
41
 
 
42
@
 
43
@a
 
44
int tgetflag FCN((id))
 
45
        CONST outer_char *id C1("")@;
 
46
{
 
47
return 0;
 
48
}
 
49
 
 
50
@
 
51
@a
 
52
int tgetnum FCN((id))
 
53
        CONST outer_char *id C1("")@;
 
54
{
 
55
return -1;
 
56
}
 
57
 
 
58
@
 
59
@a
 
60
outer_char *tgetstr FCN((id,pp))
 
61
        CONST outer_char *id C0("")@;
 
62
        outer_char **pp C1("")@;
 
63
{
 
64
return NULL;
 
65
}
 
66
 
 
67
@
 
68
@a
 
69
outer_char *tgoto FCN((cm,destcol,destline))
 
70
        CONST outer_char *cm C0("")@;
 
71
        int destcol C0("")@;
 
72
        int destline C1("")@;
 
73
{
 
74
return (outer_char *)"OOPS";
 
75
}
 
76
 
 
77
@
 
78
@a
 
79
SRTN tputs FCN((cp,affcnt,outc))
 
80
        outer_char *cp C0("")@;
 
81
        int affcnt C0("")@;
 
82
        int (*outc) PROTO((int)) C1("")@;
 
83
{
 
84
while(*cp)
 
85
        (*outc)(*cp++);
 
86
}
 
87
 
 
88
@* \INDEX.