landpush.c

Go to the documentation of this file.
00001 
00002 /*  $Id: landpush.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 "frontier.h"
00029 #include "standard.h"
00030 
00031 #include "landinternal.h"
00032 
00033 
00034 
00035 pascal boolean landpushparam (hdlverbrecord hverb, typaramtype type, Handle hval, void *pval, long len, typaramkeyword key) {
00036     
00037     /*
00038     2.1b3 dmb: no more typaramrecords
00039     */
00040     
00041     register hdlverbrecord hv = hverb;
00042     AppleEvent event, reply;
00043     AERecord *evt;
00044     
00045     landsystem7geteventrecords (hv, &event, &reply);
00046     
00047     if ((**hv).verbtoken == returntoken)
00048         evt = &reply;
00049     else
00050         evt = &event;
00051     
00052     if (!landsystem7pushparam (evt, type, hval, pval, len, key))
00053         return (false);
00054     
00055     (**hv).ctparams++; /*added room for another param*/
00056     
00057     return (true);
00058     } /*landpushparam*/
00059 
00060     
00061 pascal boolean landpushintparam (hdlverbrecord hverb, short x, typaramkeyword key) {
00062     
00063     return (landpushparam (hverb, inttype, nil, &x, longsizeof (x), key));
00064     } /*landpushintparam*/
00065     
00066     
00067 pascal boolean landpushlongparam (hdlverbrecord hverb, long x, typaramkeyword key) {
00068     
00069     return (landpushparam (hverb, longtype, nil, &x, longsizeof (x), key));
00070     } /*landpushlongparam*/
00071 
00072 
00073 pascal boolean landpushstringparam (hdlverbrecord hverb, bigstring bs, typaramkeyword key) {
00074     
00075     return (landpushparam (hverb, texttype, nil, bs + 1, stringlength (bs), key));
00076     } /*landpushstringparam*/
00077 
00078 
00079 
00080 

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