Menu
▾
▴
SF.net SVN: frontierkernel: [1369] Frontier/branches/Int64/build_GNU
|
From: <kar...@us...> - 2006-05-09 23:10:58
|
Revision: 1369 Author: karstenw Date: 2006-05-09 16:09:34 -0700 (Tue, 09 May 2006) ViewCVS: http://svn.sourceforge.net/frontierkernel/?rev=1369&view=rev Log Message: ----------- finally step 1 completed. A buggy, mem-leaking V0 of int64 that can do something. More to follow. Modified Paths: -------------- Frontier/branches/Int64/Common/IOAToolkit/ioabutton.c Frontier/branches/Int64/Common/IowaRuntime/Source/iowascript.c Frontier/branches/Int64/Common/SystemHeaders/standard.h Frontier/branches/Int64/Common/UserLandIACToolkit/landgetparam.c Frontier/branches/Int64/Common/headers/claylinelayout.h Frontier/branches/Int64/Common/headers/dialogs.h Frontier/branches/Int64/Common/headers/file.h Frontier/branches/Int64/Common/headers/frontierdefs.h Frontier/branches/Int64/Common/headers/lang.h Frontier/branches/Int64/Common/headers/langinternal.h Frontier/branches/Int64/Common/headers/macconv.h Frontier/branches/Int64/Common/headers/stringdefs.h Frontier/branches/Int64/Common/headers/strings.h Frontier/branches/Int64/Common/headers/versions.h Frontier/branches/Int64/Common/resources/Mac/SHELL.R Frontier/branches/Int64/Common/resources/Mac/kernelverbs.r Frontier/branches/Int64/Common/resources/Win32/WinLand.rc Frontier/branches/Int64/Common/resources/Win32/kernelverbs.rc Frontier/branches/Int64/Common/source/CallMachOFrameWork.c Frontier/branches/Int64/Common/source/OpenTransportNetEvents.c Frontier/branches/Int64/Common/source/WinSockNetEvents.c Frontier/branches/Int64/Common/source/about.c Frontier/branches/Int64/Common/source/bitmaps.c Frontier/branches/Int64/Common/source/cancoon.c Frontier/branches/Int64/Common/source/cancoonwindow.c Frontier/branches/Int64/Common/source/claybrowserstruc.c Frontier/branches/Int64/Common/source/claybrowservalidate.c Frontier/branches/Int64/Common/source/claycallbacks.c Frontier/branches/Int64/Common/source/claylinelayout.c Frontier/branches/Int64/Common/source/command.c Frontier/branches/Int64/Common/source/db.c Frontier/branches/Int64/Common/source/dockmenu.c Frontier/branches/Int64/Common/source/filedialog.c Frontier/branches/Int64/Common/source/filelaunch.c Frontier/branches/Int64/Common/source/filemp3.c Frontier/branches/Int64/Common/source/fileops.c Frontier/branches/Int64/Common/source/fileverbs.c Frontier/branches/Int64/Common/source/findinfile.c Frontier/branches/Int64/Common/source/font.c Frontier/branches/Int64/Common/source/icon.c Frontier/branches/Int64/Common/source/iso8859.c Frontier/branches/Int64/Common/source/langdate.c Frontier/branches/Int64/Common/source/langdll.c Frontier/branches/Int64/Common/source/langexternal.c Frontier/branches/Int64/Common/source/langhash.c Frontier/branches/Int64/Common/source/langhtml.c Frontier/branches/Int64/Common/source/langipc.c Frontier/branches/Int64/Common/source/langlist.c Frontier/branches/Int64/Common/source/langmath.c Frontier/branches/Int64/Common/source/langops.c Frontier/branches/Int64/Common/source/langpack.c Frontier/branches/Int64/Common/source/langquicktime.c Frontier/branches/Int64/Common/source/langregexp.c Frontier/branches/Int64/Common/source/langscan.c Frontier/branches/Int64/Common/source/langstartup.c Frontier/branches/Int64/Common/source/langsystypes.c Frontier/branches/Int64/Common/source/langtree.c Frontier/branches/Int64/Common/source/langvalue.c Frontier/branches/Int64/Common/source/langverbs.c Frontier/branches/Int64/Common/source/langwinipc.c Frontier/branches/Int64/Common/source/langxml.c Frontier/branches/Int64/Common/source/memory.c Frontier/branches/Int64/Common/source/menupack.c Frontier/branches/Int64/Common/source/menuverbs.c Frontier/branches/Int64/Common/source/odbengine.c Frontier/branches/Int64/Common/source/oplangtext.c Frontier/branches/Int64/Common/source/oplist.c Frontier/branches/Int64/Common/source/oppack.c Frontier/branches/Int64/Common/source/oppopup.c Frontier/branches/Int64/Common/source/oprefcon.c Frontier/branches/Int64/Common/source/ops.c Frontier/branches/Int64/Common/source/opstructure.c Frontier/branches/Int64/Common/source/opvalidate.c Frontier/branches/Int64/Common/source/opverbs.c Frontier/branches/Int64/Common/source/opxml.c Frontier/branches/Int64/Common/source/pict.c Frontier/branches/Int64/Common/source/pictverbs.c Frontier/branches/Int64/Common/source/player.c Frontier/branches/Int64/Common/source/popup.c Frontier/branches/Int64/Common/source/process.c Frontier/branches/Int64/Common/source/progressbar.c Frontier/branches/Int64/Common/source/quickdraw.c Frontier/branches/Int64/Common/source/scripts.c Frontier/branches/Int64/Common/source/search.c Frontier/branches/Int64/Common/source/shellfile.c Frontier/branches/Int64/Common/source/shellmenu.c Frontier/branches/Int64/Common/source/shellprint.c Frontier/branches/Int64/Common/source/shellsysverbs.c Frontier/branches/Int64/Common/source/shellverbs.c Frontier/branches/Int64/Common/source/shellwindow.c Frontier/branches/Int64/Common/source/shellwindowverbs.c Frontier/branches/Int64/Common/source/strings.c Frontier/branches/Int64/Common/source/stringverbs.c Frontier/branches/Int64/Common/source/tabledisplay.c Frontier/branches/Int64/Common/source/tableexternal.c Frontier/branches/Int64/Common/source/tableformats.c Frontier/branches/Int64/Common/source/tableops.c Frontier/branches/Int64/Common/source/tablepack.c Frontier/branches/Int64/Common/source/tablepopup.c Frontier/branches/Int64/Common/source/tablestructure.c Frontier/branches/Int64/Common/source/tablevalidate.c Frontier/branches/Int64/Common/source/winregistry.c Frontier/branches/Int64/Common/source/wpengine.c Frontier/branches/Int64/FrontierSDK/Toolkits/IACTools/Source/iacapps.c Frontier/branches/Int64/build_GNU/Makefile Frontier/branches/Int64/build_VC2K3/Frontier.vcproj Added Paths: ----------- Frontier/branches/Int64/Common/headers/byteorder.h Frontier/branches/Int64/build_XCode/Frontier_i64.xcodeproj/ Frontier/branches/Int64/build_XCode/Frontier_i64.xcodeproj/.cvsignore Frontier/branches/Int64/build_XCode/Frontier_i64.xcodeproj/project.pbxproj Property Changed: ---------------- Frontier/branches/Int64/build_VC2K3/Frontier.sln Frontier/branches/Int64/build_VC2K3/Frontier.vcproj Modified: Frontier/branches/Int64/Common/IOAToolkit/ioabutton.c =================================================================== --- Frontier/branches/Int64/Common/IOAToolkit/ioabutton.c 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/IOAToolkit/ioabutton.c 2006-05-09 23:09:34 UTC (rev 1369) @@ -136,7 +136,7 @@ GetThemeFont (kThemePushButtonFont, smSystemScript, fontname, &fontsize, &fontstyle); - fontgetnumber (fontname, &idfont); + fontgetnumber (fontname, (short *)(&idfont)); pushstyle (geneva, 9, bold); Modified: Frontier/branches/Int64/Common/IowaRuntime/Source/iowascript.c =================================================================== --- Frontier/branches/Int64/Common/IowaRuntime/Source/iowascript.c 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/IowaRuntime/Source/iowascript.c 2006-05-09 23:09:34 UTC (rev 1369) @@ -391,7 +391,7 @@ #pragma unused(hscript) setstringlength (errorstring, 0); - + return (true); } /*rungraphicalurl*/ @@ -508,17 +508,16 @@ AEDisposeDesc (&scriptdesc); if (flgetreturn) - { -#if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ - copydatahandle (&resultdesc, hreturns); -#if AEDISPOSAL == 1 - // possible memleak here - AEDisposeDesc(&resultdesc); -#endif -#else - *hreturns = resultdesc.dataHandle; -#endif - } + + #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ + + copydatahandle (&resultdesc, hreturns); + + #else + + *hreturns = resultdesc.dataHandle; + + #endif else AEDisposeDesc (&resultdesc); @@ -535,14 +534,19 @@ ec = OSAScriptError (scriptcomp, kOSAErrorMessage, typeChar, &errordesc); if (ec == noErr) { -#if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ - datahandletostring (&errordesc, errorstring); -#else - texthandletostring (errordesc.dataHandle, errorstring); -#endif - + + #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ + + datahandletostring (&errordesc, errorstring); + + #else + + texthandletostring (errordesc.dataHandle, errorstring); + + #endif + AEDisposeDesc (&errordesc); - } + } else copystring ("\pThe script generated an error, but no message was provided.", errorstring); } Modified: Frontier/branches/Int64/Common/SystemHeaders/standard.h =================================================================== --- Frontier/branches/Int64/Common/SystemHeaders/standard.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/SystemHeaders/standard.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -40,32 +40,6 @@ #include "FastTimes.h" #endif -#ifdef PACKFLIPPED - #define conditionallongswap(x) dolongswap(x) - #define conditionalshortswap(x) doshortswap(x) - #define conditionalenumswap(x) doshortswap(x) - #define disklong(x) dolongswap(x) - #define memlong(x) dolongswap(x) - #define diskshort(x) doshortswap(x) - #define memshort(x) doshortswap(x) - #define disktomemshort(x) shortswap(x) - #define disktomemlong(x) longswap(x) - #define memtodiskshort(x) shortswap(x) - #define memtodisklong(x) longswap(x) -#else - #define conditionallongswap(x) x - #define conditionalshortswap(x) x - #define conditionalenumswap(x) x - #define disklong(x) x - #define memlong(x) x - #define diskshort(x) x - #define memshort(x) x - #define disktomemshort(x) - #define disktomemlong(x) - #define memtodiskshort(x) - #define memtodisklong(x) -#endif - #include "stringdefs.h" /* embedded string definitions */ #ifndef appletdefsinclude @@ -352,6 +326,8 @@ #define lastchar(bs) (bs [stringlength (bs)-1]) #endif +#define BIGSTRING(s) ((unsigned char *)(s)) + #define setemptystring(bs) (setstringlength(bs,0)) #define isemptystring(bs) (stringlength(bs)==0) Modified: Frontier/branches/Int64/Common/UserLandIACToolkit/landgetparam.c =================================================================== --- Frontier/branches/Int64/Common/UserLandIACToolkit/landgetparam.c 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/UserLandIACToolkit/landgetparam.c 2006-05-09 23:09:34 UTC (rev 1369) @@ -111,23 +111,24 @@ if (!landgetparam (hverb, key, inttype, ¶m)) return (false); -#if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ - { + #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ + + { Handle h; - + copydatahandle (&(param.desc), &h); - + *x = **(short **) h; - + disposehandle (h); - } - -#else - - *x = **(short **) param.desc.dataHandle; - -#endif + } + #else + + *x = **(short **) param.desc.dataHandle; + + #endif + landdisposeparamrecord (¶m); return (true); @@ -203,18 +204,16 @@ if (!landgetparam (hverb, key, texttype, ¶m)) return (false); -#if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ + #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ + + copydatahandle (&(param.desc), x); + + #else + + *x = param.desc.dataHandle; + + #endif - copydatahandle (&(param.desc), x); -#if AEDISPOSAL == 1 - // possible memleak here -#endif -#else - - *x = param.desc.dataHandle; - -#endif - return (true); } /*landgettextparam*/ Copied: Frontier/branches/Int64/Common/headers/byteorder.h (from rev 1268, Frontier/trunk/Common/headers/byteorder.h) =================================================================== --- Frontier/branches/Int64/Common/headers/byteorder.h (rev 0) +++ Frontier/branches/Int64/Common/headers/byteorder.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -0,0 +1,162 @@ + +/* $Id$ */ + +/****************************************************************************** + + UserLand Frontier(tm) -- High performance Web content management, + object database, system-level and Internet scripting environment, + including source code editing and debugging. + + Copyright (C) 1992-2004 UserLand Software, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + +******************************************************************************/ + +#ifndef byteorderinclude +#define byteorderinclude + +/* + 2006-04-08 aradke: determine native byte order and define byte swapping macros +*/ + +#if (defined(WIN32) || defined(__i386) || defined(__i386__)) && !defined(__LITTLE_ENDIAN__) + #define __LITTLE_ENDIAN__ 1 +#endif + + +#if defined(__LITTLE_ENDIAN__) && ((__LITTLE_ENDIAN__ == 1) || !defined (__BIG_ENDIAN__)) + + #define SWAP_BYTE_ORDER 1 + + #define conditionallongswap(x) dolongswap(x) + #define conditionalshortswap(x) doshortswap(x) + #define conditionalenumswap(x) doshortswap(x) + #define disklong(x) dolongswap(x) + #define memlong(x) dolongswap(x) + #define diskshort(x) doshortswap(x) + #define memshort(x) doshortswap(x) + #define disktomemshort(x) shortswap(x) + #define disktomemlong(x) longswap(x) + #define memtodiskshort(x) shortswap(x) + #define memtodisklong(x) longswap(x) + +#elif defined(__BIG_ENDIAN__) && ((__BIG_ENDIAN__ == 1) || !defined (__LITTLE_ENDIAN__)) + + #undef SWAP_BYTE_ORDER + + #define conditionallongswap(x) x + #define conditionalshortswap(x) x + #define conditionalenumswap(x) x + #define disklong(x) x + #define memlong(x) x + #define diskshort(x) x + #define memshort(x) x + #define disktomemshort(x) + #define disktomemlong(x) + #define memtodiskshort(x) + #define memtodisklong(x) + +#else + + #error "Couldn't determine byte order of target architecture, update osincludes.h" + +#endif + + +#define longswap(foo) do {foo = dolongswap(foo);} while (0) +#define shortswap(foo) do {foo = doshortswap(foo);} while (0) + + +#if (defined(TARGET_API_MAC_CARBON) && (TARGET_API_MAC_CARBON == 1) && defined(__GNUC__)) + + /* using system sdk functions from CFByteOrder.h */ + + #define dolongswap(foo) CFSwapInt32(foo) + #define doshortswap(foo) CFSwapInt16(foo) + +#elif (defined(__i386__) && defined(__GNUC__)) + + /* using AT&T x86 assembly code syntax */ + + inline long dolongswap (long foo) { + + __asm__("mov foo,%eax\nbswap %eax\nmov %eax,foo\n"); + + return (foo); + } /*dolongswap*/ + + inline short doshortswap (short foo) { + + __asm__("mov foo,%ax\n mov %al,%bh\nmov %ah,%bl\nmov %bx,foo"); + + return (foo); + } /*doshortswap*/ + +#elif defined(WIN32) + + /* using Intel x86 assembly code syntax */ + + __inline long dolongswap (long foo) { + + _asm + { + mov eax,foo + bswap eax + mov foo,eax + } + + return (foo); + } /*dolongswap*/ + + __inline short doshortswap (short foo) { + + _asm + { + mov ax,foo + mov bh,al + mov bl,ah + mov foo,bx + } + + return (foo); + } /*doshortswap*/ + +#else + + /* portable code using only C operators */ + + inline long dolongswap (long foo) { + + foo = ((((foo) >> 24) & 0x000000ff) + | (((foo) & 0x00ff0000) >> 8) + | (((foo) & 0x0000ff00) << 8) + | (((foo) & 0x000000ff) << 24)); + + return (foo); + } /*dolongswap*/ + + inline short doshortswap (short foo) { + + foo = ((((foo) >> 8) & 0x00ff) + | (((foo) << 8) & 0xff00)); + + return (foo); + } /*doshortswap*/ + +#endif + + +#endif /* byteorderinclude */ Modified: Frontier/branches/Int64/Common/headers/claylinelayout.h =================================================================== --- Frontier/branches/Int64/Common/headers/claylinelayout.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/headers/claylinelayout.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -79,24 +79,24 @@ } tycomputedlineinfo; -#define str_claydisplay ("\x0b" "claydisplay") -#define str_realicons ("\x09" "realicons") -#define str_filenamebold ("\x0c" "filenamebold") -#define str_includeline2 ("\x0c" "includeline2") -#define str_includedate ("\x0b" "includedate") -#define str_includeframe ("\x0c" "includeframe") -#define str_iconsize ("\x08" "iconsize") -#define str_fillcolor ("\x09" "fillcolor") -#define str_framecolor ("\x0a" "framecolor") -#define str_cursorcolor ("\x0b" "cursorcolor") -#define str_filenamecolor ("\x0d" "filenamecolor") -#define str_othertextcolor ("\x0e" "othertextcolor") -#define str_backcolor ("\x09" "backcolor") -#define str_statuscolor ("\x0b" "statuscolor") -#define str_filenamefont ("\x0c" "filenamefont") -#define str_othertextfont ("\x0d" "othertextfont") -#define str_filenamefontsize ("\x10" "filenamefontsize") -#define str_othertextfontsize ("\x11" "othertextfontsize") +#define str_claydisplay (BIGSTRING ("\x0b" "claydisplay")) +#define str_realicons (BIGSTRING ("\x09" "realicons")) +#define str_filenamebold (BIGSTRING ("\x0c" "filenamebold")) +#define str_includeline2 (BIGSTRING ("\x0c" "includeline2")) +#define str_includedate (BIGSTRING ("\x0b" "includedate")) +#define str_includeframe (BIGSTRING ("\x0c" "includeframe")) +#define str_iconsize (BIGSTRING ("\x08" "iconsize")) +#define str_fillcolor (BIGSTRING ("\x09" "fillcolor")) +#define str_framecolor (BIGSTRING ("\x0a" "framecolor")) +#define str_cursorcolor (BIGSTRING ("\x0b" "cursorcolor")) +#define str_filenamecolor (BIGSTRING ("\x0d" "filenamecolor")) +#define str_othertextcolor (BIGSTRING ("\x0e" "othertextcolor")) +#define str_backcolor (BIGSTRING ("\x09" "backcolor")) +#define str_statuscolor (BIGSTRING ("\x0b" "statuscolor")) +#define str_filenamefont (BIGSTRING ("\x0c" "filenamefont")) +#define str_othertextfont (BIGSTRING ("\x0d" "othertextfont")) +#define str_filenamefontsize (BIGSTRING ("\x10" "filenamefontsize")) +#define str_othertextfontsize (BIGSTRING ("\x11" "othertextfontsize")) extern void claybrowserinitdraw (void); @@ -146,4 +146,4 @@ #endif -#endif \ No newline at end of file +#endif Modified: Frontier/branches/Int64/Common/headers/dialogs.h =================================================================== --- Frontier/branches/Int64/Common/headers/dialogs.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/headers/dialogs.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -96,15 +96,15 @@ /* dialog button text */ #ifdef MACVERSION - #define cancelbuttontext "\x06" "Cancel" - #define duplicatebuttontext "\x09" "Duplicate" - #define replacebuttontext "\x07" "Replace" + #define cancelbuttontext BIGSTRING ("\x06" "Cancel") + #define duplicatebuttontext BIGSTRING ("\x09" "Duplicate") + #define replacebuttontext BIGSTRING ("\x07" "Replace") #endif #ifdef WIN95VERSION - #define cancelbuttontext "\x07" "&Cancel" - #define duplicatebuttontext "\x0a" "&Duplicate" - #define replacebuttontext "\x08" "&Replace" + #define cancelbuttontext BIGSTRING ("\x07" "&Cancel") + #define duplicatebuttontext BIGSTRING ("\x0a" "&Duplicate") + #define replacebuttontext BIGSTRING ("\x08" "&Replace") #endif Modified: Frontier/branches/Int64/Common/headers/file.h =================================================================== --- Frontier/branches/Int64/Common/headers/file.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/headers/file.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -411,6 +411,8 @@ extern boolean fifreadhandle (const tyfilespec *, long, Handle *); +extern boolean fifreadfile (const tyfilespec *fs, Handle *x); /* 2006-04-11 aradke */ + extern boolean fifwritehandle (const tyfilespec *, Handle); extern boolean fifsetposition (const tyfilespec *, long); Modified: Frontier/branches/Int64/Common/headers/frontierdefs.h =================================================================== --- Frontier/branches/Int64/Common/headers/frontierdefs.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/headers/frontierdefs.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -34,7 +34,6 @@ #ifdef WIN95VERSION - #define PACKFLIPPED /* enable little endian / big endian conversion for database file functions */ #define FRONTIERCOM 1 #ifndef OPMLEDITOR #define FRONTIERWEB 0 Modified: Frontier/branches/Int64/Common/headers/lang.h =================================================================== --- Frontier/branches/Int64/Common/headers/lang.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/headers/lang.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -247,7 +247,7 @@ aliasvaluetype = 27, - #ifdef flnewfeatures +#ifdef flnewfeatures enumvaluetype = 28, @@ -255,7 +255,7 @@ recordvaluetype = 30, - #endif +#endif /* the following value types, outline - pictvaluetype, are never used directly. @@ -277,7 +277,7 @@ pictvaluetype, - #ifdef xmlfeatures +#ifdef xmlfeatures xmlvaluetype, #endif @@ -312,21 +312,21 @@ typedef union tyvaluedata { - boolean flvalue; - byte chvalue; - short intvalue; - long longvalue; - unsigned long datevalue; + boolean flvalue; + byte chvalue; + short intvalue; + long longvalue; + unsigned long datevalue; #ifdef MACVERSION - tydirection dirvalue; + tydirection dirvalue; #endif #ifdef WIN95VERSION - byte dirvalue; + byte dirvalue; #endif - OSType ostypevalue; - Handle stringvalue; + OSType ostypevalue; + Handle stringvalue; /* Handle passwordvalue; @@ -359,6 +359,11 @@ dbaddress diskvalue; /*4.0.2b1 dmb*/ #if LONGINT_LONGDATE == 1 + // shouldn't this better be a Handle? + // on third (as first) thought, NO! +// Handle longlongintvalue; +// Handle longdatevalue; + tylonglongint **longlongintvalue; tylonglongint **longdatevalue; #endif @@ -1060,6 +1065,12 @@ extern boolean setlongdatevalue (Handle x, tyvaluerecord *val); extern boolean coercetolonglong (tyvaluerecord *v); + +extern boolean getlonglongintparam(hdltreenode hfirst, short pnum, tyvaluerecord *v); + +extern boolean getlonglongintvalue (hdltreenode hfirst, short pnum, tylonglongint *lval); + + #endif extern boolean setdatevalue (unsigned long, tyvaluerecord *); Modified: Frontier/branches/Int64/Common/headers/langinternal.h =================================================================== --- Frontier/branches/Int64/Common/headers/langinternal.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/headers/langinternal.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -219,16 +219,16 @@ } tystackid; -#define machinePPC "\x07" "PowerPC" -#define machine68K "\x03" "68K" -#define machinex86 "\x03" "x86" +#define machinePPC BIGSTRING ("\x07" "PowerPC") +#define machine68K BIGSTRING ("\x03" "68K") +#define machinex86 BIGSTRING ("\x03" "x86") -#define osMacOS "\x05" "MacOS" -#define osWin95 "\x05" "Win95" -#define osWinNT "\x05" "WinNT" +#define osMacOS BIGSTRING ("\x05" "MacOS") +#define osWin95 BIGSTRING ("\x05" "Win95") +#define osWinNT BIGSTRING ("\x05" "WinNT") //Code change by Timothy Paustian Tuesday, July 11, 2000 9:42:50 PM //Add a const to return for the carbon OS -#define osCarbon "\x05" "MacCn" +#define osCarbon BIGSTRING ("\x05" "MacCn") typedef boolean (*langtreevisitcallback) (hdltreenode, ptrvoid); Modified: Frontier/branches/Int64/Common/headers/macconv.h =================================================================== --- Frontier/branches/Int64/Common/headers/macconv.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/headers/macconv.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -87,60 +87,6 @@ #define HiWord(x) HIWORD(x) -static long dolongswap(long foo) - { -#if defined(__i386__) && defined(__GNUC__) - /* - 10.0a5 - TRT - 29 Dec 2004 - GNU by default uses the AT&T assembly code syntax; - MSC/MWERKS uses the Intel assembly code syntax; - some versions of 'gcc' accept -masm=att|intel to - specify which syntax to use; but for those that don't... - */ - __asm__("mov foo,%eax\nbswap %eax\nmov %eax,foo\n"); -#elif defined(__powerpc__) && defined(__GNUC__) - foo = Endian32_Swap(foo); -#else - _asm - { - mov eax,foo - bswap eax - mov foo,eax - } -#endif - return (foo); - } - -static short doshortswap(short foo) - { -#if defined(__i386__) && defined(__GNUC__) - /* - 10.0a5 - TRT - 29 Dec 2004 - GNU by default uses the AT&T assembly code syntax; - MSC/MWERKS uses the Intel assembly code syntax; - some versions of 'gcc' accept -masm=att|intel to - specify which syntax to use; but for those that don't... - */ - __asm__("mov foo,%ax\n mov %al,%bh\nmov %ah,%bl\nmov %bx,foo"); -#elif defined(__powerpc__) && defined(__GNUC__) - foo = Endian16_Swap(foo); -#else - _asm - { - mov ax,foo - mov bh,al - mov bl,ah - mov foo,bx - } -#endif - return (foo); - } - -#define longswap(foo) do {foo = dolongswap(foo);} while (0) - -#define shortswap(foo) do {foo = doshortswap(foo);} while (0) - - enum { /* Apple event descriptor types */ typeBoolean = 'bool', Modified: Frontier/branches/Int64/Common/headers/stringdefs.h =================================================================== --- Frontier/branches/Int64/Common/headers/stringdefs.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/headers/stringdefs.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -29,76 +29,78 @@ - #define STR_Cant_delete_XXX_because_it_hasnt_been_defined "\x31" "Can't delete \"^0\" because it hasn't been defined." - #define STR_The_name_XXX_hasnt_been_defined "\x22" "The name \"^0\" hasn't been defined." - #define STR_Address_value_doesnt_refer_to_a_valid_table "\x2d" "Address value doesn't refer to a valid table." + #define STR_Cant_delete_XXX_because_it_hasnt_been_defined BIGSTRING ("\x31" "Can't delete \"^0\" because it hasn't been defined.") + #define STR_The_name_XXX_hasnt_been_defined BIGSTRING ("\x22" "The name \"^0\" hasn't been defined.") + #define STR_Address_value_doesnt_refer_to_a_valid_table BIGSTRING ("\x2d" "Address value doesn't refer to a valid table.") - #define STR_Assertion "\x5e" "Assertion failed in file ^1, at line ^2. Probably no big deal, but please tell Doug. Thanks!" + #define STR_Assertion BIGSTRING ("\x5e" "Assertion failed in file ^1, at line ^2. Probably no big deal, but please tell Doug. Thanks!") - #define STR_unknown "\x07" "unknown" - #define STR_char "\x04" "char" - #define STR_int "\x03" "int" - #define STR_long "\x04" "long" - #define STR_unused1 "\x07" "unused1" - #define STR_binary "\x06" "binary" - #define STR_boolean "\x07" "boolean" - #define STR_token "\x05" "token" - #define STR_date "\x04" "date" - #define STR_address "\x07" "address" - #define STR_compiled_code "\x0d" "compiled code" - #define STR_string "\x06" "string" - #define STR_external "\x08" "external" - #define STR_direction "\x09" "direction" - #define STR_unused2 "\x07" "unused2" - #define STR_string4 "\x07" "string4" - #define STR_unused3 "\x07" "unused3" - #define STR_point "\x05" "point" - #define STR_rect "\x04" "rect" - #define STR_pattern "\x07" "pattern" - #define STR_rgb "\x03" "rgb" - #define STR_fixed "\x05" "fixed" - #define STR_single "\x06" "single" - #define STR_double "\x06" "double" - #define STR_objspec "\x07" "objspec" - #define STR_filespec "\x08" "filespec" - #define STR_alias "\x05" "alias" - #define STR_enumerator "\x0a" "enumerator" - #define STR_list "\x04" "list" - #define STR_record "\x06" "record" - #define STR_outline "\x07" "outline" - #define STR_wptext "\x06" "wptext" - #define STR_interface "\x09" "interface" - #define STR_headline "\x08" "headline" - #define STR_table "\x05" "table" - #define STR_script "\x06" "script" + #define STR_unknown BIGSTRING ("\x07" "unknown") + #define STR_char BIGSTRING ("\x04" "char") + #define STR_int BIGSTRING ("\x03" "int") + #define STR_long BIGSTRING ("\x04" "long") + #define STR_unused1 BIGSTRING ("\x07" "unused1") + #define STR_binary BIGSTRING ("\x06" "binary") + #define STR_boolean BIGSTRING ("\x07" "boolean") + #define STR_token BIGSTRING ("\x05" "token") + #define STR_date BIGSTRING ("\x04" "date") + #define STR_address BIGSTRING ("\x07" "address") + #define STR_compiled_code BIGSTRING ("\x0d" "compiled code") + #define STR_string BIGSTRING ("\x06" "string") + #define STR_external BIGSTRING ("\x08" "external") + #define STR_direction BIGSTRING ("\x09" "direction") + #define STR_unused2 BIGSTRING ("\x07" "unused2") + #define STR_string4 BIGSTRING ("\x07" "string4") + #define STR_unused3 BIGSTRING ("\x07" "unused3") + #define STR_point BIGSTRING ("\x05" "point") + #define STR_rect BIGSTRING ("\x04" "rect") + #define STR_pattern BIGSTRING ("\x07" "pattern") + #define STR_rgb BIGSTRING ("\x03" "rgb") + #define STR_fixed BIGSTRING ("\x05" "fixed") + #define STR_single BIGSTRING ("\x06" "single") + #define STR_double BIGSTRING ("\x06" "double") + #define STR_objspec BIGSTRING ("\x07" "objspec") + #define STR_filespec BIGSTRING ("\x08" "filespec") + #define STR_alias BIGSTRING ("\x05" "alias") + #define STR_enumerator BIGSTRING ("\x0a" "enumerator") + #define STR_list BIGSTRING ("\x04" "list") + #define STR_record BIGSTRING ("\x06" "record") + #define STR_outline BIGSTRING ("\x07" "outline") + #define STR_wptext BIGSTRING ("\x06" "wptext") + #define STR_interface BIGSTRING ("\x09" "interface") + #define STR_headline BIGSTRING ("\x08" "headline") + #define STR_table BIGSTRING ("\x05" "table") + #define STR_script BIGSTRING ("\x06" "script") #define STR_menubar "\x07" "menubar" - #define STR_picture "\x07" "picture" + #define STR_picture BIGSTRING ("\x07" "picture") +#if LONGINT_LONGDATE == 1 // kw - 2006-01-30 --- new types added - #define STR_longlong "\x06" "sint64" - #define STR_longdate "\x0c" "longdatetime" + #define STR_longlong BIGSTRING ("\x06" "sint64") + #define STR_longdate BIGSTRING ("\x0c" "longdatetime") +#endif - #define STR_with "\x04" "with" - #define STR_this "\x04" "this" + #define STR_with BIGSTRING ("\x04" "with") + #define STR_this BIGSTRING ("\x04" "this") #define STR_temp "\x04" "temp" #define STR_environment "\x0b" "environment" - #define STR_Stack_overflow "\x0f" "Stack overflow!" + #define STR_Stack_overflow BIGSTRING ("\x0f" "Stack overflow!") - #define STR_too_many_pophashtables "\x16" "too many pophashtables" - #define STR_trying_to_dispose_global_symbol_table "\x26" "trying to dispose global symbol table!" - #define STR_pushpackstack_no_room_on_stack "\x1f" "pushpackstack: no room on stack" - #define STR_poppackstack_nothing_on_stack "\x1e" "poppackstack: nothing on stack" - #define STR_Error_unpacking "\x11" "Error unpacking: " + #define STR_too_many_pophashtables BIGSTRING ("\x16" "too many pophashtables") + #define STR_trying_to_dispose_global_symbol_table BIGSTRING ("\x26" "trying to dispose global symbol table!") + #define STR_pushpackstack_no_room_on_stack BIGSTRING ("\x1f" "pushpackstack: no room on stack") + #define STR_poppackstack_nothing_on_stack BIGSTRING ("\x1e" "poppackstack: nothing on stack") + #define STR_Error_unpacking BIGSTRING ("\x11" "Error unpacking: ") - #define STR_The_version_number_of_this_database_file_is_not_recognized_by_this_version_of_Frontier "\x57" "The version number of this database file is not recognized by this version of Frontier." + #define STR_The_version_number_of_this_database_file_is_not_recognized_by_this_version_of_Frontier BIGSTRING ("\x57" "The version number of this database file is not recognized by this version of Frontier.") - #define STR_move "\x04" "move" - #define STR_copy "\x04" "copy" - #define STR_rename "\x06" "rename" - #define STR_moveandrename "\x0d" "moveandrename" - #define STR_assign "\x06" "assign" - #define STR_nil_table_address__Creating_empty_table "\x2b" "nil table address. (Creating empty table.)" + #define STR_move BIGSTRING ("\x04" "move") + #define STR_copy BIGSTRING ("\x04" "copy") + #define STR_rename BIGSTRING ("\x06" "rename") + #define STR_moveandrename BIGSTRING ("\x0d" "moveandrename") + #define STR_assign BIGSTRING ("\x06" "assign") + #define STR_nil_table_address__Creating_empty_table BIGSTRING ("\x2b" "nil table address. (Creating empty table.)") #define STR_compiler "\x08" "compiler" @@ -122,40 +124,40 @@ #define STR_resume "\x06" "resume" #define STR_shutdown "\x08" "shutdown" #define STR_system "\x06" "system" - #define STR_menus "\x05" "menus" + #define STR_menus BIGSTRING ("\x05" "menus") #define STR_menubars "\x0b" "sharedmenus" #define STR_macintosh "\x09" "macintosh" #define STR_objectmodel "\x0b" "objectmodel" #define STR_else "\x04" "else" - #define STR_File_was_created_by_an_incompatible_version_of_this_program "\x3c" "File was created by an incompatible version of this program." - #define STR_Internal_error_attempted_to_read_a_free_block "\x30" "Internal error: attempted to read a free block." - #define STR_Internal_error_unimplemented_function_call "\x24" "Verb unimplemented on this platform." - #define STR_Internal_error_bad_type_for_temp_data "\x28" "Internal error: bad type for temp data." - #define STR_error "\x05" "error" - #define STR_hash_table "\x0a" "hash table" - #define STR_Stack_overflow_XXX_stack "\x1a" "Stack overflow: ^0 stack." - #define STR_outline_stack_overflow "\x17" "outline stack overflow!" - #define STR_wp_stack_overflow "\x12" "wp stack overflow!" - #define STR_database_stack_overflow "\x18" "database stack overflow!" - #define STR_bad_outline_version_number "\x1a" "bad outline version number" - #define STR_bad_list_version_number "\x17" "bad list version number" - #define STR_ourline_windowopen_inconsistency "\x20" "outline windowopen inconsistency" - #define STR_increase_cteditors "\x24" "increase cteditors in shellprivate.h" - #define STR_failed_to_load_a_button_list "\x1c" "failed to load a button list" - #define STR_globals_stack_overflow "\x17" "globals stack overflow!" - #define STR_increase_maxkeyboardhooks "\x19" "increase maxkeyboardhooks" - #define STR_increase_maxdirtyhooks "\x16" "increase maxdirtyhooks" - #define STR_increase_maxmenuhooks "\x15" "increase maxmenuhooks" - #define STR_increase_maxeventhooks "\x16" "increase maxeventhooks" - #define STR_increase_maxerrorhooks "\x16" "increase maxerrorhooks" - #define STR_increase_maxscraphooks "\x16" "increase maxscraphooks" - #define STR_increase_maxmemoryhooks "\x17" "increase maxmemoryhooks" - #define STR_increase_maxfilehooks "\x15" "increase maxfilehooks" + #define STR_File_was_created_by_an_incompatible_version_of_this_program BIGSTRING ("\x3c" "File was created by an incompatible version of this program.") + #define STR_Internal_error_attempted_to_read_a_free_block BIGSTRING ("\x30" "Internal error: attempted to read a free block.") + #define STR_Internal_error_unimplemented_function_call BIGSTRING ("\x24" "Verb unimplemented on this platform.") + #define STR_Internal_error_bad_type_for_temp_data BIGSTRING ("\x28" "Internal error: bad type for temp data.") + #define STR_error BIGSTRING ("\x05" "error") + #define STR_hash_table BIGSTRING ("\x0a" "hash table") + #define STR_Stack_overflow_XXX_stack BIGSTRING ("\x1a" "Stack overflow: ^0 stack.") + #define STR_outline_stack_overflow BIGSTRING ("\x17" "outline stack overflow!") + #define STR_wp_stack_overflow BIGSTRING ("\x12" "wp stack overflow!") + #define STR_database_stack_overflow BIGSTRING ("\x18" "database stack overflow!") + #define STR_bad_outline_version_number BIGSTRING ("\x1a" "bad outline version number") + #define STR_bad_list_version_number BIGSTRING ("\x17" "bad list version number") + #define STR_ourline_windowopen_inconsistency BIGSTRING ("\x20" "outline windowopen inconsistency") + #define STR_increase_cteditors BIGSTRING ("\x24" "increase cteditors in shellprivate.h") + #define STR_failed_to_load_a_button_list BIGSTRING ("\x1c" "failed to load a button list") + #define STR_globals_stack_overflow BIGSTRING ("\x17" "globals stack overflow!") + #define STR_increase_maxkeyboardhooks BIGSTRING ("\x19" "increase maxkeyboardhooks") + #define STR_increase_maxdirtyhooks BIGSTRING ("\x16" "increase maxdirtyhooks") + #define STR_increase_maxmenuhooks BIGSTRING ("\x15" "increase maxmenuhooks") + #define STR_increase_maxeventhooks BIGSTRING ("\x16" "increase maxeventhooks") + #define STR_increase_maxerrorhooks BIGSTRING ("\x16" "increase maxerrorhooks") + #define STR_increase_maxscraphooks BIGSTRING ("\x16" "increase maxscraphooks") + #define STR_increase_maxmemoryhooks BIGSTRING ("\x17" "increase maxmemoryhooks") + #define STR_increase_maxfilehooks BIGSTRING ("\x15" "increase maxfilehooks") - #define STR_Unknown_error "\x0e" "Unknown error." - #define STR_Mac_OS_Error "\x0e" "Mac OS Error: " + #define STR_Unknown_error BIGSTRING ("\x0e" "Unknown error.") + #define STR_Mac_OS_Error BIGSTRING ("\x0e" "Mac OS Error: ") - #define STR_menuseparator "\x02" "(-" + #define STR_menuseparator BIGSTRING ("\x02" "(-") #define STR_hexprefix "\x02" "0x" Modified: Frontier/branches/Int64/Common/headers/strings.h =================================================================== --- Frontier/branches/Int64/Common/headers/strings.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/headers/strings.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -269,5 +269,9 @@ extern boolean utf8tomacroman (Handle, Handle); /* 2006-02-25 creedon */ +extern boolean convertCharset( Handle, Handle, bigstring, bigstring ); + +extern boolean isTextEncodingAvailable( bigstring ); /* 2006-04-23 smd */ + #endif Modified: Frontier/branches/Int64/Common/headers/versions.h =================================================================== --- Frontier/branches/Int64/Common/headers/versions.h 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/headers/versions.h 2006-05-09 23:09:34 UTC (rev 1369) @@ -42,7 +42,7 @@ /* common strings for all targets */ -#define APP_COPYRIGHT_FROM "1992" +#define APP_COPYRIGHT_FROM "2004" #define APP_COPYRIGHT_TILL "2006" @@ -56,10 +56,10 @@ #define APPNAME "Radio" #define APP_COPYRIGHT_HOLDER "UserLand Software, Inc" - #define bs_APP_NAME "\x05" "Radio" - #define bs_APP_SLOGAN "\x2b" "The power of Web publishing on your desktop" - #define bs_APP_COPYRIGHT "\x23" "\xA9 " APP_COPYRIGHT_FROM "-" APP_COPYRIGHT_TILL " UserLand Software, Inc." - #define bs_APP_URL "\x26" "http://frontierkernel.sourceforge.net/" + #define bs_APP_NAME BIGSTRING ("\x05" "Radio") + #define bs_APP_SLOGAN BIGSTRING ("\x2b" "The power of Web publishing on your desktop") + #define bs_APP_COPYRIGHT BIGSTRING ("\x23" "\xA9 " APP_COPYRIGHT_FROM "-" APP_COPYRIGHT_TILL " UserLand Software, Inc.") + #define bs_APP_URL BIGSTRING ("\x26" "http://frontierkernel.sourceforge.net/") #define APP_MAJOR_VERSION 10 #define APP_MAJOR_VERSION_BCD 0x10 /* major version in BCD notation */ @@ -82,10 +82,10 @@ #define APP_COPYRIGHT_HOLDER "Scripting News, Inc" - #define bs_APP_NAME "\x04" "OPML" - #define bs_APP_SLOGAN "\x25" "Powerful OPML editing on your desktop" - #define bs_APP_COPYRIGHT "\x20" "\xA9 " APP_COPYRIGHT_FROM "-" APP_COPYRIGHT_TILL " Scripting News, Inc." - #define bs_APP_URL "\x18" "http://support.opml.org/" + #define bs_APP_NAME BIGSTRING ("\x04" "OPML") + #define bs_APP_SLOGAN BIGSTRING ("\x25" "Powerful OPML editing on your desktop") + #define bs_APP_COPYRIGHT BIGSTRING ("\x20" "\xA9 " APP_COPYRIGHT_FROM "-" APP_COPYRIGHT_TILL " Scripting News, Inc.") + #define bs_APP_URL BIGSTRING ("\x18" "http://support.opml.org/") #define APP_MAJOR_VERSION 10 #define APP_MAJOR_VERSION_BCD 0x10 /* major version in BCD notation */ @@ -108,10 +108,10 @@ #define APPNAME "Frontier" #define APP_COPYRIGHT_HOLDER "Frontier Kernel Project" - #define bs_APP_NAME "\x08" "Frontier" - #define bs_APP_SLOGAN "\x25" "Powerful cross-platform web scripting" - #define bs_APP_COPYRIGHT "\x23" "\xA9 " APP_COPYRIGHT_FROM "-" APP_COPYRIGHT_TILL " Frontier Kernel Project" - #define bs_APP_URL "\x26" "http://frontierkernel.sourceforge.net/" + #define bs_APP_NAME BIGSTRING ("\x08" "Frontier") + #define bs_APP_SLOGAN BIGSTRING ("\x25" "Powerful cross-platform web scripting") + #define bs_APP_COPYRIGHT BIGSTRING ("\x23" "\xA9 " APP_COPYRIGHT_FROM "-" APP_COPYRIGHT_TILL " Frontier Kernel Project") + #define bs_APP_URL BIGSTRING ("\x26" "http://frontierkernel.sourceforge.net/") #define APP_MAJOR_VERSION 10 #define APP_MAJOR_VERSION_BCD 0x10 /* major version in BCD notation */ @@ -128,6 +128,7 @@ #endif +#define bs_APP_COPYRIGHT2 BIGSTRING ("\x22" "\xA9 1992-2004 UserLand Software, Inc") #define APP_COPYRIGHT APP_COPYRIGHT_FROM "-" APP_COPYRIGHT_TILL " " APP_COPYRIGHT_HOLDER #define APPNAME_SHORT APPNAME /* 2006-02-04 aradke */ Modified: Frontier/branches/Int64/Common/resources/Mac/SHELL.R =================================================================== --- Frontier/branches/Int64/Common/resources/Mac/SHELL.R 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/resources/Mac/SHELL.R 2006-05-09 23:09:34 UTC (rev 1369) @@ -4017,7 +4017,7 @@ plain, //302, 0, /*7.0b50 PBS: the About window has no buttons*/ - {40, 40, 100, 460}, + {40, 40, 114, 460}, }; resource 'cnfg' (138, "quick script") { Modified: Frontier/branches/Int64/Common/resources/Mac/kernelverbs.r =================================================================== --- Frontier/branches/Int64/Common/resources/Mac/kernelverbs.r 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/resources/Mac/kernelverbs.r 2006-05-09 23:09:34 UTC (rev 1369) @@ -600,7 +600,9 @@ "ansitoutf16", "multipleReplaceAll", "macromantoutf8", // 2006-02-25 creedon - "utf8tomacroman" // 2006-02-25 creedon + "utf8tomacroman", // 2006-02-25 creedon + "convertcharset", /* 2006-04-13 smd */ + "ischarsetavailable" /* 2006-04-23 smd */ } } }; @@ -691,7 +693,8 @@ "getpathchar", "freespaceonvolumedouble", "volumesizedouble", - "getmp3info" + "getmp3info", + "readwholefile" /* 2006-04-11 aradke */ } } }; Modified: Frontier/branches/Int64/Common/resources/Win32/WinLand.rc =================================================================== --- Frontier/branches/Int64/Common/resources/Win32/WinLand.rc 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/resources/Win32/WinLand.rc 2006-05-09 23:09:34 UTC (rev 1369) @@ -2027,7 +2027,7 @@ size12, plain, 0, - 40L, 40L, 460L, 100L + 40L, 40L, 460L, 114L END /*resource 'cnfg' (138, "quick script") {*/ Modified: Frontier/branches/Int64/Common/resources/Win32/kernelverbs.rc =================================================================== --- Frontier/branches/Int64/Common/resources/Win32/kernelverbs.rc 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/resources/Win32/kernelverbs.rc 2006-05-09 23:09:34 UTC (rev 1369) @@ -664,7 +664,8 @@ "getpathchar\0", "freespaceonvolumedouble\0", "volumesizedouble\0", - "getmp3info\0" /*7.0b12 PBS: Andr\xE9's file.getMp3Info verb*/ + "getmp3info\0", /*7.0b12 PBS: Andr\xE9's file.getMp3Info verb*/ + "readwholefile\0" /* 2006-04-11 aradke */ END 1008 /*idrezverbs*/ EFP DISCARDABLE Modified: Frontier/branches/Int64/Common/source/CallMachOFrameWork.c =================================================================== --- Frontier/branches/Int64/Common/source/CallMachOFrameWork.c 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/source/CallMachOFrameWork.c 2006-05-09 23:09:34 UTC (rev 1369) @@ -29,8 +29,8 @@ #include "standard.h" #include "CallMachOFrameWork.h" - + OSStatus LoadFrameworkBundle(CFStringRef framework, CFBundleRef *bundlePtr) /*Adapted from Apple sample code*/ { OSStatus err; @@ -69,7 +69,7 @@ err = coreFoundationUnknownErr; } } - + // Clean up. if (err != noErr && *bundlePtr != nil) { @@ -88,19 +88,19 @@ void *getframeworkfuncptr (CFStringRef framework, CFStringRef functionname) { - + /* - 2005-01-15 aradke: give us the name of a framework and the name of a function - in the framework and we will retrieve a callable pointer to that function. - */ + 2005-01-15 aradke: give us the name of a framework and the name of a function + in the framework and we will retrieve a callable pointer to that function. + */ CFBundleRef bundlePtr; - if (LoadFrameworkBundle (framework, &bundlePtr) != noErr) + if (LoadFrameworkBundle (framework, &bundlePtr) != noErr) return (nil); return (CFBundleGetFunctionPointerForName (bundlePtr, functionname)); - } /*getframeworkfuncptr*/ +} /*getframeworkfuncptr*/ static UInt32 gluetemplate[6] = {0x3D800000, 0x618C0000, 0x800C0000, 0x804C0004, 0x7C0903A6, 0x4E800420}; @@ -108,49 +108,49 @@ void *convertcfmtomachofuncptr (void *cfmfp) { /* - 2004-11-28 aradke: adapted from Apple's CFM_MachO_CFM sample: + 2004-11-28 aradke: adapted from Apple's CFM_MachO_CFM sample: + + http://developer.apple.com/samplecode/CFM_MachO_CFM/CFM_MachO_CFM.html + + allocate a block of cfm glue code with instructions for calling the CFM function. + the caller is responsible for disposal via disposemachofuncptr + */ - http://developer.apple.com/samplecode/CFM_MachO_CFM/CFM_MachO_CFM.html + UInt32 *mfp = (UInt32*) NewPtr (sizeof(gluetemplate)); - allocate a block of cfm glue code with instructions for calling the CFM function. - the caller is responsible for disposal via disposemachofuncptr - */ - - UInt32 *mfp = (UInt32*) NewPtr (sizeof(gluetemplate)); - mfp[0] = gluetemplate[0] | ((UInt32) cfmfp >> 16); mfp[1] = gluetemplate[1] | ((UInt32) cfmfp & 0xFFFF); mfp[2] = gluetemplate[2]; mfp[3] = gluetemplate[3]; mfp[4] = gluetemplate[4]; mfp[5] = gluetemplate[5]; - + MakeDataExecutable (mfp, sizeof(gluetemplate)); - + return ((void *) mfp); - } /*convertcfmtomachofuncptr*/ +} /*convertcfmtomachofuncptr*/ void disposemachofuncptr (void *mfp) { if (mfp != nil) DisposePtr (mfp); - } /*disposemachofuncptr*/ +} /*disposemachofuncptr*/ typedef struct tvectorstruct { ProcPtr procaddr; UInt32 toc; - } tvectorstruct, *tvectorptr; +} tvectorstruct, *tvectorptr; void *convertmachotocfmfuncptr (void *mfp) { /* - 2004-11-28 aradke: allocate a fake TVector and set its procptr entry - to the mach procptr handed to us by the caller. the toc entry can - safely be set to nil since it's ignored in this context. - */ + 2004-11-28 aradke: allocate a fake TVector and set its procptr entry + to the mach procptr handed to us by the caller. the toc entry can + safely be set to nil since it's ignored in this context. + */ tvectorptr cfmfp = (tvectorptr) NewPtr (sizeof(tvectorstruct)); @@ -158,14 +158,14 @@ cfmfp->procaddr = (ProcPtr) mfp; cfmfp->toc = 0; /*ignored*/ - } - + } + return ((void *) cfmfp); - } /*convertmachotocfmfuncptr*/ +} /*convertmachotocfmfuncptr*/ void disposecfmfuncptr (void *cfmfp) { if (cfmfp != nil) DisposePtr (cfmfp); - } /*disposecfmfuncptr*/ +} /*disposecfmfuncptr*/ Modified: Frontier/branches/Int64/Common/source/OpenTransportNetEvents.c =================================================================== --- Frontier/branches/Int64/Common/source/OpenTransportNetEvents.c 2006-05-07 11:58:24 UTC (rev 1368) +++ Frontier/branches/Int64/Common/source/OpenTransportNetEvents.c 2006-05-09 23:09:34 UTC (rev 1369) @@ -134,145 +134,145 @@ static unsigned char * xtierrorstrings [] = { - "", /* 3149 */ - "\x1B" "A Bad address was specified", /* 3150 */ - "\x1A" "A Bad option was specified", /* 3151 */ - "\x19" "Missing access permission", /* 3152 */ - "\x16" "Bad provider reference", /* 3153 */ - "\x18" "No address was specified", /* 3154 */ - "\x1A" "Call issued in wrong state", /* 3155 */ - "\x21" "Sequence specified does not exist", /* 3156 */ - "\x17" "A system error occurred", /* 3157 */ - "\x21" "An event occurred - call OTLook()", /* 3158 */ - "\x27" "An illegal amount of data was specified", /* 3159 */ - "\x1C" "Passed buffer not big enough", /* 3160 */ - "\x1B" "Provider is flow-controlled", /* 3161 */ - "\x1D" "No data available for reading", /* 3162 */ - "\x22" "No disconnect indication available", /* 3163 */ - "\x27" "No Unit Data Error indication available", /* 3164 */ - "\x1D" "A Bad flag value was supplied", /* 3165 */ - "\x27" "No orderly release indication available", /* 3166 */ - "\x18" "Command is not supported", /* 3167 */ - "\x23" "State is changing - try again later", /* 3168 */ - "\x28" "Bad structure type requested for OTAlloc", /* 3169 */ - "\x1A" "Host not found (DNS error)", /* 3170 */ - "\x29" "A Bind to an in-use address with qlen > 0", /* 3171 */ - "\x23" "Address requested is already in use", /* 3172 */ - "\x27" "Accept failed because of pending listen", /* 3173 */ - "\x28" "Tried to accept on incompatible endpoint", /* 3174 */ - "", /* 3175 */ - "", /* 3176 */ - "", /* 3177 */ - "\x26" "An unspecified provider error occurred", /* 3178 */ - "\x24" "A synchronous call at interrupt time", /* 3179 */ - "\x19" "The command was cancelled" /* 3180 */ + BIGSTRING (""), /* 3149 */ + BIGSTRING ("\x1B" "A Bad address was specified"), /* 3150 */ + BIGSTRING ("\x1A" "A Bad option was specified"), /* 3151 */ + BIGSTRING ("\x19" "Missing access permission"), /* 3152 */ + BIGSTRING ("\x16" "Bad provider reference"), /* 3153 */ + BIGSTRING ("\x18" "No address was specified"), /* 3154 */ + BIGSTRING ("\x1A" "Call issued in wrong state"), /* 3155 */ + BIGSTRING ("\x21" "Sequence specified does not exist"), /* 3156 */ + BIGSTRING ("\x17" "A system error occurred"), /* 3157 */ + BIGSTRING ("\x21" "An event occurred - call OTLook()"), /* 3158 */ + BIGSTRING ("\x27" "An illegal amount of data was specified"), /* 3159 */ + BIGSTRING ("\x1C" "Passed buffer not big enough"), /* 3160 */ + BIGSTRING ("\x1B" "Provider is flow-controlled"), /* 3161 */ + BIGSTRING ("\x1D" "No data available for reading"), /* 3162 */ + BIGSTRING ("\x22" "No disconnect indication available"), /* 3163 */ + BIGSTRING ("\x27" "No Unit Data Error indication available"), /* 3164 */ + BIGSTRING ("\x1D" "A Bad flag value was supplied"), /* 3165 */ + BIGSTRING ("\x27" "No orderly release indication available"), /* 3166 */ + BIGSTRING ("\x18" "Command is not supported"), /* 3167 */ + BIGSTRING ("\x23" "State is changing - try again later"), /* 3168 */ + BIGSTRING ("\x28" "Bad structure type requested for OTAlloc"), /* 3169 */ + BIGSTRING ("\x1A" "Host not found (DNS error)"), /* 3170 */ + BIGSTRING ("\x29" "A Bind to an in-use address with qlen > 0"), /* 3171 */ + BIGSTRING ("\x23" "Address requested is already in use"), /* 3172 */ + BIGSTRING ("\x27" "Accept failed because of pending listen"), /* 3173 */ + BIGSTRING ("\x28" "Tried to accept on incompatible endpoint"), /* 3174 */ + BIGSTRING (""), /* 3175 */ + BIGSTRING (""), /* 3176 */ + BIGSTRING (""), /* 3177 */ + BIGSTRING ("\x26" "An unspecified provider error occurred"), /* 3178 */ + BIGSTRING ("\x24" "A synchronous call at interrupt time"), /* 3179 */ + BIGSTRING ("\x19" "The command was cancelled") /* 3180 */ }; #if 0 static unsigned char * dnserrorstrings [5] = { - "", - "\x1b" "Host not found. (DNS error)", /* 1 */ - "\x37" "Non-authoritative host not found. (Temporary DNS error)", /* 2 */ - "\x22" "Non-recoverable error. (DNS error)", /* 3 */ - "\x39" "Valid name, no data record of requested type. (DNS error)", /* 4 */ + BIGSTRING (""), + BIGSTRING ("\x1b" "Host not found. (DNS error)"), /* 1 */ + BIGSTRING ("\x37" "Non-authoritative host not found. (Temporary DNS error)"), /* 2 */ + BIGSTRING ("\x22" "Non-recoverable error. (DNS error)"), /* 3 */ + BIGSTRING ("\x39" "Valid name, no data record of requested type. (DNS error)"), /* 4 */ }; #endif static unsigned char * stdcliberrorstrings [80] = { - "", - "\x1b" "Permission denied", /* 1 */ - "\x37" "No such file or directory", /* 2 */ - "\x22" "No such resource", /* 3 */ - "\x39" "Interrupted system service", /* 4 */ - "\x12" "Input/output error", /* 5 */ - "\x15" "Device not configured", /* 6 */ - "\x16" "Argument list too long", /* 7 */ - "\x11" "Exec format error", /* 8 */ - "\x13" "Bad file descriptor", /* 9 */ - "\x12" "No child processes", /* 10 */ - "\x19" "Resource deadlock avoided", /* 11 */ - "\x16" "Cannot allocate memory", /* 12 */ - "\x11" "Permission denied", /* 13 */ - "\x0b" "Bad address", /* 14 */ - "\x15" "Block device required", /* 15 */ - "\x0b" "Device busy", /* 16 */ - "\x0b" "File exists", /* 17 */ - "\x11" "Cross-device link", /* 18 */ - "\x21" "Operation not supported by device", /* 19 */ - "\x0f" "Not a directory", /* 20 */ - "\x0e" "Is a directory", /* 21 */ - "\x10" "Invalid argument", /* 22 */ - "\x1d" "Too many open files in system", /* 23 */ - "\x15" "Too many open sockets", /* 24 */ - "\x1e" "Inappropriate ioctl for device", /* 25 */ - "\x0e" "Text file busy", /* 26 */ - "\x0e" "File too large", /* 27 */ - "\x17" "No space left on device", /* 28 */ - "\x0d" "Illegal seek", /* 29 */ - "\x15" "Read-only file system", /* 30 */ - "\x0e" "Too many links", /* 31 */ - "\x0b" "Broken pipe", /* 32 */ - "", - "", + BIGSTRING (""), + BIGSTRING ("\x1b" "Permission denied"), /* 1 */ + BIGSTRING ("\x37" "No such file or directory"), /* 2 */ + BIGSTRING ("\x22" "No such resource"), /* 3 */ + BIGSTRING ("\x39" "Interrupted system service"), /* 4 */ + BIGSTRING ("\x12" "Input/output error"), /* 5 */ + BIGSTRING ("\x15" "Device not configured"), /* 6 */ + BIGSTRING ("\x16" "Argument list too long"), /* 7 */ + BIGSTRING ("\x11" "Exec format error"), /* 8 */ + BIGSTRING ("\x13" "Bad file descriptor"), /* 9 */ + BIGSTRING ("\x12" "No child processes"), /* 10 */ + BIGSTRING ("\x19" "Resource deadlock avoided"), /* 11 */ + BIGSTRING ("\x16" "Cannot allocate memory"), /* 12 */ + BIGSTRING ("\x11" "Permission denied"), /* 13 */ + BIGSTRING ("\x0b" "Bad address"), /* 14 */ + BIGSTRING ("\x15" "Block device required"), /* 15 */ + BIGSTRING ("\x0b" "Device busy"), /* 16 */ + BIGSTRING ("\x0b" "File exists"), /* 17 */ + BIGSTRING ("\x11" "Cross-device link"), /* 18 */ + BIGSTRING ("\x21" "Operation not supported by device"), /* 19 */ + BIGSTRING ("\x0f" "Not a directory"), /* 20 */ + BIGSTRING ("\x0e" "Is a directory"), /* 21 */ + BIGSTRING ("\x10" "Invalid argument"), /* 22 */ + BIGSTRING ("\x1d" "Too many open files in system"), /* 23 */ + BIGSTRING ("\x15" "Too many open sockets"), /* 24 */ + BIGSTRING ("\x1e" "Inappropriate ioctl for device"), /* 25 */ + BIGSTRING ("\x0e" "Text file busy"), /* 26 */ + BIGSTRING ("\x0e" "File too large"), /* 27 */ + BIGSTRING ("\x17" "No space left on device"), /* 28 */ + BIGSTRING ("\x0d" "Illegal seek"), /* 29 */ + BIGSTRING ("\x15" "Read-only file system"), /* 30 */ + BIGSTRING ("\x0e" "Too many links"), /* 31 */ + BIGSTRING ("\x0b" "Broken pipe"), /* 32 */ + BIGSTRING (""), + BIGSTRING (""), /* non-blocking and interrupt i/o */ - "\x20" "Resource temporarily unavailable", /* 35 */ + BIGSTRING ("\x20" "Resource temporarily unavailable"), /* 35 */ /* ipc/network software -- argument errors */ - "\x23" "A blocking operation is in progress", /* 36 */ - "\x20" "Operation is already in progress", /* 37 */ + BIGSTRING ("\x23" "A blocking operation is in progress"), /* 36 */ + BIGSTRING ("\x20" "Operation is already in progress"), /* 37 */ /* ipc/network software -- argument errors */ - "\x20" "Socket operation on a non-socket", /* 38 */ - "\x1f" "Destination address is required", /* 39 */ - "\x10" "Message too long", /* 40 */ - "\x1e" "Protocol wrong type for socket", /* 41 */ - "\x16" "Protocol not available", /* 42 */ - "\x16" "Protocol not supported", /* 43 */ - "\x19" "Socket type not supported", /* 44 */ - "\x21" "Operation not supported on socket", /* 45 */ - "\x1d" "Protocol family not supported", /* 46 */ - "\x2f" "Address family not supported by protocol family", /* 47 */ - "\x16" "Address already in use", /* 48 */ - "\x1e" "Can't assign requested address", /* 49 */ + BIGSTRING ("\x20" "Socket operation on a non-socket"), /* 38 */ + BIGSTRING ("\x1f" "Destination address is required"), /* 39 */ + BIGSTRING ("\x10" "Message too long"), /* 40 */ + BIGSTRING ("\x1e" "Protocol wrong type for socket"), /* 41 */ + BIGSTRING ("\x16" "Protocol not available"), /* 42 */ + BIGSTRING ("\x16" "Protocol not supported"), /* 43 */ + BIGSTRING ("\x19" "Socket type not supported"), /* 44 */ + BIGSTRING ("\x21" "Operation not supported on socket"), /* 45 */ + BIGSTRING ("\x1d" "Protocol family not supported"), /* 46 */ + BIGSTRING ("\x2f" "Address family not supported by protocol family"), /* 47 */ + BIGSTRING ("\x16" "Address already in use"), /* 48 */ + BIGSTRING ("\x1e" "Can't assign requested address"), /* 49 */ /* ipc/network software -- operational errors */ - "\x0f" "Network is down", /* 50 */ - "\x16" "Network is unreachable", /* 51 */ - "\x23" "Network dropped connection on reset", /* 52 */ - "\x20" "Software caused connection abort", /* 53 */ - "\x18" "Connection reset by peer", /* 54 */ - "\x19" "No buffer space available", /* 55 */ - "\x1b" "Socket is already connected", /* 56 */ - "\x17" "Socket is not connected", /* 57 */ - "\x20" "Can't send after socket shutdown", /* 58 */ - "\x21" "Too many references: can't splice", /* 59 */ - "\x14" "Connection timed out", /* 60 */ - "\x12" "Connection refused", /* 61 */ + BIGSTRING ("\x0f" "Network is down"), /* 50 */ + BIGSTRING ("\x16" "Network is unreachable"), /* 51 */ + BIGSTRING ("\x23" "Network dropped connection on reset"), /* 52 */ + BIGSTRING ("\x20" "Software caused connection abort"), /* 53 */ + BIGSTRING ("\x18" "Connection reset by peer"), /* 54 */ + BIGSTRING ("\x19" "No buffer space available"), /* 55 */ + BIGSTRING ("\x1b" "Socket is already connected"), /* 56 */ + BIGSTRING ("\x17" "Socket is not connected"), /* 57 */ + BIGSTRING ("\x20" "Can't send after socket shutdown"), /* 58 */ + BIGSTRING ("\x21" "Too many references: can't splice"), /* 59 */ + BIGSTRING ("\x14" "Connection timed out"), /* 60 */ + BIGSTRING ("\x12" "Connection refused"), /* 61 */ - "\x21" "Too many levels of symbolic links", /* 62 */ - "\x12" "File name too long", /* 63 */ + BIGSTRING ("\x21" "Too many levels of symbolic links"), /* 62 */ + BIGSTRING ("\x12" "File name too long"), /* 63 */ - "\x0c" "Host is down", /* 64 */ - "\x10" "No route to host", /* 65 */ - "\x13" "Directory not empty", /* 66 */ - "\x12" "Too many processes", /* 67 */ - "\x0e" "Too many users", /* 68 */ - "\x13" "Disc quota exceeded", /* 69 */ + BIGSTRING ("\x0c" "Host is down"), /* 64 */ + BIGSTRING ("\x10" "No route to host"), /* 65 */ + BIGSTRING ("\x13" "Directory not empty"), /* 66 */ + BIGSTRING ("\x12" "Too many processes"), /* 67 */ + BIGSTRING ("\x0e" "Too many users"), /* 68 */ + BIGSTRING ("\x13" "Disc quota e... [truncated message content] |
