home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Professional
/
OS2PRO194.ISO
/
os2
/
com
/
bbs
/
parselst
/
plst_133.doc
< prev
Wrap
Text File
|
1991-09-20
|
4KB
|
105 lines
OS/2 version of Parselst v1.33, ported by Bill Andrus, 1:109/301.
Also available as an updated DOS version.
Version 1.33:
Note: This program was modified on 09/20/91 to incorporate Ron Bemis'
updates to permit COMPACT compilation.
Version 1.32:
Note: This program was modified on 04/13/91 to process the following
nodelist flags (exactly as shown) to create the specified MODEMTRANS
value for BinkleyTerm:
HST = 1 (Already present)
PEP = 2 (Already present)
V32 = 4
V32b = 8
H96 = 16
These are NOT the exact same as the Beta 1.32, so be careful.
Be careful with these, the values are accumulative, not exclusive.)
Version 1.31:
Note: This program was modified on 05/08/90 to handle >9 consecutive
digits in phone number strings, and the version number was bumped
up at that time.)
If FIDOUSER.LST is specified, then a program conforming to the following
command line must be provided:
QSort FIDOUSER.$$1 /+1:41 /-61:5 /-41:13 /+55:6
Where each field is defined by /osc:nc where o=+ (ascending) or -
(descending) and sc=starting col, nc=number of cols.
Numerous problems with the original code were discovered, especially
with null pointers causing Trap 0D hits. This code will now compile with
-W4 with very few cranky and dubiously obvious warnings in PARSELST.C, and
without the STDIO.C and LOWLEVEL.ASM actually generated a full Rev 6
Nodelist on my system faster under OS/2 than the stock version under
PC-DOS 4.01 does. MUCH faster!
I still strongly recommend that DOS users use EDITNL before invoking
PARSELST to perform NODELIST resolution. For OS/2 users that don't have
an EDITNL version available, here's how I use PARSELST.
Here's my LISTGEN.CMD using ARC2.EXE and this PARSELST.EXE for OS/2:
@Echo Here we go...
@Echo off
REM Start with Current NODELIST.A* in D:\Tmp, possible new NODEDIFF.A*
REM in C:\Bink\Inbound. Compile NODELIST.* in C:\Bink\Nodelist, then
REM if new NODELIST, Archive it to D:\Tmp, and delete all NODELIST from
REM C:\Bink\Nodelist, and any NODEDIFF.
Set BBS=C:\Bink
Set BINKLEY=C:\Bink\
Set EXPMSG=2400
Set FILE=C:\Bink\Inbound
Set IN=C:\Bink\Inbound
Set MAIL=C:\Bink\Mail
Set OUT=C:\Bink\Outbound
C:
CD \Bink\Nodelist
If Exist Node*.* Del Node*.* >Nul:
If NOT Exist %FILE%\Nodediff.A* Goto Compile
If Exist D:\Tmp\Nodediff.A* Del D:\Tmp\Nodediff.A* >Nul:
CD %FILE%
For %%D in (Nodediff.A*) Do Set ND=%%D
Copy %FILE%\%ND% D:\Tmp >Nul:
Del %FILE%\%ND% >Nul:
CD \Bink\Nodelist
>Nul: ARC2 EO D:\Tmp\%ND% Nodediff.*
:Compile
For %%L in (D:\Tmp\Nodelist.A*) Do Set ONLA=%%L
>Nul: ARC2 EO %ONLA% Nodelist.*
For %%O in (Nodelist.*) Do Set ONL=%%O
REM Perform NODELIST 5/6 compile
c:\Bink\ParseLst
If Not ERRORLEVEL 0 Goto Exit
:REM Now delete raw Nodelist
Del %ONL% >Nul:
If NOT Exist Nodediff.* Goto Exit
Del Nodediff.* >Nul:
For %%N in (Nodelist.0* Nodelist.1* Nodelist.2* Nodelist.3*) Do Set NNL=%%N
>Nul: ARC2 A5 D:\Tmp\%NNL% %NNL%
Ren D:\Tmp\%NNL% NODELIST.A*
Del %NNL% >Nul:
Del %ONLA% >Nul:
:Exit
Echo.
Echo We're Out-ta Here!!!
I apologize to those that prefer highly commented batch files, but this is as
good as it gets. And, it works, nice and quietly. I invoke it from my
POINT.CMD file with the following line, located in the section for new mail:
If Exist %IN%\NODEDIFF.A* Call LISTGEN.CMD
I've tried to get this to compile and execute in Compact, but Medium is the
best I could do. Fortunately, Ron Bemis came up with the way to do it.