/* ------------------------------------------------------------------------- */ /* ----- fsel_inp.c ----- Ein universeller fsel_(ex)input() Call ----------- */ /* ---------------------- und Routinen fr den Selectric Support ----------- */ /* ------------------------------------------------------------------------- */ /* ----------------------------------------- (c) 1992 by Oliver Scheel ----- */ /* ------------------------------------------------------------------------- */ #include #include #include #include "fsel_inp.h" #define NULL ((void *) 0l); #define FALSE 0 #define TRUE (!FALSE) /* ------------------------------------------------------------------------- */ SLCT_STR *slct = NULL; long *fsel = NULL; SYSHDR *sys_header; /* ----- Cookie Jar -------------------------------------------------------- */ typedef struct { long id, *ptr; } COOKJAR; /* ------------------------------------------------------------------------- */ /* ----- get_cookie -------------------------------------------------------- */ /* ------------------------------------------------------------------------- */ long *get_cookie(long cookie) { long sav; COOKJAR *cookiejar; int i = 0; sav = Super((void *)1L); if(sav == 0L) sav = Super(0L); cookiejar = *((COOKJAR **)0x05a0l); sys_header = *((SYSHDR **)0x04f2L); /* ... wenn wir schonmal super drauf sind */ if(sav != -1L) Super((void *)sav); if(cookiejar) { while(cookiejar[i].id) { if(cookiejar[i].id == cookie) return(cookiejar[i].ptr); i++; } } return(0l); } /* ------------------------------------------------------------------------- */ /* ----- fsel_check -------------------------------------------------------- */ /* ------------------------------------------------------------------------- */ /* ** int fsel_check(void) ** ** Funktion: Prft nach, ob eiϘ2[܀ @v| <[spB.LF̱~+/teP{Uof]Q%}ەUu-ŠSLUԋzk;F0N%L?%U~;BlSY'0xW*ש^u2>g0Hjn[W:tsZ|<3e|ߕIfyzvHaXGu[FI%]!e0&Z8eh7?K.gY hRW5c[ zLOeg9xycZ1+R #:cfe"nJpDO,X |wr§bNqj5ڴV-q-U5K:_,Y3K7*v*ou "WLAº~ Ec%,`ט 5FWq8esk(NWKk'.Q92E7˜<=/>{GOA2$7 =l3) 1F1 xF\+m]/4є!]72ѣۙ4_ʐzr+452[TQc,F=AL[#@/,L錳DHils;wh>1|aޠqQ~0$rq؃82r``>;CNqNvMkJǍmXSἱXɛ/FK9Oꮚ,Cn& ~dxbƓ1^fJ,I$-rv `v5](ʗ;O-;JPلa0e5!.p-9 NgGLJBx~Unإ1wd VtT K;*uZ`4Ǥ$ʫ0}J*]z]{$cɀXX K}gb{5¦3i%4;ZX FT pǟZQ]L-蠄T1 ޤxQoo>Lr^y&R;FhIBLZԵ?hʲ wq2 `Ч-5bBN[kPr(j Voxue__ ) eLS$~ $ Kؒ=

*fΰ+I+RgA(eQ&ٖ rjlzt::^{ Ū|c+.G/N|\qÎ&cEE)իbEI g̡QDZcTzS$ekm6=@ L_=8T(mXtvU92AΉ: Hછ EI -teB k3$ iE髼$!}[etaa^eV pAJy&->':&]l\]⤄`+3h3ugf#` oCbw7e7eY`L ZCf~Z)ܕsy_IWjqOqޅk{>):t# !3~(U!ڂ?a5l)tPxo1 iG,Fs"BNdaN 6-@̩},&yXt K W|a d("=e=ev>ؚ NaIƌ^$b4E -G7AxW2cضdFAvr]̓+ In fEEd6*w|p}Y.|`x >|㊶[ h=.PzuAe^TX :kdcf^,ds$/wme ѠeGg7e[Ad'kv@o l0 `qMn?`( -d2Vۼ|/,ѯN=Yuz28_CŰe2bƀ"S;e7\J`Fpn} OX`Xԏ?ydk,C-h"!A7Pp*CmB9zBdX㇄[F>y+Ȭ0CE譙Yd(Dj[֪xSHVSf@hU"X.+}}}"U|£3ZE=fZ,f0X.Hh ̬m]U\i5݀/_eRnU[kWbtzM3Va