home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2389 < prev    next >
Internet Message Format  |  1990-12-28  |  8KB
  1. From: goer@ellis.uchicago.edu (Richard L. Goerwitz)
  2. Newsgroups: alt.sources
  3. Subject: itlib part 3 of 3
  4. Message-ID: <1990Dec21.055811.22641@midway.uchicago.edu>
  5. Date: 21 Dec 90 05:58:11 GMT
  6.  
  7.  
  8. ---- Cut Here and feed the following to sh ----
  9. #!/bin/sh
  10. # this is itlib.03 (part 3 of a multipart archive)
  11. # do not concatenate these parts, unpack them in order with /bin/sh
  12. # file itlibdos.icn continued
  13. #
  14. if test ! -r _shar_seq_.tmp; then
  15.     echo 'Please unpack part 1 first!'
  16.     exit 1
  17. fi
  18. (read Scheck
  19.  if test "$Scheck" != 3; then
  20.     echo Please unpack part "$Scheck" next!
  21.     exit 1
  22.  else
  23.     exit 0
  24.  fi
  25. ) < _shar_seq_.tmp || exit 1
  26. if test ! -f _shar_wnt_.tmp; then
  27.     echo 'x - still skipping itlibdos.icn'
  28. else
  29. echo 'x - continuing file itlibdos.icn'
  30. sed 's/^X//' << 'SHAR_EOF' >> 'itlibdos.icn' &&
  31. X            then {
  32. X            close(f)
  33. X            # if entry ends in tc= then add in the named tc entry
  34. X            entry ?:= tab(find("tc=")) ||
  35. X                # recursively fetch the new termcap entry
  36. X                (move(3), getentry(tab(find(":"))) ?
  37. X                    # remove the name field from the new entry
  38. X                     (tab(find(":")+1), tab(0)))
  39. X            return entry
  40. X            }
  41. X            else {
  42. X            \line := &null # must precede the next line
  43. X            entry ||:= trim(trim(tab(0),'\\'),':')
  44. X            }
  45. X        }
  46. X        }
  47. X    }
  48. X    }
  49. X
  50. X    close(f)
  51. X    er("getentry","can't find and/or process your termcap entry",3)
  52. X 
  53. Xend
  54. X
  55. X
  56. X
  57. Xprocedure read_file(f)
  58. X
  59. X    # Suspends all non #-initial lines in the file f.
  60. X    # Removes leading tabs and spaces from lines before suspending
  61. X    # them.
  62. X
  63. X    local line
  64. X
  65. X    \f | er("read_tcap_file","no valid termcap file found",3)
  66. X    while line := read(f) do {
  67. X    match("#",line) & next
  68. X    line ?:= (tab(many('\t ')) | &null, tab(0))
  69. X    suspend line
  70. X    }
  71. X
  72. X    fail
  73. X
  74. Xend
  75. X
  76. X
  77. X
  78. Xprocedure maketc_table(entry)
  79. X
  80. X    # Maketc_table(s) (where s is a valid termcap entry for some
  81. X    # terminal-type): Returns a table in which the keys are termcap
  82. X    # capability designators, and the values are the entries in
  83. X    # "entry" for those designators.
  84. X
  85. X    local k, v
  86. X
  87. X    /entry & er("maketc_table","no entry given",8)
  88. X    if entry[-1] ~== ":" then entry ||:= ":"
  89. X    
  90. X    tc_table := table()
  91. X
  92. X    entry ? {
  93. X
  94. X    tab(find(":")+1)    # tab past initial (name) field
  95. X
  96. X    while tab((find(":")+1) \ 1) ? {
  97. X
  98. X        &subject == "" & next
  99. X        if k := 1(move(2), ="=")
  100. X        then tc_table[k] := Decode(tab(find(":")))
  101. X        else if k := 1(move(2), ="#")
  102. X        then tc_table[k] := integer(tab(find(":")))
  103. X        else if k := 1(tab(find(":")), pos(-1))
  104. X        then tc_table[k] := true()
  105. X        else er("maketc_table", "your termcap file has a bad entry",3)
  106. X    }
  107. X    }
  108. X
  109. X    return tc_table
  110. X
  111. Xend
  112. X
  113. X
  114. X
  115. Xprocedure getval(id)
  116. X
  117. X    /tc_table := maketc_table(getentry(getname())) |
  118. X    er("getval","can't make a table for your terminal",4)
  119. X
  120. X    return \tc_table[id] | fail
  121. X    # er("getval","the current terminal doesn't support "||id,7)
  122. X
  123. Xend
  124. X
  125. X
  126. X
  127. Xprocedure Decode(s)
  128. X
  129. X    # Does things like turn ^ plus a letter into a genuine control
  130. X    # character.
  131. X
  132. X    new_s := ""
  133. X
  134. X    s ? {
  135. X    while new_s ||:= tab(upto('\\^')) do {
  136. X        chr := move(1)
  137. X        if chr == "\\" then {
  138. X        new_s ||:= {
  139. X            case chr2 := move(1) of {
  140. X            "\\" : "\\"
  141. X            "^"  : "^"
  142. X            "E"  : "\e"
  143. X            "b"  : "\b"
  144. X            "f"  : "\f"
  145. X            "n"  : "\n"
  146. X            "r"  : "\r"
  147. X            "t"  : "\t"
  148. X            default : {
  149. X                if any(&digits,chr2) then {
  150. X                char(integer("8r"||chr2||move(2 to 0 by -1))) |
  151. X                    er("Decode","bad termcap entry",3)
  152. X                }
  153. X               else chr2
  154. X            }
  155. X            }
  156. X        }
  157. X        }
  158. X        else new_s ||:= char(ord(map(move(1),&lcase,&ucase)) - 64)
  159. X    }
  160. X    new_s ||:= tab(0)
  161. X    }
  162. X
  163. X    return new_s
  164. X
  165. Xend
  166. X
  167. X
  168. X
  169. Xprocedure igoto(cm,col,line)
  170. X
  171. X    local colline, range, increment, str, outstr, chr, x, y
  172. X
  173. X    if col > (tc_table["co"]) | line > (tc_table["li"]) then {
  174. X    colline := string(\col) || "," || string(\line) | string(\col|line)
  175. X    range := "(" || tc_table["co"]-1 || "," || tc_table["li"]-1 || ")"
  176. X    er("igoto",colline || " out of range " || (\range|""),9)
  177. X    } 
  178. X
  179. X    # Use the Iconish 1;1 upper left corner & not the C-ish 0 offsets
  180. X    increment := -1
  181. X    outstr := ""
  182. X    
  183. X    cm ? {
  184. X    while outstr ||:= tab(find("%")) do {
  185. X        tab(match("%"))
  186. X        chr := move(1)
  187. X        if case chr of {
  188. X        "." :  outstr ||:= char(line + increment)
  189. X        "+" :  outstr ||:= char(line + ord(move(1)) + increment)
  190. X        "d" :  {
  191. X            str := string(line + increment)
  192. X            outstr ||:= right(str, integer(tab(any('23'))), "0") | str
  193. X        }
  194. X        }
  195. X        then line :=: col
  196. X        else {
  197. X        case chr of {
  198. X            "n" :  line := ixor(line,96) & col := ixor(col,96)
  199. X            "i" :  increment := 0
  200. X            "r" :  line :=: col
  201. X            "%" :  outstr ||:= "%"
  202. X            "B" :  line := ior(ishift(line / 10, 4), line % 10)
  203. X            ">" :  {
  204. X            x := move(1); y := move(1)
  205. X            line > ord(x) & line +:= ord(y)
  206. X            &null
  207. X            }
  208. X        } | er("goto","bad termcap entry",5)
  209. X        }
  210. X    }
  211. X    return outstr || tab(0)
  212. X    }
  213. X
  214. Xend
  215. X
  216. X
  217. X
  218. Xprocedure iputs(cp, affcnt)
  219. X
  220. X    # Writes cp to the screen.  Use this instead of writes() for
  221. X    # compatibility with the Unix version (which will need to send
  222. X    # null padding in some cases).  Iputs() also does a useful type
  223. X    # check.
  224. X
  225. X    static num_chars
  226. X    initial num_chars := &digits ++ '.'
  227. X
  228. X    type(cp) == "string" |
  229. X    er("iputs","you can't iputs() a non-string value!",10)
  230. X
  231. X    cp ? {
  232. X    if tab(many(num_chars)) & ="*" then
  233. X        stop("iputs:  MS-DOS termcap files shouldn't specify padding.")
  234. X    writes(tab(0))
  235. X    }
  236. X
  237. X    return
  238. X
  239. Xend
  240. SHAR_EOF
  241. echo 'File itlibdos.icn is complete' &&
  242. true || echo 'restore of itlibdos.icn failed'
  243. rm -f _shar_wnt_.tmp
  244. fi
  245. # ============= termcap.dos ==============
  246. if test -f 'termcap.dos' -a X"$1" != X"-c"; then
  247.     echo 'x - skipping termcap.dos (File already exists)'
  248.     rm -f _shar_wnt_.tmp
  249. else
  250. > _shar_wnt_.tmp
  251. echo 'x - extracting termcap.dos (Text)'
  252. sed 's/^X//' << 'SHAR_EOF' > 'termcap.dos' &&
  253. Xansi|color|ansi-color|ibm|ibmpc|ANSI.SYS color:\
  254. X    :co#80:li#24:bs:pt:bl=^G:le=^H:do=^J:\
  255. X    :cl=\E[H\E[2J:ce=\E[K:\
  256. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  257. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  258. X    :ti=\E[0;44m:te=\E[0m:\
  259. X    :so=\E[1;35;44m:se=\E[0;44m:\
  260. X    :us=\E[1;31;44m:ue=\E[0;44m:\
  261. X    :mb=\E[5m:md=\E[1m:me=\E[0;44m:
  262. Xmono|ansi-mono|ANSI.SYS:\
  263. X    :co#80:li#24:bs:pt:bl=^G:le=^H:do=^J:\
  264. X    :cl=\E[H\E[2J:ce=\E[K:\
  265. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  266. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  267. X    :so=\E[1m:se=\E[m:us=\E[4m:ue=\E[m:\
  268. X    :mb=\E[5m:md=\E[1m:me=\E[m:
  269. Xnnansi-mono|NNANSI.SYS:\
  270. X    :co#80:li#25:bs:pt:bl=^G:le=^H:do=^J:\
  271. X    :cl=\E[2J:cd=\E[J:ce=\E[K:\
  272. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  273. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  274. X    :so=\E[1m:se=\E[2m:\
  275. X    :us=\E[4m:ue=\E[24m:\
  276. X    :mb=\E[5m:md=\E[1m:mh=\E[2m:mr=\E[7m:me=\E[m:\
  277. X    :al=\E[L:dl=\E[M:ic=\E[@:dc=\E[P:
  278. Xnnansi|nnansi-color|NNANSI.SYS color:\
  279. X    :co#80:li#25:bs:pt:bl=^G:le=^H:do=^J:\
  280. X    :cl=\E[2J:cd=\E[J:ce=\E[K:\
  281. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  282. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  283. X    :ti=\E[0;44m:te=\E[0m:\
  284. X    :so=\E[1;35;44m:se=\E[2;37m:\
  285. X    :us=\E[4m:ue=\E[24m:\
  286. X    :mb=\E[5m:md=\E[1m:mh=\E[2m:mr=\E[7m:me=\E[0;44m:\
  287. X    :al=\E[L:dl=\E[M:ic=\E[@:dc=\E[P:
  288. Xnansi-mono|zansi-mono|N/ZANSI.SYS:\
  289. X    :co#80:li#25:bs:pt:bl=^G:le=^H:do=^J:\
  290. X    :cl=\E[2J:ce=\E[K:\
  291. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  292. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  293. X    :ti=\E[0m:te=\E[0m:\
  294. X    :so=\E[1;35m:se=\E[0m:\
  295. X    :us=\E[1;31m:ue=\E[0m:\
  296. X    :mb=\E[5m:md=\E[1m:mr=\E[7m:me=\E[m:\
  297. X    :al=\E[L:dl=\E[M:ic=\E[@:dc=\E[P:
  298. Xnansi|zansi|nansi-color|zansi-color|N/ZANSI.SYS color:\
  299. X    :co#80:li#25:bs:pt:bl=^G:le=^H:do=^J:\
  300. X    :cl=\E[2J:ce=\E[K:\
  301. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  302. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  303. X    :ti=\E[0;44m:te=\E[0m:\
  304. X    :so=\E[1;35;44m:se=\E[0;44m:\
  305. X    :us=\E[1;31;44m:ue=\E[0;44m:\
  306. X    :mb=\E[5m:md=\E[1m:mr=\E[7m:me=\E[0;44m:\
  307. X    :al=\E[L:dl=\E[M:ic=\E[@:dc=\E[P:
  308. XAX|ANSI X3.64|full ANSI X3.64 (1977) standard:\
  309. X    :co#80:li#24:bs:pt:am:mi:bl=^G:le=^H:\
  310. X    :cl=\E[2J:ce=\E[K:cd=\E[J:\
  311. X    :ho=\E[H:cm=\E[%i%d;%dH:cs=\E[%i%d;%dr:\
  312. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  313. X    :UP=\E[%dA:DO=\E[%dB:LE=\E[%dC:RI=\E[%dD:\
  314. X    :so=\E[7m:se=\E[m:us=\E[4m:ue=\E[m:\
  315. X    :mb=\E[5m:md=\E[1m:mr=\E[7m:me=\E[m:as=^N:ae=^O:\
  316. X    :ku=\E[A:kd=\E[B:kl=\E[C:kr=\E[D:kb=^H:\
  317. X    :kn#4:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:\
  318. X    :im=\E[4h:ei=\E[4l:al=\E[L:dl=\E[M:ic=\E[@:dc=\E[P:sf=\ED:sr=\EM:
  319. SHAR_EOF
  320. true || echo 'restore of termcap.dos failed'
  321. rm -f _shar_wnt_.tmp
  322. fi
  323. rm -f _shar_seq_.tmp
  324. echo You have unpacked the last part
  325. exit 0
  326.