Changeset 134 for ccr/trunk/p/GPLXPATH.m
- Timestamp:
- Sep 3, 2008, 6:26:54 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLXPATH.m
r125 r134 26 26 N Y 27 27 S Y=$$GTF^%ZISH(OUTARY,$QL(OUTARY),OUTDIR,OUTNAME) 28 I Y W "WROTE FILE: ",OUTNAME," TO ",OUTDIR,!29 ; $NA(^TMP(14216,"FILE",0)),3,"/home/wvehr3","test.xml")28 I Y Q 1_U_"WROTE FILE: "_OUTNAME_" TO "_OUTDIR 29 I 'Y Q 0_U_"ERROR WRITING FILE"_OUTNAME_" TO "_OUTDIR 30 30 Q 31 31 ; … … 366 366 . . S @OXML@(I)=TSTR ; COPY LINE WITH MAPPED VALUES 367 367 . . I DEBUG W TSTR 368 W "MAPPED",!368 I DEBUG W "MAPPED",! 369 369 Q 370 370 ; … … 374 374 S FOUND=0 375 375 S INTXT=0 376 W "DELETING EMPTY ELEMENTS",!376 I DEBUG W "DELETING EMPTY ELEMENTS",! 377 377 F I=1:1:(@THEXML@(0)-1) D ; LOOP THROUGH ENTIRE ARRAY 378 378 . S J=@THEXML@(I) 379 379 . I J["<text>" D 380 380 . . S INTXT=1 ; IN HTML SECTION, DON'T TRIM 381 . . W "IN HTML SECTION",!381 . . I DEBUG W "IN HTML SECTION",! 382 382 . N JM,JP,JPX ; JMINUS AND JPLUS 383 383 . S JM=@THEXML@(I-1) ; LINE BEFORE … … 387 387 . . S JPX=$TR(JP,"/","") ; REMOVE THE SLASH 388 388 . . I J=JPX D ; AN EMPTY ELEMENT ON TWO LINES 389 . . . W I,J,JP,!389 . . . I DEBUG W I,J,JP,! 390 390 . . . S FOUND=1 ; FOUND SOMETHING TO BE DELETED 391 391 . . . S DEL(I)="" ; SET LINE TO DELETE 392 392 . . . S DEL(I+1)="" ; SET NEXT LINE TO DELETE 393 393 . . I J["><" D ; AN EMPTY ELEMENT ON ONE LINE 394 . . . W I,J,!394 . . . I DEBUG W I,J,! 395 395 . . . S FOUND=1 ; FOUND SOMETHING TO BE DELETED 396 396 . . . S DEL(I)="" ; SET THE EMPTY LINE UP TO BE DELETED 397 397 . . . I JM=JPX D ; 398 . . . . W I,JM_J_JPX,!398 . . . . I DEBUG W I,JM_J_JPX,! 399 399 . . . . S DEL(I-1)="" 400 400 . . . . S DEL(I+1)="" ; SET THE SURROUNDING LINES FOR DEL
Note:
See TracChangeset
for help on using the changeset viewer.