晋太元中,武陵人捕鱼为业。缘溪行,忘路之远近。忽逢桃花林,夹岸数百步,中无杂树,芳草鲜美,落英缤纷。渔人甚异之,复前行,欲穷其林。 林尽水源,便得一山,山有小口,仿佛若有光。便舍船,从口入。初极狭,才通人。复行数十步,豁然开朗。土地平旷,屋舍俨然,有良田、美池、桑竹之属。阡陌交通,鸡犬相闻。其中往来种作,男女衣着,悉如外人。黄发垂髫,并怡然自乐。 见渔人,乃大惊,问所从来。具答之。便要还家,设酒杀鸡作食。村中闻有此人,咸来问讯。自云先世避秦时乱,率妻子邑人来此绝境,不复出焉,遂与外人间隔。问今是何世,乃不知有汉,无论魏晋。此人一一为具言所闻,皆叹惋。余人各复延至其家,皆出酒食。停数日,辞去。此中人语云:“不足为外人道也。”(间隔 一作:隔绝) 既出,得其船,便扶向路,处处志之。及郡下,诣太守,说如此。太守即遣人随其往,寻向所志,遂迷,不复得路。 南阳刘子骥,高尚士也,闻之,欣然规往。未果,寻病终。后遂无问津者。
| DIR:/usr/share/vim/vim80/compiler/ |
| Current File : //usr/share/vim/vim80/compiler/fortran_g77.vim |
" Vim compiler file
" Compiler: g77 (GNU Fortran)
" Maintainer: Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
" Last Change: $Date: 2004/06/13 18:17:36 $
" $Revision: 1.1 $
if exists("current_compiler")
finish
endif
let current_compiler = "fortran_g77"
if exists(":CompilerSet") != 2 " older Vim always used :setlocal
command -nargs=* CompilerSet setlocal <args>
endif
let s:cpo_save = &cpo
set cpo-=C
" Note: The errorformat assumes GNU make
" sample multiline errors (besides gcc backend one-liners):
" gev.f:14:
" parameter UPLO = 'Upper-triangle'
" ^
" Unsupported VXT statement at (^)
" gev.f:6:
" integer desca( * ), descb( * )
" 1
" gev.f:19: (continued):
" end subroutine
" 2
" Invalid declaration of or reference to symbol `desca' at (2) [initially seen at (1)]
CompilerSet errorformat=
\%Omake:\ %r,
\%f:%l:\ warning:\ %m,
\%A%f:%l:\ (continued):,
\%W%f:%l:\ warning:,
\%A%f:%l:\ ,
\%-C\ \ \ %p%*[0123456789^]%.%#,
\%-C\ \ \ %.%#,
\%D%*\\a[%*\\d]:\ Entering\ directory\ `%f',
\%X%*\\a[%*\\d]:\ Leaving\ directory\ `%f',
\%DMaking\ %*\\a\ in\ %f,
\%Z%m
let &cpo = s:cpo_save
unlet s:cpo_save
|