Menu
▾
▴
[frontierkernel-commits] Frontier/Common/UserLandIACToolkit land.c,1.4.6.1,1.4.6.2,pre_int64_branch landops.c,1.3,1.3.6.1,pre_int64_branch landpush.c,1.3,1.3.6.1,pre_int64_branch landsystem7.c,1.6.6.1,1.6.6.2,pre_int64_branch
Update of /cvsroot/frontierkernel/Frontier/Common/UserLandIACToolkit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2899/Common/UserLandIACToolkit Modified Files: Tag: pre_int64_branch land.c landops.c landpush.c landsystem7.c Log Message: long overdue commit update Index: landpush.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/UserLandIACToolkit/landpush.c,v retrieving revision 1.3 retrieving revision 1.3.6.1 diff -C2 -d -r1.3 -r1.3.6.1 *** landpush.c 11 Jan 2005 22:47:59 -0000 1.3 --- landpush.c 10 Mar 2006 22:26:57 -0000 1.3.6.1 *************** *** 33,38 **** ! pascal boolean landpushparam (hdlverbrecord hverb, typaramtype type, Handle hval, void *pval, long len, typaramkeyword key) { ! /* 2.1b3 dmb: no more typaramrecords --- 33,45 ---- ! pascal boolean ! landpushparam ( ! hdlverbrecord hverb, ! typaramtype type, ! Handle hval, ! void *pval, ! long len, ! typaramkeyword key) ! { /* 2.1b3 dmb: no more typaramrecords Index: landsystem7.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/UserLandIACToolkit/landsystem7.c,v retrieving revision 1.6.6.1 retrieving revision 1.6.6.2 diff -C2 -d -r1.6.6.1 -r1.6.6.2 *** landsystem7.c 31 Jan 2006 16:41:41 -0000 1.6.6.1 --- landsystem7.c 10 Mar 2006 22:26:57 -0000 1.6.6.2 *************** *** 478,498 **** ! #if !TARGET_RT_MAC_CFM ! #define landbrowserfilterUPP (&landbrowserfilter) ! #else ! static RoutineDescriptor landbrowserfilterDesc = BUILD_ROUTINE_DESCRIPTOR (uppPPCFilterProcInfo, landbrowserfilter); [...1813 lines suppressed...] ! #if TARGET_API_MAC_CARBON == 1 ! AEInstallCoercionHandler ( ! 'itxt', ! 'TEXT', ! (AECoercionHandlerUPP) NewAECoercePtrUPP (whyinternational), ! 0, ! false, ! false); ! #else ! AEInstallCoercionHandler ( ! 'itxt', ! 'TEXT', ! (AECoercionHandlerUPP) NewAECoercePtrProc (whyinternational), ! 0, ! false, ! false); ! #endif return (true); ! } /*landsystem7init*/ Index: land.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/UserLandIACToolkit/land.c,v retrieving revision 1.4.6.1 retrieving revision 1.4.6.2 diff -C2 -d -r1.4.6.1 -r1.4.6.2 *** land.c 31 Jan 2006 16:41:41 -0000 1.4.6.1 --- land.c 10 Mar 2006 22:26:57 -0000 1.4.6.2 *************** *** 72,80 **** //Code change by Timothy Paustian Monday, June 26, 2000 3:19:32 PM // ! #if TARGET_API_MAC_CARBON == 1 (*x).savezone = LMGetApplZone(); ! #else (*x).savezone = GetZone (); ! #endif (*x).saveresfile = CurResFile (); --- 72,80 ---- //Code change by Timothy Paustian Monday, June 26, 2000 3:19:32 PM // ! #if TARGET_API_MAC_CARBON == 1 (*x).savezone = LMGetApplZone(); ! #else (*x).savezone = GetZone (); ! #endif (*x).saveresfile = CurResFile (); *************** *** 82,97 **** //I wonder if these calls are needed. Can we get away with //UseResFile and CurResFile ! #if !TARGET_API_MAC_CARBON (*x).savemaphandle = LMGetTopMapHndl (); ! #endif ! #if TARGET_API_MAC_CARBON == 1 LMSetApplZone(landzone); ! #else SetZone (landzone); ! #endif ! #if !TARGET_API_MAC_CARBON LMSetTopMapHndl (landresmap); ! #endif UseResFile (landresfile); --- 82,98 ---- //I wonder if these calls are needed. Can we get away with //UseResFile and CurResFile ! #if !TARGET_API_MAC_CARBON (*x).savemaphandle = LMGetTopMapHndl (); ! #endif ! #if TARGET_API_MAC_CARBON == 1 LMSetApplZone(landzone); ! #else SetZone (landzone); ! #endif ! ! #if !TARGET_API_MAC_CARBON LMSetTopMapHndl (landresmap); ! #endif UseResFile (landresfile); *************** *** 104,118 **** register const tyfastverbcontext *x = savecontext; ! ! #if !TARGET_API_MAC_CARBON LMSetTopMapHndl ((*x).savemaphandle); ! #endif UseResFile ((*x).saveresfile); ! #if TARGET_API_MAC_CARBON == 1 LMSetApplZone((*x).savezone); ! #else SetZone ((*x).savezone); ! #endif } /*landpopfastcontext*/ --- 105,119 ---- register const tyfastverbcontext *x = savecontext; ! ! #if !TARGET_API_MAC_CARBON LMSetTopMapHndl ((*x).savemaphandle); ! #endif UseResFile ((*x).saveresfile); ! #if TARGET_API_MAC_CARBON == 1 LMSetApplZone((*x).savezone); ! #else SetZone ((*x).savezone); ! #endif } /*landpopfastcontext*/ *************** *** 134,151 **** docnote: param now passed by reference for Pascal compatability. */ ! ! #if TARGET_API_MAC_CARBON == 1 ! ! AEDisposeDesc ((AEDesc*) &(*p).desc); ! ! #else ! ! register Handle h; ! ! h = (*p).desc.dataHandle; ! ! landdisposehandle (h); ! ! #endif return (true); --- 135,150 ---- docnote: param now passed by reference for Pascal compatability. */ ! ! #if TARGET_API_MAC_CARBON == 1 ! AEDisposeDesc ((AEDesc*) &(*p).desc); ! #else ! ! register Handle h; ! ! h = (*p).desc.dataHandle; ! ! landdisposehandle (h); ! ! #endif return (true); *************** *** 183,188 **** ! static boolean landsetupnewverb (tyapplicationid idreceiver, tyverbclass class, tyverbtoken token, short ctparams, hdlverbrecord *hverb) { ! /* allocate a new verb record with room for the indicated number of parameters. --- 182,193 ---- ! static boolean ! landsetupnewverb ( ! tyapplicationid idreceiver, ! tyverbclass class, ! tyverbtoken token, ! short ctparams, ! hdlverbrecord *hverb) ! { /* allocate a new verb record with room for the indicated number of parameters. *************** *** 221,226 **** ! pascal boolean landnewverb (tyapplicationid idreceiver, ProcessSerialNumber *psn, tyverbclass class, tyverbtoken token, short ctparams, hdlverbrecord *hverb) { ! /* allocate a new verb record with room for the indicated number of parameters. --- 226,238 ---- ! pascal boolean ! landnewverb ( ! tyapplicationid idreceiver, ! ProcessSerialNumber *psn, ! tyverbclass class, ! tyverbtoken token, ! short ctparams, ! hdlverbrecord *hverb) ! { /* allocate a new verb record with room for the indicated number of parameters. *************** *** 264,269 **** ! pascal boolean landnewnetworkverb (tynetworkaddress *adr, tyverbclass class, tyverbtoken token, short ctparams, hdlverbrecord *hverb) { ! /* 7/15/91 DW: return false on system 6. --- 276,287 ---- ! pascal boolean ! landnewnetworkverb ( ! tynetworkaddress *adr, ! tyverbclass class, ! tyverbtoken token, ! short ctparams, ! hdlverbrecord *hverb) ! { /* 7/15/91 DW: return false on system 6. *************** *** 288,295 **** return (true); } /*landnewnetworkverb*/ - ! pascal boolean landcomplexsend (hdlverbrecord hverb, hdlverbrecord *hresult) { ! /* the low-level send routine. call this directly if you want to look --- 306,316 ---- return (true); } /*landnewnetworkverb*/ ! ! pascal boolean ! landcomplexsend ( ! hdlverbrecord hverb, ! hdlverbrecord *hresult) ! { /* the low-level send routine. call this directly if you want to look *************** *** 321,326 **** ! pascal boolean landsendverb (hdlverbrecord hverb, typaramrecord *result, bigstring bserror, short *iderror) { ! /* the simpler way to send a verb record. we assume there is a single returned --- 342,352 ---- ! pascal boolean ! landsendverb ( ! hdlverbrecord hverb, ! typaramrecord *result, ! bigstring bserror, ! short *iderror) ! { /* the simpler way to send a verb record. we assume there is a single returned *************** *** 419,424 **** ! boolean landhandleverb (hdlverbrecord hverb) { ! /* a jacket for handling verbs -- we catch all those that are implemented by the --- 445,451 ---- ! boolean ! landhandleverb (hdlverbrecord hverb) ! { /* a jacket for handling verbs -- we catch all those that are implemented by the *************** *** 708,720 **** tyapplicationid id; ! #if TARGET_API_MAC_CARBON == 1 landzone = LMGetApplZone(); ! #else landzone = GetZone (); ! #endif ! #if !TARGET_API_MAC_CARBON landresmap = LMGetTopMapHndl (); ! #endif landresfile = CurResFile (); --- 735,747 ---- tyapplicationid id; ! #if TARGET_API_MAC_CARBON == 1 landzone = LMGetApplZone(); ! #else landzone = GetZone (); ! #endif ! #if !TARGET_API_MAC_CARBON landresmap = LMGetTopMapHndl (); ! #endif landresfile = CurResFile (); *************** *** 787,790 **** return (true); } /*landinit*/ - - --- 814,815 ---- Index: landops.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/UserLandIACToolkit/landops.c,v retrieving revision 1.3 retrieving revision 1.3.6.1 diff -C2 -d -r1.3 -r1.3.6.1 *** landops.c 11 Jan 2005 22:47:59 -0000 1.3 --- landops.c 10 Mar 2006 22:26:57 -0000 1.3.6.1 *************** *** 427,442 **** ProcessSerialNumber psn; ProcessInfoRec info; - - #ifdef flnewfeatures - - psn.highLongOfPSN = 0; - - psn.lowLongOfPSN = kCurrentProcess; ! #else ! ! GetCurrentProcess (&psn); ! ! #endif info.processInfoLength = (long) sizeof (info); --- 427,442 ---- ProcessSerialNumber psn; ProcessInfoRec info; ! #ifdef flnewfeatures ! ! psn.highLongOfPSN = 0; ! ! psn.lowLongOfPSN = kCurrentProcess; ! ! #else ! ! GetCurrentProcess (&psn); ! ! #endif info.processInfoLength = (long) sizeof (info); *************** *** 453,457 **** } /*landgetappcreator*/ - - - --- 453,454 ---- |
