Well, in Squeak it would look something like
\ndoc := XMLDOMParser parseDocumentFrom: (FileDirectory current fileNamed: 'file.xml').\ndoc tagsNamed: 'attr' do:\n[:each |\n each contentsDo:\n [:t | t isText ifTrue: [t string: (((t string asLowercase split: '_') collect: [:s | s capitalized]) join: '_') ]]\n].\n(FileDirectory current forceNewFileNamed: 'file.xml') nextPutAll: (doc asString); close.\n
Edit: fixed formatting
[link|http://www.blackbagops.net|Black Bag Operations Log]
[link|http://www.objectiveclips.com|Artificial Intelligence]
[link|http://www.badpage.info/seaside/html|Scrutinizer]
Well, in Squeak it would look something like
doc := XMLDOMParser parseDocumentFrom: (FileDirectory current fileNamed: 'file.xml').
doc tagsNamed: 'attr' do:
[:each |
each contentsDo:
[:t |
t isText ifTrue:
[
t string: (((t string asLowercase split: '_') collect: [:s | s capitalized]) join: '_')
]
]
].
(FileDirectory current forceNewFileNamed: 'file.xml') nextPutAll: (doc asString); close.
[link|http://www.blackbagops.net|Black Bag Operations Log]
[link|http://www.objectiveclips.com|Artificial Intelligence]
[link|http://www.badpage.info/seaside/html|Scrutinizer]
Well, in Squeak it would look something like
doc := XMLDOMParser parseDocumentFrom: (FileDirectory current fileNamed: 'file.xml').
doc tagsNamed: 'attr' do:
[:each |
each contentsDo:
[:t | t isText ifTrue: [t string: (((t string asLowercase split: '_') collect: [:s | s capitalized]) join: '_') ]]
].
(FileDirectory current forceNewFileNamed: 'file.xml') nextPutAll: (doc asString); close.
[link|http://www.blackbagops.net|Black Bag Operations Log]
[link|http://www.objectiveclips.com|Artificial Intelligence]
[link|http://www.badpage.info/seaside/html|Scrutinizer]
