Well, a second after sending the e-mail, you know...so I guess it's 1:1
;-) Shame on me...
F.
--- Start.oz 2000-12-06 09:53:04.000000000 +0100
+++ ../html/franzen-ozh-1.1/Start.oz 2006-05-16 18:58:42.453125000 +0200
@@ -56,7 +56,7 @@
'define'(multiple char:&D type:atom default:nil))
proc{CheckDirectory D} A=try {OS.stat D}.type==dir catch _ then false end
in
- if A==false then B=({OS.system Mkdir#D}==0) in
+ if A==false then B=({OS.system Mkdir#if {List.last D}\=&/ then D else
{List.take D {Length D}-1} end}==0) in
if B==false then
M=try
if {OS.stat D}.type\=dir then ", file exists!"
@@ -93,7 +93,7 @@
in
try
Args = {Application.getCmdArgs Spec}
- Dir=if Args.out\=nil andthen {List.last Args.out}\=&/ then Args.out#"/"
else Args.out end
+ Dir=if Args.out\=nil andthen {List.last Args.out}\=&/ then {Append
Args.out "/"} else Args.out end
in
%% Ask for help?
if Args.help==true then
--- OzParser.ozg 2000-12-06 09:53:04.000000000 +0100
+++ ../html/franzen-ozh-1.1/OzParser.ozg 2006-05-14 20:32:06.562500000
+0200
@@ -164,7 +164,8 @@
'false' 'false()' 'feat' 'finally' 'from' 'fun' 'functor' 'if' 'in'
'import' 'local' 'lock' 'meth' 'not' 'of' 'or' 'proc' 'prop' 'prepare'
'raise' 'require' 'self' 'skip' 'then' 'thread' 'true' 'true()' 'try'
- 'unit' 'unit()' 'for' 'do' 'comment' 'LMacro' 'RMacro'
+ 'unit' 'unit()' 'for' 'do' 'comment' 'LMacro' 'RMacro' 'return'
'maximize' 'minimize' 'default' 'break' 'continue'
+ 'collect' 'append' 'while' 'until'
'=': rightAssoc(100)
'<-': rightAssoc(200)
@@ -341,8 +342,20 @@
end
syn Iterator($)
- NakedVariable(_) 'in' Phrase(_) '..' Phrase(_) OptIteratorStep(_) => unit
- [] NakedVariable(_) 'in' Phrase(_) OptIteratorStep(_) => unit
+ 'default' ':' Phrase(_) => unit
+ [] 'collect' ':' NakedVariable(_) => unit
+ [] 'append' ':' NakedVariable(_) => unit
+ [] 'minimize' ':' NakedVariable(_) => unit
+ [] 'maximize' ':' NakedVariable(_) => unit
+ [] 'return' ':' Phrase(_) => unit
+ [] 'break' ':' NakedVariable(_) => unit
+ [] 'continue' ':' NakedVariable(_) => unit
+ [] 'while' ':' Phrase(_) => unit
+ [] 'until' ':' Phrase(_) => unit
+ [] Atom(_) ':' Phrase(_) => unit
+ [] Sequence(_) 'in' Phrase(_) '..' Phrase(_) OptIteratorStep(_) => unit
+ [] Sequence(_) 'in' Phrase(_) OptIteratorStep(_) => unit
+ [] Sequence(_) 'from' Phrase(_) => unit
end
syn OptIteratorStep($)
_________________________________________________________________________________
mozart-users mailing list
[email protected]
http://www.mozart-oz.org/mailman/listinfo/mozart-users
