samer@4: function pushd(d)
samer@4: % pushd: Push directory on directory stack
samer@4: % pushd(dirname):	push given directory
samer@4: % pushd				push current directory
samer@4: global DirStack
samer@4: if nargin<1, d=pwd; end
samer@4: DirStack={d, DirStack};