1
2
3
4
5
6
7
8
9
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
+
+
+
+
+
+
+
+
+
|
/* $Id$
* $Log$
* Revision 1.1.2.2 2001/03/09 04:01:20 geraint
* \ escapes newline.
*
* Revision 1.1.2.1 2001/03/09 02:59:26 geraint
* got_comment: (char)c no longer compared to (int)EOF.
*
* Revision 1.1 2000/12/28 09:46:05 peterg
* put under RCS
*
* Revision 1.1 2000/10/31 04:29:50 geraint
* Initial revision
*
*/
|
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
|
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
-
+
-
-
-
+
+
-
|
{
/*
* get remainder of line in case there are any commented keywords
*/
char c;
cout << " // ";
cin >> c;
while (c != '\n' && c != EOF)
do {
{
cout << c;
cin >> c;
}
|
307
308
309
310
311
312
313
314
315
316
317
318
319
320
|
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
|
+
+
+
+
+
+
+
+
+
+
+
+
|
/*
* EOL is end-of-statement in Octave, add ;
*/
<< indent () << ';' << endl
<< indent ();
}
buf = "";
break;
case '\\':
cin >> c;
if ('\n' == c)
{
buf += '\n';
}
else
{
buf += '\\';
buf += c;
}
break;
default:
buf += c;
}
if (lbrace->get_nesting_depth ())
{
cout.setf (ios::skipws);
|