ACIL FM

Nama	Ukuran	Aksi
blib	-	Open
lib	-	Open
t	-	Open
Changes	88.15 MB	View DL Edit
constants.h	1.9 MB	View DL Edit
dbdimp.c	140.19 MB	View DL Edit
dbdimp.h	8.84 MB	View DL Edit
dbdimp.o	766.23 MB	View DL Edit
LICENSE	17.94 MB	View DL Edit
Makefile	53.71 MB	View DL Edit
Makefile.PL	21.05 MB	View DL Edit
MANIFEST	1.78 MB	View DL Edit
MANIFEST.SKIP	210 B	View DL Edit
META.json	4.61 MB	View DL Edit
META.yml	3.48 MB	View DL Edit
myld	1.68 MB	View DL Edit
MYMETA.json	4.61 MB	View DL Edit
MYMETA.yml	3.48 MB	View DL Edit
mysql.bs	0 B	View DL Edit
mysql.c	65.17 MB	View DL Edit
mysql.o	639.95 MB	View DL Edit
mysql.xs	16.89 MB	View DL Edit
mysql.xsi	23.27 MB	View DL Edit
pm_to_blib	0 B	View DL Edit
README.md	1.04 MB	View DL Edit
socket.c	923 B	View DL Edit
socket.o	15.97 MB	View DL Edit

Edit file: /home/.cpan/build/DBD-mysql-5.009-0/constants.h

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <mysql.h>

static double mysql_constant(char* name, char* arg) {
  errno = 0;
  arg= arg;
  switch (*name) {
  case 'B':
    if (strEQ(name, "BLOB_FLAG"))
      return BLOB_FLAG;
    break;
  case 'F':
    if (strnEQ(name, "FIELD_TYPE_", 11)) {
      char* n = name+11;
      switch(*n) {
      case 'B':
	if (strEQ(n, "BLOB"))
	  return FIELD_TYPE_BLOB;
	break;
      case 'C':
	if (strEQ(n, "CHAR"))
	  return FIELD_TYPE_CHAR;
	break;
      case 'D':
	if (strEQ(n, "DECIMAL"))
	  return FIELD_TYPE_DECIMAL;
	if (strEQ(n, "DATE"))
	  return FIELD_TYPE_DATE;
	if (strEQ(n, "DATETIME"))
	  return FIELD_TYPE_DATETIME;
	if (strEQ(n, "DOUBLE"))
	  return FIELD_TYPE_DOUBLE;
	break;
      case 'F':
	if (strEQ(n, "FLOAT"))
	  return FIELD_TYPE_FLOAT;
	break;
      case 'I':
	if (strEQ(n, "INT24"))
	  return FIELD_TYPE_INT24;
	break;
      case 'L':
	if (strEQ(n, "LONGLONG"))
	  return FIELD_TYPE_LONGLONG;
	if (strEQ(n, "LONG_BLOB"))
	  return FIELD_TYPE_LONG_BLOB;
	if (strEQ(n, "LONG"))
	  return FIELD_TYPE_LONG;
	break;
      case 'M':
	if (strEQ(n, "MEDIUM_BLOB"))
	  return FIELD_TYPE_MEDIUM_BLOB;
	break;
      case 'N':
	if (strEQ(n, "NULL"))
	  return FIELD_TYPE_NULL;
	break;
      case 'S':
	if (strEQ(n, "SHORT"))
	  return FIELD_TYPE_SHORT;
	if (strEQ(n, "STRING"))
	  return FIELD_TYPE_STRING;
	break;
      case 'T':
	if (strEQ(n, "TINY"))
	  return FIELD_TYPE_TINY;
	if (strEQ(n, "TINY_BLOB"))
	  return FIELD_TYPE_TINY_BLOB;
	if (strEQ(n, "TIMESTAMP"))
	  return FIELD_TYPE_TIMESTAMP;
	if (strEQ(n, "TIME"))
	  return FIELD_TYPE_TIME;
	break;
      case 'V':
	if (strEQ(n, "VAR_STRING"))
	  return FIELD_TYPE_VAR_STRING;
	break;
      }
    }
    break;
  case 'N':
    if (strEQ(name, "NOT_NULL_FLAG"))
      return NOT_NULL_FLAG;
    break;
  case 'P':
    if (strEQ(name, "PRI_KEY_FLAG"))
      return PRI_KEY_FLAG;
    break;
  }
  errno = EINVAL;
  return 0;
}

Batal