Hi factorers,
I'm now trying to deploy this mini factor script.
I tried with all supports enabled but no way.
What are my errors?
thanks in advance,
michele pes
USING: kernel sequences ;
FROM: namespaces => get ;
FROM: command-line => command-line ;
FROM: io => write ;
FROM: io.files => exists? ;
FROM: xml => file>xml ;
FROM: system => exit ;
IN: xml-validator
"Xml File Validator v1.0 by Mike P. '81\n\n" write
command-line get
dup length
1 =
[
first
dup exists?
[ file>xml "File is OK." write 0 exit ]
[ drop "File not found." write 2 exit ]
if
]
[ "Please enter a XML file." write 1 exit ]
if------------------------------------------------------------------------------
Got Input? Slashdot Needs You.
Take our quick survey online. Come on, we don't ask for help often.
Plus, you'll get a chance to win $100 to spend on ThinkGeek.
http://p.sf.net/sfu/slashdot-survey
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
