home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / vmsnet / tpu / 482 < prev    next >
Encoding:
Text File  |  1992-11-08  |  11.9 KB  |  338 lines
  1. Newsgroups: vmsnet.tpu
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!unixhub!slacvx.slac.stanford.edu!fairfield
  3. From: fairfield@slacvx.slac.stanford.edu
  4. Subject: MATCHD.1-of-1 (Re: Procedure to matchup (){}[]  ???)
  5. Message-ID: <1992Nov8.152144.1@slacvx.slac.stanford.edu>
  6. Lines: 326
  7. Sender: news@unixhub.SLAC.Stanford.EDU
  8. Organization: Stanford Linear Accelerator Center
  9. References: <1992Nov8.053543.383@wsuhub.uc.twsu.edu>
  10. Date: Sun, 8 Nov 1992 23:21:44 GMT
  11.  
  12. In article <1992Nov8.053543.383@wsuhub.uc.twsu.edu>, ldgiltne@wsuhub.uc.twsu.edu (Lawrence Giltner) writes:
  13. > Before I spend a lot of time reinventing the wheel:
  14. > 
  15. > Does anybody have a procedure to pair up parenthesis, brackets, and
  16. > braces.  I would like to put the cursor on one of ()[]{} and let the
  17. > program figure out which direction it has to search and if found, then
  18. > marks/selects all the text between them, including the ()[]{}.
  19. > 
  20. > Is there a TPU procedure for this?   TPU v2.6 on VMS v5.5.
  21.  
  22.     Below I've included a VMS_SHARE file containing TPU code to do just
  23. what you want.  In addition to matching (), [], and {}, it matches <>,
  24. `', Ascii(171) with  Ascii(187) [the left an right angle-quotation marks],
  25. and Asccii(191) with ? [the upside-down with the rightside-up quesion marks].
  26. It also matches double quotes with each other, but that's pretty much useless
  27. as they have no "parity"...
  28.  
  29.     The TPU file is in a form suitable to be include in an EVE$BUILD master 
  30. list, i.e., with MODULE_IDENT and MODULE_INIT routines.  If you just want to
  31. EXTEND TPU * and save the sectionfile, you'll need to move the definition
  32. of khf$kt_left_delims and khf$kt_right_delims to your init file, or into
  33. the main procedure, EVE_MATCH_DELIMITORS, defining them each time through the
  34. routine...
  35.  
  36.     To use, just put the cursor on one member of the delimitors you want to 
  37. match, then hit DO and type "MATCH" on the EVE command line (or define a key 
  38. to do MATCH DELIMITORS and press that key).
  39.  
  40.         Cheers, Ken
  41. -- 
  42.  Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slac.Stanford.Edu
  43.  SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
  44.  Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
  45.  ----------------------------------------------------------------------------
  46.  These opinions are mine, not SLAC's, Stanford's, nor the DOE's...
  47.  
  48. $! ------------------ CUT HERE -----------------------
  49. $ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))'
  50. $!
  51. $! This archive created by VMS_SHARE Version 8.1
  52. $!   On  8-NOV-1992 15:08:14.25   By user FAIRFIELD   
  53. $!
  54. $! The VMS_SHARE software that created this archive
  55. $!    was written by  Andy Harper, Kings College London UK
  56. $!    -- September 1992
  57. $!
  58. $! Credit is due to these people for their original ideas:
  59. $!    James Gray, Michael Bednarek 
  60. $!
  61. $! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
  62. $! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
  63. $!
  64. $! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
  65. $!       1. MATCHDELIM.TPU;2
  66. $!
  67. $set="set"
  68. $set symbol/scope=(nolocal,noglobal)
  69. $f=f$parse("SHARE_UNPACK_TEMP","SYS$SCRATCH:."+f$getjpi("","PID"))
  70. $e="write sys$error  ""%UNPACK"", "
  71. $w="write sys$output ""%UNPACK"", "
  72. $ if .not. f$trnlnm("SHARE_UNPACK_LOG") then $ w = "!"
  73. $ ve=f$getsyi("version")
  74. $ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto start
  75. $ e "-E-OLDVER, Must run at least VMS 4.4"
  76. $ v=f$verify(v)
  77. $ exit 44
  78. $unpack: subroutine ! P1=filename, P2=checksum, P3=attributes
  79. $ if f$search(P1) .eqs. "" then $ goto file_absent
  80. $ e "-W-EXISTS, File ''P1' exists. Skipped."
  81. $ delete 'f'*
  82. $ exit
  83. $file_absent:
  84. $ if f$parse(P1) .nes. "" then $ goto dirok
  85. $ dn=f$parse(P1,,,"DIRECTORY")
  86. $ w "-I-CREDIR, Creating directory ''dn'"
  87. $ create/dir 'dn'
  88. $ if $status then $ goto dirok
  89. $ e "-E-CREDIRFAIL, Unable to create ''dn' File skipped."
  90. $ delete 'f'*
  91. $ exit
  92. $dirok:
  93. $ w "-I-UNPACK, Unpacking file ''P1'"
  94. $ n=P1
  95. $ if P3 .nes. "" then $ n=f
  96. $ if .not. f$verify() then $ define/user sys$output nl:
  97. $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='n'
  98. PROCEDURE GetHex LOCAL x1,x2;x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,
  99. ERASE_CHARACTER(1))-1;RETURN 16*x1+x2;ENDPROCEDURE;
  100. PROCEDURE SkipPartsep LOOP EXITIF INDEX(ERASE_LINE,"-+-+-+-+-+-+-+-+")=1;
  101. ENDLOOP;ENDPROCEDURE;
  102. PROCEDURE ExpandChar CASE CURRENT_CHARACTER FROM ' ' TO 'z' ["`"]
  103. :ERASE_CHARACTER(1);COPY_TEXT(ASCII(GetHex));[" "]:ERASE_CHARACTER(1);[
  104. OUTRANGE,INRANGE]:MOVE_HORIZONTAL(1);ENDCASE;ENDPROCEDURE;
  105. PROCEDURE ProcessLine s:=ERASE_CHARACTER(1);LOOP EXITIF CURRENT_OFFSET>=LENGTH(
  106. CURRENT_LINE);ExpandChar;ENDLOOP;IF s="V" THEN APPEND_LINE;ENDIF;ENDPROCEDURE;
  107. PROCEDURE AdvanceLine MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);
  108. ENDPROCEDURE;PROCEDURE Decode POSITION(BEGINNING_OF(b));LOOP EXITIF MARK(NONE)=
  109. END_OF(b);IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+-")=1 THEN SkipPartSep;
  110. ELSE ProcessLine;AdvanceLine;ENDIF;ENDLOOP;ENDPROCEDURE;SET(FACILITY_NAME,
  111. "UNPACK");SET(SUCCESS,OFF);SET(INFORMATIONAL,OFF);t:="0123456789ABCDEF";f:=
  112. GET_INFO(COMMAND_LINE,"file_name");b:=CREATE_BUFFER(f,f);Decode;WRITE_FILE(b,
  113. GET_INFO(COMMAND_LINE,"output_file"));QUIT;
  114. $ if p3 .eqs. "" then $ goto dl
  115. $ open/write fdl &f
  116. $ write fdl "RECORD"
  117. $ write fdl P3
  118. $ close fdl
  119. $ w "-I-CONVRFM, Converting record format to ", P3
  120. $ convert/fdl=&f &f-1 &P1
  121. $dl: delete 'f'*
  122. $ if P2 .eqs. "" then $ goto ckskip
  123. $ checksum 'P1'
  124. $ if checksum$checksum .nes. P2 then $ -
  125.   e "-E-CHKSMFAIL, Checksum of ''P1' failed."
  126. $ exit
  127. $ckskip: e "-W-CHKSUMSKIP, checksum validation unavailable for ''P1'"
  128. $ endsubroutine
  129. $start:
  130. $!
  131. $ create 'f'
  132. Xprocedure`20KHF_MATCHD_MODULE_IDENT
  133. X`09return`20"V02-001";
  134. Xendprocedure;
  135. X
  136. X
  137. Xprocedure`20KHF_MATCHD_MODULE_INIT
  138. X
  139. X!+
  140. X!`20`20Initialize`20marker`20variables`20used`20by`20Eve_Match_Delimitors:
  141. X!-
  142. X`20`20khf$x_match1_position:=`200;
  143. X`20`20khf$x_match2_position:=`200;
  144. X`20`20khf$x_match3_position:=`200;
  145. X`20`20khf$x_match4_position:=`200;
  146. X
  147. X!+
  148. X!`20`20Initialize`20list`20of`20delimitors`20used`20by`20Eve_Match_Delimitors.
  149. V`20`20Include
  150. X!`20`20double-angle`20quotes`20and`20upside-down`20question`20mark`20in`20deli
  151. Vmitor`20list;
  152. X!`20`20a`20generic`20double-quote`20mark`20matches`20itself.`20`20A`20user`20m
  153. Vay`20modify`20these
  154. X!`20`20strings`20in`20a`20TPU$COMMAND`20procedure.
  155. X!-
  156. X`20`20khf$kt_left_delims`20`20:=`20Ascii(34)`20+`20"(<`5B`60`7B"`20+`20Ascii(1
  157. V71)`20+`20Ascii(191);
  158. X`20`20khf$kt_right_delims`20:=`20Ascii(34)`20+`20")>`5D'`7D"`20+`20Ascii(187)
  159. V`20+`20"?";
  160. X
  161. Xendprocedure;
  162. X
  163. X
  164. X!++
  165. X!`20`20`20This`20procedure`20highlights`20(in`20BOLD,`20REVERSE`20video)`20mat
  166. Vching`20pairs
  167. X!`20`20`20of`20delimitors,`20the`20first`20of`20which`20is`20taken`20to`20be
  168. V`20the`20character`20at
  169. X!`20`20`20the`20current`20cursor`20position.`20`20Highlighting`20is`20turned
  170. V`20off`20by`20invoking
  171. X!`20`20`20this`20procedure`20with`20the`20cursor`20positioned`20on`20a`20non-d
  172. Velimitor`20character.
  173. X!`20`20`20Subsequent`20invocations`20turn`20off`20the`20highlighting`20on`20pr
  174. Veviously`20matched
  175. X!`20`20`20pairs,`20as`20well.
  176. X!
  177. X!`20`20`20This`20procedure`20uses`20the`20global`20marker`20variables`20khf$x_
  178. Vmatch1_position,
  179. X!`20`20`20khf$x_match2_position,`20khf$x_match3_position,`20and`20khf$x_match4
  180. V_position.
  181. X!
  182. X!`20Author/Date:`09`09K.H.`20Fairfield,`09`0916-Jan-1988
  183. X!
  184. X!--
  185. XProcedure`20Eve_Match_Delimitors
  186. X!`09`20`20--------------------
  187. XLocal`20saved_mark,`09!`20mark`20current`20position
  188. X`20`20`20`20`20`20first_char,`09!`20first`20character`20of`20matching`20pair
  189. X`20`20`20`20`20`20last_char,`09!`20second`20character`20of`20matching`20pair
  190. X`20`20`20`20`20`20direction,`09!`20search`20direction
  191. X`20`20`20`20`20`20n;`09`09!`20character`20position`20in`20khf$kt_left_delims
  192. V`20or
  193. X`09`09`09!`20khf$kt_right_delims`20string.
  194. X
  195. X
  196. X`20`20`20`20On_Error
  197. X`09`5BTPU$_CONTROLC`5D:
  198. X`09`20`20`20`20Eve$Learn_Abort;
  199. X`09`20`20`20`20Eve$$Restore_Position`20(saved_mark);
  200. X`09`5BOTHERWISE`5D:
  201. X`09`20`20`20`20Eve$$Restore_Position`20(saved_mark);
  202. X`20`20`20`20Endon_Error;
  203. X
  204. X
  205. X`20`20`20`20saved_mark`20:=`20Mark`20(NONE);
  206. X
  207. X!+
  208. X!`20`20Make`20an`20early`20return`20here`20if`20the`20current`20position`20is
  209. V`20the`20same
  210. X!`20`20position`20as`20the`20last`20previously`20marked`20delimitor.
  211. X!-
  212. X`20`20`20`20If`20khf$x_match1_position`20<>`200`20Then
  213. X`09If`20saved_mark`20=`20khf$x_match1_position`20Then
  214. X
  215. X`09`20`20`20`20khf$x_match1_position:=`200;
  216. X`09`20`20`20`20khf$x_match2_position:=`200;
  217. X`09`20`20`20`20khf$x_match3_position:=`200;
  218. X`09`20`20`20`20khf$x_match4_position:=`200;
  219. X`09`20`20`20`20Return`20(TRUE);
  220. X
  221. X`09Endif;
  222. X`20`20`20`20Endif;
  223. X
  224. X`20`20`20`20first_char`20:=`20CURRENT_CHARACTER;
  225. X
  226. X`20`20`20`20n`20:=`20Index`20(khf$kt_left_delims,`20first_char);
  227. X
  228. X`20`20`20`20If`20n`20>`200`20Then
  229. X`09last_char`20:=`20Substr`20(khf$kt_right_delims,`20n,`201);
  230. X`09direction`20:=`20FORWARD;
  231. X`20`20`20`20Else
  232. X`09n`20:=`20Index`20(khf$kt_right_delims,`20first_char);
  233. X
  234. X`09If`20n`20>`200`20Then
  235. X`09`20`20`20`20last_char`20:=`20Substr`20(khf$kt_left_delims,`20n,`201);
  236. X`09`20`20`20`20direction`20:=`20REVERSE;
  237. X`09Else
  238. X!+
  239. X!`20`20Current_Character`20was`20not`20a`20delimitor.`20`20If`20highlighting
  240. V`20is`20on,`20turn`20it
  241. X!`20`20off,`20else`20issue`20an`20error`20message.
  242. X!-
  243. X`09`20`20`20`20If`20khf$x_match1_position`20=`200`20Then
  244. X`09`09Eve$message`20("The`20current`20character,`20"`20+`20first_char`20+
  245. X`09`09`09`20",`20is`20not`20a`20valid`20delimitor`20to`20match.");
  246. X`09`20`20`20`20Endif;
  247. X`09`20`20`20`20khf$x_match1_position:=`200;
  248. X`09`20`20`20`20khf$x_match2_position:=`200;
  249. X`09`20`20`20`20khf$x_match3_position:=`200;
  250. X`09`20`20`20`20khf$x_match4_position:=`200;
  251. X`09`20`20`20`20Return`20(FALSE);
  252. X`09Endif;
  253. X`20`20`20`20Endif;
  254. X
  255. X`20`20`20`20khf$x_match1_position:=`20Mark`20(BOLD);
  256. X`20`20`20`20khf$x_match2_position:=`20Mark`20(REVERSE);
  257. X
  258. X`20`20`20`20If`20Khf_Find_Match`20(first_char,`20last_char,`20direction)`20=
  259. V`201`20Then
  260. X`09khf$x_match3_position:=`20Mark`20(BOLD);
  261. X`09khf$x_match4_position:=`20Mark`20(REVERSE);
  262. X`09Update`20(CURRENT_WINDOW);
  263. X`09Position`20(khf$x_match1_position);
  264. X`09Return`20(TRUE);
  265. X`20`20`20`20Else
  266. X`09Position`20(khf$x_match1_position);
  267. X`09khf$x_match1_position:=`200;
  268. X`09khf$x_match2_position:=`200;
  269. X`09khf$x_match3_position:=`200;
  270. X`09khf$x_match4_position:=`200;
  271. X`09Eve$message`20("`20Could`20not`20find`20the`20matching`20"`20+`20last_char
  272. V`20+
  273. X`09`09`20"`20character`20for`20the`20current`20character,`20"`20+`20first_char
  274. V);
  275. X`09Return`20(FALSE);
  276. X`20`20`20`20Endif;
  277. X
  278. X
  279. XEndProcedure;`09`09!`20Eve_Match_Delimitors
  280. X
  281. X
  282. X!++
  283. X!`20`20`20The`20following`20procedure`20does`20the`20actually`20search`20for
  284. V`20the`20matching
  285. X!`20`20`20delimitor`20character.`20`20A`20recursive`20algorithm`20is`20used
  286. V`20so`20that`20intervening
  287. X!`20`20`20pairs`20of`20matched`20delimitors`20are`20not`20mistakenly`20selecte
  288. Vd`20as`20the`20match.
  289. X!
  290. X!`20Input`20Parameters:
  291. X!
  292. X!`09first`09`20`20`20`20the`20delimitor`20character`20whose`20mate`20is`20bein
  293. Vg`20sought
  294. X!
  295. X!`09last`09`20`20`20`20the`20matching`20delimitor`20character
  296. X!
  297. X!`09direction`20`20`20the`20direction`20to`20search.`20`20If`20first_char`20is
  298. V`20a`20right-
  299. X!`09`09`20`20`20`20delimitor,`20the`20search`20direction`20is`20FORWARD,
  300. X!`09`09`20`20`20`20otherwise`20it`20is`20REVERSE.
  301. X!
  302. X!`20Author/Date:`09`09K.H.`20Fairfield,`09`0916-Jan-1988
  303. X!-
  304. X
  305. XProcedure`20Khf_Find_Match`20(first,`20last,`20direction)
  306. X!`09`20`20--------------
  307. XLocal`20this_patt,`20this_range;
  308. X
  309. X`20`20`20`20this_patt`20:=`20first`20+`20last;
  310. X`20`20`20`20Loop
  311. X`09If`20direction`20=`20FORWARD`20Then
  312. X`09`20`20`20`20Move_Horizontal`20(1);
  313. X`09Else
  314. X`09`20`20`20`20Move_Horizontal`20(-1);
  315. X`09Endif;
  316. X`09this_range`20:=`20Search_Quietly`20(Any`20(this_patt),`20direction);
  317. X`09If`20this_range`20<>`200
  318. X`09Then
  319. X`09`20`20`20`20Position`20(this_range);
  320. X`09Else
  321. X`09`20`20`20`20Return`20(0);
  322. X`09Endif;
  323. X`09If`20CURRENT_CHARACTER`20=`20last`20Then
  324. X`09`20`20`20`20Return`20(1);
  325. X`09Else
  326. X`09`20`20`20`20If`20Khf_Find_Match`20(first,`20last,`20direction)`20=`200`20Th
  327. Ven
  328. X`09`09Return`20(0);
  329. X`09`20`20`20`20Endif;
  330. X`09Endif;
  331. X`20`20`20`20Endloop;
  332. X
  333. XEndprocedure;`09`09!`20Khf_Find_Match
  334. X
  335. $ call unpack MATCHDELIM.TPU;2 1952715885 ""
  336. $ v=f$verify(v)
  337. $ exit
  338.