コード例 #1
0
ファイル: os.cpp プロジェクト: IngwiePhoenix/objectscript
	bool pushLine(bool firstline = false)
	{
		char buf[OS_MAXINPUT];
		if(!readLine(buf, getPrompt(firstline))){
			return false;  /* no input */
		}
		int len = OS_STRLEN(buf);
		for(; len > 0 && OS_IS_SPACE(buf[len-1]); len--){
			buf[len-1] = '\0';
		}
		if(firstline && buf[0] == '='){  /* first line starts with `=' ? */
			OS::String str = OS::String(this, buf+1);
			if(str.isEmpty()){
				return false;
			}
			pushString(OS::String(this, "return ") + str);  /* change it to `return' */
		}else{
			OS::String str = OS::String(this, buf);
			if(str.isEmpty()){
				return false;
			}
			pushString(str);
		}
		// freeLine(b);
		return true;
	}
コード例 #2
0
ファイル: os.cpp プロジェクト: IngwiePhoenix/objectscript
	bool inComplete()
	{
		OS::String str = toString(-1);
		int lmsg = str.getLen();
		const char *msg = str;
		if (lmsg >= marklen && strcmp(msg + lmsg - marklen, EOFMARK) == 0) {
			pop();
			return true;
		}
		return false;
	}
コード例 #3
0
 static int __glutBitmapCharacter(OS * os, int params, int, int, void*)
 {
     if(params >= 2) {
         if(os->getType(-params + 0) == OS_VALUE_TYPE_NUMBER) {
             int std_font = os->toInt(-params + 0);
             glutBitmapCharacter((void*)std_font, os->toInt(-params + 1));
             return 0;
         }
         OS::String str = os->toString(-params + 0);
         glutBitmapCharacter((void*)str.toChar(), os->toInt(-params + 1));
     }
     return 0;
 }
コード例 #4
0
ファイル: manager.cpp プロジェクト: rickcaudill/Pyro
/** Set default video output.
 * \par Description:
 * Sets the default video output.
 * \par Note:
 * Applications will probably never call this.
 *
 * \param zIdentifier - Identifier of the output.
 *
 * \author	Arno Klenke
 *****************************************************************************/
