head     1.1;
branch   1.1.1;
access   ;
symbols  unknown:1.1.1.1 orion:1.1.1;
locks    ; strict;
comment  @# @;


1.1
date     2008.01.09.19.34.17;  author chessman;  state Exp;
branches 1.1.1.1;
next     ;

1.1.1.1
date     2008.01.09.19.34.17;  author chessman;  state Exp;
branches ;
next     ;


desc
@@



1.1
log
@Initial revision
@
text
@set go=M
let vimenter=0
au GUIEnter * simalt ~x
au VimEnter * let vimenter=1
let cvs_server='10.253.1.2'
"au FuncUndefined SetTarget source $MK_TEMPLATE_ROOT/device.vim


function Org()
	if has("gui_running")
		winpos 0 0
		if has("windows")
			set lines=35 columns=80
		endif
	endif
endfunction
call Org()

function ResetNetRW()
	let g:netrw_server=""
	let g:netrw_sync=""
endfunction
call ResetNetRW()

function DefinePath(path)
	if $PATH1==''
		let $PATH=a:path
	else
		let $PATH=$PATH1.g:__.a:path
	endif
endfunction

function SetDevel(...)
	if a:0==0
		echo $MK_DEVEL
	else
		call ResetNetRW()
		let $CVSROOT=''
		if a:1=="default"
			call InitDevel()
		else
" TODO : platform free directory name
			if( isdirectory(a:1) )
				let $MK_DEVEL=a:1
			else
				echo "Invalid directory"
				return
			endif
		endif
		if filereadable($MK_DEVEL."/devel.vim")
			exe "source ".$MK_DEVEL."/devel.vim"
		endif
"		if $CVSROOT==''
"			call SetCvsRoot()
"		endif
		call SetCompiler( $MK_COMPILER )
		call InitGCC()

		cd $MK_DEVEL
		echo $MK_DEVEL
	endif
endfunction

function MakeEcho(suffix)
	echo "MAKE : [" $MK_MAKEFILE.a:suffix "] [" $MK_MODE "]"
endfunction

function MakeConfig(stat)
	if $MK_MAKEFILE!=""
		let filename = $MK_DEVEL."/make/".$MK_MAKEFILE.".vim"
		if filereadable(filename)
			let g:make_session = a:stat
			exe "source ".filename
			return 1
		endif
	endif
	return 0
endfunction

function MakeCurrent(...)

	if a:0<2 || a:1=="" || a:2==""
		if a:0>0 && a:1=="default"
			call MakeConfig(0)
			let $MK_MAKEFILE=''
			let $MK_MODE=''
		endif
		call MakeEcho('')
		return
	endif

	if $HOSTNAME=="yopy"
		if $USER!="yopy"
			echo "Invalid user"
			return
		endif
		let mode="r"
	else
		let mode=a:2
	endif

	let filename = $MK_DEVEL."/make/".a:1
	if $MK_PROJECT=="" && !filereadable(filename.".mk")
		let $MK_MAKEFILE=''
		let $MK_MODE=''
		echo "Invalid make file :" a:1
		return
	endif

	if mode!="d" && mode!="r"
		let $MK_MAKEFILE=''
		let $MK_MODE=''
		echo "Invalid build mode :" mode
		return
	endif

	call MakeConfig(0)
	let $MK_MAKEFILE=a:1
	let $MK_MODE=mode

	if MakeConfig(1)
		call MakeEcho(" (configured)")
	else
		call MakeEcho('')
	endif

endfunction

function SetDevice(...)
	if a:0<1
		echo $MK_DEVICE
	else
		let $MK_DEVICE=a:1
		let p = $MK_TEMPLATE_ROOT.'/'.$MK_OS.'/'.$MK_COMPILER.'/device.vim'
		if filereadable(p)
			exe "source" p
		endif
		" consider typical source tree structure
		let &path=&path.',./../inc,./../include'
	endif
endfunction

