Changeset 39 for ccr/trunk/p
- Timestamp:
- Jul 3, 2008, 8:38:45 PM (16 years ago)
- File:
-
- 1 edited
-
ccr/trunk/p/GPLXPATH.m (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLXPATH.m
r38 r39 364 364 ;;><TEST> 365 365 ;;><INIT> 366 ;;>>>K 367 ;;>>>D 368 ;;>>>D 369 ;;>>>D 370 ;;>>>D 366 ;;>>>K GPL S GPL="" 367 ;;>>>D PUSH^GPLXPATH("GPL","FIRST") 368 ;;>>>D PUSH^GPLXPATH("GPL","SECOND") 369 ;;>>>D PUSH^GPLXPATH("GPL","THIRD") 370 ;;>>>D PUSH^GPLXPATH("GPL","FOURTH") 371 371 ;;>>?GPL(0)=4 372 372 ;;><INITXML> 373 ;;>>>K 374 ;;>>>D 375 ;;>>>D 376 ;;>>>D 377 ;;>>>D 378 ;;>>>D 379 ;;>>>D 380 ;;>>>D 381 ;;>>>D 382 ;;>>>D 383 ;;>>>D 384 ;;>>>D 385 ;;>>>D 386 ;;>>>D 373 ;;>>>K GXML S GXML="" 374 ;;>>>D PUSH^GPLXPATH("GXML","<FIRST>") 375 ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>") 376 ;;>>>D PUSH^GPLXPATH("GXML","<THIRD>") 377 ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>@@DATA1@@</FOURTH>") 378 ;;>>>D PUSH^GPLXPATH("GXML","<FIFTH>") 379 ;;>>>D PUSH^GPLXPATH("GXML","@@DATA2@@") 380 ;;>>>D PUSH^GPLXPATH("GXML","</FIFTH>") 381 ;;>>>D PUSH^GPLXPATH("GXML","<SIXTH ID=""SELF"" />") 382 ;;>>>D PUSH^GPLXPATH("GXML","</THIRD>") 383 ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>") 384 ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>") 385 ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>") 386 ;;>>>D PUSH^GPLXPATH("GXML","</FIRST>") 387 387 ;;><INITXML2> 388 ;;>>>K 389 ;;>>>D 390 ;;>>>D 391 ;;>>>D 392 ;;>>>D 393 ;;>>>D 394 ;;>>>D 395 ;;>>>D 396 ;;>>>D 397 ;;>>>D 398 ;;>>>D 399 ;;>>>D 400 ;;>>>D 401 ;;>>>D 388 ;;>>>K GXML S GXML="" 389 ;;>>>D PUSH^GPLXPATH("GXML","<FIRST>") 390 ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>") 391 ;;>>>D PUSH^GPLXPATH("GXML","<THIRD>") 392 ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA1</FOURTH>") 393 ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>") 394 ;;>>>D PUSH^GPLXPATH("GXML","DATA2") 395 ;;>>>D PUSH^GPLXPATH("GXML","</FOURTH>") 396 ;;>>>D PUSH^GPLXPATH("GXML","</THIRD>") 397 ;;>>>D PUSH^GPLXPATH("GXML","<_SECOND>") 398 ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA3</FOURTH>") 399 ;;>>>D PUSH^GPLXPATH("GXML","</_SECOND>") 400 ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>") 401 ;;>>>D PUSH^GPLXPATH("GXML","</FIRST>") 402 402 ;;><PUSHPOP> 403 ;;>>>D 404 ;;>>>D 403 ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH") 404 ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT") 405 405 ;;>>?GPL(GPL(0))="FOURTH" 406 ;;>>>D 406 ;;>>>D POP^GPLXPATH("GPL",.GX) 407 407 ;;>>?GX="FOURTH" 408 408 ;;>>?GPL(GPL(0))="THIRD" 409 ;;>>>D 409 ;;>>>D POP^GPLXPATH("GPL",.GX) 410 410 ;;>>?GX="THIRD" 411 411 ;;>>?GPL(GPL(0))="SECOND" 412 412 ;;><MKMDX> 413 ;;>>>D 414 ;;>>>D 415 ;;>>>S 416 ;;>>>D 413 ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH") 414 ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT") 415 ;;>>>S GX="" 416 ;;>>>D MKMDX^GPLXPATH("GPL",.GX) 417 417 ;;>>?GX="//FIRST/SECOND/THIRD/FOURTH" 418 418 ;;><XNAME> 419 419 ;;>>?$$XNAME^GPLXPATH("<FOURTH>DATA1</FOURTH>")="FOURTH" 420 ;;>>?$$XNAME^GPLXPATH("<SIXTH 420 ;;>>?$$XNAME^GPLXPATH("<SIXTH ID=""SELF"" />")="SIXTH" 421 421 ;;>>?$$XNAME^GPLXPATH("</THIRD>")="THIRD" 422 422 ;;><INDEX> 423 ;;>>>D 424 ;;>>>D 425 ;;>>>D 423 ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH") 424 ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INITXML") 425 ;;>>>D INDEX^GPLXPATH("GXML") 426 426 ;;>>?GXML("//FIRST/SECOND")="2^12" 427 427 ;;>>?GXML("//FIRST/SECOND/THIRD")="3^9" … … 432 432 ;;>>?GXML("//FIRST")="1^13" 433 433 ;;><INDEX2> 434 ;;>>>D 435 ;;>>>D 434 ;;>>>D ZTEST^GPLXPATH("INITXML2") 435 ;;>>>D INDEX^GPLXPATH("GXML") 436 436 ;;>>?GXML("//FIRST/SECOND")="2^12" 437 437 ;;>>?GXML("//FIRST/SECOND/_SECOND")="9^11" … … 441 441 ;;>>?GXML("//FIRST")="1^13" 442 442 ;;><MISSING> 443 ;;>>>D 444 ;;>>>S 445 ;;>>>D 443 ;;>>>D ZTEST^GPLXPATH("INITXML") 444 ;;>>>S OUTARY="^TMP($J,""MISSINGTEST"")" 445 ;;>>>D MISSING^GPLXPATH("GXML",OUTARY) 446 446 ;;>>?@OUTARY@(1)="DATA1" 447 447 ;;>>?@OUTARY@(2)="DATA2" 448 448 ;;><MAP> 449 ;;>>>D 450 ;;>>>S 451 ;;>>>S 452 ;;>>>S 453 ;;>>>D 449 ;;>>>D ZTEST^GPLXPATH("INITXML") 450 ;;>>>S MAPARY="^TMP($J,""MAPVALUES"")" 451 ;;>>>S OUTARY="^TMP($J,""MAPTEST"")" 452 ;;>>>S @MAPARY@("DATA2")="VALUE2" 453 ;;>>>D MAP^GPLXPATH("GXML",MAPARY,OUTARY) 454 454 ;;>>?@OUTARY@(6)="VALUE2" 455 455 ;;><QUEUE> 456 ;;>>>D 457 ;;>>>D 456 ;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",2,3) 457 ;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",4,5) 458 458 ;;>>?$P(BTLIST(2),";",2)=4 459 459 ;;><BUILD> 460 ;;>>>D 461 ;;>>>D 462 ;;>>>D 463 ;;>>>D 460 ;;>>>D ZTEST^GPLXPATH("INITXML") 461 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FOURTH","G2") 462 ;;>>>D ZTEST^GPLXPATH("QUEUE") 463 ;;>>>D BUILD^GPLXPATH("BTLIST","G3") 464 464 ;;><CP> 465 ;;>>>D 466 ;;>>>D 465 ;;>>>D ZTEST^GPLXPATH("INITXML") 466 ;;>>>D CP^GPLXPATH("GXML","G2") 467 467 ;;>>?G2(0)=13 468 468 ;;><QOPEN> 469 ;;>>>K 470 ;;>>>D 471 ;;>>>D 469 ;;>>>K G2,GBL 470 ;;>>>D ZTEST^GPLXPATH("INITXML") 471 ;;>>>D QOPEN^GPLXPATH("GBL","GXML") 472 472 ;;>>?$P(GBL(1),";",3)=12 473 ;;>>>D 473 ;;>>>D BUILD^GPLXPATH("GBL","G2") 474 474 ;;>>?G2(G2(0))="</SECOND>" 475 475 ;;><QOPEN2> 476 ;;>>>K 477 ;;>>>D 478 ;;>>>D 476 ;;>>>K G2,GBL 477 ;;>>>D ZTEST^GPLXPATH("INITXML") 478 ;;>>>D QOPEN^GPLXPATH("GBL","GXML","//FIRST/SECOND") 479 479 ;;>>?$P(GBL(1),";",3)=11 480 ;;>>>D 480 ;;>>>D BUILD^GPLXPATH("GBL","G2") 481 481 ;;>>?G2(G2(0))="</SECOND>" 482 482 ;;><QCLOSE> 483 ;;>>>K 484 ;;>>>D 485 ;;>>>D 483 ;;>>>K G2,GBL 484 ;;>>>D ZTEST^GPLXPATH("INITXML") 485 ;;>>>D QCLOSE^GPLXPATH("GBL","GXML") 486 486 ;;>>?$P(GBL(1),";",3)=13 487 ;;>>>D 487 ;;>>>D BUILD^GPLXPATH("GBL","G2") 488 488 ;;>>?G2(G2(0))="</FIRST>" 489 489 ;;><QCLOSE2> 490 ;;>>>K 491 ;;>>>D 492 ;;>>>D 490 ;;>>>K G2,GBL 491 ;;>>>D ZTEST^GPLXPATH("INITXML") 492 ;;>>>D QCLOSE^GPLXPATH("GBL","GXML","//FIRST/SECOND/THIRD") 493 493 ;;>>?$P(GBL(1),";",3)=13 494 ;;>>>D 494 ;;>>>D BUILD^GPLXPATH("GBL","G2") 495 495 ;;>>?G2(G2(0))="</FIRST>" 496 496 ;;>>?G2(1)="</THIRD>" 497 497 ;;><INSERT> 498 ;;>>>K 499 ;;>>>D 500 ;;>>>D 501 ;;>>>D 502 ;;>>>D 498 ;;>>>K G2,GBL,G3,G4 499 ;;>>>D ZTEST^GPLXPATH("INITXML") 500 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2") 501 ;;>>>D INSERT^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD") 502 ;;>>>D INSERT^GPLXPATH("G3","G2","//") 503 503 ;;>>?G2(1)=GXML(9) 504 504 ;;><REPLACE> 505 ;;>>>K 506 ;;>>>D 507 ;;>>>D 508 ;;>>>D 505 ;;>>>K G2,GBL,G3 506 ;;>>>D ZTEST^GPLXPATH("INITXML") 507 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2") 508 ;;>>>D REPLACE^GPLXPATH("GXML","G2","//FIRST/SECOND") 509 509 ;;>>?GXML(3)="<FIFTH>" 510 510 ;;><INSINNER> 511 ;;>>>K 512 ;;>>>D 513 ;;>>>D 514 ;;>>>D 511 ;;>>>K GXML,G2,GBL,G3 512 ;;>>>D ZTEST^GPLXPATH("INITXML") 513 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2") 514 ;;>>>D INSINNER^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD") 515 515 ;;>>?GXML(10)="<FIFTH>" 516 516 ;;><INSINNER2> 517 ;;>>>K 518 ;;>>>D 519 ;;>>>D 520 ;;>>>D 517 ;;>>>K GXML,G2,GBL,G3 518 ;;>>>D ZTEST^GPLXPATH("INITXML") 519 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2") 520 ;;>>>D INSINNER^GPLXPATH("G2","G2") 521 521 ;;>>?G2(8)="<FIFTH>" 522 522 ;;></TEST>
Note:
See TracChangeset
for help on using the changeset viewer.
