landcallbacks.c

Go to the documentation of this file.
00001 
00002 /*  $Id: landcallbacks.c 355 2005-01-11 22:48:55Z andreradke $    */
00003 
00004 /******************************************************************************
00005 
00006     UserLand Frontier(tm) -- High performance Web content management,
00007     object database, system-level and Internet scripting environment,
00008     including source code editing and debugging.
00009 
00010     Copyright (C) 1992-2004 UserLand Software, Inc.
00011 
00012     This program is free software; you can redistribute it and/or modify
00013     it under the terms of the GNU General Public License as published by
00014     the Free Software Foundation; either version 2 of the License, or
00015     (at your option) any later version.
00016 
00017     This program is distributed in the hope that it will be useful,
00018     but WITHOUT ANY WARRANTY; without even the implied warranty of
00019     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00020     GNU General Public License for more details.
00021 
00022     You should have received a copy of the GNU General Public License
00023     along with this program; if not, write to the Free Software
00024     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00025 
00026 ******************************************************************************/
00027 
00028 #include "landinternal.h"
00029 
00030 
00031 
00032 boolean landnoparamcallback (landcallback cb) {
00033     
00034     if (cb == nil) /*defensive driving*/
00035         return (false);
00036         
00037     #ifdef THINKC
00038     
00039         if (!CallPascalW (cb))
00040             return (false);
00041             
00042     #else
00043     
00044         if (!((tynoparamcallback) *cb) ())
00045             return (false);
00046             
00047     #endif
00048     
00049     return (true);
00050     } /*landnoparamcallback*/
00051 
00052 
00053 boolean landverbrecordcallback (hdlverbrecord hverb, landcallback cb) {
00054     
00055     register boolean fl;
00056     
00057     if (cb == nil) /*defensive driving*/
00058         return (false);
00059         
00060     #ifdef THINKC
00061     
00062         fl = (CallPascalW (hverb, cb) != 0);    
00063         
00064     #else
00065     
00066         fl = ((tyverbrecordcallback) *cb) (hverb);
00067         
00068     #endif
00069     
00070     return (fl);
00071     } /*landverbrecordcallback*/
00072     
00073 
00074 boolean landfilespeccallback (FSSpec *fs, landcallback cb) {
00075     
00076     register boolean fl;
00077     
00078     if (cb == nil) /*defensive driving*/
00079         return (false);
00080         
00081     #ifdef THINKC
00082     
00083         fl = (CallPascalW (fs, cb) != 0);
00084         
00085     #else
00086     
00087         fl = ((tyfilespeccallback) *cb) (fs);
00088         
00089     #endif
00090     
00091     return (fl);
00092     } /*landfilespeccallback*/
00093     
00094 

Generated on Wed May 31 18:19:50 2006 for frontierkernel 10.1.10a by  doxygen 1.4.6