AM FL Y in Objective-C

Create PDF417 in Objective-C AM FL Y

20:

{ errno = 0; switch (*name) { case 'A': break; case 'B': break; case 'C': break; case 'D': if (strEQ(name, "DOMAIN")) #ifdef DOMAIN return DOMAIN; #else goto not_there; #endif break; case 'E': break; case 'F': break; case 'G': break; case 'H': if (strEQ(name, "HUGE")) #ifdef HUGE return HUGE; #else goto not_there; #endif if (strEQ(name, "HUGE_VAL")) #ifdef HUGE_VAL return HUGE_VAL; #else goto not_there; #endif break; case 'I': break; case 'J': break; case 'K': break; case 'L': break; case 'M': if (strEQ(name, "MAXFLOAT"))

#ifdef MAXFLOAT return MAXFLOAT; #else goto not_there; #endif if (strEQ(name, "M_1_PI")) #ifdef M_1_PI return M_1_PI; #else goto not_there; #endif if (strEQ(name, "M_2_PI")) #ifdef M_2_PI return M_2_PI; #else goto not_there; #endif if (strEQ(name, "M_2_SQRTPI")) #ifdef M_2_SQRTPI return M_2_SQRTPI; #else goto not_there; #endif if (strEQ(name, "M_E")) #ifdef M_E return M_E; #else goto not_there; #endif if (strEQ(name, "M_LN10")) #ifdef M_LN10 return M_LN10; #else goto not_there; #endif if (strEQ(name, "M_LN2")) #ifdef M_LN2 return M_LN2; #else goto not_there; #endif if (strEQ(name, "M_LOG10E")) #ifdef M_LOG10E return M_LOG10E; #else goto not_there; #endif

20:

if (strEQ(name, "M_LOG2E")) #ifdef M_LOG2E return M_LOG2E; #else goto not_there; #endif if (strEQ(name, "M_PI")) #ifdef M_PI return M_PI; #else goto not_there; #endif if (strEQ(name, "M_PI_2")) #ifdef M_PI_2 return M_PI_2; #else goto not_there; #endif if (strEQ(name, "M_PI_4")) #ifdef M_PI_4 return M_PI_4; #else goto not_there; #endif if (strEQ(name, "M_SQRT1_2")) #ifdef M_SQRT1_2 return M_SQRT1_2; #else goto not_there; #endif if (strEQ(name, "M_SQRT2")) #ifdef M_SQRT2 return M_SQRT2; #else goto not_there; #endif break; case 'N': break; case 'O': if (strEQ(name, "OVERFLOW")) #ifdef OVERFLOW return OVERFLOW; #else goto not_there; #endif break;

case 'P': if (strEQ(name, "PLOSS")) #ifdef PLOSS return PLOSS; #else goto not_there; #endif break; case 'Q': break; case 'R': break; case 'S': if (strEQ(name, "SING")) #ifdef SING return SING; #else goto not_there; #endif break; case 'T': if (strEQ(name, "TLOSS")) #ifdef TLOSS return TLOSS; #else goto not_there; #endif break; case 'U': if (strEQ(name, "UNDERFLOW")) #ifdef UNDERFLOW return UNDERFLOW; #else goto not_there; #endif break; case 'V': break; case 'W': break; case 'X': break; case 'Y': break; case 'Z': break;

20:

case '_': if (strEQ(name, "_POSIX_C_SOURCE")) #ifdef _POSIX_C_SOURCE return _POSIX_C_SOURCE; #else goto not_there; #endif break; } errno = EINVAL; return 0; not_there: errno = ENOENT; return 0; }

The other element missing from our module is the documentation, written in POD format, for using the function This is extracted and used to create man or HTML-formatted pages, depending on the platform See 23 for more information on the documentation format, and see 25 for details on the installation process of a module

Assuming you ve used h2xs, either on a genuine header file or a dummy one, the process for compiling your extension should be as easy as this:

The MakefilePL is essentially just a Perl script that uses the MakeMaker module to produce a makefile for use with the make system The MakeMaker module is complex and is the topic of 25 25 also includes a good walk-through of the process of building and installing an extension, and the locations and methods used for the extension system

Testing your extension is more critical The rule often given is that if you divide up the amount of time to develop and test a program, then 80 percent of that total time should be used for the testing process In practice, this is not always possible A two-month project would take a further eight months just to test the result, making the total development time almost a year What you can do, however, is test the ranges of the values that your extension accepts By this, I mean that you should test the function at the limits of its capabilities For example, a mathematical function that returns true if the supplied value is even should be tested with values of zero, -LONG_MAX, and UNSIGNED_LONG_MAX, the two definitions for the lowest and highest possible values within the confines of a long int and an unsigned long int For other more complex functions, you need to ensure that suitable test data is supplied that will stress the function to its limits If you have written the extension (or indeed, any program) correctly, it should trap errors before they cause problems, or process the arguments supplied as it should Once again, the h2xs system builds you a sample test file, but all it does is test that the module or extension you have tried to load actually loads and imports correctly You will need to add custom tests to really stress your function The format to follow should match that of the test suite that comes with the Perl distribution You need to print OK or not OK for each test you perform, remembering to sequentially number the tests so any errors can be identified Here s the test script for the StatVFS module:

# Before 'make install' is performed this script should be runnable with # 'make test' After 'make install' it should work as 'perl testpl' ######################### We start with some black magic to print on failure # Change 11 below to 1last_test_to_print # (It may become useful if the test is moved to /t subdirectory) BEGIN { $| = 1; print "13\n"; } END {print "not ok 1\n" unless $loaded;} use StatVFS; $loaded = 1; print "ok 1\n"; ######################### End of black magic # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): # If we don't get any sort of space reading from / # we're probably in trouble

20: