Google
 

Trailing-Edge - PDP-10 Archives - BB-R598A-RM_1983 - swskit-v3/pmr/psthru.sno
There are no other files named psthru.sno in the archive.
 CV = ASCII(26)
 LOAD('CASEER(INTEGER,STRING,STRING,STRING)STRING')
 EXIT(0)
 DUMMY = CASEER(0,DUMMY,DUMMY,DUMMY)	:F(END)
AGAIN  TODO = CASEER(1,DUMMY,DUMMY,DUMMY)	:F(AGAIN)
* TTY = 'Got string- ' TODO
 TODO LEN(1) . PREFIX = ''	:F(BADSTR)
  TODO '	' = ' '			:S()
 TODO '  ' = ' '		:S()
 TODO ARB . NODE '::' = ''	:F(BADSTR)

* STRIP OFF LEADING _ IF PRESENT

 NODE "_" = ''
 RNODE = NODE '::'
 NODE = 'DCN:' NODE
 TODO '::'			:F(LAST)
* IF HERE, WE ARE NOT LAST AND MUST CONNECT TO NEXT ONE

 NODE = NODE '-123' ';BDATA:' CASEER(4,DUMMY,DUMMY,DUMMY)

 TODO = PREFIX TODO
 DUMMY = CASEER(2,NODE,TODO,RNODE)	:F(END)S(AGAIN)

* IF HERE, WE ARE LAST.

LAST ODATA = ''
 OPTNL = ''
 TODO '/' ARB . OPTNL '"' = :F(NOOPT)
 TODO '='		     :S(GETOBJ)
  TODO = TODO '='
GETOBJ TODO = TODO '"'
NOOPT TODO '=' ARB . ODATA '"'
 OBJECT = ''
 TODO '"' ARB . OBJECT '=' :F(BADSTR)
 OBJECT LEN(1)		  :F(BADSTR)
 TODO = OBJECT
 ODATA LEN(1)		 :F(DOAC)
 TODO = TODO "-" ODATA
DOAC ACCESS = ''
 NODE '"' ARB . ACCESS '"' = ''
 NODE = NODE '-' TODO

* NOW LOOK FOR ACCESS INFORMATION IN THE NODE NAME

 ACCESS LEN(1)			:F(DONE)

*ACCESS STRING IS NOT NULL. GET COMPONENTS

 NODE = NODE ';USER:'
 ACCESS '[' = CV '['
 ACCESS ']' = CV ']'
 ACCESS ',' = CV ','
 ACCESS ARB . USER ' ' = ''	:S(DOUSER) 
 NODE = NODE ACCESS		:(DONE)
DOUSER NODE = NODE USER
 NODE = NODE ';PASSWORD:'
 ACCESS ARB . USER ' ' = ''	:S(DOPASS)
 NODE = NODE ACCESS		:(DONE)
DOPASS NODE = NODE USER
STRIP ACCESS ' ' = ''		:S(STRIP)
 ACCESS LEN(1)			:F(DONE)
 NODE = NODE ';CHARGE:' ACCESS
*DONE TTY = 'At done- ' NODE
DONE OPTNL LEN(1) :F(DONDON)
 NODE = NODE ';DATA:' OPTNL
DONDON DUMMY = CASEER(3,NODE,DUMMY,RNODE)	:F(END)S(AGAIN)
* HERE IF BAD SYNTAX

BADSTR				:(AGAIN)
END