pathname_dir(name:string) : string = LET path = pathname_path(name) IN IF null?(path) THEN"" ELSIF car(path) = "/"THEN
format("/~{~a/~}",{|cdr(path)|}) ELSE
format("~{~a/~}",{|path|}) ENDIF
END pathname
¤ Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.0.0Bemerkung:
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.