laszlo.nu

Simple linked list (C) for OSP lab

Sat, 10 Dec 2011 17:11:53 +0100

A simple linked list (FIFO-queue) for future generations ;) Get the source.

/*
  Description: Very simple single linked list. Intended for use in the OSP lab
  at Chalmers. In the OS course at Chalmers, you are allowed and even
  encouraged to use an existing linked list instead of implementing your own -
  just remember to add a reference (or else it's cheating!).

  Author: André Laszlo <andre@laszlo.nu>
 */

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

typedef struct node_s {
  void *data;
  struct node_s *next;
} NODE;

typedef struct list_s {
  NODE *first;
  NODE *last;
  int length;
} LIST;

/* Create a new list */
LIST* new_list()
{
  LIST *l;
  if (!(l=malloc(sizeof(LIST))))
    return NULL;

  l->length = 0;
  l->first = NULL;
  l->last = NULL;
  return l;
}

/* Create a new node that can be inserted into the list */
NODE* new_node(void *data)
{
  NODE *n;
  if (!(n=malloc(sizeof(NODE))))
    return NULL;
  n->next = NULL;
  n->data = data;
  return n;
}

/* Insert element at the end of the list */
void append(LIST *l, void *data)
{
  NODE *n = new_node(data);
  if (l->length == 0) {
    l->first = n;
    l->last = n;
  } else {
    l->last->next = n;
    l->last = n;
  }

  l->length++;
}

/* remove from head of list and return data */
void* pop(LIST *l)
{
  if (l->length == 0) {
    return NULL;
  } else if (l->length == 1) {
    void *data = l->first->data;
    free(l->first);
    l->first = NULL;
    l->length = 0;
    return data;
  } else {
    void *data = l->first->data;
    NODE *tmp = l->first->next;
    free(l->first);
    l->first = tmp;
    l->length--;
    return data;
  }

}

/* Return the position of an element in the list, or -1 if it does not exist */
int find(LIST *l, void* data)
{
  int i = 0;
  NODE *current = l->first;
  while (current != NULL) {
    if (current->data == data)
      return i;
    current = current->next;
    i++;
  }
  return -1;
}

/* Clean up list. TODO: Test this (since it's not used in lab) */
void destroy_list(LIST *l)
{
  NODE *current = l->first;
  NODE *next;
  while (current != NULL) {
    next = current->next;
    free(current->data);
    free(current);
    current = next;
  }
  free(l);
}

/* Return pointer to an integer with value n */
int* intpointer(int n)
{
  int* num = malloc(sizeof(int));
  *num = n;
  return num;
}

/* Test and demo subroutine */
int main()
{
  LIST *l = new_list();
  
  /* Should be zero */
  printf("Length: %d\n", l->length);

  /* Add some stuff to the list */
  int i;
  int *n;
  int *thing;
  for (i = 0; i < 10; i++) {
    n = intpointer(i);
    if (i == 4)
      thing = n; /* Keep this for searching, later */
    append(l, n);
  }

  /* Test find() */
  printf("Pos %d: %d\n", *(int*)thing, find(l, thing));
  int *other_thing = intpointer(12);
  printf("Pos %d: %d\n", *other_thing, find(l, other_thing));

  /* Test iteration */
  NODE* iter = l->first;
  printf("List: ");
  while(iter != NULL) {
    printf("%d ", *(int*)iter->data);
    /* Note: if reappending while iterating we might end up with an infinite
       loop. Try keeping a reference to the first reappended item if you want
       to break, or create a copy of the list */
    iter = iter->next; 
  }
  printf("\n");
  printf("Length: %d\n", l->length);

  /* Test pop() */
  int *popped = (int*)pop(l);
  while (popped != NULL) {
    printf("Pop result: %d\n", *popped);
    printf("Length: %d\n", l->length);
    popped = (int*)pop(l);
  }

  printf("Length: %d\n", l->length);

  /* Free up some memory */
  destroy_list(l);
  return 0;
}

