[frontierkernel-commits] Frontier/Common/source scripts.c,1.6,1.7,

[creedon <icr...@us...>]

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

Modified Files:
	scripts.c 
Log Message:
enable script.(get/set)Language to minimally function on Windows

Index: scripts.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/scripts.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** scripts.c	8 Feb 2006 20:31:36 -0000	1.6
--- scripts.c	23 Feb 2006 04:53:38 -0000	1.7
***************
*** 4003,4007 ****
  	
  	/*
! 
  
  	visit all OSA servers and find the name of the one who's subtype 
--- 4003,4008 ----
  	
  	/*
! 	2006-02-22 creedon: if flcomponent is false then fallback to hard coded
! 				values, useful on Windows
  
  	visit all OSA servers and find the name of the one who's subtype 
***************
*** 4019,4022 ****
--- 4020,4035 ----
  #ifdef flcomponent
  	scriptvisitservers (&scriptfindsubtypevisit, (long) &cbd);
+ #else
+ 	switch (signature) {
+ 		case typeLAND:
+ 			copystring ("\x08" "UserTalk", bsname);
+ 			break;
+ 
+ 		case 'ascr':
+ 			copystring ("\x0B" "AppleScript", bsname);
+ 			break;
+ 		} /* switch */
+ 
+ 	
  #endif
  	
***************
*** 4043,4047 ****
  	
  	/*
! 	visit all OSA servers and find the subtype of the one who's name 
  	matches bsname
  	*/
--- 4056,4063 ----
  	
  	/*
! 	2006-02-22 creedon: if flcomponent is false then fallback to hard coded
! 				values, useful on Windows
! 
! 	visit all OSA servers and find the subtype of the one who's name
  	matches bsname
  	*/
***************
*** 4061,4065 ****
  	return (cbd.signature != 0);
  #else
! 	return (false);
  #endif
  	} /*scriptgetnametype*/
--- 4077,4090 ----
  	return (cbd.signature != 0);
  #else
! 	if (comparestrings (bsname, "\x08" "UserTalk") == 0) {
! 		*signature = typeLAND;
! 		return (true);
! 	}
! 	else if (comparestrings (bsname, "\x0B" "AppleScript") == 0) {
! 		*signature = 'ascr';
! 		return (true);
! 	}
! 	else
! 		return (false);
  #endif
  	} /*scriptgetnametype*/