PDP-10.its/bin/librm3/irsusr.fbin

'<PCODE "2IRSUSR">

<PACKAGE "IRSUSR"> 

<EXTERNAL "IRSBAS" "INV" "CALSYM" "VCTMAN" "STR"> 

<ENTRY IRSUSR-GRP> 

<ENTRY IRSACV IRSACT IRSDCT IRSPSET MAKETEMP IRSPSIZE IRSMAKDFL> 

<ENTRY IRSCSET IRSTSET IRSUSET IRSDSET IRSNSET IRSMAPF IRSGOBJ IRSPOB IRSGNAME 
IRSGID> 

<ENTRY IRSPSTATUS IRSLSTFLD IRSFND IRSCNV IRSCOMP IRSFILACT IRSFILDCT IRSFILSYM> 

<ENTRY IRSDISTBL IRSDISTSRT IRSDISTPRT IRSDISTPRTH> 

<ENTRY IRSUGET IRSUPUT> 

<SETG IRSUSR-GRP  %<RSUBR!- '[ %<PCODE!- "2IRSUSR" 0> IRSUSR-GRP #DECL ("VALUE" 
ATOM) FILSTR IRSNSET INVMAPFND VCTDLW VCTINS IRSMAPF IRSFND INVFND IRSPSET 
SUBSTR INV-INSERT IRSDISTBL INDENT-TO IRSUSR-GRP %<TYPE-C IRSOBJ VECTOR> #FALSE 
() FIX LIST () %<TYPE-W IRSVCT VECTOR> "PRINTO" "READ" "DATA BASE LOCKED" T 
OBLIST (<LIST [REST OBLIST]>)  %<RSUBR!- '[ %<PCODE!- "2IRSUSR" 5043> 
ANONF107!-TMP #DECL ("VALUE" <OR FALSE IRSVCT> CHANNEL ANY) IRSACV #FALSE () %<
TYPE-C IRSVCT VECTOR> "BAD BASE FILE" "EMPTY BASE FILE"]> IRSVCT STRING %<TYPE-C
IRSVCT VECTOR> CHANNEL "Arg neither string nor channel?" %<TYPE-W SYMBOL VECTOR>
 %<TYPE-W SYMTABLE VECTOR> FALSECOPY  %<RSUBR!- '[ %<PCODE!- "2IRSUSR" 5112> 
ANONF144!-TMP #DECL ("VALUE" LIST LIST) LIST FALSECOPY #FALSE ()]> (<OR FUNCTION
RSUBR>) FIXTEMP  %<RSUBR!- '[ %<PCODE!- "2IRSUSR" 5190> ANONF164!-TMP #DECL (
"VALUE" <OR FALSE LIST> LIST LIST LIST) LIST FIXTEMP #FALSE ()]> %<TYPE-C SYMBOL
VECTOR> %<TYPE-W IRSSET VECTOR> %<TYPE-C INVERSION VECTOR> %<TYPE-W IRSOBJ 
VECTOR> PRTOBJ  %<RSUBR!- '[ %<PCODE!- "2IRSUSR" 5327> ANONF348!-TMP #DECL (
"VALUE" ANY ANY <OR STRING LIST FALSE> "OPTIONAL" STRING) "
" OUTCHAN ":	" #FALSE () "  " T PRTOBJ]> "NON-POSITIVE IDENTIFIER" OUTCHAN 
"
"  %<RSUBR!- '[ %<PCODE!- "2IRSUSR" 5509> ANONF404!-TMP #DECL ("VALUE" <OR FALSE
STRING> FIX IRSVCT VECTOR) IRSGOBJ IRSPOB OUTCHAN "

	(Unique identifier ==> " " )" %<TYPE-W IRSVCT VECTOR>]> 
 %<RSUBR!- '[ %<PCODE!- "2IRSUSR" 5559> ANONF409!-TMP #DECL ("VALUE" ANY FIX 
VECTOR) OUTCHAN "	"]> "
Id	Name" "

IRS READY WITH SET #" ". (" " MEMBERS)" " MEMBER)" 
"