Automatic Facebook replies using Gmail

Thu, 18 Aug 2011 00:01:14 +0200

Yesterday I noticed that you can reply to your Facebook notification emails to answer wall posts and messages. Since I have decided not to use Facebook as actively as I used to now that Google+ is around, I thought I should use this feature to send an “out of Facebook” response to my Facebook friends.

Here’s how you do it, using canned responses and filters in Gmail:

To be able to send automatic replies in Gmail, you need to enable the “Canned responses” feature. Look in Gmails settings → “Labs” tab and make sure it’s enabled. Don’t forget to save your changes.
It’s time to create the automatic response. Start writing a new email. I wrote something like “Automatic reply: I have not been using Facebook very much lately. Please come see me at Google+ instead!”. Now, click the “Canned responses” menu (just below the subject line) and select “New canned response…”. Select an intelligent name for your response.
Now you need to find out which email address your notification comes from. Look in your inbox for a Facebook notification and look at the sender’s email address. It should look something like this: notification+xyz@facebookmail.com where xyz is a seemingly random string. Copy this address.
To tie it all together, create a new filter (there’s a link to the right of the search box). Enter the following settings:
From: update+xyz@facebookmail.com OR notification+xyz@facebookmail.com (where xyz is the value you found in the previous step)
Subject: "new messages from" OR "new message from" OR "commented on your wall post" OR "posted on your wall"
Click “Test search” to see if your filter matches the notifications you want to reply to. If it doesn’t, chances are that you don’t have English as your current language setting on Facebook. Either change it on Facebook or enter the equivalent subject lines in your language.
Final step: Click “Next step” and check the box next to “Canned response”. Select your message and save your filter.

Note: You can remove any of the strings in the subject line filter, to match only the kinds of notifications that you want to reply to.

Cameron vs Twitter

Thu, 11 Aug 2011 18:26:38 +0200

Faran med att avpolitisera upploppen i England: man söker enkla sätt att komma åt symtomen istället för sjukdomen (klassklyftor, social orättvisa och enorm [ungdoms]arbetslöshet) och lyckas på sitt eget totalitära sätt hugga huvudet av patienten istället för att ge henne en ipren.

Mr Speaker, everyone watching these horrific actions will be stuck by how they were organised via social media.

Free flow of information can be used for good. But it can also be used for ill.

And when people are using social media for violence we need to stop them.

So we are working with the Police, the intelligence services and industry to look at whether it would be right to stop people communicating via these websites and services when we know they are plotting violence, disorder and criminality.

- David Cameron

Vart är man på väg om man börjar förhindra människor att kommunicera fritt? När en premiärminister gör såna här uttalanden förstår jag att folk börjar tvivla på demokratin…

http://yxen.se

Tue, 02 Aug 2011 14:52:00 +0200

http://yxen.se:

Mamma och Oves projekt.

"Dear Windows, your logic is flawed, sincerely Linux"

Wed, 06 Jul 2011 00:22:19 +0200

“Dear Windows, your logic is flawed, sincerely Linux”

Condensed happiness

Mon, 21 Mar 2011 05:57:01 +0100

Kvinnodagen

Tue, 08 Mar 2011 13:06:00 +0100

Kvinnodagen: Barnvagnsrace och artiklar om “lyckade” damer — jättebra, fast det är nog mest fokus på var den godaste semlan i stan finns. Okej. Läste igår att den tredje vanligaste dödsorsaken hos världens fertila kvinnor är komplikationer efter en dåligt utförd abort. Varför inte ge lite pengar till något bra ändamål istället för att svulla semla?

Föreslår:

International Planned Parenthood Foundation - En jätteorganisation som kämpar för kvinnors rätt att välja när de ska bli gravida, inte bara i “U-länder” utan även i Europa och Amerika.
Oum El Banine (mor och barn) - En organisation i Marocko som ger stöd till fördrivna gravida kvinnor (PayPal-knapp finns längre ner på sidan, varje krona går direkt till organisationen).
Amnesty - Amnesty har på senare år uppmärksammat inte bara samvetsfångar utan även kvinnors mänskliga rättigheter.

