Changeset 1586 for ccr/trunk/p/C0CXPATH.m
- Timestamp:
- Oct 30, 2012, 1:11:02 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CXPATH.m
r1544 r1586 1 1 C0CXPATH ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08 2 ;;1.2;C0C;;May 11, 2012;Build 47 3 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU 4 ;General Public License See attached copy of the License. 5 ; 6 ;This program is free software; you can redistribute it and/or modify 7 ;it under the terms of the GNU General Public License as published by 8 ;the Free Software Foundation; either version 2 of the License, or 9 ;(at your option) any later version. 10 ; 11 ;This program is distributed in the hope that it will be useful, 12 ;but WITHOUT ANY WARRANTY; without even the implied warranty of 13 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 ;GNU General Public License for more details. 15 ; 16 ;You should have received a copy of the GNU General Public License along 17 ;with this program; if not, write to the Free Software Foundation, Inc., 18 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 2 ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50 3 ;Copyright 2008 George Lilly. 4 ; 5 ; This program is free software: you can redistribute it and/or modify 6 ; it under the terms of the GNU Affero General Public License as 7 ; published by the Free Software Foundation, either version 3 of the 8 ; License, or (at your option) any later version. 9 ; 10 ; This program is distributed in the hope that it will be useful, 11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of 12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 ; GNU Affero General Public License for more details. 14 ; 15 ; You should have received a copy of the GNU Affero General Public License 16 ; along with this program. If not, see <http://www.gnu.org/licenses/>. 19 17 ; 20 18 W "This is an XML XPATH utility library",! … … 135 133 Q 136 134 ; 137 DO 135 DO ; 138 136 D XPG2XML("^GPL2B","^GPL2A") 139 137 Q … … 188 186 Q 189 187 ; 190 ZXO(WHAT) 188 ZXO(WHAT) ; 191 189 D PUSH("GA",WHAT) 192 190 D PUSH(OUTXML,"<"_WHAT_">") 193 191 Q 194 192 ; 195 ZXC(WHAT) 193 ZXC(WHAT) ; 196 194 D POP("GA",.TMP) 197 195 D PUSH(OUTXML,"</"_WHAT_">") 198 196 Q 199 197 ; 200 ZXVAL(WHAT,VAL) 198 ZXVAL(WHAT,VAL) ; 201 199 D PUSH(OUTXML,"<"_WHAT_">"_VAL_"</"_WHAT_">") 202 200 Q … … 235 233 . S LINE=@IZXML@(I) 236 234 . I $D(TEMPLATE) D ;IF TEMPLATE IS REQUESTED 237 . . S @TEMPLATE@(I)=$$CLEAN(LINE) 235 . . S @TEMPLATE@(I)=$$CLEAN(LINE) 238 236 . ;W LINE,! 239 237 . S FOUND=0 ; INTIALIZED FOUND FLAG
Note:
See TracChangeset
for help on using the changeset viewer.