IRS READY WITH INITIAL SET. (" " MEMBERS)
" " MEMBER)
" "PRINT" "AND" "OR" "NOT" "BOTH" "EITHER" "NEITHER" "NON-EXISTENT-ATTRIBUTE" 
"INVALID-SEARCH-DESCRIPTION" %<TYPE-W INVERSION VECTOR> 
"SEARCH PRODUCED NULL (EMPTY) SET" "BETWEEN" "><" "SUBSTRING" "SUB" WORD DATE %<
RGLOC COMPFCN T> "SEARCH PRODUCED NULL SET" %<RGLOC COMPIFCN T> 
"ILLEGAL ARGUMENTS" LST (<LIST [REST STRING FIX]>)  %<RSUBR!- '[ %<PCODE!- 
"2IRSUSR" 5614> ANONF803!-TMP #DECL ("VALUE" <OR ATOM FALSE> FIX IRSVCT <OR LIST
FIX>) IRSGOBJ IRSUGET %<TYPE-W IRSVCT VECTOR> T LST]>  %<RSUBR!- '[ %<PCODE!- 
"2IRSUSR" 5768> ANONF826!-TMP #DECL ("VALUE" <OR FALSE <LIST STRING FIX [REST 
STRING FIX]>> STRING ANY VECTOR VECTOR UVECTOR) INVCNTFND #FALSE () LST]> 
"NOT A LEGAL FIELD NAME" SRT  %<RSUBR!- '[ %<PCODE!- "2IRSUSR" 5913> 
ANONF881!-TMP #DECL ("VALUE" <LIST [REST ANY FIX]> <LIST [REST ANY FIX]>) () SRT
]> "

PERCENTAGE	FREQUENCY	ATTRIBUTE" "%		" "		" 
"
	(Each \"" "\" represents " " object.)" " objects.)"]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,IRSUSR-GRP PGLUE ![713730735 -1 -1 -1 -1 
-16777216 0!]>> 

<AND <ASSIGNED? GLUE> .GLUE <PUT ,IRSUSR-GRP GLUE ![-4293898240 17682452484 
323227712 2000 268435461 -3221208768 276288320 4295046209 1073741824 33555480592
1524 1073807428 17179870000 67179776 1413480448 1140850756 -13744619500 
4379996928 4581229681 19262275856 4197872 8393916484 71386112 19277283328 
4563452723 18256953600 21543322051 -16098787268 17394237443 -16878924544 
21708669184 475136 209765392 18052284532 12582912 8241 2080637008 17519987729 
4582088497 -58724351 5436866560 1010909185 4394913792 31138791424 -12884638720 
4563402960 17516740865 33623572480 308 1088 0 245760 0 0 81924 16 67108864 
17198694608 4294968385 2097433857 13631809 1360265284 4567597844 4363125712 
1346454608 285491456 524354576 4198209 2147813312 4362105920 68157452 786435 
-12816740096 200704 3145789 -4227657728 17179885713 16 5259584 17393848605 
1115200 1145045760 16174546944 67108880 17180934144 1074790400 98320 3355455748 
18253611009 4294967302 67108864 209715984 1346454608 8384513 6242453440 
1140850688 4652532039 16190013440 16782357 18256760832 17447383244 2633220864 
-34355544048 16388 1048576 1078023281 30343428 12596160 50333500 31072239628 
-3368287232 12288 31078993152 5385814275 12956483584 18282971156 1203834880 
67109952 335617877 19278197820 17197695248 17180131345 18825472 268452864 
3212288 67125372 -17058229184 1073807616 1879314496 262144 17452499988 
18325229553 -3772834017 4295234560 17122304 1114112 69636 5653921792 16781328 
24696078592 1094975488 21479031041 4653057 1358954496 4096 4312073216 1092 0 0 
2080374789 4294973376 2080391440 -32928400063 4596712193 1141112833 528708 
340049920 287047689 4363917569 -16722901985 18612485 7517262272 4296020039 
-12876705292 131088388 33558626372 16843012 33554944287 17188062208 19277283332 
17180919044 5458103503 -13432896 1204275143 -16106057728 1140871428 71307520 
18253676800 1191182596 16842756 17181185025 7646285296 21760315652 17452762372 
17179870268 286543175 8402296701 14986526980 17465348353 17478778880 268435456 
2049311 -16965959680 2166178816 4194316 5100273792 33290256400 1056964608 95168 
1091170335 268435457 17071412 67179331 33558691856 67110100 33558691871 
17188123664 17217617921 5231639824 17704423924 4370268481 8388608004 17039424 
268439808 17039424 64 1124140033 1154539329 1074003984 20258625 1074253825 
-2197549047 17631 21999390845 4370269201 -3215964208 65540 4296015936 71303168 
8591015951 -3438268348 18325177311 -1002433516 16911503360 17246982144 289686529
1048577 4300275716 1073856528 4296019968 1064960 33541129 4311871488 75235329 
66846720 68157440 18286379009 4580180992 -16089018368 822345852 1050623 16384 
65552 22830585152 1425408 201538560 12888293379 69888 5385831764 4194304 
4581228549 17196646464 17899328 524353537 4308545587 -13958514752 12890472515 
490734592 3221263680 23354934340 0 320 0 0 0 266813 528949 791087 266697 266653 
2101038 1576483 1051663 1313801 265143 265069 526642 526550 526336 788476 264042
526160 526132 525957 788099 525711 787851 263309 525451 263248 525390 263225 
263191 525316 262817 524959 262649 524777 786910 262458 524600 262346 786534 
524297!]>> 

