Data commit

Task/XML-XPath/Ksh/xml-xpath.ksh

@@ -0,0 +1,91 @@
+#!/bin/ksh
+
+# Perform XPath queries on a XML Document
+
+#	# Variables:
+#
+typeset -T Xml_t=(
+	typeset -h		'UPC'			upc
+	typeset -i -h	'num in stock'	stock=0
+	typeset -h		'name'			name
+	typeset -F2 -h	'price'			price
+	typeset -h		'description'	description
+
+	function init_item {
+		typeset key ; key="$1"
+		typeset val ; val="${2%\<\/${key}*}"
+
+		case ${key} in
+			upc)			_.upc="${val//@(\D)/}"
+				;;
+			stock)			_.stock="${val//@(\D)/}"
+				;;
+			name)			_.name="${val%\<\/${key}*}"
+				;;
+			price)			_.price="${val}"
+				;;
+			description)	_.description=$(echo ${val})
+				;;
+		esac
+	}
+
+	function prt_item {
+		print "upc= ${_.upc}"
+		print "stock= ${_.stock}"
+		print "name= ${_.name}"
+		print "price= ${_.price}"
+		print "description= ${_.description}"
+	}
+)
+
+#	# Functions:
+#
+
+
+ ######
+# main #
+ ######
+integer i=0
+typeset -a Item_t
+
+buff=$(< xmldoc)	# read xmldoc
+item=${buff%%'</item>'*} ; buff=${.sh.match}
+
+while [[ -n ${item} ]]; do
+	Xml_t Item_t[i]
+	item=${item#*'<item'} ; item=$(echo ${item})
+	for word in ${item}; do
+		if [[ ${word} == *=* ]]; then
+			Item_t[i].init_item ${word%\=*} ${word#*\=}
+		else
+			if [[ ${word} == \<* ]]; then		# Beginning
+				key=${word%%\>*} ; key=${key#*\<}
+				val=${word#*\>}
+			fi
+
+			[[ ${word} != \<* && ${word} != *\> ]] && val+=" ${word} "
+
+			if [[ ${word} == *\> ]]; then		# End
+				val+=" ${word%\<${key}\>*}"
+				Item_t[i].init_item "${key}" "${val}"
+			fi
+		fi
+	done
+	(( i++ ))
+	item=${buff#*'</item>'} ; item=${item%%'</item>'*} ; buff=${.sh.match}
+done
+
+print "First Item element:"
+Item_t[0].prt_item
+
+typeset -a names
+printf "\nList of prices:\n"
+for ((i=0; i<${#Item_t[*]}-1; i++)); do
+	print ${Item_t[i].price}
+	names[i]=${Item_t[i].name}
+done
+
+printf "\nArray of names:\n"
+for (( i=0; i<${#names[*]}; i++)); do
+	print "names[$i] = ${names[i]}"
+done