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
|
/*
** The extra routines for the HTML widget for Tcl/Tk
**
** Copyright (C) 1997-2000 Peter MacDonald and BrowseX Systems Inc.
**
** This library is free software; you can redistribute it and/or
** modify it under the terms of the GNU Library General Public
** License as published by the Free Software Foundation; either
** version 2 of the License, or (at your option) any later version.
**
** This library is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
** Library General Public License for more details.
**
** You should have received a copy of the GNU Library General Public
** License along with this library; if not, write to the
** Free Software Foundation, Inc., 59 Temple Place - Suite 330,
** Boston, MA 02111-1307, USA.
**
** Author contact information:
** peter@browsex.com
** http://browsex.com
*/
#include <tk.h>
#include <string.h>
#include <stdlib.h>
#include "htmlexts.h"
void HtmlTclizeAscii(Tcl_Interp *interp, HtmlIndex *s, HtmlIndex *e);
/*
** WIDGET text ascii START END
*/
int HtmlTextAsciiCmd(
HtmlWidget *htmlPtr, /* The HTML widget */
Tcl_Interp *interp, /* The interpreter */
int argc, /* Number of arguments */
const char **argv /* List of all arguments */
){
HtmlIndex iStart, iEnd;
char *cb, *ce;
if (argc<=3) cb="begin"; else cb=(char*)argv[3];
if (argc<=4) ce=cb; else ce=(char*)argv[4];
if( HtmlGetIndex(htmlPtr, cb, &iStart.p, &iStart.i)!=0 ){
Tcl_AppendResult(interp,"malformed index: \"", cb, "\"", 0);
return TCL_ERROR;
}
if( HtmlGetIndex(htmlPtr, ce, &iEnd.p, &iEnd.i)!=0 ){
Tcl_AppendResult(interp,"malformed index: \"", ce, "\"", 0);
return TCL_ERROR;
}
if (iEnd.p && iStart.p) {
if ((!iEnd.i) && (!strchr(ce,'.'))) {
iEnd.p=iEnd.p->pNext;
}
HtmlTclizeAscii(interp,&iStart,&iEnd);
}
return TCL_OK;
}
/*
** Return all tokens between the two elements as a Text.
*/
void HtmlTclizeAscii(Tcl_Interp *interp, HtmlIndex *s, HtmlIndex *e){
int j, nsub=0;
HtmlElement* p=s->p;
Tcl_DString str;
if (p && p->base.type==Html_Text) {
nsub=s->i;
}
Tcl_DStringInit(&str);
while( p) {
switch( p->base.type ){
case Html_Block:
break;
case Html_Text:
j=strlen(p->text.zText);
if (j<nsub) nsub=j;
if (p==e->p) {
j= (e->i-nsub+1);
}
Tcl_DStringAppend(&str, p->text.zText+nsub,j-nsub);
nsub=0;
break;
case Html_Space:
for (j=0; j< p->base.count; j++) {
if (nsub-->0) continue;
Tcl_DStringAppend(&str, " ", 1);
}
if ((p->base.flags & HTML_NewLine)!=0)
Tcl_DStringAppend(&str, "\n",1);
nsub=0;
break;
case Html_P:
case Html_BR:
Tcl_DStringAppend(&str, "\n",1);
break;
case Html_Unknown:
break;
default:
break;
}
if (p==e->p) break;
p = p->pNext;
}
Tcl_DStringResult(interp, &str);
}
|
