# Emulate the POSIX dirname command to extract all but the last level
# of a pathname.
# Usage: dirname string
# Copyright (c) 1996 by Hamilton Laboratories. All rights reserved.
proc dirname( string )
local dir, i, j
@ dir = $string:h
for i = strlen(dir) by -1 to 1 do
@ j = substr(dir, i, 1)
if (j != '/' && j != '\') break
end
if (j == '/' || j == '\') then
@ dir = '\'
else
if (j == ':' && i == 2) @ dir = concat(substr(dir, 1, 2), '\')
end
return dir
end
dirname $argv
Hamilton C shell |
Free Updates |
Free Demo Software |
Win32 Training
Y2K |
Customer Testimonials |
On-line Hamilton C shell User Guide
Home |
Email |
Support |
Company Profile |
Distributors |
Links
Copyright © 1997-2001 by Hamilton Laboratories.
All rights reserved.
You are visitor number
504.
This page was last modified August 14, 2001.