mybusinessbasic-devel Mailing List for My Business Basic (Page 4)

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

Update of /cvsroot/mybusinessbasic/mybb
In directory sc8-pr-cvs1:/tmp/cvs-serv4464

Modified Files:
	Makefile mybb.c mybb.h utilities.c 
Added Files:
	mybb.conf 
Log Message:
Completed Task: 90819

Suggest that a "mybb.conf" be used for system 
configuration settings such as what the welcome 
message should say, what prompt to use, default date 
and time format, etc. 

--- NEW FILE: mybb.conf ---
#########################################################
# 
#  mybb.conf - MyBB Configuration
#  Copyright (c)2003 by MjcSoftware
#
#########################################################

# Characters to display at prompt 
ConsolePrompt=->

# Program to run at start-up
StartUp=start_up

Index: Makefile
===================================================================
RCS file: /cvsroot/mybusinessbasic/mybb/Makefile,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Makefile	18 Dec 2003 17:17:31 -0000	1.1
--- Makefile	20 Dec 2003 03:30:52 -0000	1.2
***************
*** 1,25 ****
! CC=gcc
! #CFLAGS=-O3 -Wall
! CFLAGS=-ggdb -Wall 
! LIBS=-lm -lreadline -ltermcap
! 
! OBJECTS=mybb.o storage.o stack.o parser.o executor.o runtime.o \
! 		tables.o list.o utilities.o functions.o
! 
! basic: $(OBJECTS)
! #	$(CC) -pg -o mybb  $(OBJECTS) $(LIBS)
! 	$(CC) -o mybb $(OBJECTS) $(LIBS)
! 
! clean: 
! 	rm -f $(OBJECTS) mybb
! 
! mybb.o: mybb.c mybb.h errors.h operators.h
! storage.o: storage.c mybb.h errors.h operators.h
! stack.o: stack.c mybb.h errors.h operators.h
! parser.o: parser.c mybb.h errors.h operators.h
! executor.o: executor.c mybb.h errors.h operators.h
! runtime.o: runtime.c mybb.h errors.h operators.h
! list.o: list.c mybb.h errors.h operators.h
! tables.o: tables.c mybb.h errors.h operators.h
! utilities.o: utilities.c mybb.h errors.h operators.h
! functions.o: functions.c mybb.h errors.h operators.h
--- 1,25 ----
! CC=gcc
! #CFLAGS=-O3 -Wall
! CFLAGS=-ggdb -Wall 
! LIBS=-lm -lreadline -ltermcap
! 
! OBJECTS=mybb.o storage.o stack.o parser.o executor.o runtime.o \
! 		tables.o list.o utilities.o functions.o
! 
! basic: $(OBJECTS)
! #	$(CC) -pg -o mybb  $(OBJECTS) $(LIBS)
! 	$(CC) -o mybb $(OBJECTS) $(LIBS)
! 
! clean: 
! 	rm -f $(OBJECTS) mybb
! 
! mybb.o: mybb.c mybb.h errors.h operators.h
! storage.o: storage.c mybb.h errors.h operators.h
! stack.o: stack.c mybb.h errors.h operators.h
! parser.o: parser.c mybb.h errors.h operators.h
! executor.o: executor.c mybb.h errors.h operators.h
! runtime.o: runtime.c mybb.h errors.h operators.h
! list.o: list.c mybb.h errors.h operators.h
! tables.o: tables.c mybb.h errors.h operators.h
! utilities.o: utilities.c mybb.h errors.h operators.h
! functions.o: functions.c mybb.h errors.h operators.h

Index: mybb.c
===================================================================
RCS file: /cvsroot/mybusinessbasic/mybb/mybb.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** mybb.c	18 Dec 2003 18:50:39 -0000	1.2
--- mybb.c	20 Dec 2003 03:30:52 -0000	1.3
***************
*** 62,65 ****
--- 62,71 ----
  	program *pgm;
  	FILE *fp;
+ 	
+ 	char *prompt;
+ 	prompt=fgetValue("ConsolePrompt");
+ 
+ 	char *StartUpProgram;
+ 	StartUpProgram=fgetValue("StartUp");

  	signal(SIGFPE, fpe_handler);
***************
*** 99,103 ****
  		gprog->nextprog = 0;
  		gprog->prevprog = 0;
! 		input = readline("->");
  		prog = input;

--- 105,109 ----
  		gprog->nextprog = 0;
  		gprog->prevprog = 0;
! 		input = readline(prompt);
  		prog = input;

