added - initial check in

1 files changed, 402 insertions, 0 deletions

diff --git a/noncore/todayplugins/stockticker/libstocks/csv.c b/noncore/todayplugins/stockticker/libstocks/csv.c
new file mode 100644
index 0000000..99a44e4
--- a/dev/null
+++ b/noncore/todayplugins/stockticker/libstocks/csv.c
@@ -0,0 +1,402 @@
+/* libstocks - Library to get current stock quotes from Yahoo Finance
+ *
+ * Copyright (C) 2000 Eric Laeuffer
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library 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
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+#define __CSV_C__
+
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+#ifdef __WINDOWS__
+#include <mbstring.h>
+#endif
+
+#include "csv.h"
+#include "stocks.h"
+#include "lists.h"
+
+#define DATE_LENGTH 7    /*YYMMDD*/
+
+const char *months[12]=
+{
+  "Jan",
+  "Feb",
+  "Mar",
+  "Apr",
+  "May",
+  "Jun",
+  "Jul",
+  "Aug",
+  "Sep",
+  "Oct",
+  "Nov",
+  "Dec"
+};
+
+/*****************************************************************************/
+/* Replacement of the strtok function. This one forgets "delim" when it is   */
+/* between two commas.                                                       */
+/* Thanks to Julio Lucas who has told me the bug and has proposed me a patch */
+/*****************************************************************************/
+char *csv_strtok(char *s, char *delim) 
+{
+   static char *next=NULL;
+   char *temp, *first;
+   int comma=0;
+
+   if (s!=NULL) first=s;
+   else first=next;
+   
+   temp=first;
+   if (*temp=='\0') return NULL;
+
+   while (*temp!='\0' && ((*temp!=*delim) || comma))
+     {
+       if (*temp=='"') comma ^= 1;
+       temp++;
+     }
+
+   if (*temp=='\0') next=temp;
+   else 
+     {
+       *temp='\0';
+       next=temp+1;
+     }
+
+   return first;
+}
+
+/*****************************************************************************/
+/* Parses the csv file and return a list of stocks structure.                */
+/* *csv points on the csv file in memory                                     */
+/* count defines the country, because csv depends on the country             */
+/*****************************************************************************/
+stock *parse_csv_file(char *csv)
+{
+  char *line;
+  char *end_line;
+
+  char *ptr;
+
+  char *date;
+  char *time;
+  char *name;
+  char *symbol;
+
+  stock *StockPtr=NULL;
+  stock *LastStockPtr=NULL;
+
+  /* Used to return the pointer to the list */
+  stock *FirstStockPtr=NULL;
+
+  /* used to see if symbol is valid */
+  int valid;
+  char *test;
+
+  line = csv;
+  end_line = csv;
+
+  while ((end_line = strstr(line, "\n")))
+    {
+      *end_line = 0;
+
+      /* Check if symbol valid */
+      /* if 1 "N/A" then ok because Indices have N/A for volume */
+      /* if 4 "N/A" then ok because Mutual funds have */
+      /* if 5 "N/A" then ok because currencies have */
+      /* So if >5 then stock not valid */
+
+      test = line;
+      valid = 0;
+      while ( (test = strstr(test, "N/A")) )
+	{
+	  valid ++;
+	  test = test +3;
+	}
+      
+      if (valid < 6)
+	{
+	  /* This Symbol is valid */
+
+	  StockPtr = malloc_stock();
+	  
+	  ptr = csv_strtok(line, ",");
+	  if (!ptr) return 0;
+
+	  symbol = (char *)malloc(strlen(ptr)+1);
+	  if (symbol==NULL)
+	    {
+	      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+		      ,__FILE__, __LINE__);
+	      exit(1);
+	    }
+	  strcpy((char *)(symbol), ptr);
+	  StockPtr->Symbol = symbol;
+
+	  ptr = csv_strtok(NULL, ",");
+	  if (!ptr) return 0;
+
+	  name = (char *)malloc(strlen(ptr)+1);
+	  if (name==NULL)
+	    {
+	      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+		      ,__FILE__, __LINE__);
+	      exit(1);
+	    }
+	  strcpy((char *)(name), ptr);
+	  StockPtr->Name = name;
+
+	  ptr = csv_strtok(NULL, ",");
+	  if (!ptr) return 0;
+	  sscanf(ptr,"%f",&(StockPtr->CurrentPrice));
+
+	  ptr = csv_strtok(NULL, ",");
+	  if (!ptr) return 0;
+
+	  date = (char *)malloc(strlen(ptr)+1);
+	  if (date==NULL)
+	    {
+	      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+		      ,__FILE__, __LINE__);
+	      exit(1);
+	    }
+	  strcpy((char *)(date), ptr);
+	  StockPtr->Date = date;
+
+	  ptr = csv_strtok(NULL, ",");
+	  if (!ptr) return 0;
+
+	  time = (char *)malloc(strlen(ptr)+1);
+	  if (time==NULL)
+	    {
+	      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+		      ,__FILE__, __LINE__);
+	      exit(1);
+	    }
+	  strcpy((char *)(time), ptr);
+	  StockPtr->Time = time;
+	  
+	  ptr = csv_strtok(NULL, ",");
+	  if (!ptr) return 0;
+	  sscanf(ptr,"%f",&(StockPtr->Variation));      
+	  
+	  StockPtr->Pourcentage = 100 * StockPtr->Variation /
+	    (StockPtr->CurrentPrice - StockPtr->Variation);
+
+	  StockPtr->LastPrice = StockPtr->CurrentPrice - StockPtr->Variation;
+
+	  ptr = csv_strtok(NULL, ",");
+	  if (!ptr) return 0;
+	  sscanf(ptr,"%f",&(StockPtr->OpenPrice));      
+
+	  ptr = csv_strtok(NULL, ",");
+	  if (!ptr) return 0;
+	  sscanf(ptr,"%f",&(StockPtr->MaxPrice));      
+
+	  ptr = csv_strtok(NULL, ",");
+	  if (!ptr) return 0;
+	  sscanf(ptr,"%f",&(StockPtr->MinPrice));      
+  
+	  ptr = csv_strtok(NULL, ",");
+	  if (!ptr) return 0;
+	  StockPtr->Volume = atoi(ptr);
+
+	  if( !FirstStockPtr ) 
+	    {
+	      FirstStockPtr = StockPtr;
+	      StockPtr->PreviousStock = 0;
+	    }
+	  
+	  StockPtr->NextStock = 0;
+	
+	  if (LastStockPtr) 
+	    {
+	      LastStockPtr->NextStock = StockPtr;
+	      StockPtr->PreviousStock = LastStockPtr;
+	    }
+	  
+	  LastStockPtr = StockPtr;
+	  
+	}
+      else
+	{
+	  /* this symbol is not valid */
+	  /* Set the stock struct just with Symbol, all other are NULL */
+	  /* This can be used to see if the symbol has been reached are not */
+
+	  StockPtr = malloc_stock();
+	  
+	  ptr = csv_strtok(line, ",");
+	  if (!ptr) return 0;
+
+	  symbol = (char *)malloc(strlen(ptr)+1);
+	  if (symbol==NULL)
+	    {
+	      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+		      ,__FILE__, __LINE__);
+	      exit(1);
+	    }
+	  strcpy((char *)(symbol), ptr);
+	  StockPtr->Symbol = symbol;
+
+	  if( !FirstStockPtr ) 
+	    {
+	      FirstStockPtr = StockPtr;
+	      StockPtr->PreviousStock = 0;
+	    }
+	  
+	  StockPtr->NextStock = 0;
+	
+	  if (LastStockPtr) 
+	    {
+	      LastStockPtr->NextStock = StockPtr;
+	      StockPtr->PreviousStock = LastStockPtr;
+	    }
+	  
+	  LastStockPtr = StockPtr;
+	}
+
+      end_line++;
+      line = end_line; 
+      
+    }
+    
+  return (FirstStockPtr);
+}
+
+/*****************************************************************************/
+/* Parses the history quotes file and return a stock structure list.         */
+/*****************************************************************************/
+stock *parse_csv_history_file(char *csv_file)
+{
+
+  char *line;
+  char *end_line;
+  char *ptr;
+
+  int day;
+  char smonth[10];
+  int month;
+  int year;
+
+  char *date;
+
+  int i;
+  int test;
+
+  stock *StockPtr=NULL;
+  stock *LastStockPtr=NULL;
+
+  /* Used to return the pointer to the list */
+  stock *FirstStockPtr=NULL;
+
+  line = csv_file;
+  end_line = csv_file;
+
+  /* do not use the first line */
+  end_line = strstr(line, "\n");
+  *end_line = 0;
+  end_line++;
+  line = end_line;
+
+  while ((end_line = strstr(line, "\n")))
+    {
+      *end_line = 0;
+
+      StockPtr = malloc_stock();
+	  
+      /* Date */
+      ptr = strtok(line, ",");
+      if (!ptr) return 0;
+
+      sscanf(ptr,"%d-%3s-%d",&day,smonth,&year);
+
+      i=0;
+
+#ifdef __UNIX__
+      while((test=strcasecmp(months[i], smonth))) i++;
+#elif __WINDOWS__
+      while(test=_mbsnbicmp(months[i], smonth, strlen(months[i]))) i++;
+#endif
+
+      month = i+1;
+
+      date = (char *)malloc(DATE_LENGTH);
+      if (date==NULL)
+	{
+	  fprintf(stderr,"Memory allocating error (%s line %d)\n"
+		  ,__FILE__, __LINE__);
+	  exit(1);
+	}
+      sprintf(date,"%.2d%.2d%.2d", year, month, day);
+      StockPtr->Date = date;    
+      
+      /* Open */
+      ptr = strtok(NULL, ",");
+      if (!ptr) return 0;
+      sscanf(ptr,"%f",&(StockPtr->OpenPrice));      
+
+      /* High */
+      ptr = strtok(NULL, ",");
+      if (!ptr) return 0;
+      sscanf(ptr,"%f",&(StockPtr->MaxPrice));
+
+      /* Low */
+      ptr = strtok(NULL, ",");
+      if (!ptr) return 0;
+      sscanf(ptr,"%f",&(StockPtr->MinPrice));
+
+      /* Close */
+      ptr = strtok(NULL, ",");
+      if (!ptr) return 0;
+      sscanf(ptr,"%f",&(StockPtr->LastPrice));
+
+      /* Volume */
+
+      ptr = strtok(NULL, ",");
+      if (!ptr) 
+	/* It seems to be an indice */
+	/* No volume for indices */
+	StockPtr->Volume = 0;
+      else
+	StockPtr->Volume = atoi(ptr);
+
+      if( !FirstStockPtr ) 
+	{
+	  FirstStockPtr = StockPtr;
+	  StockPtr->PreviousStock = 0;
+	}
+      
+      StockPtr->NextStock = 0;
+      
+      if (LastStockPtr) 
+	{
+	  LastStockPtr->NextStock = StockPtr;
+	  StockPtr->PreviousStock = LastStockPtr;
+	}
+      
+      LastStockPtr = StockPtr;
+
+      end_line++;
+      line = end_line;       
+    }
+    
+  return (FirstStockPtr);
+}