mc.menu.sr 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344
  1. shell_patterns=0
  2. + ! t t
  3. @ Ради нешто над текућом датотеком
  4. CMD=%{Унесите наредбу}
  5. $CMD %f
  6. + t t
  7. @ Ради нешто над означеним датотекама
  8. set %t; CMD=%{Унесите наредбу}
  9. while [ -n "$1" ]; do
  10. $CMD "$1"
  11. shift
  12. done
  13. 0 Уреди пријаву грешке и пошаљи је администратору
  14. ${EDITOR-vi} /tmp/mail.$$
  15. test -r /tmp/mail.$$ && mail root < /tmp/mail.$$
  16. rm -f /tmp/mail.$$
  17. =+ f \.1$ | f \.3$ | f \.4$ | f \.5$ | f \.6$ | f \.7$ | f \.8$ | f \.man$ & t r
  18. 1 Прикажи датотеку уз помоћ roff -man
  19. nroff -man %f | less
  20. 2 Позови читач хипертекста info
  21. info
  22. = t d
  23. 3 Компримуј текући поддиректоријум (tar.gz)
  24. Pwd=`basename "%d" /`
  25. echo -n "Назив компримоване датотеке (без врсте) [$Pwd]: "
  26. read tar
  27. if [ "$tar"x = x ]; then tar="$Pwd"; fi
  28. cd .. && \
  29. tar cf - "$Pwd" | gzip -f9 > "$tar.tar.gz" && \
  30. echo "Датотека ../$tar.tar.gz је створена."
  31. 4 Компримуј текући поддиректоријум (tar.bz2)
  32. Pwd=`basename %d /`
  33. echo -n "Назив компримоване датотеке (без врсте) [$Pwd]: "
  34. read tar
  35. if [ "$tar"x = x ]; then tar="$Pwd"; fi
  36. cd .. && \
  37. tar cf - "$Pwd" | bzip2 -f > "$tar.tar.bz2" && \
  38. echo "Датотека ../$tar.tar.bz2 је створена."
  39. = f \.c$ & t r
  40. + f \.c$ & t r & ! t t
  41. 5 Преведи и повежи текућу датотеку врсте `.c'
  42. make `basename %f .c` 2>/dev/null || cc -O -o `basename %f .c` %f
  43. + t r & ! t t
  44. a Надовежи датотеку на ону из другог окна
  45. cat %f >>%D/%f
  46. + t t
  47. A Надовежи датотеке на оне из другог окна
  48. set %t
  49. while [ -n "$1" ]; do
  50. cat "$1" >> "%D/$1"
  51. shift
  52. done
  53. + t r & ! t t
  54. d Обриши датотеку ако њена копија постоји у другом окну.
  55. if [ "%d" = "%D" ]; then
  56. echo "Два директоријума морају да буду различити."
  57. exit 1
  58. fi
  59. if [ -f %D/%f ]; then # if two of them, then
  60. if cmp -s %D/%f %f; then
  61. rm %f && echo "%f: ОБРИСАНА."
  62. else
  63. echo "%f и %D/%f се разликују: НИЈЕ обрисана."
  64. echo -n "Притисните `RETURN' "
  65. read тастер
  66. fi
  67. else
  68. echo "%f: Нема копије у %D/%f: НИЈЕ обрисана."
  69. fi
  70. + t t
  71. D Обриши означене датотеке ако постоји копија у другом окну.
  72. if [ "%d" = "%D" ]; then
  73. echo "Два директоријума морају да буду различити."
  74. exit 1
  75. fi
  76. for i in %t
  77. do
  78. if [ -f "%D/$i" ]; then
  79. SUM1="`sum $i`"
  80. SUM2="`sum %D/$i`"
  81. if [ "$SUM1" = "$SUM2" ]; then
  82. rm "$i" && echo "${i}: ОБРИСАНА."
  83. else
  84. echo "$i и %D/$i се разликују: НИЈЕ обрисана."
  85. fi
  86. else
  87. echo "%f нема копију у %D/%f: НИЈЕ обрисана."
  88. fi
  89. done
  90. m Погледај страницу упутства
  91. MAN=%{Унесите назив упутства}
  92. %view man -P cat $MAN
  93. = f \.gz$ & t r
  94. + ! t t
  95. n Прегледај датотеку вести компримовану програмом gzip
  96. dd if=%f bs=1 skip=12|zcat|${PAGER-more}
  97. # assuming the cunbatch header is 12 bytes long.
  98. = t r &
  99. + ! t t
  100. h Скини заглавља из текућег чланка вести
  101. CHECK=`awk '{print $1 ; exit}' %f` 2>/dev/null
  102. case "$CHECK" in
  103. Newsgroups:|Path:)
  104. cp %f /tmp/%f.$$ && sed '/^'"$CHECK"' /,/^$/d' /tmp/%f.$$ > %f
  105. [ "$?" = "0" ] && rm "/tmp/%f.$$"
  106. echo "%f: уклоњено заглавље."
  107. ;;
  108. *)
  109. echo "%f није чланак вести."
  110. ;;
  111. esac
  112. + t t
  113. H Скини заглавља из означених чланака вести
  114. set %t
  115. while [ -n "$1" ]; do
  116. CHECK=`awk '{print $1 ; exit}' "$1"` 2>/dev/null
  117. WFILE=/tmp/${1}.$$
  118. case "$CHECK" in
  119. Newsgroups:|Path:)
  120. cp "$1" "$WFILE" && sed '/^'"$CHECK"' /,/^$/d' "$WFILE" > "$1"
  121. if [ "$?" = "0" ]; then
  122. rm "$WFILE"; echo "$1 заглавље уклоњено. У реду."
  123. else
  124. echo "Уупс! Молим да проверите $1 са $WFILE."
  125. fi
  126. ;;
  127. *)
  128. echo "$1 прескочена: Није чланак вести."
  129. ;;
  130. esac
  131. shift
  132. done
  133. = t r
  134. + ! t t
  135. r Копирај датотеку на удаљеног домаћина
  136. echo -n "На ког домаћина?: "
  137. read Домаћин
  138. echo -n "У који директоријум на $Домаћин?: "
  139. read Дир
  140. rcp -p %f "${Домаћин}:$Дир"
  141. + t t
  142. R Копирај датотеке на удаљеног домаћина (без провере грешака)
  143. echo -n "На ког домаћина да копирам датотеке?: "
  144. read Домаћин
  145. echo -n "У који директоријум на $Домаћин? :"
  146. read Дир
  147. rcp -pr %u "${Домаћин}:$Дир"
  148. = f \.tex$ & t r
  149. + f \.tex$ & t r & ! t t
  150. t Покрени ЛаТеХ над датотеком и прикажи је преко програма `xdvi'
  151. latex %f && xdvi `basename %f .tex`.dvi
  152. =+ f ^part | f ^Part | f uue & t r
  153. + t t
  154. U Уудекодирај означени чланак вести (требало би разрадити)
  155. set %t
  156. (
  157. while [ -n "$1" ]; do # strip headers
  158. FIRST=`awk '{print $1 ; exit}' "$1"`
  159. cat "$1" | sed '/^'"$FIRST"' /,/^$/d'; shift
  160. done
  161. ) |sed '/^$/d' |sed -n '/^begin 6/,/^end$/p' | uudecode
  162. if [ "$?" != "0" ]; then
  163. echo "Не могу да декодирам %t."
  164. fi
  165. echo "Молим да проверите излазну датотеку пре било каквог брисања."
  166. =+ f \.tar\.gz$ | f \.tar\.z$ | f \.tgz$ | f \.tpz$ | f \.tar\.lz$ | f \.tar\.lzma$ | f \.tar\.7z$ | f \.tar\.xz$ | f \.tar\.Z$ | f \.tar\.bz2$ & t r
  167. x Издвој садржај компримоване датотеке врсте `tar'
  168. unset PRG
  169. case %f in
  170. *.tar.bz2)
  171. PRG="bunzip2 -c"
  172. ;;
  173. *.tar.gz|*.tar.z|*.tgz|*.tpz|*.tar.Z)
  174. PRG="gzip -dc"
  175. ;;
  176. *.tar.lzma)
  177. PRG="lzma -dc"
  178. ;;
  179. *.tar.lz)
  180. PRG="lzip -dc"
  181. ;;
  182. *.tar.xz)
  183. PRG="xz -dc"
  184. ;;
  185. *.tar.7z)
  186. PRG="7za e -so"
  187. ;;
  188. *)
  189. exit 1
  190. ;;
  191. esac
  192. $PRG %f | tar xvf -
  193. = t r
  194. + ! t t
  195. y Пакуј или расп. тек. дат. програмима `gzip' или `gunzip'
  196. unset DECOMP
  197. case %f in
  198. *.gz) DECOMP=-d;;
  199. *.[zZ]) DECOMP=-d;;
  200. esac
  201. gzip $DECOMP -v %f
  202. + t t
  203. Y Пакуј или расп. означ. дат. програмима `gzip' или `gunzip'
  204. for i in %t
  205. do
  206. unset DECOMP
  207. case "$i" in
  208. *.gz) DECOMP=-d;;
  209. *.[zZ]) DECOMP=-d;;
  210. esac
  211. gzip $DECOMP -v "$i"
  212. done
  213. + ! t t
  214. b Пакуј или расп. тек. дат. програмима `bzip2' или `bunzip2'
  215. unset DECOMP
  216. case %f in
  217. *.bz2) DECOMP=-d;;
  218. esac
  219. bzip2 $DECOMP -v %f
  220. + t t
  221. B Пакуј или расп. означ. дат. програмима `bzip2' или `bunzip2'
  222. for i in %t
  223. do
  224. unset DECOMP
  225. case "$i" in
  226. *.bz2) DECOMP=-d;;
  227. esac
  228. bzip2 $DECOMP -v "$i"
  229. done
  230. + f \.tar.gz$ | f \.tgz$ | f \.tpz$ | f \.tar.Z$ | f \.tar.z$ | f \.tar.bz2$ | f \.tar.F$ & t r & ! t t
  231. z Издвој компримовану датотеку врсте `tar' у поддиректоријум
  232. unset D
  233. set gzip -cd
  234. case %f in
  235. *.tar.gz) D="`basename %f .tar.gz`";;
  236. *.tgz) D="`basename %f .tgz`";;
  237. *.tpz) D="`basename %f .tpz`";;
  238. *.tar.Z) D="`basename %f .tar.Z`";;
  239. *.tar.z) D="`basename %f .tar.z`";;
  240. *.tar.bz2) D="`basename %f .tar.bz2`"; set bunzip2 -c ;;
  241. *.tar.F) D="`basename %f .tar.F`"; set freeze -dc;
  242. esac
  243. mkdir "$D"; cd "$D" && ("$1" "$2" ../%f | tar xvf -)
  244. + t t
  245. Z Издвој компримовану датотеке врсте `tar' у поддиректоријуме
  246. for i in %t
  247. do
  248. set gzip -dc
  249. unset D
  250. case "$i" in
  251. *.tar.gz) D="`basename $i .tar.gz`";;
  252. *.tgz) D="`basename $i .tgz`";;
  253. *.tpz) D="`basename $i .tpz`";;
  254. *.tar.Z) D="`basename $i .tar.Z`";;
  255. *.tar.z) D="`basename $i .tar.z`";;
  256. *.tar.F) D="`basename $i .tar.F`"; set freeze -dc;;
  257. *.tar.bz2) D="`basename $i .tar.bz2`"; set bunzip2 -c;;
  258. esac
  259. mkdir "$D"; (cd "$D" && "$1" "$2" "../$i" | tar xvf -)
  260. done
  261. + f \.gz$ | f \.tgz$ | f \.tpz$ | f \.Z$ | f \.z$ | f \.bz2$ & t r & ! t t
  262. c Пребаци gz<->bz2, tar.gz<->tar.bz2 и tgz->tar.bz2
  263. unset D
  264. case "%f" in
  265. *.tgz) EXT=tgz;;
  266. *.tpz) EXT=tpz;;
  267. *.Z) EXT=Z;;
  268. *.z) EXT=z;;
  269. *.gz) EXT=gz;;
  270. *.bz2) EXT=bz2;;
  271. esac
  272. case $EXT in
  273. tgz|tpz) D="`basename %f .$EXT`.tar";;
  274. gz|Z|z) D="`basename %f .$EXT`";;
  275. bz2) D="`basename %f .bz2`";;
  276. esac
  277. if [ "$EXT" = "bz2" ]; then
  278. bunzip2 -v "%f" ; gzip -f9 -v "$D"
  279. else
  280. gunzip -v "%f" ; bzip2 -v "$D"
  281. fi
  282. + t t
  283. C Пребаци gz<->bz2, tar.gz<->tar.bz2 и tgz->tar.bz2
  284. set %t
  285. while [ -n "$1" ]
  286. do
  287. unset D
  288. case "$1" in
  289. *.tgz) EXT=tgz;;
  290. *.tpz) EXT=tpz;;
  291. *.Z) EXT=Z;;
  292. *.z) EXT=z;;
  293. *.gz) EXT=gz;;
  294. *.bz2) EXT=bz2;;
  295. esac
  296. case $EXT in
  297. tgz) D="`basename $1 .tgz`.tar";;
  298. tpz) D="`basename $1 .tpz`.tar";;
  299. gz|Z|z) D="`basename $1 .$EXT`";;
  300. bz2) D="`basename $1 .bz2`";;
  301. esac
  302. if [ "$EXT" = "bz2" ]; then
  303. bunzip2 -v "$1"
  304. gzip -f9 -v "$D"
  305. else
  306. gunzip -v "$1"
  307. bzip2 -v "$D"
  308. fi
  309. shift
  310. done
  311. + x /usr/bin/open | x /usr/local/bin/open & x /bin/sh
  312. o Отвори следећу слободну конзолу
  313. open -s -- sh