Svensk diesel eller europadiesel? Lars Beckman rör till det för sig.

Mon, 07 Mar 2011 22:42:00 +0100

Jag såg nyss en grej som gjorde mig lite förvånad, trots allt. Källkritisk som jag är så kollade jag upp det och hittade följande.

Den här snubben heter Lars Beckman och är moderat riksdagsledamot, han är även suppleant i skatteutskottet och i miljö- och jordbruksutskottet:

Han skrev nyligen en motion tillsammans med en moderatkollega. Frågan är om den är betald av Statoil. Statoil har nämligen en broschyr på sin hemsida som heter “Kom 3% längre”. Det är ju bara att jämföra:

Statoil:
“I Sverige har vi en egen diesel, MK1. Den introducerades för snart tjugo år sedan och var då världens första svavelfria diesel.”
Lars:
“I Sverige använder vi vår egen diesel, MK1. Den introducerades för snart tjugo år sedan och var då världens första svavelfria diesel.”
Statoil:
“Idag är all diesel inom EU svavelfri, men i Sverige har vi fortfarande kvar 1991 års MK1-diesel. Den är tre procent mindre energieffektiv och den ger totalt sett högre utsläpp av koldioxid.”
Lars:
“Trots att all diesel inom EU idag är svavelfri använder Sverige fortfarande 1991 års MK1-diesel, som är tre procent mindre energieffektiv och som totalt sett ger högre koldioxidutsläpp.”
Statoil:
“En unik dieselkvalitet för en liten marknad driver upp priserna. Av Europas alla raffinaderier är det bara fem som tillverkar MK1.”
Lars:
“En unik dieselkvalitet för en liten marknad driver upp priserna. Av Europas alla raffinaderier är det bara fem som tillverkar MK1-diesel.”
Statoil:
“Produktionskostnaden för att tillverka en liter MK1 är ungefär 10 öre högre än det kostar att tillverka svavelfri europadiesel. Men skatten på svavelfri europadiesel är 40 öre högre (50 öre inklusive moms).”
Lars:
“Produktionskostnaden för att tillverka en liter MK1 är cirka 10 öre högre än kostnaden för att producera svavelfri Europadiesel. Men skatten på svavelfri Europadiesel är 40 öre högre (50 öre inklusive moms).”
Statoil:
“Med samma skatt på svavelfri europadiesel som på MK1 skulle därför dieselpriserna kunna sänkas. Det skulle vara möjligt eftersom vi skulle spara i produktionskostnad samt köpa på en mer konkurrensutsatt marknad.”
Lars:
“Skulle man sänka skatten på den svavelfria Europadieseln till samma nivå som MK1 skulle dieselpriserna kunna sänkas, då man sparar i produktionskostnad och kommer in på en mer konkurrensutsatt marknad.”

Alla argument och all information i motionen kommer alltså direkt från Statoil. Men det är ju ganska bra argument? Eller?

Inte om man får tro en undersökning gjord av AVL MTC, “värdens största privatägda och oberoende företag inom drivlineutveckling samt utveckling och tillverkning av mät- och testinstrument”:

Gällande de reglerade avgaskomponenterna uppmättes inte någon signifikant skillnad mellan kolväten, kväveoxider, koldioxid (därmed också bränsleförbrukning) från de olika bränslekvaliteterna. Mängden partiklar från MK1 diesel är 30 % lägre jämfört med EN 590 vilket ger en signifikant höjning av negativa hälsoeffekter vid användandet av EN 590 diesel. Även emissionerna av kolmonoxid var högre för EN590 jämfört med MK 1.

Den här studien är beställd av Preem, som tillverkar MK1. Nu undrar jag varför de inte också köpt en moderat. Studiens slutsats är alltså, för den som inte orkar läsa akademikersvenskan, att koldioxidutsläppen är likadana för båda typerna av diesel, men att europadieseln ger upphov till betydligt mer hälsoskadliga partiklar än MK1.