void MediaManager::SetDefaultVideoOutput( os::String zIdentifier )
{
	if( !m->m_bValid )
		return;
	Message cMsg( MEDIA_SERVER_SET_DEFAULT_VIDEO_OUTPUT );
	cMsg.AddString( "output", zIdentifier.str() );
	m->m_cMediaServerLink.SendMessage( &cMsg );
}
コード例 #5
0
ファイル: osbind.cpp プロジェクト: Heimdell/objectscript
bool my_isdigit(const OS::String& str)
{
	int len = str.getLen();
	for(int i = 0; i < len; i++){
		if(!isdigit(str[i])){
			return false;
		}
	}
	return len > 0;
}
コード例 #6
0
ファイル: rfctime.cpp プロジェクト: PyroOS/Pyro
/* Convert the RFC822 date to time_t */
time_t convert_date( os::String cDate )
{
	struct tm sTime;
	time_t nEpoch = 0;
	const char *pStart;
	char *pEnd;

	pStart = cDate.c_str();
	pEnd = strptime( pStart, "%a, %d %b %Y %H:%M:%S %z", &sTime );
	if( pEnd > pStart )
		nEpoch = mktime( &sTime );

	return nEpoch;
}
コード例 #7
0
ファイル: dbx.cpp プロジェクト: PyroOS/Pyro
status_t DbxPlugin::CheckFile( const os::String cFilename )
{
	status_t nError = EINVAL;
	DBX *hDbx;

	hDbx = dbx_open( cFilename.c_str() );
	if( hDbx != NULL )
	{
		if( hDbx->type == DBX_TYPE_FOLDER || hDbx->type == DBX_TYPE_EMAIL )
			nError = EOK;
		dbx_close( hDbx );
	}

	return nError;
}
コード例 #8
0
ファイル: format_ruby.cpp プロジェクト: PyroOS/Pyro
uint Format_Ruby::GetNextWordLimit(const os::String &line, uint chr)
{
	uint max=line.size();
	if(chr>=max)
		return max;

	if(canContinueIdentifier(line[chr])){//in identifier
		while(chr<=max && canContinueIdentifier(line[chr]))
			++chr;
	}else{//outside identifier
		while(chr<=max && !canContinueIdentifier(line[chr]))
			++chr;
	}
	return chr;
}
コード例 #9
0
ファイル: mbox.cpp プロジェクト: PyroOS/Pyro
status_t MboxPlugin::CheckFile( const os::String cFilename )
{
	status_t nError = EINVAL;

	FILE *hMbox = fopen( cFilename.c_str(), "r" );
	if( NULL == hMbox )
		return EIO;

	char pHead[15];
	const char pFromSeq[] = "\nFrom ";
	const char pEudoraSeq[] = { 0xa, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x11, 0x11, 0x11, 0x11, 0x11, 0x11, 0x53 };

	fgets( pHead, 15, hMbox );

	if( memcmp( pHead, &pFromSeq[1], 5 ) == 0 || memcmp( pHead, &pEudoraSeq[1], 14 ) == 0 )
		nError = EOK;

	fclose( hMbox );
	return nError;
}
コード例 #10
0
ファイル: format_ruby.cpp プロジェクト: PyroOS/Pyro
//TODO: this method is slightly wrong. Fix it
void Format_Ruby::FindWords( const os::String &line, os::String &format )
{
	uint start=0, end;

	while(start<line.size() && (format[start]!=F_DEFAULT || !canStartIdentifier(line[start])))
		++start;

	end=start+1;
	while(end<line.size() && format[end]==F_DEFAULT && canContinueIdentifier(line[end]))
		++end;

	while(start<line.size()){
		os::String tmp=line.const_str().substr(start, end-start);

		int max=sizeof(keywords)/sizeof(keywords[0]);
		int min=0;
		int test=max/2;

		//binary search
		while(max-min>1){
			if(!strcmp(keywords[test], tmp.c_str()))
				break;
			if(tmp<keywords[test])
				max=test;
			else
				min=test;
			test=(max+min)/2;
		}
		if(!strcmp(keywords[test], tmp.c_str())){
			for(;start<end;++start)
				format[start]=F_KEYWORD;
		}

		start=end+1;

		while(start<line.size() && (format[start]!=F_DEFAULT || !canStartIdentifier(line[start])))
			++start;

		end=start+1;
		while(end<line.size() && format[end]==F_DEFAULT && canContinueIdentifier(line[end]))
			++end;
	}
}
コード例 #11
0
ファイル: format_ruby.cpp プロジェクト: PyroOS/Pyro
os::String Format_Ruby::GetIndentString( const os::String &line, bool useTabs, uint tabSize )
{
	if(line.size()==0)
		return "";

	uint white;
	for(white=0;white<line.size();++white)
		if(line[white]!=' ' && line[white]!='\t')			
			break;
			
	//TODO: ignore trailing whitespace
	if(line[line.size()-1]=='{' || line[line.size()-1]==':'){
		os::String pad;		
		if(useTabs)
			pad="\t";
		else
			pad.resize(tabSize, ' ');
			
		return os::String(line.const_str().substr(0, white))+pad;
	}else
		return line.const_str().substr(0, white);
}
コード例 #12
0
ファイル: mbox.cpp プロジェクト: PyroOS/Pyro
status_t MboxImporter::AddMessage( os::String &cMessage )
{
	if( cMessage != "" )
	{
		if( m_bDoCrLf )
		{
			/* Convert linefeeds to CRLF pairs */
			const char *pStart, *pEnd;
			int nLf = 0;

			pStart = cMessage.c_str();
			while( ( pEnd = strchr( pStart, '\n' ) ) != NULL )
			{
				nLf++;
				pStart = pEnd + 1;
			}

			char *pMessage = (char*)calloc( 1, cMessage.size() + nLf + 1 );
			if( NULL == pMessage )
				return ENOMEM;

			const char *pIn;
			char *pOut;

			pIn = cMessage.c_str();
			pOut = pMessage;

			while( '\0' != *pIn )
			{
				if( '\n' == *pIn )
					*pOut++ = '\r';
				*pOut++ = *pIn++;
			}
			cMessage = pMessage;
			free( pMessage );
		}

		/* Add an RFC2822 terminating sequence */
		cMessage += "\r\n.\r\n";

		/* Create a Mailmessage and send it back down to the application along with the relevent data */
		Mailmessage *pcImport = new Mailmessage( cMessage.c_str(), cMessage.size() );

		Message *pcImportMessage = new Message( M_IMPORT_NEW );
		pcImportMessage->AddPointer( "message", pcImport );
		pcImportMessage->AddString( "folder", m_cFolder );

		m_pcMessenger->SendMessage( pcImportMessage );

		/* Update the progress dialog & check if the user canceled */
		float vProgress = ( (double)m_nBytes / (double)m_nSize );

		char zMessage[64] = { '\0' };
		snprintf( zMessage, 64, "Importing message #%Ld", m_nCount++ );

		m_pcDialog->Lock();
		m_pcDialog->SetMessage( zMessage );
		m_pcDialog->SetProgress( vProgress );
		m_bRun = !m_pcDialog->IsCancelled();
		m_pcDialog->Unlock();
	}

	cMessage = "";
	return EOK;
}
コード例 #13
0
ファイル: blursk.cpp プロジェクト: PyroOS/Pyro
/* This detects changes in the title, and also draws the title when appropriate.
 * It should be called once for each frame.
 */