<SETG IRSUGET %<RSUBR-ENTRY '[IRSUSR-GRP IRSUGET #DECL ("VALUE" ANY ANY <OR LIST
FIX>)] 3>> 

<SETG IRSUPUT %<RSUBR-ENTRY '[IRSUSR-GRP IRSUPUT #DECL ("VALUE" ANY ANY <OR LIST
FIX> ANY)] 94>> 

<SETG IRSACV %<RSUBR-ENTRY '[IRSUSR-GRP IRSACV #DECL ("VALUE" <OR FALSE IRSVCT> 
IRSVCT "OPTIONAL" ANY)] 300>> 

<SETG IRSACT %<RSUBR-ENTRY '[IRSUSR-GRP IRSACT #DECL ("VALUE" <OR FALSE IRSVCT> 
<OR IRSVCT STRING CHANNEL> "OPTIONAL" ANY <LIST [REST OBLIST]>)] 465>> 

<SETG IRSDCT %<RSUBR-ENTRY '[IRSUSR-GRP IRSDCT #DECL ("VALUE" IRSVCT IRSVCT)] 
198>> 

<SETG MAKETEMP %<RSUBR-ENTRY '[IRSUSR-GRP MAKETEMP #DECL ("VALUE" <OR FALSE 
VECTOR> IRSVCT "OPTIONAL" ANY)] 659>> 

<SETG IRSPSET %<RSUBR-ENTRY '[IRSUSR-GRP IRSPSET #DECL ("VALUE" ANY IRSVCT 
"TUPLE" ANY)] 1779>> 

<SETG IRSMAKDFL %<RSUBR-ENTRY '[IRSUSR-GRP IRSMAKDFL #DECL ("VALUE" ANY ANY 
"TUPLE" ANY)] 985>> 

<SETG IRSPSIZE %<RSUBR-ENTRY '[IRSUSR-GRP IRSPSIZE #DECL ("VALUE" <OR FALSE 
IRSVCT> IRSVCT FIX)] 1022>> 

<SETG IRSCSET %<RSUBR-ENTRY '[IRSUSR-GRP IRSCSET #DECL ("VALUE" <OR FALSE IRSSET
> IRSVCT)] 1043>> 

<SETG IRSTSET %<RSUBR-ENTRY '[IRSUSR-GRP IRSTSET #DECL ("VALUE" ATOM IRSVCT)] 
1077>> 

<SETG IRSUSET %<RSUBR-ENTRY '[IRSUSR-GRP IRSUSET #DECL ("VALUE" <OR ATOM FALSE> 
IRSVCT "OPTIONAL" ANY)] 1090>> 

<SETG IRSDSET %<RSUBR-ENTRY '[IRSUSR-GRP IRSDSET #DECL ("VALUE" <OR ATOM FALSE> 
IRSVCT "OPTIONAL" ANY)] 1151>> 

<SETG IRSNSET %<RSUBR-ENTRY '[IRSUSR-GRP IRSNSET #DECL ("VALUE" <OR ATOM FALSE> 
IRSVCT <OR INVERSION VECTOR> FIX <OR VECTOR LIST> "OPTIONAL" LIST)] 1228>> 

<SETG IRSMAPF %<RSUBR-ENTRY '[IRSUSR-GRP IRSMAPF #DECL ("VALUE" ANY ANY ANY 
IRSVCT "TUPLE" TUPLE)] 1353>> 

<SETG IRSGOBJ %<RSUBR-ENTRY '[IRSUSR-GRP IRSGOBJ #DECL ("VALUE" <OR FALSE IRSOBJ
> IRSVCT ANY "OPTIONAL" ANY)] 1407>> 

