# Copyright (c) 2002-08 Peter Guntert. All rights reserved.
## 7MACROS: init - CYANA macro
##
## Parameters: (none)
##
## Contains commands that are executed automatically at the start-up time of
## Cyana, e.g. the setting of important variables and the definition of some
## aliases. After the general init macro, a user-defined init macro in the
## current directory is executed, if available.

var echo args k

syntax

echo := off
path := $cyanadir/macro,.
prompt := cyana>
info := normal
print_info := normal

alias . system
alias ls   "system ls"
alias lt   "system ls -lat | head"
alias pwd  "print \$getcwd"
alias cat  "system cat"
alias vi   "system vi"
alias less "system less"
alias ?    "print \"\%{*}\""
alias ??   "print \"\%*\""
alias cyanalib "read lib $cyanadir/lib/cyana.lib"
alias amberlib "read lib $cyanadir/lib/amber.lib"
alias cyanaclean  "system cyanaclean"
alias cyanafilter "system cyanafilter"
alias cyanatable  "system cyanatable"
alias q quit

command execcmds
  var echo k
  syntax cmd=*=
  echo:=off
  cmd:="$$cmd"
  do
    k=index('$cmd',';')
    if (k.eq.0) then
      $cmd
      break
    else
      $cmd(1:k-1)
      if (k.eq.lenstr('$cmd')) break
      cmd:=$cmd(k+1:)
    end if
  end do
end

args='$getenv('CYANAARG')'
k=index(args,'.cya')
if (k.gt.1) then
  if (index(args(1:k),' ').le.0) args=args(1:k-1)//args(k+4:)
end if
if (args.ne.' ') then
  if (args(1:2).eq.'-c') then
    args=args(4:)
  else
    erract:=quit
    args=args//'; quit'
  end if
  if (existmacro('./init')) ./init
  if (naa.eq.0) cyanalib
  execcmds args
else
  if (existmacro('./init')) ./init
  if (naa.eq.0) cyanalib
end if