voidlizard

/*
 * Parse command line arguments.
 */

#include <stdio.h>
#include <string.h>

#define BUFLEN 1024

struct params

voidlizard

#!/usr/bin/env python
from flup.server.fcgi_fork import WSGIServer

#import psyco
#psyco.full()

if __name__ == '__main__':
    import sys, os

    if not os.environ['TRACKER_HOME']:

voidlizard

#ifndef __gen_spi_h
#define __gen_spi_h

#ifndef SPI_PORT_TYPE_OVERRIDE
#define SPI_PORT_TYPE unsigned int
#endif

#ifndef SPI_BYTE_TYPE_OVERRIDE
#define SPI_BYTE_TYPE unsigned char 
#endif

voidlizard

open ExtList
open Util

type tmp        = TMP of int
and  tree_expr  =  VCALL of tmp * tmp list
                 | CCALL of string * tmp list
                 | ICONST of int
                 | SCONST of string
                 | FALSE
                 | TRUE

voidlizard

module type INFERING = functor(T:Typing.TYPING) ->
sig
    val unify: (T.t * T.t) list -> (T.t * T.t) list
    exception Occurs
end

module INFERING:INFERING = functor(T:Typing.TYPING) ->
struct
    exception Occurs
    open Util

voidlizard

(require 'generic-x)

(define-generic-mode 'beep-mode
  '("%%")
  '("literal" "extern" "def" "local" "ret" "while" "if" "elif" "else" "then" "type")
  '(
    ("[0-9]+" . 'font-lock-constant-face)
    ("=" . 'font-lock-syntax)
    ("&" . 'font-lock-syntax)
    ("&&" .'font-lock-syntax)

voidlizard

#include "abi.beep"

@literal DEBUG true;
%%@literal DEBUG  false;

@literal UDP 0;
@literal TCP 1;

@literal MODEM_UART 0;

voidlizard

#!/usr/bin/env python

import sys,os,glob,re,itertools
from operator import itemgetter

DOMAINS_LIST_PATH = "tlds-alpha-by-domain.txt"
MAIL_SEARCH_PATHS  = "."
FILE_MASK = "^\d+$"

def fatal(msg):

voidlizard

(setq inhibit-startup-message t)
(tool-bar-mode nil)
(menu-bar-mode nil)
(scroll-bar-mode nil)
(tooltip-mode nil)

(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
(setq standard-indent 4)
(setq viper-expert-level 5)

voidlizard

let mock3 () =
    let (wtf, _) = simple_sql_query "dbname=thedatabase" "select query_to_xml('select * from vproduct order by name', false, false, '')" []
    in (List.hd (List.hd wtf))