Min slutsats är att antingen AVL eller Lars Beckman bara hittar på när det gäller koldioxidutsläppen. Skillnaden är väl att AVL gjort en ganska grundlig studie och publicerat både metod och resultat, men mister Beckman har bara kopierat en broschyr. Pinsamt.

Källor:

Edit: Tidigare gick det här inlägget till personangrepp mot Lars Beckman. Det ångrar jag, det är egentligen mot mina principer. Så ska man inte hålla på. Förlåt.

Edit 2: Lars Beckman har gjort något som jag sällan sett en politiker göra, nämligen svarat på det jag skrev online. Det ska han ha creds för. Jag tycker visserligen inte att han svarar på det jag skrev här ovanför, men ändå. Här är hans svar, och mina:

Lars:
Jag har kommenterat hur jag ser på frågan på www.larsbeckman.se [dvs här]

Jag:
Jag tycker att du missar poängen lite i ditt svar. Visst kan man diskutera om man gynnar ett företag eller ett annat. Det jag tycker är viktigare än femtioöringar hit och dit är om den ena dieseln faktiskt är hälsoskadligare än den andra, och om den ena har större miljöpåverkan än den andra. Studien som beställdes av Preem hävdar att växthusemmisionerna är ekvivalenta, men partikelutsläppen är 30% mindre för MK1, en svensk forskare hävdar att det är försumbart. Men frånsett kortsiktiga ekonomiska vinster, är inte miljön och människors hälsa viktigare? Om det nu finns forskning som säger emot dina argument, ge gärna en referens till någon studie som stödjer dem. Inte bara en broschyr producerad av någon som råkar hålla med dig.

Hur ser du på det Lars? För mig verkar det som att politik är som vetenskapens motsats, där man väljer slutsats och sedan letar argument som passar - istället för att ta reda på fakta först.

Lars:
Frågan handlar i det första blogginlägget om jag har påverkats av Statoil när jag skrev motionen, men det har jag inte. Frågan är då på vilket sätt som Preem har påverkat socialdemokraterna eftersom de använder just Preems argument i frågan, och som tidningen Riksdag och departement påpekar idag så tjänar just Preem mycket pengar på att skatteförmånen för deras diesel blir kvar. Som Riksdagsledamot tycker jag att det är viktigt att företräda allmänintresset och inte ett oljebolag. Samma tidning har en artikel där en erkänt välkänd professor konstaterar att ur miljösynpunkt kan man inte mäta någon miljöeffekt av MK 1 i förhållande till Europadiesel. Men jag har full respekt för Preems agerande eftersom de självklart ur affärsmässiga skäl ska försöka slåss för sin produkt.

Jag:
Nåväl, som jag skrev tidigare tycker jag att du missar poängen där. Lobbyister kan ha rätt och de kan ha fel, det bryr jag mig inte så mycket om. Det jag egentligen undrade över var om du kunde förklara var du fått uppgifterna om att koldioxidutsläppen för MK1 “totalt sett är högre” ifrån. Läser man motionen är det ju uppenbart att du helt enkelt litat blint på Statoils version, trots att det finns forskning som visar motsatsen (även om man kan ifrågasätta om studien verkligen är oberoende, när den beställts av Preem som du påpekar).

Trevligt att du svarar på kritik online.

Reversing Wordpress Audioplayer url obfuscation

Sun, 02 Jan 2011 15:14:00 +0100

One of my favourite artists recently posted a new song to his blog. I wanted to download the mp3 file but he uses the Wordpress Audioplayer plugin, which obfuscates the original url of the file being played. The plugin is released under the open source MIT license so I had a look at the source code for decoding these urls. It turns out that the algorithm is really simple. Just look up each character in the obfuscated string in a key. Make a string of the position of each character’s position, represented as a six bit binary number, then just treat this string as a binary representation of an ordinary ascii string. My python version of the algorithm looks like this (download it):

