[frontierkernel-commits] Frontier/Common/SystemHeaders land.h,1.6,1.6.2.1

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/frontierkernel/Frontier/Common/SystemHeaders
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31854/SystemHeaders

Modified Files:
      Tag: pre_int64_branch
	land.h 
Log Message:
initial checkin from private sandbox

Index: land.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/SystemHeaders/land.h,v
retrieving revision 1.6
retrieving revision 1.6.2.1
diff -C2 -d -r1.6 -r1.6.2.1
*** land.h	11 Sep 2005 02:39:18 -0000	1.6
--- land.h	31 Jan 2006 16:41:41 -0000	1.6.2.1
***************
*** 169,174 ****

  	fsspectype = typeFSS, /*a Macintosh filespec*/
! 	
  	objectspectype = cObjectSpecifier /*a Mac object specifier, for Frontier, not fully supported in Toolkit*/
  	} typaramtype;

--- 169,179 ----

  	fsspectype = typeFSS, /*a Macintosh filespec*/
! 
  	objectspectype = cObjectSpecifier /*a Mac object specifier, for Frontier, not fully supported in Toolkit*/
+ 
+ #if LONGINT_LONGDATE == 1
+ 	,longlonginttype = 'comp',
+ 	 longdatetimetype = 'ldt '
+ #endif
  	} typaramtype;

***************
*** 302,339 ****

  typedef struct tyverbrecord {
! 	
! 	tyverbclass verbclass; /*4-byte class, often same as receiver id*/
! 	
! 	tyverbtoken verbtoken; /*4-byte token, e.g. 'save', 'go  '*/
! 	
! 	tyapplicationid idreceiver; /*signature of the receiver, for outgoing verbs*/
! 	
! 	tyapplicationid idsender; /*signature of the caller, for incoming verbs*/
! 	
! 	long idtransaction; /*for use by caller*/
! 	
! 	Handle transportinfo; /*info the transport layer needs*/
! 	
! 	boolean flverbgetsnoreply : 1; /*set true before landsendverb call*/
! 	
! 	boolean flnextparamisoptional : 1; /*set true before landgetxxxparam call*/
! 	
! 	boolean flverbisdirect: 1; /*set true if verb is to be dispatched directly to code extension*/
! 	
! 	boolean flsystemverb: 1; /*verb was received by a system event handler*/
! 	
! 	Handle hdirectcode; /*for code extension*/
! 	
! 	short ctparams; /*number of items in the params array*/
! 	
! 	#if 0 /*sys6*/
! 	
! 	short nextparam; /*next open slot in the params array*/
! 	
! 	typaramrecord params []; /*variable-length array of parameters*/
! 	
! 	#endif
! 	
! 	long landrefcon; /*for client use*/
  	} tyverbrecord, *ptrverbrecord, **hdlverbrecord;

--- 307,328 ----

  typedef struct tyverbrecord {
! 
! 	tyverbclass verbclass;				/*4-byte class, often same as receiver id*/
! 	tyverbtoken verbtoken;				/*4-byte token, e.g. 'save', 'go  '*/
! 	tyapplicationid idreceiver;			/*signature of the receiver, for outgoing verbs*/
! 	tyapplicationid idsender;			/*signature of the caller, for incoming verbs*/
! 	long idtransaction;					/*for use by caller*/
! 	Handle transportinfo;				/*info the transport layer needs*/
! 	boolean flverbgetsnoreply : 1;		/*set true before landsendverb call*/
! 	boolean flnextparamisoptional : 1;	/*set true before landgetxxxparam call*/
! 	boolean flverbisdirect: 1;			/*set true if verb is to be dispatched directly to code extension*/
! 	boolean flsystemverb: 1;			/*verb was received by a system event handler*/
! 	Handle hdirectcode;					/*for code extension*/
! 	short ctparams;						/*number of items in the params array*/
! #if 0 /*sys6*/
! 	short nextparam;					/*next open slot in the params array*/
! 	typaramrecord params [];			/*variable-length array of parameters*/
! #endif
! 	long landrefcon;					/*for client use*/
  	} tyverbrecord, *ptrverbrecord, **hdlverbrecord;

***************
*** 412,485 ****
  	} tyfastverbcontext;