function SetCompiler(...)
	if a:0<1
		echo $MK_COMPILER $MK_OS
	else
		let compiler=a:1
		if a:0>1
			let os=a:2
		else
			let os=$MK_OS
		endif
		let p = $MK_TEMPLATE_ROOT."/".os."/".compiler
		if !isdirectory(p)
			echo "Unavailable."
			return
		endif
		" change envvar first so that SetBasePath works correctly
		let $MK_OS = os
		let $MK_COMPILER = compiler
		let $PATH1=''
		let $LIB1=''
		if exists("g:msdev_default")
			let $MSDEV=g:msdev_default
		endif
		let p = p."/compiler.vim"
		if filereadable(p)
			exe "source" p
			if g:vimenter==1
				echo "Configured."
			endif
		endif
		call SetBasePath()
		call SetDevice('default')

		call MakeConfig(1)
	endif
endfunction

let output_base_path='devel'
function SetOutput()
	let $MK_OUT_ROOT=$EXTRA.g:_.g:output_base_path.g:_.'out'
	let $MK_LIB_ROOT=$EXTRA.g:_.g:output_base_path.g:_.'lib'
endfunction

set vi=
set nocompatible
set nobackup
if has("mouse")
	set mouse=""
endif
syntax on
autocmd FileType * set noai nosi nocin nosta

set ruler
set backspace=indent,eol,start
set nowrap

function SetCvsRoot()
	if $HOSTNAME=="yopy"
		let $CVSROOT=':local:/home/cvs'
	else
		if $USERNAME==""
			let username=$USER
		else
			let username=$USERNAME
		endif
		let $CVSROOT=':pserver:'.username.'@@'.g:cvs_server.':/home/cvs'
	endif
endfunction

if has("unix")
let host_os="unix"
set fileencoding=korea
	if has("gui_running")
"		set imak=Hangul
	endif
set guifontset=-b&h-lucidatypewriter-medium-r-normal-*-*-180-*-*-m-*-iso8859-1,-baekmuk-gulim-medium-r-normal-*-*-180-*-*-m-*-ksx1001.1997-0
"set guifontset=-b&h-lucidatypewriter-medium-r-normal-*-*-160-*-*-m-*-iso8859-1,-baekmuk-gulim-medium-r-normal-*-*-160-*-*-m-*-ksx1001.1997-0

if $HOSTNAME=="yopy"
	let $MK_DEVEL='/home/yopy'
	let $EXTRA='/home/yopy'
else
	let $MK_DEVEL='/mnt/core/devel'
endif

let $MK_OS='unix'
let $MK_COMPILER='gcc'
let $MK_TEMPLATE_ROOT=$MK_DEVEL.'/make/template'
let _='/'
let __=':'
call SetOutput()

set makeprg=make\ -C\ $MK_DEVEL/make\ -f\ $MK_TEMPLATE_ROOT/$MK_OS/$MK_COMPILER/makefile
let $ORIGPATH=$PATH
let $ORIGLDLIBPATH=$LD_LIBRARY_PATH


function SetBasePath()
	call DefinePath( $MK_OUT_ROOT.'/'.$MK_OS.':'.$ORIGPATH )
	let $LD_LIBRARY_PATH=$ORIGLDLIBPATH.':'.$MK_LIB_ROOT.'/'.$MK_OS.'/shared'
endfunction

call SetBasePath()

let &path='/usr/include,'.$MK_DEVEL.',.'

function GetCygwinEnv(var)
	return a:var
endfunction

elseif has("windows")

function GetDrive()
	let cwd = getcwd()
	let index=stridx( cwd, "\\" )
	return strpart( cwd, -index, index*2 )
endfunction

if has("win64")
	let host_os='win64'
elseif has("win32")
	let host_os='win32'
elseif has("win16")
	let host_os='win16'
endif

let &errorformat="%*[ %#|>1 %#]%f(%l) : %m,".&errorformat

if $OS==""
	set shell=cmd95\ /K\ doskey
else
	set shellpipe=>%s\ 2>&1
endif

if $LS_COLOR==''
	let $LS_COLORS=':di=47;34'
endif
let $MK_DEVEL=$CORE.'\devel'

