1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
/*##############################################################################
FUNNNELWEB COPYRIGHT
====================
FunnelWeb is a literate-programming macro preprocessor.
The FunnelWeb web is at http://www.ross.net/funnelweb/
Copyright (c) Ross N. Williams 1992. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the terms of Version 2 of the GNU General Public License as
published by the Free Software Foundation (http://www.gnu.org/).
This program is distributed WITHOUT ANY WARRANTY; without even the implied
warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See Version 2 of the GNU General Public License for more details.
You should have received a copy of Version 2 of the GNU General Public
License along with this program. If not, you can obtain a copy as follows:
ftp://prep.ai.mit.edu/pub/gnu/COPYING-2.0
or write to:
Free Software Foundation, Inc.,
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
Section 2a of the license requires that all changes to this file be
recorded prominently in this file. Please record all changes here.
Programmers:
RNW Ross N. Williams (ross@ross.net)
Changes:
07-May-1992 RNW Program prepared for release under GNU GPL V2.
08-May-1999 RNW Added function fn_ident.
09-May-1999 RNW Added function maisdef.
##############################################################################*/
/******************************************************************************/
/* MISC.H */
/******************************************************************************/
/* */
/* This package contains a ragbag of FunnelWeb-specific functions that didn't */
/* seem to have a home anywhere else. */
/* */
/******************************************************************************/
#include "style.h"
#include "data.h"
/******************************************************************************/
/* The following functions each write a string to one or more output streams. */
/* The code is as follows: */
/* wr - means write the string only. */
/* wl - means write the string followed by a '\n'. */
/* s - The f_s output stream (the console/screen). */
/* j - The f_j output stream (the journal file). */
/* l - The f_l output stream (the listing file). */
/* These functions are hard wired to the f_s, f_j, and f_l global variables. */
EXPORT void wr_s P_((char *));
EXPORT void wr_j P_((char *));
EXPORT void wr_l P_((char *));
EXPORT void wl_s P_((char *));
EXPORT void wl_j P_((char *));
EXPORT void wl_l P_((char *));
EXPORT void wr_sj P_((char *));
EXPORT void wl_sj P_((char *));
EXPORT void wr_sjl P_((char *));
EXPORT void wl_sjl P_((char *));
/******************************************************************************/
EXPORT char *chabbrev P_((int));
/* If the argument is non-printable in the range [0,127], returns a pointer */
/* to a constant string containing the mnemonic abbreviation for the */
/* character (e.g. 10="LF"). Otherwise returns the empty string. */
/******************************************************************************/
EXPORT sign signof P_((long));
/* Returns -1 if its argument is negative. */
/* Returns 0 if its argument is zero. */
/* Returns 1 if its argument is positive. */
/******************************************************************************/
EXPORT char * eq_files P_((char *,char *,bool *));
/* Performs an exact binary comparison of the files named name1 and name2. */
/* If there is no error during the comparison, returns NULL and the boolean */
/* parameter carries the result of the comparison with TRUE=>Files identical. */
/* If there is an error during the comparison, the boolean parameter is set */
/* to FALSE and the function returns a pointer to a string describing the */
/* error in terms of "the first file" and "the second file". */
/******************************************************************************/
EXPORT bool fexists P_((char *));
/* Returns TRUE iff a file of the name given in the parameter exists. */
/* (Does this by attempting to open the file. If it succeeds, it closes it */
/* again). */
/******************************************************************************/
EXPORT char *fn_temp P_((void));
/* Creates a filename (not containing a directory component) for which there */
/* is no corresponding file in the current directory. */
/* Returns a pointer to a static array containing the filename. */
/* Each time this function is called, the new filename overwrites the old. */
/* This function was created after it was discovered that, on some systems, */
/* the standard library function "tmpnam" returns the name of a file in the */
/* /tmp partition. This would not be a problem were it not for the fact that */
/* generally, files cannot be renamed across partitions! */
/******************************************************************************/
EXPORT void strupper P_((char *));
/* Converts all lower case letters in the argument string to upper case. */
/******************************************************************************/
EXPORT void fnident P_((char *,char *));
/* First argument must be a pathname of no more than PATHNAME_MAX chars. */
/* Second argument must be string buffer of PATHNAME_MAX+1 chars. */
/* Writes the filename identifier of the first string to the buffer. */
/******************************************************************************/
EXPORT bool maisdef P_((p_ma_t));
/* Returns TRUE iff its argument macro is defined. */
/******************************************************************************/
/* End of MISC.H */
/******************************************************************************/
|