! 	
  typedef struct tylandglobals {
! 	
! 	boolean flconnected; /*tells us if we can do IAC or not*/
! 	
! 	boolean flacceptanyverb; /*determines whether all verbs are accepted by landhandleverb*/	
! 	
! 	tytransport transport; /*set by landinit, indicates which transport we're using*/
! 	
! 	tyapplicationid applicationid; /*the creator id of the application we're inside of*/
! 	
! 	short iderrorlist; /*resource id of STR# list which holds error messages*/
! 	
! 	hdlverbarray verbarray; /*holds all registered verbs*/
! 	
! 	WindowPtr statswindow; /*if non-nil, the stats window is open*/
! 	
! 	tyverbclass currentclass; /*set by landaddclass*/
! 	
! 	pascal boolean (*handleverbroutine) (hdlverbrecord); /*if non-nil, gets all verbs we don't handle*/
! 	
! 	pascal boolean (*findhandlerroutine) (hdlverbrecord); /*for handling wildcard verbs*/
! 	
! 	landeventrecordcallback breakembraceroutine; /*if non-nil, break a synchronous deadly embrace*/
! 	
! 		/*landcallback menuscriptcompleteroutine; /%if non-nil, callback when script completes*/
! 	
  	/*names that begin with "mac" are inherently NOT cross-platform*/
! 	
! 	landnoparamcallback macopenapproutine; /*system 7 open application event handler*/
! 	
! 	landfilespeccallback macopendocroutine; /*system 7 open document event handler*/
! 	
! 	landfilespeccallback macprintdocroutine; /*system 7 print document event handler*/
! 	
! 	landnoparamcallback macquitapproutine; /*system 7 quit application event handler*/
! 	
! 	tyapplicationid maceventsender; /*id of app that invoked macxxxroutine*/
! 	
! 	tyeventcreatecallback eventcreatecallback; /*for OSA support*/
! 	
! 	tyeventsendcallback eventsendcallback; /*for OSA support*/
! 	
! 	tymacnetglobals macnetglobals; /*info for system 7 network transport*/
! 	
! 	boolean fldirtyruntimemenus; /*program's runtime menus need updating*/
! 	
! 	boolean flscriptcancelled; /*indicate that menu script has been cancelled*/
! 	
! 	long idmenuscript; /*if not 0, Frontier's id for the currently running script*/
! 	
! 	hdlmenuarray hmenuarray; /*we keep a copy of the menuarray data structure*/
! 	
! 	tysystem6processid system6processid; /*the INIT's id for our mailbox*/
! 	
! 	short ipcrefnum; /*for system 6, the refnum of the UserLand INIT driver*/
! 	
! 	Handle hqueue; /*for system 6, queues message that arrive while we're waiting for a response*/
! 	
! 	short maxqueuedepth; /*for stats window -- the longest chain in the system 6 queue*/
! 	
  	/*Handle mactypes; /%for system 7, maps our param types to Apple's*/
! 	
! 	long initialfreemem; /*for stats window -- the amount of memory free after landinit*/
! 	
  	tymaceventsettings eventsettings;
! 	
! 	OSErr landerrorcode; /*error code that caused land call to return false*/
! 	
! 	} tylandglobals, *ptrlandglobals, **hdllandglobals;

--- 401,443 ----
  	} tyfastverbcontext;

! 
  typedef struct tylandglobals {
! 	boolean flconnected;				/*tells us if we can do IAC or not*/
! 	boolean flacceptanyverb;			/*determines whether all verbs are accepted by landhandleverb*/	
! 	tytransport transport;				/*set by landinit, indicates which transport we're using*/
! 	tyapplicationid applicationid;		/*the creator id of the application we're inside of*/
! 	short iderrorlist;					/*resource id of STR# list which holds error messages*/
! 	hdlverbarray verbarray;				/*holds all registered verbs*/
! 	WindowPtr statswindow;				/*if non-nil, the stats window is open*/
! 	tyverbclass currentclass;			/*set by landaddclass*/
! 	pascal boolean (*handleverbroutine) (hdlverbrecord);	/*if non-nil, gets all verbs we don't handle*/
! 	pascal boolean (*findhandlerroutine) (hdlverbrecord);	/*for handling wildcard verbs*/
! 	landeventrecordcallback breakembraceroutine;			/*if non-nil, break a synchronous deadly embrace*/
! 
! 	/*landcallback menuscriptcompleteroutine; /%if non-nil, callback when script completes*/
  	/*names that begin with "mac" are inherently NOT cross-platform*/
! 
! 	landnoparamcallback macopenapproutine;		/*system 7 open application event handler*/
! 	landfilespeccallback macopendocroutine;		/*system 7 open document event handler*/
! 	landfilespeccallback macprintdocroutine;	/*system 7 print document event handler*/
! 	landnoparamcallback macquitapproutine;		/*system 7 quit application event handler*/
! 	tyapplicationid maceventsender;				/*id of app that invoked macxxxroutine*/
! 	tyeventcreatecallback eventcreatecallback;	/*for OSA support*/
! 	tyeventsendcallback eventsendcallback;		/*for OSA support*/
! 	tymacnetglobals macnetglobals;				/*info for system 7 network transport*/
! 	boolean fldirtyruntimemenus;				/*program's runtime menus need updating*/
! 	boolean flscriptcancelled;					/*indicate that menu script has been cancelled*/
! 	long idmenuscript;							/*if not 0, Frontier's id for the currently running script*/
! 	hdlmenuarray hmenuarray;					/*we keep a copy of the menuarray data structure*/
! 	tysystem6processid system6processid;		/*the INIT's id for our mailbox*/
! 	short ipcrefnum;							/*for system 6, the refnum of the UserLand INIT driver*/
! 	Handle hqueue;								/*for system 6, queues message that arrive while we're waiting for a response*/
! 	short maxqueuedepth;						/*for stats window -- the longest chain in the system 6 queue*/
! 
  	/*Handle mactypes; /%for system 7, maps our param types to Apple's*/
! 	long initialfreemem;						/*for stats window -- the amount of memory free after landinit*/
  	tymaceventsettings eventsettings;
! 	OSErr landerrorcode;						/*error code that caused land call to return false*/
! } tylandglobals, *ptrlandglobals, **hdllandglobals;