Changeset 38 for ccr/trunk/p/GPLXPATH.m
- Timestamp:
- Jul 3, 2008, 8:26:40 PM (16 years ago)
- File:
-
- 1 edited
-
ccr/trunk/p/GPLXPATH.m (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLXPATH.m
r35 r38 1 GPLXPATH 2 3 4 5 6 1 GPLXPATH ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08 2 ;;0.2;CCDCCR;nopatch;noreleasedate 3 W "This is an XML XPATH utility library",! 4 W ! 5 Q 6 ; 7 7 OUTPUT(OUTARY,OUTNAME,OUTDIR) ; WRITE AN ARRAY TO A FILE 8 9 10 11 12 13 14 8 ; 9 N Y 10 S Y=$$GTF^%ZISH(OUTARY,$QL(OUTARY),OUTDIR,OUTNAME) 11 I Y W "WROTE FILE: ",OUTNAME," TO ",OUTDIR,! 12 ; $NA(^TMP(14216,"FILE",0)),3,"/home/wvehr3","test.xml") 13 Q 14 ; 15 15 PUSH(STK,VAL) ; pushs VAL onto STK and updates STK(0) 16 17 18 19 20 21 22 16 ; VAL IS A STRING AND STK IS PASSED BY NAME 17 ; 18 I '$D(@STK@(0)) S @STK@(0)=0 ; IF THE ARRAY IS EMPTY, INITIALIZE 19 S @STK@(0)=@STK@(0)+1 ; INCREMENT ARRAY DEPTH 20 S @STK@(@STK@(0))=VAL ; PUT VAL A THE END OF THE ARRAY 21 Q 22 ; 23 23 POP(STK,VAL) ; POPS THE LAST VALUE OFF THE STK AND RETURNS IT IN VAL 24 25 26 27 28 29 30 31 32 24 ; VAL AND STK ARE PASSED BY REFERENCE 25 ; 26 I @STK@(0)<1 S VAL="",@STK@(0)=0 Q ; IF ARRAY IS EMPTY 27 I @STK@(0)>0 D 28 . S VAL=@STK@(@STK@(0)) 29 . K @STK@(@STK@(0)) 30 . S @STK@(0)=@STK@(0)-1 ; NEW DEPTH OF THE ARRAY 31 Q 32 ; 33 33 MKMDX(STK,RTN) ; MAKES A MUMPS INDEX FROM THE ARRAY STK 34 35 36 37 38 39 40 41 42 43 34 ; RTN IS SET TO //FIRST/SECOND/THIRD" FOR THREE ARRAY ELEMENTS 35 S RTN="" 36 N I 37 ; W "STK= ",STK,! 38 I @STK@(0)>0 D ; IF THE ARRAY IS NOT EMPTY 39 . S RTN="//"_@STK@(1) ; FIRST ELEMENT NEEDS NO SEMICOLON 40 . I @STK@(0)>1 D ; SUBSEQUENT ELEMENTS NEED A SEMICOLON 41 . . F I=2:1:@STK@(0) S RTN=RTN_"/"_@STK@(I) 42 Q 43 ; 44 44 XNAME(ISTR) ; FUNCTION TO EXTRACT A NAME FROM AN XML FRAG 45 46 47 48 49 50 51 52 53 54 55 56 57 58 45 ; </NAME> AND <NAME ID=XNAME> WILL RETURN NAME 46 ; ISTR IS PASSED BY VALUE 47 N CUR,TMP 48 I ISTR?.E1"<".E D ; STRIP OFF LEFT BRACKET 49 . S TMP=$P(ISTR,"<",2) 50 I TMP?1"/".E D ; ALSO STRIP OFF SLASH IF PRESENT IE </NAME> 51 . S TMP=$P(TMP,"/",2) 52 S CUR=$P(TMP,">",1) ; EXTRACT THE NAME 53 ; W "CUR= ",CUR,! 54 I CUR?.1"_"1.A1" ".E D ; CONTAINS A BLANK IE NAME ID=TEST> 55 . S CUR=$P(CUR," ",1) ; STRIP OUT BLANK AND AFTER 56 ; W "CUR2= ",CUR,! 57 Q CUR 58 ; 59 59 INDEX(ZXML) ; parse the XML in ZXML and produce an XPATH index 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 60 ; ex. ZXML(FIRST,SECOND,THIRD,FOURTH)=FIRSTLINE^LASTLINE 61 ; WHERE FIRSTLINE AND LASTLINE ARE THE BEGINNING AND ENDING OF THE 62 ; XML SECTION 63 ; ZXML IS PASSED BY NAME 64 N I,LINE,FIRST,LAST,CUR,TMP,MDX,FOUND 65 N GPLSTK ; LEAVE OUT FOR DEBUGGING 66 I '$D(@ZXML@(0)) D ; NO XML PASSED 67 . W "ERROR IN XML FILE",! 68 S GPLSTK(0)=0 ; INITIALIZE STACK 69 F I=1:1:@ZXML@(0) D ; PROCESS THE ENTIRE ARRAY 70 . S LINE=@ZXML@(I) 71 . ;W LINE,! 72 . S FOUND=0 ; INTIALIZED FOUND FLAG 73 . I LINE?.E1"<!".E S FOUND=1 ; SKIP OVER COMMENTS 74 . I FOUND'=1 D 75 . . I (LINE?.E1"<"1.E1"</".E)!(LINE?.E1"<"1.E1"/>".E) D 76 . . . ; THIS IS THE CASE THERE SECTION BEGINS AND ENDS 77 . . . ; ON THE SAME LINE 78 . . . ; W "FOUND ",LINE,! 79 . . . S FOUND=1 ; SET FOUND FLAG 80 . . . S CUR=$$XNAME(LINE) ; EXTRACT THE NAME 81 . . . D PUSH("GPLSTK",CUR) ; ADD TO THE STACK 82 . . . D MKMDX("GPLSTK",.MDX) ; GENERATE THE M INDEX 83 . . . ; W "MDX=",MDX,! 84 . . . I $D(@ZXML@(MDX)) D ; IN THE INDEX, IS A MULTIPLE 85 . . . . S $P(@ZXML@(MDX),"^",2)=I ; UPDATE LAST LINE NUMBER 86 . . . I '$D(@ZXML@(MDX)) D ; NOT IN THE INDEX, NOT A MULTIPLE 87 . . . . S @ZXML@(MDX)=I_"^"_I ; ADD INDEX ENTRY-FIRST AND LAST 88 . . . D POP("GPLSTK",.TMP) ; REMOVE FROM STACK 89 . I FOUND'=1 D ; THE LINE DOESN'T CONTAIN THE START AND END 90 . . I LINE?.E1"</"1.E D ; LINE CONTAINS END OF A SECTION 91 . . . ; W "FOUND ",LINE,! 92 . . . S FOUND=1 ; SET FOUND FLAG 93 . . . S CUR=$$XNAME(LINE) ; EXTRACT THE NAME 94 . . . D MKMDX("GPLSTK",.MDX) ; GENERATE THE M INDEX 95 . . . S $P(@ZXML@(MDX),"^",2)=I ; UPDATE LAST LINE NUMBER 96 . . . D POP("GPLSTK",.TMP) ; REMOVE FROM STACK 97 . . . I TMP'=CUR D ; MALFORMED XML, END MUST MATCH START 98 . . . . W "MALFORMED XML ",CUR,"LINE "_I_LINE,! 99 . . . . Q 100 . I FOUND'=1 D ; THE LINE MIGHT CONTAIN A SECTION BEGINNING 101 . . I (LINE?.E1"<"1.E)&(LINE'["?>") D ; BEGINNING OF A SECTION 102 . . . ; W "FOUND ",LINE,! 103 . . . S FOUND=1 ; SET FOUND FLAG 104 . . . S CUR=$$XNAME(LINE) ; EXTRACT THE NAME 105 . . . D PUSH("GPLSTK",CUR) ; ADD TO THE STACK 106 . . . D MKMDX("GPLSTK",.MDX) ; GENERATE THE M INDEX 107 . . . ; W "MDX=",MDX,! 108 . . . I $D(@ZXML@(MDX)) D ; IN THE INDEX, IS A MULTIPLE 109 . . . . S $P(@ZXML@(MDX),"^",2)=I ; UPDATE LAST LINE NUMBER 110 . . . I '$D(@ZXML@(MDX)) D ; NOT IN THE INDEX, NOT A MULTIPLE 111 . . . . S @ZXML@(MDX)=I_"^" ; INSERT INTO THE INDEX 112 S @ZXML@("INDEXED")="" 113 S @ZXML@("//")="1^"_@ZXML@(0) ; ROOT XPATH 114 Q 115 ; 116 116 QUERY(IARY,XPATH,OARY) ; RETURNS THE XML ARRAY MATCHING THE XPATH EXPRESSION 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 117 ; XPATH IS OF THE FORM "//FIRST/SECOND/THIRD" 118 ; IARY AND OARY ARE PASSED BY NAME 119 I '$D(@IARY@("INDEXED")) D ; INDEX IS NOT PRESENT IN IARY 120 . D INDEX(IARY) ; GENERATE AN INDEX FOR THE XML 121 N FIRST,LAST ; FIRST AND LAST LINES OF ARRAY TO RETURN 122 N TMP,I,J,QXPATH 123 S FIRST=1 124 S LAST=@IARY@(0) ; FIRST AND LAST DEFAULT TO ROOT 125 I XPATH'="//" D ; NOT A ROOT QUERY 126 . S TMP=@IARY@(XPATH) ; LOOK UP LINE VALUES 127 . S FIRST=$P(TMP,"^",1) 128 . S LAST=$P(TMP,"^",2) 129 K @OARY 130 S @OARY@(0)=+LAST-FIRST+1 131 S J=1 132 FOR I=FIRST:1:LAST D 133 . S @OARY@(J)=@IARY@(I) ; COPY THE LINE TO OARY 134 . S J=J+1 135 ; ZWR OARY 136 Q 137 ; 138 138 XF(IDX,XPATH) ; EXTRINSIC TO RETURN THE STARTING LINE FROM AN XPATH 139 140 141 142 139 ; INDEX WITH TWO PIECES START^FINISH 140 ; IDX IS PASSED BY NAME 141 Q $P(@IDX@(XPATH),"^",1) 142 ; 143 143 XL(IDX,XPATH) ; EXTRINSIC TO RETURN THE LAST LINE FROM AN XPATH 144 145 146 147 144 ; INDEX WITH TWO PIECES START^FINISH 145 ; IDX IS PASSED BY NAME 146 Q $P(@IDX@(XPATH),"^",2) 147 ; 148 148 START(ISTR) ; EXTRINSIC TO RETURN THE STARTING LINE FROM AN INDEX 149 150 151 152 149 ; TYPE STRING WITH THREE PIECES ARRAY;START;FINISH 150 ; COMPANION TO FINISH ; IDX IS PASSED BY NAME 151 Q $P(ISTR,";",2) 152 ; 153 153 FINISH(ISTR) ; EXTRINSIC TO RETURN THE LAST LINE FROM AN INDEX 154 155 156 154 ; TYPE STRING WITH THREE PIECES ARRAY;START;FINISH 155 Q $P(ISTR,";",3) 156 ; 157 157 ARRAY(ISTR) ; EXTRINSIC TO RETURN THE ARRAY REFERENCE FROM AN INDEX 158 159 160 158 ; TYPE STRING WITH THREE PIECES ARRAY;START;FINISH 159 Q $P(ISTR,";",1) 160 ; 161 161 BUILD(BLIST,BDEST) ; A COPY MACHINE THAT TAKE INSTRUCTIONS IN ARRAY BLIST 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 162 ; WHICH HAVE ARRAY;START;FINISH AND COPIES THEM TO DEST 163 ; DEST IS CLEARED TO START 164 ; USES PUSH TO DO THE COPY 165 N I 166 K @BDEST 167 F I=1:1:@BLIST@(0) D ; FOR EACH INSTRUCTION IN BLIST 168 . N J,ATMP 169 . S ATMP=$$ARRAY(@BLIST@(I)) 170 . I DEBUG W "ATMP=",ATMP,! 171 . I DEBUG W @BLIST@(I),! 172 . F J=$$START(@BLIST@(I)):1:$$FINISH(@BLIST@(I)) D ; 173 . . ; FOR EACH LINE IN THIS INSTR 174 . . I DEBUG W "BDEST= ",BDEST,! 175 . . I DEBUG W "ATMP= ",@ATMP@(J),! 176 . . D PUSH(BDEST,@ATMP@(J)) 177 Q 178 ; 179 179 QUEUE(BLST,ARRAY,FIRST,LAST) ; ADD AN ENTRY TO A BLIST 180 181 182 183 184 180 ; 181 I DEBUG W "QUEUEING ",BLST,! 182 D PUSH(BLST,ARRAY_";"_FIRST_";"_LAST) 183 Q 184 ; 185 185 CP(CPSRC,CPDEST) ; COPIES CPSRC TO CPDEST BOTH PASSED BY NAME 186 187 188 189 190 191 192 193 194 195 196 186 ; KILLS CPDEST FIRST 187 N CPINSTR 188 I DEBUG W "MADE IT TO COPY",CPSRC,CPDEST,! 189 I @CPSRC@(0)<1 D ; BAD LENGTH 190 . W "ERROR IN COPY BAD SOURCE LENGTH: ",CPSRC,! 191 . Q 192 ; I '$D(@CPDEST@(0)) S @CPDEST@(0)=0 ; IF THE DEST IS EMPTY, INIT 193 D QUEUE("CPINSTR",CPSRC,1,@CPSRC@(0)) ; BLIST FOR ENTIRE ARRAY 194 D BUILD("CPINSTR",CPDEST) 195 Q 196 ; 197 197 QOPEN(QOBLIST,QOXML,QOXPATH) ; ADD ALL BUT THE LAST LINE OF QOXML TO QOBLIST 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 198 ; WARNING NEED TO DO QCLOSE FOR SAME XML BEFORE CALLING BUILD 199 ; QOXPATH IS OPTIONAL - WILL OPEN INSIDE THE XPATH POINT 200 ; USED TO INSERT CHILDREN NODES 201 I @QOXML@(0)<1 D ; MALFORMED XML 202 . W "MALFORMED XML PASSED TO QOPEN: ",QOXML,! 203 . Q 204 I DEBUG W "DOING QOPEN",! 205 N S1,E1,QOT,QOTMP 206 S S1=1 ; OPEN FROM THE BEGINNING OF THE XML 207 I $D(QOXPATH) D ; XPATH PROVIDED 208 . D QUERY(QOXML,QOXPATH,"QOT") ; INSURE INDEX 209 . S E1=$P(@QOXML@(QOXPATH),"^",2)-1 210 I '$D(QOXPATH) D ; NO XPATH PROVIDED, OPEN AT ROOT 211 . S E1=@QOXML@(0)-1 212 D QUEUE(QOBLIST,QOXML,S1,E1) 213 ; S QOTMP=QOXML_"^"_S1_"^"_E1 214 ; D PUSH(QOBLIST,QOTMP) 215 Q 216 ; 217 217 QCLOSE(QCBLIST,QCXML,QCXPATH) ; CLOSE XML AFTER A QOPEN 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 218 ; ADDS THE LIST LINE OF QCXML TO QCBLIST 219 ; USED TO FINISH INSERTING CHILDERN NODES 220 ; QCXPATH IS OPTIONAL - IF PROVIDED, WILL CLOSE UNTIL THE END 221 ; IF QOPEN WAS CALLED WITH XPATH, QCLOSE SHOULD BE TOO 222 I @QCXML@(0)<1 D ; MALFORMED XML 223 . W "MALFORMED XML PASSED TO QCLOSE: ",QCXML,! 224 I DEBUG W "GOING TO CLOSE",! 225 N S1,E1,QCT,QCTMP 226 S E1=@QCXML@(0) ; CLOSE UNTIL THE END OF THE XML 227 I $D(QCXPATH) D ; XPATH PROVIDED 228 . D QUERY(QCXML,QCXPATH,"QCT") ; INSURE INDEX 229 . S S1=$P(@QCXML@(QCXPATH),"^",2) ; REMAINING XML 230 I '$D(QCXPATH) D ; NO XPATH PROVIDED, CLOSE AT ROOT 231 . S S1=@QCXML@(0) 232 D QUEUE(QCBLIST,QCXML,S1,E1) 233 ; D PUSH(QCBLIST,QCXML_";"_S1_";"_E1) 234 Q 235 ; 236 236 INSERT(INSXML,INSNEW,INSXPATH) ; INSERT INSNEW INTO INSXML AT THE 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 237 ; INSXPATH XPATH POINT INSXPATH IS OPTIONAL - IF IT IS 238 ; OMITTED, INSERTION WILL BE AT THE ROOT 239 ; NOTE INSERT IS NON DESTRUCTIVE AND WILL ADD THE NEW 240 ; XML AT THE END OF THE XPATH POINT 241 ; INSXML AND INSNEW ARE PASSED BY NAME INSXPATH IS A VALUE 242 N INSBLD,INSTMP 243 I DEBUG W "DOING INSERT ",INSXML,INSNEW,INSXPATH,! 244 I DEBUG F G1=1:1:@INSXML@(0) W @INSXML@(G1),! 245 I '$D(@INSXML@(0)) D Q ; INSERT INTO AN EMPTY ARRAY 246 . D CP^GPLXPATH(INSNEW,INSXML) ; JUST COPY INTO THE OUTPUT 247 I $D(@INSXML@(0)) D ; IF ORIGINAL ARRAY IS NOT EMPTY 248 . I $D(INSXPATH) D ; XPATH PROVIDED 249 . . D QOPEN("INSBLD",INSXML,INSXPATH) ; COPY THE BEFORE 250 . . I DEBUG ZWR INSBLD 251 . I '$D(INSXPATH) D ; NO XPATH PROVIDED, OPEN AT ROOT 252 . . D QOPEN("INSBLD",INSXML,"//") ; OPEN WITH ROOT XPATH 253 . D QUEUE("INSBLD",INSNEW,1,@INSNEW@(0)) ; COPY IN NEW XML 254 . I $D(INSXPATH) D ; XPATH PROVIDED 255 . . D QCLOSE("INSBLD",INSXML,INSXPATH) ; CLOSE WITH XPATH 256 . I '$D(INSXPATH) D ; NO XPATH PROVIDED, CLOSE AT ROOT 257 . . D QCLOSE("INSBLD",INSXML,"//") ; CLOSE WITH ROOT XPATH 258 . D BUILD("INSBLD","INSTMP") ; PUT RESULTS IN INDEST 259 . D CP^GPLXPATH("INSTMP",INSXML) ; COPY BUFFER TO SOURCE 260 Q 261 ; 262 262 INSINNER(INNXML,INNNEW,INNXPATH) ; INSERT THE INNER XML OF INNNEW 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 263 ; INTO INNXML AT THE INNXPATH XPATH POINT 264 ; 265 N INNBLD,UXPATH 266 N INNTBUF 267 S INNTBUF=$NA(^TMP($J,"INNTBUF")) 268 I '$D(INNXPATH) D ; XPATH NOT PASSED 269 . S UXPATH="//" ; USE ROOT XPATH 270 I $D(INNXPATH) S UXPATH=INNXPATH ; USE THE XPATH THAT'S PASSED 271 I '$D(@INNXML@(0)) D ; INNXML IS EMPTY 272 . D QUEUE^GPLXPATH("INNBLD",INNNEW,2,@INNNEW@(0)-1) ; JUST INNER 273 . D BUILD("INNBLD",INNXML) 274 I @INNXML@(0)>0 D ; NOT EMPTY 275 . D QOPEN("INNBLD",INNXML,UXPATH) ; 276 . D QUEUE("INNBLD",INNNEW,2,@INNNEW@(0)-1) ; JUST INNER XML 277 . D QCLOSE("INNBLD",INNXML,UXPATH) 278 . D BUILD("INNBLD",INNTBUF) ; BUILD TO BUFFER 279 . D CP(INNTBUF,INNXML) ; COPY BUFFER TO DEST 280 Q 281 ; 282 282 REPLACE(REXML,RENEW,REXPATH) ; REPLACE THE XML AT THE XPATH POINT 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 283 ; WITH RENEW - NOTE THIS WILL DELETE WHAT WAS THERE BEFORE 284 ; REXML AND RENEW ARE PASSED BY NAME XPATH IS A VALUE 285 ; THE DELETED XML IS PUT IN ^TMP($J,"REPLACE_OLD") 286 N REBLD,XFIRST,XLAST,OLD,XNODE,RETMP 287 S OLD=$NA(^TMP($J,"REPLACE_OLD")) 288 D QUERY(REXML,REXPATH,OLD) ; CREATE INDEX, TEST XPATH, MAKE OLD 289 S XNODE=@REXML@(REXPATH) ; PULL OUT FIRST AND LAST LINE PTRS 290 S XFIRST=$P(XNODE,"^",1) 291 S XLAST=$P(XNODE,"^",2) 292 D QUEUE("REBLD",REXML,1,XFIRST) ; THE BEFORE 293 I RENEW'="" D ; NEW XML IS NOT NULL 294 . D QUEUE("REBLD",RENEW,1,@RENEW@(0)) ; THE NEW 295 D QUEUE("REBLD",REXML,XLAST,@REXML@(0)) ; THE REST 296 I DEBUG W "REPALCE PREBUILD",! 297 I DEBUG ZWR REBLD 298 D BUILD("REBLD","RTMP") 299 K @REXML ; KILL WHAT WAS THERE 300 D CP("RTMP",REXML) ; COPY IN THE RESULT 301 Q 302 ; 303 303 MISSING(IXML,OARY) ; SEARTH THROUGH INXLM AND PUT ANY @@X@@ VARS IN OARY 304 305 306 307 308 309 310 311 312 313 314 304 ; W "Reporting on the missing",! 305 ; W OARY 306 I '$D(@IXML@(0)) W "MALFORMED XML PASSED TO MISSING",! Q 307 N I 308 S @OARY@(0)=0 ; INITIALIZED MISSING COUNT 309 F I=1:1:@IXML@(0) D ; LOOP THROUGH WHOLE ARRAY 310 . I @IXML@(I)?.E1"@@".E D ; MISSING VARIABLE HERE 311 . . D PUSH^GPLXPATH(OARY,$P(@IXML@(I),"@@",2)) ; ADD TO OUTARY 312 . . Q 313 Q 314 ; 315 315 MAP(IXML,INARY,OXML) ; SUBSTITUTE @@X@@ VARS IN IXML WITH VALUES IN INARY 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 316 ; AND PUT THE RESULTS IN OXML 317 I '$D(@IXML@(0)) W "MALFORMED XML PASSED TO MAP",! Q 318 I $O(@INARY@(""))="" W "EMPTY ARRAY PASSED TO MAP",! Q 319 N I,TNAM,TVAL 320 S @OXML@(0)=@IXML@(0) ; TOTAL LINES IN OUTPUT 321 F I=1:1:@OXML@(0) D ; LOOP THROUGH WHOLE ARRAY 322 . S @OXML@(I)=@IXML@(I) ; COPY THE LINE TO OUTPUT 323 . I @OXML@(I)?.E1"@@".E D ; IS THERE A VARIABLE HERE? 324 . . S TNAM=$P(@OXML@(I),"@@",2) ; EXTRACT THE VARIABLE NAME 325 . . I $D(@INARY@(TNAM)) D ; IS THE VARIABLE IN THE MAP? 326 . . . S TVAL=@INARY@(TNAM) ; PULL OUT MAPPED VALUE 327 . . . S @OXML@(I)=$P(@OXML@(I),"@@",1)_TVAL_$P(@OXML@(I),"@@",3) 328 W "MAPPED",! 329 Q 330 ; 331 331 PARY(GLO) ;PRINT AN ARRAY 332 333 334 335 332 N I 333 F I=1:1:@GLO@(0) W @GLO@(I),! 334 Q 335 ; 336 336 TEST ; Run all the test cases 337 338 339 337 D TESTALL^GPLUNIT("GPLXPATH") 338 Q 339 ; 340 340 OLDTEST ; RUN ALL THE TEST CASES 341 342 343 344 345 346 347 348 349 350 341 N ZTMP 342 D ZLOAD^GPLUNIT("ZTMP","GPLXPATH") 343 D ZTEST^GPLUNIT(.ZTMP,"ALL") 344 W "PASSED: ",TPASSED,! 345 W "FAILED: ",TFAILED,! 346 W ! 347 ; W "THE TESTS!",! 348 ; ZWR ZTMP 349 Q 350 ; 351 351 ZTEST(WHICH) ; RUN ONE SET OF TESTS 352 353 354 355 356 357 352 N ZTMP 353 S DEBUG=1 354 D ZLOAD^GPLUNIT("ZTMP","GPLXPATH") 355 D ZTEST^GPLUNIT(.ZTMP,WHICH) 356 Q 357 ; 358 358 TLIST ; LIST THE TESTS 359 360 361 362 363 359 N ZTMP 360 D ZLOAD^GPLUNIT("ZTMP","GPLXPATH") 361 D TLIST^GPLUNIT(.ZTMP) 362 Q 363 ; 364 364 ;;><TEST> 365 365 ;;><INIT>
Note:
See TracChangeset
for help on using the changeset viewer.
