Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MXMLUTL

MXMLUTL.m

Go to the documentation of this file.
  1. MXMLUTL ;mjk/alb - MXML Build Utilities ;12/11/2002 15:30
  1. ;;7.3;TOOLKIT;**67**;Apr 25, 1995
  1. QUIT
  1. ;
  1. XMLHDR() ; -- provides current XML standard header
  1. QUIT "<?xml version=""1.0"" encoding=""utf-8"" ?>"
  1. ;
  1. SYMENC(STR) ; -- replace reserved xml symbols with their encoding.
  1. N A,I,X,Y,Z,NEWSTR,QT
  1. S (Y,Z)="",QT=""""
  1. I STR["&" S NEWSTR=STR D S STR=Y_Z
  1. . F X=1:1 S Y=Y_$PIECE(NEWSTR,"&",X)_"&",Z=$PIECE(STR,"&",X+1,999) Q:Z'["&"
  1. I STR["<" F S STR=$PIECE(STR,"<",1)_"<"_$PIECE(STR,"<",2,99) Q:STR'["<"
  1. I STR[">" F S STR=$PIECE(STR,">",1)_">"_$PIECE(STR,">",2,99) Q:STR'[">"
  1. I STR["'" F S STR=$PIECE(STR,"'",1)_"'"_$PIECE(STR,"'",2,99) Q:STR'["'"
  1. I STR[QT F S STR=$PIECE(STR,QT,1)_"""_$PIECE(STR,QT,2,99) Q:STR'[QT
  1. ;
  1. F I=1:1:$L(STR) D
  1. . S X=$E(STR,I)
  1. . S A=$A(X)
  1. . IF A<31 S STR=$P(STR,X,1)_$P(STR,X,2,99)
  1. Q STR
  1. ;