def int2bin(n):
    assert n >= 0, "Number must be positive"
    res = ""
    if n == 0: return "0"
    while True:
        if n == 0:
            return res
        elif n % 2 == 0:
            res = "0" + res
        else:
            res = "1" + res
            n -= 1
        n /= 2

def decode(source):
    key = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_-"
    binary = ""

    for char in source:
        code = key.find(char) # look up each char in the code key
        binary += int2bin(code).rjust(6, "0") # append char index as a six bit binary string
    
    chunks = [] 
    # split string into segments of length 8
    while len(binary) > 0:
        chunks.append(binary[:8]) 
        binary = binary[8:]

    chars = [chr(int(x, 2)) for x in chunks] # convert the segments to chars
    return "".join(chars)

# http://www.mabd.se/?p=682
test = "aHR0cDovL3d3dy5tYWJkLnNlL3VwbG9hZC8yMDEwLzEyL0RlbWVudG9yZXIubXAzA"
print(test, decode(test))

http://wikimirrors.laszlo.nu/

Tue, 07 Dec 2010 19:59:00 +0100

http://wikimirrors.laszlo.nu/

Det var bättre förr

Tue, 07 Sep 2010 17:00:00 +0200

Såg just i min bittorrent-klient att dagens genomsnittliga uppladdningshastighet låg på 1,44MB/s, dvs lika mycket som får plats på såna där 3,5-tums disketter jag använde när jag var liten (specifikationen säger faktiskt 90,0mm och ingenting om några dumma tummar). Eftersom en diskett är 3,3mm tjock så innebär det att all information jag skickat ut det senaste dygnet lagrat på disketter skulle skapa en stapel på 290 meter, ungefär lika hög som Eiffeltornet.

Dagens pajas

Mon, 06 Sep 2010 19:10:00 +0200

En av Filipstads ledande sverigedemokrater, Levi Klausen blev ju lite nätkändis efter att han gjort bort sig i en intervju genom att bara vara sig själv:

Idag påminde Pär mig om den roliga intervjun. Jag började kolla upp mister Klausen (källkritik, blah blah…) och ramlade över hans hemsida… jävlar i min lilla låda. Geocitiesinspirerad design och 90-talsångest. Det blir inte bättre. Trodde jag!

När jag som bäst klickar runt på sidan, eller “Klausen’s partyland” menar jag såklart, så hittade jag hans musikvideos. Partyvarning!

Ett av hans skivomslag. Kommentarer överflödiga.

Vad ska man säga? Jag dör lite av skratt. Dessutom förklarar det här ju mycket av SDs politik, de är inte elaka - de är helt enkelt bara lite efterblivna!

Tänkte bara säga det.

Fri, 03 Sep 2010 19:37:54 +0200

Tänkte bara säga det.

Lite ekonomisk evolutionspsykologi

Fri, 03 Sep 2010 01:32:59 +0200

Laurie Santos berättar om ett experiment där hon och hennes kollegor introducerar en slags valuta hos labbaporna. Frågan var om aporna tenderar att begå samma slags ekonomiska misstag som vi människor. Ungefär tio minuter in börjar det bli riktigt roligt. Jag känner igen mig.

Sat, 28 Aug 2010 02:01:00 +0200

How to kill an unresponsive ssh session

Tue, 27 Apr 2010 17:23:00 +0200

I often find myself in the somewhat cumbersome situation that a currently running ssh session stops responding, often due to a lost connection. The normal ctrl+c of course doesn’t work, the ssh client catches all the usual commands, which is very handy while you are still connected to the host but not very handy at all in this case.

My usual approach has been to switch to another terminal window or shell and then killing the process in question. Today I happened to be skimming through the ssh client’s man page and I found a section about escape characters. Suddenly I gazed upon the glory of the disconnect key sequence: a newline followed by ~.. It works like a charm. As always, I thought I should share.

Emacs, Facebook and lisp

