lewurm

#! runhugs
-- Testfaelle fuer Aufgabe 6 der LVA 185.161 Funktionale Programmierung im WS09/10
-- an der Technischen Universitaet Wien
-- Aufgabenstellung: http://www.complang.tuwien.ac.at/knoop/fp185161_ws0910.html



-- Module ----------------------------------------------------------------------

module Main where

lewurm

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

extern unsigned char *asmb(unsigned char *a);

unsigned char *asmb_ref(unsigned char *s)
{
	unsigned long i;
	for (i=0; s[i]; i++) {

lewurm

" diese datei nach ~/.vim/syntax/ub10.vim kopieren und
" folgendes in die ~/.vimrc schmeissen:
" > syntax on
" > filetype on
" > augroup filetypedetect
" > 	au BufNewFile,BufRead *.0 setf ub10
" > 	au BufNewFile,BufRead *.1 setf ub10
" > 	au BufNewFile,BufRead *.2 setf ub10
" > 	au BufNewFile,BufRead *.3 setf ub10
" > augroup END

lewurm

13122010
*.o

lewurm

*.hi
stackoverflow_segv

lewurm

*.hi
*_stub.*
ffiso

lewurm

*.hi
*_stub.h
*.o
main

lewurm

brute
brute.hi
brute.o

lewurm

import Text.Printf

myPutStrLn = putStrLn . (++) "log: "

-- GHC infers `myPrintf :: String -> IO ()' which is not what I want.
myPrintf = logger . printf
  where
    -- note, this is just an example. should be replaceable with any function
    -- with this typesignature
    logger :: String -> IO ()

lewurm

*.hi
*?main