<SETG IRSPOB %<RSUBR-ENTRY '[IRSUSR-GRP IRSPOB #DECL ("VALUE" <OR FALSE STRING> 
IRSVCT ANY "OPTIONAL" VECTOR)] 1655>> 

<SETG IRSGNAME %<RSUBR-ENTRY '[IRSUSR-GRP IRSGNAME #DECL ("VALUE" ANY IRSVCT ANY
)] 1838>> 

<SETG IRSGID %<RSUBR-ENTRY '[IRSUSR-GRP IRSGID #DECL ("VALUE" ANY IRSVCT STRING)
] 1866>> 

<SETG IRSPSTATUS %<RSUBR-ENTRY '[IRSUSR-GRP IRSPSTATUS #DECL ("VALUE" ATOM 
IRSVCT)] 1894>> 

<SETG IRSLSTFLD %<RSUBR-ENTRY '[IRSUSR-GRP IRSLSTFLD #DECL ("VALUE" ANY IRSVCT <
OR ATOM STRING SYMBOL>)] 2256>> 

<SETG IRSFND %<RSUBR-ENTRY '[IRSUSR-GRP IRSFND #DECL ("VALUE" <OR FALSE FIX> 
IRSVCT <OR VECTOR LIST> "OPTIONAL" ANY FIX)] 2738>> 

<SETG IRSCNV %<RSUBR-ENTRY '[IRSUSR-GRP IRSCNV #DECL ("VALUE" <OR FALSE VECTOR> 
IRSVCT <OR LIST VECTOR>)] 2348>> 

<SETG IRSFILACT %<RSUBR-ENTRY '[IRSUSR-GRP IRSFILACT #DECL ("VALUE" <OR FALSE <
VECTOR VECTOR ANY>> IRSVCT <VECTOR VECTOR [REST <OR ATOM FALSE>]> "OPTIONAL" 
STRING)] 2032>> 

<SETG IRSFILDCT %<RSUBR-ENTRY '[IRSUSR-GRP IRSFILDCT #DECL ("VALUE" ANY <VECTOR 
<VECTOR VECTOR [REST <OR ATOM FALSE>]> ANY>)] 2921>> 

<SETG IRSFILSYM %<RSUBR-ENTRY '[IRSUSR-GRP IRSFILSYM #DECL ("VALUE" <OR FALSE 
SYMTABLE> <VECTOR <VECTOR VECTOR [REST <OR ATOM FALSE>]> ANY>)] 2995>> 

<SETG IRSCOMP %<RSUBR-ENTRY '[IRSUSR-GRP IRSCOMP #DECL ("VALUE" <OR FALSE FIX> 
IRSVCT <OR ATOM STRING APPLICABLE> <OR ATOM STRING FIX <LIST [REST FIX]>> ANY 
"OPTIONAL" ANY)] 3069>> 

<SETG COMPIFCN %<RSUBR-ENTRY '[IRSUSR-GRP COMPIFCN #DECL ("VALUE" <OR FALSE <
VECTOR FIX <LIST STRING>>> STRING APPLICABLE <VECTOR FIX <OR LIST FALSE>> ANY 
ANY ATOM)] 3605>> 

<SETG COMPFCN %<RSUBR-ENTRY '[IRSUSR-GRP COMPFCN #DECL ("VALUE" <OR FALSE <
VECTOR FIX <OR FALSE INVERSION>>> FIX IRSVCT APPLICABLE <OR FIX <LIST [REST FIX]
>> <VECTOR FIX <OR INVERSION FALSE>> ANY ANY ATOM)] 3868>> 

<SETG IRSDISTBL %<RSUBR-ENTRY '[IRSUSR-GRP IRSDISTBL #DECL ("VALUE" <OR FALSE 
LIST> IRSVCT ANY)] 4134>> 

<SETG IRSDISTSRT %<RSUBR-ENTRY '[IRSUSR-GRP IRSDISTSRT #DECL ("VALUE" <LIST ANY>
LIST)] 4505>> 

<SETG IRSDISTPRT %<RSUBR-ENTRY '[IRSUSR-GRP IRSDISTPRT #DECL ("VALUE" <LIST LIST
FIX> <LIST LIST FIX>)] 4549>> 

<SETG IRSDISTPRTH %<RSUBR-ENTRY '[IRSUSR-GRP IRSDISTPRTH #DECL ("VALUE" <OR ATOM
FALSE> <LIST LIST FIX> "OPTIONAL" FIX CHARACTER)] 4642>> 

<ENDPACKAGE>