1 files changed, 347 insertions, 0 deletions

diff --git a/noncore/todayplugins/stockticker/libstocks/stocks.c b/noncore/todayplugins/stockticker/libstocks/stocks.c
new file mode 100644
index 0000000..eb04ba9
--- a/dev/null
+++ b/noncore/todayplugins/stockticker/libstocks/stocks.c
@@ -0,0 +1,347 @@
+/* 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 __STOCKS_C__
+
+#include <stdio.h>
+#include <string.h>
+#include <malloc.h>
+#include <stdlib.h>
+
+#ifdef __WINDOWS__
+#include <mbstring.h>
+#endif
+
+#include "http.h"
+#include "csv.h"
+
+#include "stocks.h"
+
+/*
+s  = symbol
+n  = name
+l1 = last trade
+d1 = date
+t1 = time
+c1 = variation
+o  = open
+h  = higher price
+g  = lower price
+v  = volume
+*/
+
+const char yahoo_us_stocks_server[]="finance.yahoo.com";
+const char yahoo_eu_stocks_server[]="finance.yahoo.com";
+//const char yahoo_eu_stocks_server[]="fr.finance.yahoo.com";
+
+const char yahoo_url_beg[]="/d/quotes.csv?s=";
+const char yahoo_url_end[]="&f=snl1d1t1c1ohgv&e=.csv";
+
+typedef enum {
+  YAHOO_EUROPE,
+  YAHOO_US
+} yahoo_source;
+
+#define YAHOO_US_EXT_NB  11
+const char *yahoo_us_ext[YAHOO_US_EXT_NB] =
+{
+  ".US",   /* United States */
+  ".TO",   /* Canada */
+  ".M",    /* Canada */
+  ".V",    /* Canada */
+  ".AL",   /* Canada */
+  ".MX",   /* Mexico */
+  ".SA",   /* Brasil */
+  ".BA",   /* Argentina */
+  ".CR",   /* Venezuela */
+  ".SN",   /* Chili */
+  ".AX"    /* Australia */
+};
+
+/*****************************************************************************/
+/* Finds, according to the symbol extension, the http source of the quotes.  */
+/* Actually just finance.yahoo.com and fr.finance.yahoo.com are supported.   */
+/* The function returns the country source (US or EUROPE).                   */
+/*****************************************************************************/
+yahoo_source find_yahoo_source(char *symbol)
+{
+  char *ptr;
+  int i;
+  int test;
+
+  ptr = strrchr(symbol, '.');
+
+  /* If no extension we suppose it is a US stock */
+  if (!ptr) return YAHOO_US;
+
+  /* extension is found */
+
+  /* Test if it is canadian stock */
+  for (i=0; i<YAHOO_US_EXT_NB; i++)
+    {
+
+#ifdef __UNIX__
+      test = strcasecmp(yahoo_us_ext[i], ptr);
+#elif __WINDOWS__
+      test = _mbsnbicmp(yahoo_us_ext[i], ptr, strlen(yahoo_us_ext[i]));
+#endif
+
+      if (!test) return YAHOO_US;
+    }
+  
+  /* We suppose now it is a European stock */
+  return YAHOO_EUROPE;
+}
+
+/*****************************************************************************/
+/* Gets quotes csv file, parses the file and create the quotes list          */
+/* *stocks points to the stocks to fetch                                     */
+/* *stock_datas points to the beginning of the list                          */
+/* count allows to connect to all country servers                            */
+/*****************************************************************************/
+libstocks_return_code download_stocks(char *stocks, 
+              stock **stock_datas, 
+              yahoo_source source)
+{
+  char *stocks_server=NULL;
+  char *url_beg=NULL;
+  char *url_end=NULL;
+
+  char *url;
+  char *data;
+
+  libstocks_return_code error;
+
+#ifdef DEBUG
+  printf("*download_stocks\n");
+#endif
+
+  switch (source)
+    {
+    case YAHOO_US:
+      stocks_server = (char *)yahoo_us_stocks_server;
+      break;
+      
+    case YAHOO_EUROPE:
+      stocks_server = (char *)yahoo_eu_stocks_server;
+      break;
+      default:
+      stocks_server = (char *)yahoo_us_stocks_server;
+    break;
+          
+    }
+
+  url_beg = (char *)yahoo_url_beg;
+  url_end = (char *)yahoo_url_end;
+
+  url = (char *)malloc(strlen(url_beg)
+           +strlen(url_end)
+           +strlen(stocks)+1);
+  if (url==NULL)
+    {
+      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+        ,__FILE__, __LINE__);
+      exit(1);
+    }
+
+  strcpy(url, url_beg);
+  strcat(url, stocks);
+  strcat(url, url_end);
+  
+  error=http_get(url, stocks_server, &data);
+ 
+  free(url);
+
+  if (error) return error;
+  
+  *stock_datas = parse_csv_file(data);
+
+  free(data);
+
+  if (!(*stock_datas)) return ERRPCSV;
+
+  return 0;
+
+}
+
+/*****************************************************************************/
+/* Gets quotes from yahoo                                                    */
+/* Choses to fetch European or US depending on the symbol extension          */
+/* and merges the two lists to one                                           */
+/* *stocks points to the stocks to fetch                                     */
+/* *stock_datas points to the beginning of the list                          */
+/*****************************************************************************/
+libstocks_return_code get_stocks(const char *stocks, stock **stock_datas)
+{
+  char *tok_ptr;
+  char *eu_quotes=NULL;
+  char *eu_quotes_temp=NULL;
+  int lgr_eu_quotes=0;
+
+  char *us_quotes=NULL;
+  char *us_quotes_temp=NULL;
+  int lgr_us_quotes=0;
+
+  char *symbol;
+
+  yahoo_source source;
+
+  int lgr_symbol=0;
+
+  libstocks_return_code error;
+
+  stock *stocks_tmp=NULL;
+  stock *stocks_tmp2=NULL;
+  stock *stocks_getted=NULL;
+  stock *last_stock=NULL;
+
+#ifdef DEBUG
+  printf("*get_stocks\n");
+#endif
+
+  /* to preserve stocks */
+  tok_ptr = malloc(strlen(stocks)+1);
+  if(tok_ptr==NULL)
+    {
+      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+        ,__FILE__, __LINE__);
+      exit(1);  
+    }
+  strcpy(tok_ptr, stocks);
+
+  while( (symbol = strtok(tok_ptr, "+"))!=0)
+    {
+      /* clear tok_ptr for next strtok */
+      tok_ptr = NULL;
+
+      /* look for "." in the symbol */
+      source = find_yahoo_source(symbol);
+
+      switch (source)
+  {
+  case YAHOO_US:
+
+    if (us_quotes) 
+      {
+        lgr_us_quotes = strlen(us_quotes);
+        lgr_symbol = strlen(symbol);
+
+        us_quotes_temp = malloc(lgr_us_quotes + lgr_symbol +2);
+        if(us_quotes_temp==NULL)
+    {
+      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+        ,__FILE__, __LINE__);
+      exit(1);  
+    }
+        strcpy(us_quotes_temp, us_quotes);
+        strcat(us_quotes_temp,"+");
+        strcat(us_quotes_temp,symbol);
+
+        free(us_quotes);
+        us_quotes = us_quotes_temp; 
+      }       
+    else 
+      {
+        us_quotes = malloc(strlen(symbol)+1);
+
+        if(us_quotes==NULL)
+    {
+      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+        ,__FILE__, __LINE__);
+      exit(1);  
+    }
+        strcpy(us_quotes, symbol);
+      }
+
+    break;
+
+  case YAHOO_EUROPE:
+
+    if (eu_quotes) 
+      {
+        lgr_eu_quotes = strlen(eu_quotes);
+        lgr_symbol = strlen(symbol);
+        
+        eu_quotes_temp = malloc(lgr_eu_quotes + lgr_symbol +2);
+        if(eu_quotes_temp==NULL)
+    {
+      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+        ,__FILE__, __LINE__);
+      exit(1);  
+    }
+        strcpy(eu_quotes_temp, eu_quotes);
+        strcat(eu_quotes_temp, "+");
+        strcat(eu_quotes_temp, symbol);
+
+        free(eu_quotes);
+        eu_quotes = eu_quotes_temp; 
+      }       
+    else 
+      {
+        eu_quotes = malloc(strlen(symbol)+1);
+        if(eu_quotes==NULL)
+    {
+      fprintf(stderr,"Memory allocating error (%s line %d)\n"
+        ,__FILE__, __LINE__);
+      exit(1);  
+    }
+        strcpy(eu_quotes, symbol);
+      }
+    break;
+  }
+    }
+
+  free(tok_ptr);
+
+  if (us_quotes)
+    {
+      /* Gets us quotes */
+      error = download_stocks(us_quotes, &stocks_tmp, YAHOO_US);
+      if (error) return error;
+    }
+ 
+  if (eu_quotes)
+    {
+      /* Gets european quotes */
+      error = download_stocks(eu_quotes, &stocks_getted, YAHOO_EUROPE);
+      if (error) return error;
+
+      /* concats lists if needed */
+      if (stocks_tmp)
+  {
+    stocks_tmp2 = stocks_tmp;
+
+    while(stocks_tmp2 != NULL) 
+      {
+        last_stock = stocks_tmp2;
+        stocks_tmp2 = next_stock(stocks_tmp2);
+      }
+
+    last_stock->NextStock = stocks_getted;
+    stocks_getted->PreviousStock = last_stock;
+
+  }
+      else (stocks_tmp = stocks_getted);      
+    }
+
+  *stock_datas = stocks_tmp; 
+  
+  return(0);
+}