Fri, 23 Apr 2010 01:52:00 +0200

I’m still learning new stuff in Emacs every day. It’s probably one of the main reason why Emacs is my favourite text editor; it’s just plain fun.

I happen to know a little Lisp, which come in handy sometime. Changing or extending the behavíour of a program is seldom easy, fun or even productive. Emacs is of course an exception. Once you know the basics you can do pretty much whatever comes to mind.

Today I made my first attempt at building an “interactive” function. A function that you can run by entering M-x function-name, that is. It’s called facebook-log-fix and I needed it because I really like saving my online conversations. Pidgin does this for me most of the time but when I chat on Facebook I need to save them myself. The problem is that Facebook’s stylesheets takes care of the layout of the chat, so when you simply copy the conversation to a text editor it gets all jumbled up. This simple little function takes care of this for me. Maybe you’ll like it, or just learn something about how to modify Emacs a little. Please tell me if you have got any suggestions for improvements — I’m a pretty big noob when it comes to lisp and Emacs.

Here it goes, just paste it into your .emacs file or whatever.

(defun facebook-log-fix nil
  "Make proper adjustments to a cut'n'pasted Facebook chat"
  (interactive) ; make the function available to the user
  (message "Trying to cleanup Facebook chat")
  (save-excursion ; restore stuff (point, mark and current buffer) when done
    ; Fancy regexp: (name)\n((anything+\n)*?[non-greedy])(time of day)
    (replace-regexp "\\(.*?\\)\n\\(\\(?:.*\n\\)*?\\)\\([0-9][0-9]:[0-9][0-9][a|p]m\\)"
                    "\\3 \\1 \\2\n"
                    nil 0 (buffer-size))))

Loggbok 1997-2010 (to be cont'd)

Thu, 15 Apr 2010 18:33:57 +0200

När jag var tolv år gammal insåg jag en sak. Jag insåg att livet oundvikligen kommer att innebära en rad besvikelser, sorger, förluster, misslyckanden, katastrofer och misstag.

När jag var sexton år gammal insåg jag en sak. Jag insåg att allt som är vackert och bra oundvikligen kommer att ta slut på ett eller annat sätt.

När jag var tjugotre år gammal insåg jag en sak. Jag insåg att ett slut även kan vara en början.

När jag var nästan tjugofem år gammal insåg jag en sak. Jag insåg att ju hårdare man anstränger sig för att inte halka omkull, desto mer gör man illa sig när man väl tappar fotfästet.

"Silhuetter"

Thu, 04 Feb 2010 20:06:00 +0100

Såg just att min vän AT blev intervjuad i Arbetarbladet. Han pratar om skräckserieantologin “Silhuetter” som gavs ut förra hösten på deras egna, ganska nystartade, förlag Myling Media (vars hemsida jag för övrigt totade ihop för länge sedan när de fortfarande hette SIC Mediagroup eller något i den stilen).

Tyvärr har jag inte läst Silhuetter än; när Myling var på bokmässan förra året i samband med boksläppet blev jag såklart sjuk. Gillar du serier, speciellt i skräckgenren, så gå in på deras hemsida och kolla runt lite!

TechnoFeminism

Sat, 30 Jan 2010 16:22:00 +0100

Första uppgiften i kursen Genus och teknik i vår värld idag, eller bara Genus och teknik, blev att översätta en del av kursboken TechnoFeminism av Judy Wajcman till svenska. Så här kan det se ut:

Pierre Bourdieu’s concepts of habitus and embodied cultural capital are in vogue as a way of grounding cultural theory in a sociology of practice. The habitus of social relations and practices include machines; but what is less well understood is how machines themselves have a habitus and embody particular forms of cultural capital.

Det är ganska svårt. Speciellt med alla engelska genusteoretiska och sociologiska begrepp, men det ger ändå en mycket djupare förståelse av texten så det känns helt klart värt det. Det är tur att det bara är några sidor; det tar sjukt lång tid.