{"id":18,"date":"2004-06-15T18:04:27","date_gmt":"2004-06-16T00:04:27","guid":{"rendered":"http:\/\/tonosdegris.com\/blog\/?p=18"},"modified":"2004-07-07T00:54:55","modified_gmt":"2004-07-07T06:54:55","slug":"dna-humano-en-c","status":"publish","type":"post","link":"https:\/\/www.tonosdegris.com\/blog\/2004\/06\/15\/dna-humano-en-c\/","title":{"rendered":"DNA humano en C"},"content":{"rendered":"

El auto original de esto es Mathew Murphy<\/a>, quien luego lo liberó bajo la licensia GPL<\/a><\/p>\n

\/* HUMAN_DNA.H
\n *
\n * Human Genome
\n * Version 2.1
\n *
\n * (C) God
\n *\/
\n <\/p>\n

\/* Revision history:
\n *
\n * 0000-00-01 00:00 1.0 Adam.
\n * 0000-00-02 10:00 1.1 Eve.
\n * 0000-00-03 02:11 1.2 Added penis code to male version. A bit messy —
\n * will require a rewrite later on to make it neater.
\n * 0017-03-12 03:14 1.3 Added extra sex drive to male.h; took code from
\n * elephant-dna.c
\n * 0145-10-03 16:33 1.4 Removed tail.
\n * 1115-00-31 17:20 1.5 Shortened forearms, expanded brain case.
\n * 2091-08-20 13:56 1.6 Opposable thumbs added to hand() routine.
\n * 2501-04-09 14:04 1.7 Minor cosmetic improvements — skin colour made
\n * darker to match my own image.
\n * 2909-07-12 02:21 1.8 Dentition inadequate; added extra ‘wisdom’ teeth.
\n * Must remember to make mouth bigger to compensate.
\n * 4501-12-31 14:18 1.9 Increase average height.
\n * 5533-02-12 17:09 2.0 Added gay option, triggered by high population
\n * density, to try and slow the overpopulation problem.
\n * 6004-11-04 16:11 2.1 Made forefinger narrower to fit hole in centre of
\n * CD.
\n *\/<\/p>\n

\/* Standard definitions
\n *\/<\/p>\n

#define SEX male
\n#define HEIGHT 1.84
\n#define MASS 68
\n#define RACE caucasian<\/p>\n

\/* Include inherited traits from parent DNA files.
\n *
\n * Files must be pre-processed with MENDEL program to provide proper
\n * inheritance features.
\n *\/<\/p>\n

#include \u00abmother.h\u00bb
\n#include \u00abfather.h\u00bb<\/p>\n

#infndef FATHER
\n#warn(\u00abFather unknown — guessingn\u00bb)
\n#include \u00abbastard.h\u00bb
\n#endif<\/p>\n

\/* Set up sex-specific functions and variables
\n *\/
\n#include <\/p>\n

\/* Kludged code — I’ll re-design this lot and re-write it as a proper
\n * library sometime soon.
\n *\/
\nstruct genitals
\n {
\n#ifdef MALE
\n Penis *jt;
\n#endif
\n \/* G_spot *g; Removed for debugging purposes *\/
\n#ifdef FEMALE
\n Vagina *p;
\n#endif
\n }<\/p>\n

\/* Initialization bootstrap routine — called before DNA duplication.
\n * Allocates buffers and sets up protein file pointers
\n *\/
\nDNA *zygote_initialize(Sperm *, Ovum *);<\/p>\n

\/* MAIN INITIALIZATION CODE
\n *
\n * Returns structures containing pre-processed phenotypes for the organism
\n * to display at birth.
\n *
\n * Will be improved later to make output less ugly.
\n *\/
\nCharacteristic *lookup_phenotype(Identifier *i);
\n===<\/p>\n

…and so on.<\/p>\n

[ Note that God uses three-space tabs ]<\/sex><\/p>\n","protected":false},"excerpt":{"rendered":"

El auto original de esto es Mathew Murphy, quien luego lo liberó bajo la licensia GPL \/* HUMAN_DNA.H * * Human Genome * Version 2.1 * * (C) God *\/<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[9,1],"tags":[],"_links":{"self":[{"href":"https:\/\/www.tonosdegris.com\/blog\/wp-json\/wp\/v2\/posts\/18"}],"collection":[{"href":"https:\/\/www.tonosdegris.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.tonosdegris.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.tonosdegris.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.tonosdegris.com\/blog\/wp-json\/wp\/v2\/comments?post=18"}],"version-history":[{"count":0,"href":"https:\/\/www.tonosdegris.com\/blog\/wp-json\/wp\/v2\/posts\/18\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.tonosdegris.com\/blog\/wp-json\/wp\/v2\/media?parent=18"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.tonosdegris.com\/blog\/wp-json\/wp\/v2\/categories?post=18"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.tonosdegris.com\/blog\/wp-json\/wp\/v2\/tags?post=18"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}