| Back to List Inventory
Complete Backward
Forward Plain
Coloured
Gaudy This code
in plain text |
Browsing infix.h
InfixCheckLineSpaced (lines 289-377)
0289 [ InfixCheckLineSpaced wa wl i force altered;
0290 for (i=1 : i<=parse->1 : i++) {
0291 wa = WordAddress(i);
0292 wl = WordLength(i);
0293 if (wl > 3 && wa->0 == ''' && wa->(wl-1) == ''') {
0294 wa->(wl-1) = ' ';
0295 if (wa->(wl-2) == '/' && wa->(wl-3) == '/') {
0296 wa->(wl-2) = ' ';
0297 wa->(wl-3) = ' ';
0298 }
0299 LTI_Insert(wa-buffer, ''');
0300 LTI_Insert(wa-buffer + 2, ' ');
0301 altered = true; break;
0302 }
0303 }
0304 for (i=2 : i1 + 2 : i++) {
0305 force = false;
0306 if (buffer->i == '-' && buffer->(i+1) == '-' && buffer->(i+2) == '>')
0307 force = true;
0308 if (force) {
0309 if (i>2 && buffer->(i-1) ~= ' ') {
0310 LTI_Insert(i++, ' '); altered = true;
0311 }
0312 if (buffer->(i+3) ~= ' ') {
0313 LTI_Insert(i+3, ' '); i++; altered = true;
0314 }
0315 i = i + 2; continue;
0316 }
0317
0318 if (buffer->i == ':' && buffer->(i+1) == ':') force = true;
0319 if (buffer->i == '-' && buffer->(i+1) == '>') force = true;
0320 if (buffer->i == '.' && buffer->(i+1) == '&') {
0321 buffer->i = ']'; force = true;
0322 }
0323 if (buffer->i == '.' && buffer->(i+1) == '#') {
0324 buffer->i = ']'; force = true;
0325 }
0326 if (buffer->i == ']' && buffer->(i+1) == '&') force = true;
0327 if (buffer->i == ']' && buffer->(i+1) == '#') force = true;
0328 if (buffer->i == '+' && buffer->(i+1) == '+') force = true;
0329 if (buffer->i == '-' && buffer->(i+1) == '-') force = true;
0330 if (buffer->i == '&' && buffer->(i+1) == '&') force = true;
0331 if (buffer->i == '|' && buffer->(i+1) == '|') force = true;
0332 if (buffer->i == '~' && buffer->(i+1) == '~') force = true;
0333
0334 if (buffer->i == '=' && buffer->(i+1) == '=') force = true;
0335 if (buffer->i == '~' && buffer->(i+1) == '=') force = true;
0336 if (buffer->i == '>' && buffer->(i+1) == '=') force = true;
0337 if (buffer->i == '<' && buffer->(i+1) == '=') force = true;
0338 if (buffer->i == '#' && buffer->(i+1) == '#') force = true;
0339
0340 if (force) {
0341 if (i > 2 && buffer->(i-1) ~= ' ') {
0342 LTI_Insert(i++, ' '); altered = true;
0343 }
0344 if (buffer->(i+2) ~= ' ') {
0345 LTI_Insert(i+2, ' '); i++; altered = true;
0346 }
0347 i = i + 1; continue;
0348 }
0349
0350 if (buffer->i == '+') force = true;
0351 if (buffer->i == '-') force = true;
0352 if (buffer->i == '*') force = true;
0353 if (buffer->i == '/') force = true;
0354 if (buffer->i == '%') force = true;
0355 if (buffer->i == '(') force = true;
0356 if (buffer->i == ')') force = true;
0357 if (buffer->i == '<' && buffer->(i-1) ~= ';') force = true;
0358 if (buffer->i == '>') force = true;
0359 if (buffer->i == ',') force = true;
0360 if (buffer->i == '.') force = true;
0361 if (buffer->i == '&') force = true;
0362 if (buffer->i == '|') force = true;
0363 if (buffer->i == '~') force = true;
0364 if (buffer->i == '=') force = true;
0365 if (force) {
0366 if (i > 2 && buffer->(i-1) ~= ' ') {
0367 LTI_Insert(i++, ' '); altered = true;
0368 }
0369 if (buffer->(i+1) ~= ' ') {
0370 LTI_Insert(i+1, ' '); i++; altered = true;
0371 }
0372 }
0373 }
0374 for (i=2 : i1 + 2 : i++)
0375 if (buffer->i == '~') { buffer->i = '['; altered = true; }
0376 return altered;
0377 ]; ! end of InfixCheckLineSpaced
|
