From: walker@twix.unx.sas.com (Doug Walker)
Newsgroups: comp.sys.amiga.programmer
Subject: Here's a SAS/C 6.0 tool...
Date: 9 Oct 92 14:29:03 GMT
Organization: SAS Institute Inc.
Originator: walker@twix.unx.sas.com


Here's a tool for use with SAS/C 6.0.  It's a UNIX-like
front-end to the 6.0 compiler.  Full source code is
included.

This is a UUENCODED .lzh file.

begin 777 ucc.lzh
M(T$M;&@Q+;P```#Y````$FI"&2``#75C8UQ30T]05$E/3E/RWNYS>]B=GH^#
M!P^_R;MWI]6_C03ENUV[&!8Y_7K^I=JUT>#+7H6+T_<6EM)++.IIF\D]8`MA
M>'L2I>+%S3H]:#01YK,=F>R$\Y':QG=78\2\ILM]LBH^:<A.^;`@A<*BB%7*
M)/LM)*1&7S0)R750),>:&D@6+0D[&BI&NNNV5EN$JM-I2=`YU#.E]#@30`.:
M([1`"HA]`2&*NJ)V^/'W/U.<)WU(`9Y$<G_2C_IRYI_0J"#QDJ".EIUHG&WT
M(R8M;&@Q+1T````J````)6I"&2``#75C8UQS;6%K969I;&5#W@'WXG&C0)NO
MWEHP&_^]K/Q]?U]Y`(7\<!H\/7K('0TM;&@Q+=$)````#P``\FI"&2``!W5C
M8UQU8V.O9L9BX]_PQX`QT@!\;&!/6W@'$K@'=8T%]1S"HK86MCAZL+;![<`E
M.0W=_5M*6S9?J]T&NV]!Q\\PXBNLYM)M*.!-S7LR4;-CQN_C`#YGD7"2HA]/
M0'?#*2:Z(Y<#8UBGF%HQ8GV>T=36.ZP9\H;L6G)UDJYZR2\Q4Z+H$HQ:'$O,
M9E*[CG??WXE-U$[FC;"5M5CA519R6:3B(DEU\-ZP?VH0,3H^J:0*DV#1[R`!
M?7Q0\&(+O!\0N:8G$GX82RG\P2DS##3@>7NG'AQDU/KOQE'%`\G35_V$0"XL
M"6`0QC:6;F^S?VC\%00FR:HZAVAYR#O(-4<,*?=P7Z5Z8=;SA6S.?B<V`@(_
MM.?_L]!#]_FH04(!&OH2LT/U97+8(?0S%W7>^$]L+XWOU`M?0[*'/>_52I.\
M37[]O3\2JXG>2#_3*SD1W;SVYRA]KV*Y3V?$VEW1PT[TOPYM:"X@<':=GW^_
M'R[7<MO@@-X/\,2N&)KACE`ZZML!]P@0MA%:1>[GFHHCP']R`MV<V+S0&/O%
M`VO6M!-R[24$NM\9Y,H3:Y<V&N"7\0Y3)_[@/2&:U\D*BHF6A$SP+"9'.Y2A
M@G+%@WP5@'GR:ZI7]+"96MTMSW;D?MUCD;@?N-W)>YB^"?*6!$AW],$L@G80
M;D"`Z`PW\1A4ESRR^,:':%Y@LKXW_(/N!A]#"-8CN.K7##V#QU/\^UM8RF^_
MTRT[G>:7B@!F^>;_0DN'Z4=W6=U@4<.:2?2\M(-5-;2C13+UY!L%:)4@(4[N
MJ(9O\]^`\B.M,.(&X38('\(/#0)2#E-O>B)%QX&&77=6[A4;3(4)1$(_IDB4
MR/"?`:53>T4.!Z4+MA("=X,[DE:O<DW%@OTA97LD-[]:7`[Q8_3MX0;\/QDX
ME@H'[??FEIJ5_"N?2*=6,%F^'J\]FB5MN[(51)]0N-$W3W'V5Y66S>V5U":Q
M(*V3.(?Y^!?S$9$X>^-<O>D+`W7=^S],^G@21U=T@KJ9-G=B$GG0-/^5G]:9
MMQ`@;I-O!7[`%A1ZB.O!U<D\`M@D-LUT9M0,M<INMD27?']97F3N%GGFHM1S
M]I%?PP%FTD:(%63O/"(N[.$B_P&S&/X@!O(!.]%]P?$L/[@5!/?^!2`(0PD9
M$7V\5-E+"PE*Z!*72\X13PA'9B$<<L!'4(1/(0CY6"4W;;$@KX(*EI`5EQ@.
MO#-Z2G=AK3K^@0@I^(?4"%&VHAHMA40UVM,2NO[='^Y@(N>$5"/15I^'^G*I
MU"0A4H$*7@0N0I)5.()4WL$J7W^B%Q9`A!;49Z:!F]M'-65EA',2$?'CY6A\
MY]O'SG7`?/ZALAR`W?C[?`425+>$@'RB._ZH[]*3"/VG'C`S>AI"$;I7<FKJ
M"]]-(AXF94/>GHB9@LG7%#+VN&Z6.+![]!#&:EVA8R]OVI9MXBSW7<6?`OO8
MD%3CQ4(9A8"#3T>(2[N^_$D%+@6!/!VK.&_,]/O/`+U@3=^%WA_^".#R<D:2
M)Y-I<;6"M(%`]J[2!1E)MC#/5&HYM8?J9?Z_%/^'](V?UKFZ32BI>Z<--.1R
M-6%&\(CK=T)L=BU=]'X2I01BIT[(?TN!+V_(EU?!+K--O5&]&H/?<V.,&R.<
M&0Q-,:9%>DKE4^=TE+QCH.=2?V=_[-/.ML[DGK0<]OZPB.-=N8D+S?L<UO*Y
MI^\*_[<_=1@+<SNCQ=$MM!"2'^>;(PQ`*&@[.*?7,X^@OFP^(9>*M6;;.R&S
M>UCCVQ^YC^G5T^$I<R/^*V4F[O+`OBU0U0QO^KM\,T7<O;3[+$B8QVVET/\`
M)!FPKI&TSVE#^%EN*LK`X[9<7X+"N"PK6'Z,N%R19$KX&NNAWE[+RQ'6R+&^
MGC33O]PJ<]+^JN19R'LOCC#YP&[#-;T7IBK>,)_"$LA[1\)"R"[07VM9SDV<
MX[P=M>*&ZN)FQ+_=`6RMD#Z^\)=>\!M>P/_$F;K3&@CV74Z?VG::2W!WF+A=
M%YI*,(4_W:#G>HC-@7044'S3F,7$.9:>UTXL%&5QZ[W4_;45^K)+0G)4PY4F
M5TP6U(]-P_PBWF`W,H5=OM!&<L%2]CC\A3`6L($/XS$@BVG\T_E+C.EV-FIS
M<-:-!'N1Z.OK)N_SD(4)V_M>,]MCLLB5HK="98(1R+ED/=59:6:&N1K%1I^U
M@(UXGI+VWK)?;=Y;4EW%7U/I`IWU$Q94TNL'RED>-#T=JM:Y/SA?NJ>D2CR-
M'`W9G6/9?\`NEM;H]&TR^2K^X"9BQU/S_=2RYVZXZ:F[7]K(<?UD-T"5_Y/5
M(C\:*;9="/]#>DOSSVKK2Y0K&:L:KE&H)LULKR<AY4K7I=,.W@_%/"ASS?Y:
MSOZ(Y3Y+Z:[CK[?E?"O\FZ\V0IYI+D6Z_OS73='APAV6AJ;_!GP,Q!J=KYQ*
MGC=55B_XMH=H@H#OY?2UI).(\&-G",YOQ\]TYC@0"HJ(E3_H#,.+HE[5G7@T
M9E&HZ[VZP6"S9LW/CAWE/:8^7=7>T[)GB_YLY[_ED=GC99#C>8I!.U.[M@CL
M]M4><F[M"FAG</@W</J/.`K_N,/#6`/JG.7:K]^R]-Y_%#%QM:I`I5K=12#%
M9=H__XHWHJ]NUVVO3/-U2S0%5'N_!Z`YF&ZI(;7S(*_`KU=;>R3BPZB)P2SI
M;`WJ]&SX#<-_M.FAJ]<9^`2Z0$??JT.:<+9OZR<R<GWUO+BS#'%VJ,Y=E&OW
MY9/3=DZ?S@+FW37[#&K_)8F_G&._/I@3@G08LN1]-MC7@/11\&'1"#3P+@_\
MLQ-VK];K\"*NJ`_1\RI=C.YINIDBOD8H^5!R-?'!3+S5:2>PASF/\8'PD!S4
M7RG2(<"7#M3J69KYUX=2##)K%7?JUV_,1)A)3$KA2M=5#KCD.?6YEYWDXX:Z
M,E=09GIH&62)];!/4994V<5_ED/F)?1;S$=0>KWM[541)-;Y?=T.ZRA\V;7N
MAZ'@OB4KMR:CKO-5]=5>90/2Z:>G?."*M1(`?I#;J?@;X^+';X[1!3(``["1
MP(-JP(&_VN4-P;6$]HJ'\FQ`'T$O*H*X+0'W+?*O,M]B_4I$&0&$3%#'34@(
M.O-!Q=Y>2"SO9T7)F1P+P/C;[?J\&YW0VMA9E[6$3,/8+5EE@0RPP04S>SNP
MU9@#WKK'S64QFU8+_KK.22UUZAJ!<N**+PBAWK1?^:Q%X1B#$M+\Z4I32E@'
M7.1CP@SVCVBSMBU!WQ+X+WU_LG;;)`9MHO"[>&:P!^9I*JXY<`5H\#IL!H<4
M\`UR#G`%?&#R`#1@`F3X!$;`"$`/RBO0F+@!')8_Q*@F#R8YPG%GO@+?(UP`
M6?FH1??6`GT!5##D4585?J9\7#X0K1N44*'LTF[#`W=N9Q3+)&@.]M`?GZ=^
M'Z0M;&@Q+5L$``"I#0``ZFI"&2``"75C8UQU8V,N8Q'DW>VW.[`$>`,3%RUZ
M]A&+(`#!(?G_O^`O^^OS^@!K-I[]K8[WBUF^J>ZWJ]"Y`;2;Q^W\??XVVZFG
MYM'%G[T2(__"8H9:%'`I7PH,*0\4`8@AXZF+:I_7VOZKYM-(+LY$&R<-/*A_
M9\JQ!.3!B7=C"=PH[9O;[8(ZXMH7A(0Y<+8#AC2+)D76C3%%_G]*>2O7;#Q=
M%-QE^&Z%KK8&\8^.B2Q1`?D<T"N9["9VU-@Y5Q!7B7_LAG(P7N/*(KDA]9*V
M``Z0D6>Z=-A+=A\R+#Z)/VVC'IB:A11;P"6X\N_G:GI=3/9#L('V]@R&U]DW
M%XJ&4(3IX]0-U!#[T?=.(4""UIED\%P1_YZ>X-O[7[Y&D[`9=\B`)<%V?`M,
MHW>*&XY=/7T(?1%@<,`]:"6'ONT@;'VC2#)X*)3CTR?[AKXOB/K7/>G&8V^7
M?X(>PS$;NZJ976</]`;X!BA8/J?]H/@FFMJ]KR9=W^`Y]M,)"?J;(G*_DX,;
M'G+(*+11W1@$>VQ+;D7I7GQ&5',0NJO.P*.F,.0!2MS".9,ERUG?^DOW#NV-
M_+L%!U-/=V7G&>!<RW`!*%7@S7VX`)764#M%K!74J+J)&;,JD:<_%XOQMIXX
M06H)>A]8&FH!!4[7"KQ-OA)$#T1S"'0SJK17C)(3-6B_5N[H0<FVPB0O4.S*
M)JN033#29[4459I_A?\:56@_05W4A\WA].6]O!T6#VI^[_'NW@J=E780>1-M
MA7T4(/)W1'.9XGA]+,UD,22"\@=B,N!MM4UKCL8PR%#'*(:$],VIFW"PU92M
MM\T*(+-MH%U)-;QR+".C\W`FLRKW0+B)&X)*\,,$=4O\%-O9<XE$R2-^$UT4
MC]45(=NA0^R4/=9N9T[M[LS/.D[='MBSZLH2MK.;E`/FP?/$F=4JY8V0$1"W
M@IW2N!&-N!.B^30'QFEC\N!]_"!=>H0K8'=:8J]_@JY<II`$ZZ+NY!`_MRZG
M"6%^>+#F1AC`BV69!2';9?V6Q@TP8Q+QNP35%1WMZ2!L6)AG">TFM"UGSW&G
M7[QPO"5&].2@839;9RP,9V&0Y?@D.H-;2L0EED.L>B'[7:^-G=EIC>I&,D.]
MB(+!(@`&BSVP1R1:\G>3^]X/[`<*OS!&%:[@/<]/V3=LV;/C7=,L)3AEXP7;
MQE4(94C,AE?A43K+UQ/X7*X=:5W"@A$9?NE-O!'^%?*'_%72`9'?*L1R=XZ4
M[*:!L;SW0W*NU'WLL.<PHQ<U6A4%A/&@_>?OIF2&NRM![E'0W2M+R#VI>S1%
M4=L+`"WF,5_R*-[2SJG14^6A$D;8#Y*)W)0"V_+80&8[=O*+KR4V;._(NQ)$
MU`^BA^HN\*O\4V%"91U2I4N<`+^&6W-<B^SIIZMA@#K$`7[+[_FGK)!CF/@Q
MD2CH5LQ`>+CQ$_=S3APLU>`[H)AT$\M'01DL7\%OS5W7NG`).]EW?<B7(`;+
MB:K;OS,$V+>NOYK;K9*DK+EYJN/V:D`AT2UL:#$M)P0``!`(``#<:D(9(``+
M=6-C7'5C8RYD;V,D">?^_X"_[Z_/Z`&LVF+M;S>\6XWUOH8@#?V_'[?Q]_C@
M[BBI8TL*?H[5;=4T\VPE1[U9%7_C/UTC"J@4[X4>6F/!?8$5^&W%BN./R^1^
MIF$N59Q^]J$0LV:A>`U\HWGJ#>"4/W*]ZEU[F:Q,S/.35\8242T@9-Q0TZ69
MJJ)('*EH43ISQ5$=0DF2+LD#Z1*!9$E0Y.`DU0H,4UU)SXC"1-`Y5,?!`UVI
MODV&?HP4_$"`JO!``?>\GR`*N)VK,HY$8';\%.#\YKD7SYQ(XRX\"/',,(/9
MKJ1>XV;D.N>Y$R2`_LOUQI<?MG+P7,9#B%^/]<?P[)Z%^7X&=A5_?T6+=`'K
MZ-:-(1J!_6X`W/=:/_9$7WCF^QNL>TW/KG=<&]7+W,MTV]\\*)'GB6JGR;8W
M[#7H*F?N7XGRMI]B%"37@G71<JZ$NCT4CT]C*J9U_-FV_3R^/R9';/:-.M.U
M^M0=Z$.O>L]\!3G0CV>U+VE7D1'Q*T_4HR-;79F,TI+L\NMW6_1+VM>1N.4X
MYXK+;+;]+/%]+?`0/S_*/TSUVQ)LB_YF5X\FI1FM"A'AX3;PO@R(]5KGBJB\
MO%:D):=*0F0/.&H^F)ZW&2A^7=@_Y'XK%]?T96O+&VX*<072*UE[)\JM7LDU
M[1V1E2S16^`N:'9^4M?I'$QQ\(%*>"[9)"O!`\1>&($1#<7*2U*N+`JL@O82
M]:F/\/P"#&S`7%9SD%:@LWZ%=($;86!AW&:#EZ$N0:'6L#X1;&E<U6095R'D
M_J&-I7,13",34E7!N>(342ZD[>\'4+!FPBF:&8"[N=P!$6]0$8)M)H6*0`Z#
MCB>1Y"5N"S)B\9!7&\/)%_2*\$S]^``D>&I5V_;4H/4T1.GXZ.C_DY_)FC[O
M0/2S(+L=+JP[^EY.SZ`X7:_529@#;QV4$KT-6G;TPX)J7@<J_!;\Q":F;RKR
M(7R>T"%9'#40>YE79(I>;M33\^VGWVH/[YW^Y\LKMS^00X+[P%::_QJF,_H[
MEX)6(%:,%>&>9DEN9YI_T-&2"FQ08HK"S%_=!YLUX?O+M16+FV!I^<1L*.9R
M%+`.$A5+@ZC5S+)_)P?Q795O1::F*V"H_[U4C60H=%]:9W'X&J6D11*8U6KY
MW^>Z_[5F@&YAIV.+@5E=-V6![]+<_\[F"07&5,K\*E-+[4O`<TX!L/@^0M+P
M'L6Q)//^0#?/[^"0N?D=O4:I$1TPYZ8*>?U"G;Z1P&O;_*UV9NO'3V:H6\QQ
M-(_,#F\4"`=W?$^E0:]`DTO\A/-GU:%3O`SA]^QD]A!J>0R8-K(2C`'63&.>
MG0<B(7H)8Q(!Q;P'/7_&+T0R1^)RX#6`'P(%G8AYRKLW*.F#I;BQ3;@B?[0O
J3PZ`E\6VYR6<NZQ@7]93"E*8+4P<>%Y!-]]Y"!E,\TC[+$E!SH,IA.``
`
end
-- 
  *****
=*|_o_o|\\=====Doug Walker, Software Distiller====== BBS: (919)460-7430 =
 *|. o.| ||                                          1200/2400/9600 Dual
  | o  |//     For all you do, this bug's for you!
  ====== 
usenet: walker@unx.sas.com                            bix: djwalker 
Any opinions expressed are mine, not those of SAS Institute, Inc.
Newsgroups: comp.sys.amiga.programmer