unix

来自「LastWave」· 代码 · 共 48 行

#
# A basic ls command
#
setproc ls {{&word dir .}} "{{{[<dirName>=<curDir>]} {List the files of a directory}}}" {
  l = [file info dir]
  dir1 = dir
  if (l[0] == 'directory') {dir = dir+'/*'}
  l = [file list dir]
  length = [listv map l %{x}{return x.length}]
  length = length.tosignal
  maxlength = max(length)+3
  
  ncol = 100//maxlength  
  
  ncol1 = ncol
  string = ''
  foreach ll l {
    if (([file info dir1+'/'+ll])[0] == 'directory') {c = '/'} else {c = ''}
    sprintf string "%s%s%s%s" string ll c ' '*(maxlength-ll.length-c.length)
    ncol1-=1
    if (ncol1 == 0) {
      printf "%s\n" string
      string = ''
      ncol1 = ncol
    }
  }
  if (ncol1 != 0) {printf "%s\n" string}
}

#
# A basic cd command
#
setproc cd {{&word dir ?}} "{{{[<dirName>=<homeDir>]} {Change current directory}}}" {
  global Home
  if (dir == '?') {dir = Home}
  return [file cd dir]
}

#
# A basic pwd command
#
setproc pwd {} "{{{} {Get current directory}}}" {
  return [file cd]
}