Index: mybb.h
===================================================================
RCS file: /cvsroot/mybusinessbasic/mybb/mybb.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** mybb.h	20 Dec 2003 01:27:04 -0000	1.3
--- mybb.h	20 Dec 2003 03:30:52 -0000	1.4
***************
*** 300,303 ****
--- 300,307 ----

  	// utilities.c
+ 	char *mid(char *str1,int start,int length);
+ 	char *fgetValue(char *label);
+ 	int fputValue(char *label, char *value);
+ 	void getConfig();
  	short BigShort(short l);
  	long BigLong(long l);
***************
*** 344,348 ****

  	// exec.c
! 	int execline(program *pgm, statement *stmt);

  	void *SafeMalloc(long size);
--- 348,352 ----

  	// exec.c
! 	int execline(program *pgm, statement *stmt);

  	void *SafeMalloc(long size);

Index: utilities.c
===================================================================
RCS file: /cvsroot/mybusinessbasic/mybb/utilities.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** utilities.c	18 Dec 2003 17:17:31 -0000	1.1
--- utilities.c	20 Dec 2003 03:30:52 -0000	1.2
***************
*** 11,14 ****
--- 11,125 ----

  extern int chaninfo;
+ 
+ char *mid(char *str1,int start,int length) 
+ {
+ 	char *sptr,*tptr,*vptr;
+ 	int i = 0;
+ 
+ 	int len = strlen(str1);
+ 
+ 	if (start < 0) 
+ 		start = (len + start) + 1;
+ 
+ 	if (len < start - 1)
+ 		return(0);
+ 
+ 	sptr = str1;
+ 	sptr += start-1;
+ 	vptr = (char *) malloc (length+1);
+ 	strncpy (vptr, sptr, length);
+ 	tptr = vptr;
+ 	
+ 	for (i = 0; i < length; i++) 
+ 		*tptr++;
+ 	
+ 	*tptr='\0';
+ 
+ 	return(vptr);
+ }
+ 
+ /*  get value from file */
+ /*  if label is NULL, then this function will read first non-blank line of text. */
+ char *fgetValue(char *label)
+  {
+ 	char p1[1000]="", empty[1000]="", *value;
+ 	FILE *infile;
+ 
+ 	getConfig();
+ 
+ 	infile = fopen("mybb.conf","r");
+ 	if (!infile) 
+ 	{
+ 		return "";
+ 	}
+ 
+ 	/* no idea.@ */
+ 	value = empty;
+ 
+ 	/*  read from file */
+ 	while(fgets(p1,1000,infile) != NULL)  
+ 	{
+ 		p1[strlen(p1)-1] = '\0';
+ 
+ 		if (!strlen(label)) 
+ 		{ 
+ 			value = p1;
+ 			if (strlen(p1)) 
+ 			{
+ 			       	break;
+ 			}
+ 		}
+ 
+ 		else if ((p1[0] != '#') && (strstr(p1,label)))
+ 		{
+ 			value = mid(p1,strlen(label)+2,strlen(p1)); 
+ 			break;
+ 		}
+ 	}
+ 	fclose(infile);
+ 
+ 	if (!strlen(value)) 
+ 	{
+ 		return "";
+ 	}
+ 
+ 	return (value);
+ }
+ 
+ int fputValue(char *label, char *value) 
+ {
+ 	char line_item[1000];
+ 	FILE *outfile;
+ 
+ 	getConfig();
+ 	outfile = fopen("mybb.conf","a+");
+ 	if (!outfile) 
+ 	{
+ 		return 0;
+ 	}
+ 
+ 	strcpy(line_item,label);
+ 	strcat(line_item,value);
+ 
+ 	fprintf(outfile,"%s",line_item);
+ 
+ 	fclose(outfile);
+ 	return 1;
+ }
+ 
+ void getConfig() 
+ {
+ 	FILE *infile;
+ 
+ 	/* we need to create the dat file if it doesnt exist */
+ 	infile = fopen("mybb.conf","r");
+ 	if(!infile) 
+ 	{
+ 		infile = fopen("mybb.conf","w");
+ 	}
+ 	fclose(infile);
+ 	
+    	return;
+ }

  void WriteByte(FILE *fp, byte c)

2003	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec (90)
2004	Jan (1)	Feb	Mar	Apr	May (1)	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2006	Jan	Feb	Mar	Apr (1)	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

mybusinessbasic-devel Mailing List for My Business Basic (Page 4)

mybusinessbasic-devel — Discussions regarding new development, etc