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
|
/* Autoconf patching by David Hedbor, neotron@lysator.liu.se */
/*****************************************************************/
/* functions for the #help command */
/* Some small patches by David Hedbor (neotron@lysator.liu.se) */
/* to make it work better. */
/*****************************************************************/
#include "tintin.h"
#include "protos/print.h"
#include "protos/parse.h"
#include "protos/run.h"
#include "protos/utils.h"
extern char tintin_char;
extern char *tintin_exec;
static FILE* check_file(char *filestring)
{
#if COMPRESSED_HELP
char sysfile[BUFFER_SIZE];
FILE *f;
sprintf(sysfile, "%s%s", filestring, DEFAULT_COMPRESSION_EXT);
if ((f=fopen(sysfile, "r")))
fclose(f);
else
return 0;
sprintf(sysfile, "%s %s%s", DEFAULT_EXPANSION_STR, filestring,
DEFAULT_COMPRESSION_EXT);
return mypopen(sysfile,0);
#else
return (FILE *) fopen(filestring, "r");
#endif
}
void help_command(char *arg,struct session *ses)
{
FILE *myfile=NULL;
char text[BUFFER_SIZE], line[BUFFER_SIZE], filestring[BUFFER_SIZE];
if (strcmp(DEFAULT_FILE_DIR, "HOME"))
{
sprintf(filestring, "%s/KBtin_help", DEFAULT_FILE_DIR);
myfile = check_file(filestring);
}
#ifdef DATA_PATH
if (myfile == NULL)
{
sprintf(filestring, "%s/KBtin_help", DATA_PATH);
myfile = check_file(filestring);
}
#endif
if (myfile == NULL)
{
sprintf(filestring, "%s_help", tintin_exec);
myfile = check_file(filestring);
}
if (myfile == NULL)
{
sprintf(filestring, "%s/KBtin_help", getenv("HOME"));
myfile = check_file(filestring);
}
if (myfile == NULL)
{
tintin_eprintf(0, "#Help file not found - no help available.");
tintin_eprintf(0, "#Locations checked:");
if (strcmp(DEFAULT_FILE_DIR, "HOME"))
tintin_eprintf(0, "# %s/KBtin_help%s", DEFAULT_FILE_DIR,
DEFAULT_COMPRESSION_EXT);
#ifdef DATA_PATH
tintin_eprintf(0, "# %s/KBtin_help%s", DATA_PATH,
DEFAULT_COMPRESSION_EXT);
#endif
tintin_eprintf(0, "# %s_help%s",tintin_exec,
DEFAULT_COMPRESSION_EXT);
tintin_eprintf(0, "# %s/KBtin_help%s", getenv("HOME"),
DEFAULT_COMPRESSION_EXT);
prompt(NULL);
return;
}
if (*arg==tintin_char)
arg++;
if (*arg)
{
sprintf(text, "~%s", arg);
while (fgets(line, sizeof(line), myfile))
{
if (*line == '~')
{
if (*(line + 1) == '*')
break;
if (is_abrev(text, line))
{
while (fgets(line, sizeof(line), myfile))
{
if ((*line == '~')&&(*(line+1)=='~'))
goto end;
else
{
*(line + strlen(line) - 1) = '\0';
if (*line!='~')
tintin_printf(0,"%s",line);
}
}
}
}
}
}
else
{
while (fgets(line, sizeof(line), myfile))
{
if ((*line == '~')&&(*(line+1)=='~'))
goto end;
else
{
*(line + strlen(line) - 1) = '\0';
if (*line!='~')
tintin_printf(0,"%s",line);
}
}
}
tintin_printf(0,"#Sorry, no help on that word.");
end:
prompt(NULL);
fclose(myfile);
}
|