"let $MK_OS='win32'
"let $MK_COMPILER='vcc'
let $MK_TEMPLATE_ROOT=$MK_DEVEL.'\make\template'
let _='\'
let __=';'
call SetOutput()
let $ORIGPATH=$PATH

set makeprg=$MK_DEVEL\\make\\make.bat

function GetCygwinEnv(var)
	return substitute(substitute(substitute(a:var,"\\","/","g"),"\\(.\\):","/cygdrive/\\1","g"),";",":","g")
endfunction

if isdirectory($FILE.'\devel\vs2005')
	let msdev_default='vs2005'
	let vs2005_installed=1
else
	let msdev_default='msdev'
	let vs2005_installed=0
endif

let $MSDEV=msdev_default

function SetBasePath()
	if $MSDEV=="msdev"
		let basepath=$FILE.'\devel\msdev'
		let $PATH=basepath.'\vc98\bin;'.basepath.'\common\msdev98\bin;'
"		if $MK_OS!="win32"
			" maintain the default system path
"			let $PATH=$PATH.';'.$MK_OUT_ROOT.'\win32;'.$MK_LIB_ROOT.'\win32\shared'
"		endif
		let $LIB=basepath.'\vc98\lib;'.basepath.'\vc98\mfc\lib'
	else
		let $PATH=''
		let $LIB=''
	endif

	if g:vs2005_installed==1
		let basepath=$FILE.'\devel\vs2005'
		let $PATH=$PATH.basepath.'\vc\bin;'.basepath.'\common7\ide;'.basepath.'\common7\tools;'.basepath.'\common7\tools\bin;'
		let $LIB=$LIB.';'.basepath.'\vc\lib;'.basepath.'\vc\platformsdk\lib;'.basepath.'\vc\atlmfc\lib'
	endif

	call DefinePath( $FILE.'\devel\gcc\bin;'.$FILE.'\util\X11\X11R6\bin;'.$PATH.';'.$MK_OUT_ROOT.'\'.g:host_os.';'.$MK_LIB_ROOT.'\'.g:host_os.'\shared;'.$ORIGPATH )
	let $LIB=$LIB1.';'.$MK_LIB_ROOT.'\'.$MK_OS.'\'.$MK_COMPILER.';'.$LIB
	if isdirectory($FILE.'\devel\j2se')
		let $PATH=$PATH.';'.$FILE.'\devel\j2se\bin'
		if isdirectory($FILE.'\devel\j2se\jaxb')
			let $PATH=$PATH.';'.$FILE.'\devel\j2se\jaxb\bin'
			let $CLASSPATH=$CLASSPATH.';'.$FILE.'\devel\j2se\jaxb\lib\jaxb-impl.jar'.';'.$FILE.'\devel\j2se\jaxb\lib\jaxb-api.jar'
		endif
	endif
	if isdirectory($FILE.'\devel\python')
		let $PATH=$PATH.';'.$FILE.'\devel\python'
	endif

	if has("win32")
		if $MK_OS!="win32"
			let $PATH=$PATH.';'.$MK_OUT_ROOT.'\win32'
		endif
	endif

	let $LIBRARY_PATH=GetCygwinEnv($MK_LIB_ROOT.'\win32\cygnus;'.$FILE.'\devel\gcc\lib')
endfunction

function InitGCC()
	let $C_INCLUDE_PATH=GetCygwinEnv($MK_DEVEL.';'.$FILE.'\devel\gcc\include;'.$FILE.'\devel\gcc\incnext')
	let $CPLUS_INCLUDE_PATH=GetCygwinEnv($FILE.'/devel/gcc/include/cxx').':'.$C_INCLUDE_PATH
endfunction

call InitGCC()

let resolution = "HIGH"
if filereadable($MK_DEVEL."/etc/config.vim")
	exe "source ".$MK_DEVEL."/etc/config.vim"
endif

" call SetCompiler after sourcing config.vim so the active compiler can be selected
call SetCompiler( 'vcc',  'win32' )

if resolution=="LOW"
	set guifont=Lucida_Console:w6:h11:cANSI
elseif resolution=="MEDIUM"
	set guifont=Lucida_Console:w7.5:h13:cANSI
else
	set guifont=Lucida_Console:w9.5:h16:cANSI
endif

endif " has("unix")

let MK_DEVEL=$MK_DEVEL
let default_extra=$EXTRA

function InitDevel()
	let $MK_DEVEL=g:MK_DEVEL
	call SetCvsRoot()
endfunction

call SetCvsRoot()

let &errorformat=&errorformat.",symbol %#:%m,found %#:%m,required %#:%m"

let $CLASSPATH=$MK_LIB_ROOT."/java".__.$CLASSPATH

if exists("apache_lib_path")
let $CLASSPATH=$CLASSPATH.__.apache_lib_path."/commons-net.jar"
let $CLASSPATH=$CLASSPATH.__.apache_lib_path."/jakarta-oro.jar"
endif

if exists("axis_lib_path")
let $CLASSPATH=$CLASSPATH.__.axis_lib_path."/axis.jar".__.axis_lib_path."/commons-logging-1.0.4.jar".__.axis_lib_path."/commons-discovery-0.2.jar".__.axis_lib_path."/jaxrpc.jar".__.axis_lib_path."/saaj.jar".__.axis_lib_path."/wsdl4j-1.5.1.jar"
endif

if exists("jaf_lib_path")
let $CLASSPATH=$CLASSPATH.__.jaf_lib_path."/activation.jar"
endif

if exists("javamail_lib_path")
let $CLASSPATH=$CLASSPATH.__.javamail_lib_path."/mail.jar"
endif

if exists("java_user_lib")
let $CLASSPATH=$CLASSPATH.__.$MK_OUT_ROOT."/java".__.java_user_lib
endif

cd $MK_DEVEL
let $CVS_RSH='ssh'


function C_init()
	setlocal ts=4
	setlocal sw=4
	" folding
"	setlocal foldmethod=syntax
"	syn region cfComment start=+/\*+ end=+\*/+ transparent keepend extend fold 
"	syn region cfCode start="[^#]*{" end="}" transparent fold
"	syn region cfStruct start="^DECLARE_.*(.*)" end="DECLARE_END" transparent fold
"	syn region cfParam start="P_1" end="P_E" transparent fold
endfunction

au FileType c,cpp call C_init()
au FileType java,jav call C_init()


function EchoProject()
		echo "PROJECT : [" $MK_PROJECT "]"
endfunction

function ClearProject()
	if $MK_PROJECT!=""
"		let index = GetFileNameIndex($MK_PROJECT)
"let $MK_PROJECT='d:/k/dk/sd/hello.world'
		let index = strridx( $MK_PROJECT, "." )
		let filename = strpart( $MK_PROJECT, -index, index*2 ).".vim"
		if filereadable(filename)
			call FinalizeProject()
			delf FinalizeProject
		endif
	endif
endfunction

"SetProject sepa project [subdirrectory]
function SetProject(sepa,...)
"call ClearProject()
"return
	if a:0<1
		call EchoProject()
	else
		if a:1=="default"
			call ClearProject()
			let $MK_PROJECT = ""
			cd $MK_DEVEL
		else
			let index = GetFileNameIndex(a:1)
			if index==0
				let project=$CORE.a:sepa."project".a:sepa
			else
"				let project=
			endif
			if a:0>1
				let project=project.a:2
			else
				let project=project.a:1
			endif

			" determine valid file extension
			if g:msdev=="vs2005"
				let project_file = project.a:sepa.a:1.".sln"
			endif

			" initialize project
			if !filereadable(project_file)
				echo "Unvailable project [".project_file."]"
			else
				call ClearProject()
				let project_conf = project.a:sepa.a:1.".vim"
				if filereadable(project_conf)
					exe "source ".project_conf
					call InitializeProject()
					delf InitializeProject
				endif
				let $MK_PROJECT = project_file
				exe "cd ".project
			endif
		endif
	endif
endfunction

function MakeOpen(path,ext,...)
	if a:0<1
		let make_name=$MK_MAKEFILE
	else
		let make_name=a:1
	endif
	let make_file=$MK_DEVEL."/".a:path."/".make_name.".".a:ext
	if !filereadable(make_file)
		echo "Invalid make file :" make_file
		return
	endif
	exe "e" make_file
	unlet make_file
	unlet make_name
endfunction


function GrepOption(...)
	let &grepprg='grep -H -n'
	if a:0>0
		let i = 1
		while i<=a:0
			let &grepprg=&grepprg.' '.a:{i}
			let i = i + 1
		endwhile
	endif
endfunction

call GrepOption()

function SetFindFilter(...)

	if a:0<1
		echo $FINDFILTER
		return
	endif

	if has("unix")
		let filter = ' \('
		let close = ' \)'
	else
		let filter = ' ('
		let close = ' )'
	endif

	if a:1=="default"
		let filter = filter.' -iname "*.c" -or -iname "*.h" -or -iname "*.cpp" -or -iname "*.htm" -or -iname "*.html" -or -iname "*.xml" -or -iname "*.xsd" -or -iname "*.txt" -or -iname "*.tex" -or -iname "*.mk" -or -iname "*.d" -or -iname "*.java" -or -iname "*.bat" -or -iname "*.rsg" -or -iname "*.rh" -or -iname "*.hrh"'.close
	else
		let i = 1
		while i<=a:0
			if i>1
				let filter = filter.' -or'
			endif
			let filter = filter.' -iname "'.a:{i}.'"'
			let i = i + 1
		endwhile
		let filter = filter.close
	endif
	let $FINDFILTER=filter
endfunction

call SetFindFilter( "default" )

function RecursiveGrep(...)
	let expr=a:1
	let old_grepprg=&grepprg
	if a:0<2
		let path=expand("%:p:h")
	else
		let path=a:2
	endif
	if( isdirectory(path) )
		if has("unix")
			let &grepprg='find '.path.$FINDFILTER.' -exec '.&grepprg.' "'.expr.'" \{\} \;'
		else
			let &grepprg='find '.path.$FINDFILTER.' -exec '.&grepprg.' "'.expr.'" {} ;'
		endif
	else
		let &grepprg=&grepprg.' "'.expr.'" '.path
	endif
	" don't remove the blank after grep : it's a parameter for it
	grep 
"	grep "" <--- win98 ???
	let &grepprg=old_grepprg
endfunction

function GetFileNameIndex(path)
	" TODO: is there a function which multiple tokens can be supplied ?
	" is there the string array to store tokens ?
	let cnt=0
	while cnt<2
		if cnt==0
			let token="/"
		else
			let token="\\"
		endif
		let index=strridx(a:path,token)
		if index!=-1
			return index
		endif
		let cnt = cnt+1
	endwhile
	return 0
endfunction

function GetFileName(path)
	" TODO: is there a function which multiple tokens can be supplied ?
	" is there the string array to store tokens ?
	let index = GetFileNameIndex(a:path)
	if index>0
		return strpart(a:path,index+1)
	endif
	return a:path
endfunction

function CvsSetPath(path)
	let fullpath=$MK_DEVEL."/".a:path
	if isdirectory(fullpath)
		let curpath=getcwd()
		exe "cd" fullpath
		return curpath
	endif
	echo "Invalid directory."
	return ""
endfunction

"function CvsEndPath

function CvsImport(path)
	let curpath=CvsSetPath(a:path)
	if curpath != ""
		let path=substitute(a:path,"\\","/","g")
		let name=GetFileName(path)
		exe "!cvs import -m" "\"".name."\"" path "orion unknown"
		exe "cd" curpath
	endif
endfunction

function CvsExport(target,path)
"	let curpath=CvsSetPath(a:path)
"	if curpath!=""
	exe "!cvs export -d ".a:path." -D now" a:target
"		exe "cd" curpath
"	endif
endfunction

function CvsCheckOut(target)
	let curpath=CvsSetPath("")
	if curpath!=""
		exe "!cvs checkout " substitute(a:target,"\\","/","g")
		exe "cd" curpath
	endif
endfunction

function CvsCmd( cmdcnt, ... )
	if a:0>a:cmdcnt
		let i = a:cmdcnt+1
		let curfile=""
		while i<=a:0
			if a:{i}=="."
				let curfile=curfile." ".expand("%:p:h")
			else
				let curfile=curfile." ".a:{i}
			endif
			let i = i+1
		endwhile
		let newpath=$MK_DEVEL
	else
		let curfile=" ".expand("%:t")
		let newpath=expand("%:p:h")
	endif

	if curfile!=""
		let curpath=getcwd()
		exe "cd" newpath

		if curfile==" /"
			let curfile=""
		else
			let curfile=substitute(curfile,"\\","/","g")
		endif

		let i = 1
		while i<=a:cmdcnt
			exe "!".a:{i}.curfile
"> test.txt"
"view test.txt
			let i=i+1
		endwhile

		exe "cd" curpath
	else
		echo "File was not opened."
	endif
endfunction


function EditStream( cmd, ... )
	if a:0<1
		let filename = expand("%")
	else
		if isdirectory(a:1)
			let curpath=getcwd()
			exe "!find ".a:1.$FINDFILTER." -mindepth 1 -exec sh ".$MK_TEMPLATE_ROOT."/etc/util/replace '".a:cmd."' \{\} \;"
			return
		endif
		let filename = a:1
	endif
	exe "!sh ".$MK_TEMPLATE_ROOT."/etc/util/replace '".a:cmd."' ".filename
endfunction

function Copy( path, ... )
	if a:0<1
		let mkdevel = $MK_DEVEL
		let cvsroot = $CVSROOT
		call InitDevel()
		let filename = GetCygwinEnv(expand("%:p"))
		exe "!cp -f ".filename a:path.substitute(filename,GetCygwinEnv($MK_DEVEL),"","")
		let $MK_DEVEL=mkdevel
		let $CVSROOT=cvsroot
	else
		let i=1
		while i<=a:0
			exe "!cp -f ".a:{i} a:path."/".a:{i}
			let i=i+1
		endwhile
	endif
endfunction

function NetRW(op,...)
"	Sample NETRW global formats
"	let netrw_server="ftp://machine"
"	let netrw_server="scp://user@@machine"

	if g:netrw_server!=""

		if a:0>0
			let filename = a:1
			exe "view ".a:1
		else
			let filename = expand("%")
		endif

		if filename==""
			echo "Nothing to transfer."
		else
			let filename = GetCygwinEnv(substitute(filename,$MK_DEVEL,"",""))
			let l = line(".")
			let c = col(".")
			exe a:op." ".g:netrw_server."/".filename
			if g:netrw_sync!=""
				exe "silent !echo ".a:op." ".filename." >> netrw.log"
			endif
			call cursor( l, c )
			echo "O.K"
		endif
	else
		echo "NETRW is not allowed for this source tree."
	endif
endfunction

function NetSync()
	if g:netrw_sync==""
		echo "NetSync is not allowed for this source tree."
	else
		exe "!lsync netrw.log ".g:netrw_sync." delete"
	endif
endfunction

function Date()
	let lc_time=v:lc_time
	"change the current time language to English
"	language EN
	exe "put='".strftime('%p %I:%M %Y.%m.%d')."'"
	"recover the current time language
	exe "language ".lc_time
endfunction

function Output(...)
	if a:0>0
		let g:output_base_path=a:1
		call SetOutput()
		call SetBasePath()
	endif
	echo $MK_OUT_ROOT
	echo $MK_LIB_ROOT
endfunction

function SetExtra(...)
	if( a:0<1 )
		echo $EXTRA
	else
		if a:1=='default'
			let $EXTRA=g:default_extra
		else
			if isdirectory(a:1)
				let $EXTRA=a:1
			else
				echo "Invalid path"
				return
			endif
		endif
		call SetOutput()
		call SetBasePath()
	endif
endfunction

function SetBase(...)
	if( a:0<1 )
		echo $MK_DEVEL $MK_TEMPLATE_ROOT $EXTRA $MK_OUT_ROOT $MK_LIB_ROOT
	else
		if a:1=='default'
			call SetDevel('default')
		else
			call SetDevel(a:1.g:_.'devel')
		endif
		let $MK_TEMPLATE_ROOT=$MK_DEVEL.g:_.'make'.g:_.'template'
		call SetExtra(a:1)
		call SetTempPath()
	endif
endfunction

command -nargs=0 ORG : call Org()
command -nargs=* -complete=file DEVEL : call SetDevel(<f-args>)
command -nargs=* PROJECT : call SetProject(_,<f-args>)
command -nargs=* MAKE : call MakeCurrent(<f-args>)
command -nargs=* MAKEFILE : call MakeOpen("make","mk",<f-args>)
command -nargs=* MAKESRC : call MakeOpen("etc","src",<f-args>)
command -nargs=* COMPILER : call SetCompiler(<f-args>)
command -nargs=? DEVICE : call SetDevice(<f-args>)
command -nargs=* GREPOPTION : call GrepOption(<f-args>)

" On cygwin environment, RGREP will not work if there is duplicated
" semi-colon (;;) before acquiring the path where the grep command is present
command -nargs=+ RGREP : call RecursiveGrep(<f-args>)

command -nargs=+ SED : call EditStream(<f-args>)
command -nargs=? CVSSESSION : call CvsSession(<f-args>)
command -nargs=1 -complete=file CVSIMPORT : call CvsImport(<f-args>)
command -nargs=* -complete=file CVSEXPORT : call CvsExport(<f-args>)
command -nargs=1 -complete=file CVSCHECKOUT : call CvsCheckOut(<f-args>)
command -nargs=? -complete=file CVSEDIT : call CvsCmd(1,"cvs edit",<f-args>)
command -nargs=? -complete=file CVSUNEDIT : call CvsCmd(1,"cvs unedit",<f-args>)
command -nargs=? -complete=file CVSCOMMIT : call CvsCmd(1,"cvs commit -m \"\"",<f-args>)
command -nargs=? -complete=file CVSADD : call CvsCmd(1,"cvs add -m \"\"",<f-args>)
command -nargs=? -complete=file CVSDELETE : call CvsCmd(2,"rm -f", "cvs delete",<f-args>)
command -nargs=? -complete=file CVSDIFF : call CvsCmd(1,"cvs diff",<f-args>)
command -nargs=? -complete=file CVSBDIFF : call CvsCmd(1,"cvs -Q diff --brief",<f-args>)
command -nargs=? -complete=file CVSWATCHERS : call CvsCmd(1,"cvs watchers",<f-args>)
command -nargs=? -complete=file CVSUPDATE : call CvsCmd(1,"cvs update",<f-args>)
command -nargs=? -complete=file CVSUNDO : call CvsCmd(2,"rm -f","cvs update",<f-args>)
" call CvsCmd(1,$MK_TEMPLATE_ROOT._."etc"._."util"._."cvsundo",<f-args>)
command -nargs=* -complete=file COPY : call Copy(<f-args>)
command -nargs=* -complete=file FINDFILTER : call SetFindFilter(<f-args>)
command -nargs=* -complete=file PUT : call NetRW("Nwrite",<f-args>)
command -nargs=* -complete=file GET : call NetRW("Nread",<f-args>)
command -nargs=0 SYNC : call NetSync() 
command -nargs=0 DATE : call Date()
command -nargs=* -complete=file OUTPUT : call Output(<f-args>)
command -nargs=0 EXE : exe "silent !".expand("%")
command -nargs=* -complete=file EXTRA : call SetExtra(<f-args>)
command -nargs=* -complete=file BASE : call SetBase(<f-args>)


map <PageUp> <C-U><C-U>
map <PageDown> <C-D><C-D>
map! <PageUp> <C-O><C-U><C-O><C-U>
map! <PageDown> <C-O><C-D><C-O><C-D>

map <C-b> <C-U><C-U>
map <C-f> <C-D><C-D>
map! <C-b> <C-O><C-U><C-O><C-U>
map! <C-f> <C-O><C-D><C-O><C-D>

set fileformats=unix,dos,mac

function SetTempPath()
	if $HOSTNAME=="yopy"
		set dir=$EXTRA/temp
	else
		set dir=$EXTRA/temp/volatile
	endif
endfunction
call SetTempPath()


hi Normal		  guifg=white  guibg=black
hi Scrollbar	  guifg=darkcyan guibg=cyan
hi Menu			  guifg=black guibg=cyan
hi SpecialKey	  term=bold  cterm=bold  ctermfg=darkred  guifg=Blue
hi NonText		  term=bold  cterm=bold  ctermfg=darkred  gui=bold	guifg=Blue
hi Directory	  term=bold  cterm=bold  ctermfg=lightblue	guifg=lightBlue
hi ErrorMsg		  term=standout  cterm=bold  ctermfg=grey  ctermbg=blue  guifg=White  guibg=Red
hi Search		  term=reverse	ctermfg=white  ctermbg=red	guifg=white  guibg=Red
hi MoreMsg		  term=bold  cterm=bold  ctermfg=darkgreen	gui=bold  guifg=SeaGreen
hi ModeMsg		  term=bold  cterm=bold  gui=bold  guifg=White	guibg=Blue
hi LineNr		  term=underline  cterm=bold  ctermfg=darkcyan	guifg=Yellow
hi Question		  term=standout  cterm=bold  ctermfg=darkgreen	gui=bold  guifg=Green
hi StatusLine	  term=bold,reverse  cterm=bold ctermfg=lightblue ctermbg=white gui=bold guifg=blue guibg=white
hi StatusLineNC   term=reverse	ctermfg=white ctermbg=lightblue guifg=white guibg=blue
hi Title		  term=bold  cterm=bold  ctermfg=darkmagenta  gui=bold	guifg=Magenta
hi Visual		  term=reverse	cterm=reverse  gui=reverse
hi WarningMsg	  term=standout  cterm=bold  ctermfg=darkblue  guifg=Red
hi Cursor		  guifg=bg	guibg=White
hi Comment		  term=bold  cterm=bold ctermfg=darkcyan  guifg=#80a0ff
hi Constant		  term=underline  cterm=bold ctermfg=magenta  guifg=#ffa0a0
hi Special		  term=bold  cterm=bold ctermfg=red  guifg=Orange
hi Identifier	  term=underline   ctermfg=brown  guifg=#40ffff
hi Statement	  term=bold  cterm=bold ctermfg=yellow	gui=bold  guifg=#ffff60
"hi PreProc		  term=underline  ctermfg=darkblue	guifg=#ff80ff
hi PreProc		  term=underline  ctermfg=blue	guifg=#ff80ff
hi Type			  term=underline  cterm=bold ctermfg=lightgreen  gui=bold  guifg=#60ff60
hi Error		  term=reverse	ctermfg=darkcyan  ctermbg=black  guifg=Red	guibg=Black
hi Todo			  term=standout  ctermfg=black	ctermbg=darkcyan  guifg=Blue  guibg=Yellow
hi link IncSearch		Visual
hi link String			Constant
hi link Character		Constant
hi link Number			Constant
hi link Boolean			Constant
hi link Float			Number
hi link Function		Identifier
hi link Conditional		Statement
hi link Repeat			Statement
hi link Label			Statement
hi link Operator		Statement
hi link Keyword			Statement
hi link Exception		Statement
hi link Include			PreProc
hi link Define			PreProc
hi link Macro			PreProc
hi link PreCondit		PreProc
hi link StorageClass	Type
hi link Structure		Type
hi link Typedef			Type
hi link Tag				Special
hi link SpecialChar		Special
hi link Delimiter		Special
hi link SpecialComment	Special
hi link Debug			Special
@


1.1.1.1
log
@make
@
text
@@