static guchar *show_info(guchar *img, gint height, gint bpl)
{
	gint pos, length;
	gchar *title;
	time_t now;
	static int prevpos;
	static gchar *prevtitle;
	static char buf[200];
	static time_t start, then;
	static gboolean persistent = FALSE;
	char	showinfo;

	/* Once per second, check for any changes in the title.  Note that we
	 * do this even for the "Never show title" setting, because a change
	 * in the title should trigger "quiet" actions even if the title isn't
	 * shown.
	 */
	time(&now);
	if (now != then)
	{
		then = now;
		pos = cf_position;
		title = (gchar*)cf_title.c_str();
/*		pos = xmms_remote_get_playlist_pos(0);
		title = xmms_remote_get_playlist_title(0, pos);*/
		if (!title) {
			title = "Unknown";
		}
		
		
		if (pos != prevpos || !prevtitle || strcmp(title, prevtitle))
		{
			
			/* Yes, it changed.  Regenerate the info string */
			prevpos = pos;
			if (prevtitle)
				free(prevtitle);
			prevtitle = strdup(title);
			
			sprintf(buf, "{%d} %s", pos + 1, title);
			
			start = now;

			/* Trigger "quiet" acctions. */
			beatquiet = TRUE;
		}
	}

	/* If the user pressed 'i' recently, then show info for 4 seconds */
	showinfo = *config.show_info;
	if (blurskinfo || persistent)
	{
		if (showinfo == 'A')
		{
			config.show_info = config_default_show_info;
			showinfo = 'N';
		}
		else
		{
			showinfo = '4';
			if (blurskinfo)
			{
				start = now;
				persistent = TRUE;
			}
		}
		blurskinfo = FALSE;
	}

	/* If not supposed to show text, then we're done */
	switch (showinfo)
	{
	  case 'N': /* Never show info */
		return img;

	  case '4': /* 4 second info */
		if (now - start > 4)
		{
			persistent = FALSE;
			return img;
		}

	  case 'A': /* Always show info */
		break;
	}

	/* We don't want to draw onto the main image, because then the text
	 * would leave blur trails.  Most combinations of cpu_speed and
	 * overall_effect copy the image data into a temporary buffer, but
	 * the specific combination of cpu_speed=Fast and overall_effect=Normal
	 * (which is very common!) normally leaves the image in the main buffer.
	 * We need to detect this, and copy the image before we draw the text.
	 */
	if (img != img_tmp)
	{
		memcpy(img_tmp, img, img_chunks * 8);
		img = img_tmp;
	}
	
	/* draw the text */
	textdraw(img, height, bpl, "Center", buf);
	return img;
}
コード例 #14
0
ファイル: os-fcgi.cpp プロジェクト: CozaNostra/objectscript
int main(int argc, char * argv[])
#endif
{
	initStartTime();

	printf("ObjectScript FastCGI Process Manager %s\n", OS_FCGI_VERSION);
	printf("%s\n", OS_COPYRIGHT);
	printf("%s\n", OS_OPENSOURCE);

	if(FCGX_Init()){
// #ifdef _MSC_VER
		printf("Error: initialization is failed\n");
// #endif
		exit(1); 
	}

	int threads;
	{
		OS * os = OS::create();
#ifdef _MSC_VER
		const char * config_flename = "conf\\etc\\os-fcgi\\conf.os";
		if(!os->isFileExist(config_flename)){
			config_flename = "..\\..\\conf\\etc\\os-fcgi\\conf.os";
			// os->isFileExist(config_flename);
		}
#else
		const char * config_flename = "/etc/os-fcgi/conf.os";
#endif
		os->require(config_flename, false, 1);
		threads =			(os->getProperty(-1, "threads"),	os->popInt());
		OS::String listen = (os->getProperty(-1, "listen"),		os->popString(":9000"));
		os->release();

		int listen_queue_backlog = 400;
		listen_socket = FCGX_OpenSocket(listen, listen_queue_backlog);
		if(listen_socket < 0){
			printf("Error: listen address is incorrect %s\n", listen.toChar());
			// log("listen_socket < 0 \n");
			exit(1);
		}
// #ifdef _MSC_VER
		printf("listen: %s\n", listen.toChar());
// #endif
	}

#ifndef _MSC_VER
	const int MAX_THREAD_COUNT = 64;
	if(threads < 1){
		threads = 1;
	}else if(threads > MAX_THREAD_COUNT){ 
		threads = MAX_THREAD_COUNT;
	}
	printf("threads: %d\n", threads);
	demonize();
	
	pthread_t id[MAX_THREAD_COUNT];
	for(int i = 1; i < threads; i++){
        pthread_create(&id[i], NULL, doit, NULL);
	}
#else
	threads = 1;
	printf("threads: %d\n", threads);
#endif
	doit(NULL);

	return 0;
}
コード例 #15
0
ファイル: event.cpp プロジェクト: rickcaudill/Pyro
/* Unregister an event */
void SrvEvents::UnregisterEvent( os::String zID, int64 nProcess, int64 nTargetPort )
{
	/* Find parent node */
	m_cLock.Lock();
	
	SrvEventNode_s* psParent;
	os::String zEventName;
	
	psParent = GetParentNode( zID, zEventName );
	if( psParent == NULL )
	{
		dbprintf( "SrvEvents::UnregisterCall(): Call %s by %i not present\n", zID.c_str(), (int)nProcess );	
		m_cLock.Unlock();
		return;
	}
	
	/* Find node */
	SrvEventNode_s* psNode = GetNode( psParent, zEventName );
	if( psNode == NULL )
	{
		dbprintf( "SrvEvents::UnregisterCall(): Call %s by %i not present\n", zID.c_str(), (int)nProcess );	
		m_cLock.Unlock();
		return;
	}
	
	/* Find event */
	psNode->AddRef();
	std::vector<SrvEvent_s*>::iterator i = psNode->m_cEvents.begin();
	while( i != psNode->m_cEvents.end() )
	{
		SrvEvent_s* psEvent = (*i);
		if( psEvent->m_nProcess == nProcess
			&& ( nTargetPort == -1 || ( psEvent->m_nTargetPort == nTargetPort ) ) )
		{
			/* Send notifications to the monitors */
			os::Message cReply;
			cReply.AddBool( "event_unregistered", true );
			cReply.AddString( "id", zID );
			cReply.AddInt64( "target", psEvent->m_nTargetPort );
			cReply.AddInt64( "token", psEvent->m_nHandlerToken );
			cReply.AddInt64( "message_code", psEvent->m_nMessageCode );
			cReply.AddInt64( "process", psEvent->m_nProcess );
			
			psParent = psNode;
			while( psParent != NULL )
			{
				std::vector<SrvEventMonitor_s*>::iterator j = psParent->m_cMonitors.begin();
				for( ; j != psParent->m_cMonitors.end(); j++ )
				{
					cReply.SetCode( (*j)->m_nMessageCode );
					os::Messenger cLink( (*j)->m_nTargetPort, (*j)->m_nHandlerToken, -1 );
					
					cLink.SendMessage( &cReply );
					
					//dbprintf( "Notification %s about unregistration sent to %i\n", zID.c_str(), (int)(*j)->m_nTargetPort );
				}
				psParent = psParent->m_psParent;	
			}
			
			i = psNode->m_cEvents.erase( i );
			delete( psEvent );
			psNode->Release();			
			//dbprintf( "Event %s unregistered by %i\n", zID.c_str(), (int)nProcess );
		} else
			i++;
	}
	/* Release the node */
	psNode->Release();
			
	m_cLock.Unlock();
	
	//dbprintf( "SrvEvents::UnregisterCall(): Call %s by %i unregistered\n", zID.c_str(), (int)nProcess );	
}
コード例 #16
0
ファイル: format_ruby.cpp プロジェクト: PyroOS/Pyro
CodeViewContext Format_Ruby::Parse(const os::String &line, os::String &format, CodeViewContext cookie){
	int oldcntx=cookie.nContext, newcntx=cookie.nContext;
	char c;

	format.resize(line.size());

	for(uint a=0;a<line.size();++a){
		newcntx = oldcntx & ( C_COMMENT | C_CONST );
		c = line[a];


		switch(line[a]){
		//if found '\'' ->
		//	if context is comment or string: ignore
		//	if context is charconst and escape: ignore
		//	if context is charconst and !escape: end charconst
		//	if context is !charconst and !escape: begin charconst
		case '\'':
			if(oldcntx & (C_COMMENT | C_STRINGCONST))
				break;

			if(oldcntx & C_CHARCONST){
				if(oldcntx & C_ESCAPE){
					break;
				}else{
					newcntx &= ~C_CHARCONST;
				}
			}else{
				if(!(oldcntx & C_ESCAPE)){
					newcntx |= C_CHARCONST;
				}
			}
			break;
		//if found '"' ->
		//	if context is comment or charconst: ignore
		//	if context is string and escape; ignore
		//	if context is string and !escape: end string
		//	if context is !string and !escape: begin string
		case '"':
			if(oldcntx & (C_COMMENT | C_CHARCONST))
				break;

			if(!(oldcntx & C_ESCAPE)){
				if(oldcntx & C_STRINGCONST){
					newcntx &= ~C_STRINGCONST;
				}else{
					newcntx |= C_STRINGCONST;
				}
			}
			break;
		//if found '\\' ->
		//	if context is !escape: set escape
		case '\\':
			if(!(oldcntx & C_ESCAPE))
				newcntx |= C_ESCAPE;
			break;
		case '#':
			if(!(oldcntx & C_ESCAPE))
				newcntx |= C_LINECOMMENT;
			break;
		//if found '/' ->
		//	if context is !slash: set slash
		case '/':	
			if( oldcntx & (C_COMMENT | C_CONST) )
				break;

			newcntx |= C_SLASH;
			break;
		}

		if(newcntx & C_CHARCONST)
			format[a] = F_STRING;
		else if(newcntx & C_STRINGCONST)
			format[a] = F_STRING;
		else if(newcntx & C_COMMENT)
			format[a] = F_COMMENT;
		else
			format[a] = F_DEFAULT;

		//special handling of closing quotes
		if((oldcntx & C_STRINGCONST) && !(newcntx & C_STRINGCONST))
			format[a] = F_STRING;
		else if((oldcntx & C_CHARCONST) && !(newcntx & C_CHARCONST))
			format[a] = F_STRING;

		oldcntx = newcntx;
	}

	//now look for words...
	FindWords(line, format);



	if(newcntx&C_ESCAPE)
		return newcntx & ( C_COMMENT | C_CONST );
	else
		return newcntx & ( C_SPANCOMMENT );
}