home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / PLST132P.ZIP / PLST-132.DOC < prev   
Text File  |  1990-08-25  |  3KB  |  93 lines
  1. OS/2 version of Parselst v1.32, ported by Bill Andrus, 1:109/301.
  2.  
  3. (Note:  This program was modified on 08/24/90 to process the following
  4.         nodelist flags (exactly as shown) to create the specified MODEMTRANS
  5.         value for BinkleyTerm:
  6.         HST  =   1  (Already present)
  7.         PEP  =   2  (Already present)
  8.         V42b =   4
  9.         V42  =   8
  10.         H96  =  16
  11.         V29  =  32
  12.         V32  =  64
  13.         V33  = 128
  14.         Be careful with these, the values are accumulative, not exclusive.)
  15.  
  16.  
  17. (Note:  This program was modified on 05/08/90 to handle >9 consecutive
  18.         digits in phone number strings, and the version number was bumped
  19.         up at that time.)
  20.  
  21. If FIDOUSER.LST is specified, then a program conforming to the following
  22. command line must be provided:
  23.  
  24. QSort FIDOUSER.$$1 /+1:41 /-61:5 /-41:13 /+55:6
  25.  
  26. Where each field is defined by /osc:nc where o=+ (ascending) or -
  27. (descending) and sc=starting col, nc=number of cols.
  28.  
  29. Numerous problems with the original code were discovered, especially
  30. with null pointers causing TRAP 13 hits.  This code will now compile with
  31. /W3 with only six automatic data conversion warnings in PARSELST.C, and
  32. without the STDIO.C and LOWLEVEL.ASM actually generated a full Rev 6
  33. Nodelist on my system faster under OS/2 than the stock version under
  34. PC-DOS 4.01 does.  MUCH faster!
  35.  
  36. My Turbo AT has two MFM drives, and a relatively normal OS/2 SE 1.1 setup.
  37.  
  38. Here's my LISTGEN.CMD using ARC2.EXE and this PARSELST.EXE:
  39.  
  40. @Echo Here we go...
  41. @Echo off
  42. REM Start with Current NODELIST.A* in D:\Tmp, possible new NODEDIFF.A*
  43. REM in C:\Bink\Inbound.  Compile NODELIST.* in C:\Bink\Nodelist, then
  44. REM if new NODELIST, Archive it to D:\Tmp, and delete all NODELIST from
  45. REM C:\Bink\Nodelist, and any NODEDIFF.
  46. Set BBS=C:\Bink
  47. Set BINKLEY=C:\Bink\
  48. Set EXPMSG=2400
  49. Set FILE=C:\Bink\Inbound
  50. Set IN=C:\Bink\Inbound
  51. Set MAIL=C:\Bink\Mail
  52. Set OUT=C:\Bink\Outbound
  53. C:
  54. CD \Bink\Nodelist
  55. If Exist Node*.* Del Node*.* >Nul:
  56. If NOT Exist %FILE%\Nodediff.A* Goto Compile
  57. If Exist D:\Tmp\Nodediff.A* Del D:\Tmp\Nodediff.A* >Nul:
  58. CD %FILE%
  59. For %%D in (Nodediff.A*) Do Set ND=%%D
  60. Copy %FILE%\%ND% D:\Tmp >Nul:
  61. Del %FILE%\%ND% >Nul:
  62. CD \Bink\Nodelist
  63. >Nul: ARC2 EO D:\Tmp\%ND% Nodediff.*
  64. :Compile
  65. For %%L in (D:\Tmp\Nodelist.A*) Do Set ONLA=%%L
  66. >Nul: ARC2 EO %ONLA% Nodelist.*
  67. For %%O in (Nodelist.*) Do Set ONL=%%O
  68. REM Perform NODELIST 5/6 compile
  69. c:\Bink\ParseLst
  70. If Not ERRORLEVEL 0 Goto Exit
  71. :REM Now delete raw Nodelist
  72. Del %ONL% >Nul:
  73. If NOT Exist Nodediff.* Goto Exit
  74. Del Nodediff.* >Nul:
  75. For %%N in (Nodelist.0* Nodelist.1* Nodelist.2* Nodelist.3*) Do Set NNL=%%N
  76. >Nul: ARC2 A5 D:\Tmp\%NNL% %NNL%
  77. Ren D:\Tmp\%NNL% NODELIST.A*
  78. Del %NNL% >Nul:
  79. Del %ONLA% >Nul:
  80. :Exit
  81. Echo.
  82. Echo We're Out-ta Here!!!
  83.  
  84. I apologize to those that prefer highly commented batch files, but this is as
  85. good as it gets.  And, it works, nice and quietly.  I invoke it from my
  86. POINT.CMD file with the following line, located in the section for new mail:
  87.  
  88. If Exist %IN%\NODEDIFF.A* Call LISTGEN.CMD
  89.  
  90. I've tried to get this to compile and execute in Compact, but Medium is the
  91. best I could do.
  92.  
  93.