ed reimplementation contest

Let's reimplement ed with modern languages!

10 INPUT
20 PRINT "?"
30 GOTO 10

inb4 Enterprise Ed in C#

Something about Haskell's [coe]interact[/code].

#include <stdio.h>

int main(void)
{
  while (getchar() != EOF) {
    printf("?\n");
  }

  return 0;
}

>>1
Nice try Cudder

import Control.Monad
main = do getLine >>= (\p -> when (p `compare` "q" /= EQ) $ putStrLn "?" >> main)

>>6
Ooops, you can drop the first do. I'm new to HASKAL, forgive me. :(

>>7
NO EXCEPTIONS

ed  R *a  W "?",!  G ed

Where's the ENTERPRISE C# or Java version?

[span]how?[/span]

>>5
/* Anonix ed - public domain */

#include <limits.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

void int_handler(int);
void hup_handler(int);

char *prompt = "";

int main(int argc, char **argv){
  char line[LINE_MAX];
  int c;
  while((c = getopt(argc, argv, "p:s")) != -1)
    switch(c){
      case 'p':
        prompt = optarg;
        break;
      case 's':
        break;
      case '?':
        printf("Usage: %s [-p string] [-s] [file]\n", argv[0]);
        return EXIT_FAILURE;
      default:
        abort();
    }
  signal(SIGINT, &int_handler);
  signal(SIGHUP, &hup_handler);
  signal(SIGQUIT, SIG_IGN);
  for(
    fputs(prompt, stdout) && fflush(stdout);
    fgets(line, LINE_MAX, stdin) && strcasecmp(line, "q\n");
    printf("?\n%s", prompt) && fflush(stdout));
  return 0;
}

void int_handler(int n){
  fpurge(stdin);
  printf("\n?\n%s", prompt);
  fflush(stdout);
}

void hup_handler(int n){
  _Exit(0);
}

[code]public class Ed {
  public static void main(String[] args) {
    while (true) {
      System.in.read();
      System.out.println("\n?");
    }
  }
}

(define (ed) ((read)
              (display '?) (newline)
              (ed)))

>>11
using strcasecmp

(loop (read-line) (princ "?"))

Yeah, I thought about doing that once.

(defpackage #:led
  (:use common-lisp)
  (:export start))

(in-package #:led)

(defvar *edit-functions*)
(defvar *buffer*)
(defvar *dot-l* 0)
(defvar *dot-r* 0)

(defun start (&optional (init-dot '(0 . 0)))
  (setf *edit-functions*
    (list (cons "o" #'open-phrase)
          (cons "!" #'(lambda ()
                (eval (read))
                (wait-for-input)))
          (cons "q" #'quit-editor)))
  (setf *dot-l* (car init-dot)
        *dot-r* (cdr init-dot))
  (setf *buffer* "Here is some default text for testing.")
  (wait-for-input))

(defun wait-for-input ()
  (let ((called-function (assoc (read-line
                 *edit-functions*
                 :test #'string=)))
    (if called-function (funcall (cdr called-function))
        (progn (format t "? ")
           (finish-output)
           (wait-for-input)))))

  (defun open-phrase ()
    (let ((phrase (read-line)))
      (setf *buffer* (replace-dot phrase *buffer* *dot-l* *dot-r*)))
    (wait-for-input))
   
  (defun replace-dot (phrase string dot-l dot-r)
    (concatenate 'string (subseq string 0 (+ dot-l))
         phrase
         (subseq string (+ dot-r) (length string))))

  (defun quit-editor ()
    ; Does nothing yet; will check for changes in the future.
    )

Make that,
(loop (read-line) (format t "?~&"))

>>16
You're missing a paren after:
  (let ((called-function (assoc (read-line

whats an ED program

>>19
it's like unix 'yes', except it outputs '?' instead of 'y' and it does it when it reads '\n' on stdin

>>18
Weird. Must have been bit rot.

>>20
yes | rm *.*

>>21
bit rot

>>22
rm *.* ? why the fuck not just rm * ?

Guess what would be cool. A thread about actual, fully functional ed reimplementations in readers' languages of choice, not reimplementations of the most tired joke in the history of programming. This is about as entertaining or useful as learning that the `hello world' program in a language I've never heard about is approximately ``print "hello world"'' (Thanks, Wikipedia. I really appreciate you).

only deletes files with an extension
i.e. README.txt but not README

>>25
Hello world is a good example because it usually is able to represent a majority of how the language works.

>>27
-module(example).
-export([main/0]).

main() ->
    io:format("Hello world!~n").
Now, how much of the language do you think I have shown?

Unless you write a "hello world" program like
-module(hello).
-export([main/0, printer/1, worker/1]).
-define(NWORKERS, 8).

main() ->
    PID = spawn(?MODULE, printer, ["hello world" ++ [10]]),
    % ?MODULE is a macro which expands to the name of the current module
    lists:foreach(fun(_) -> spawn(?MODULE, worker, [PID]) end, lists:seq(1, ?NWORKERS)),
    ok.

printer([]) -> ok;
printer([C | String]) ->
    receive
        {give_me_a_char, PID} ->
            PID ! {'here you go', C},
            receive {thanks, PID} -> ok end
    end,
    printer(String).

worker(PID) ->
    PID ! {'give_me_a_char', self()},
    receive
        {'here you go', C} ->
            io:format("~c", [C]),
            PID ! {'thanks', self()},
            worker(PID)
    after
        1000 -> timeout
    end.
you aren't going to show even the basics of what makes a language special.

>>25
Forgot your sage

>>29
Remembered your sage

>>30
Haxed your anus

Please refrain from posting non-programming related material.

Thank you.

>>32

Please refrain from posting "Please refrain from posting non-programming related material.".

Thank you.

REFRAIN MY ANUS

lets reimplement emacs with modern languages and get rid of that SCHEME shit

>>31
I can't even read thatfucking line, i don't give a shti what your views are, get the hell off and drink paint thinner.

drink paint thinner
My hobby!

>>33
Please refrain from redundant punctuation. Thank you.

>>38
plz rfrn frm excss lttrs

>>39
>>38
Please refrain from ``Please refrain from''.

>>40
^{Please refrain from using 66faggot quotes99}.

>>41

Please refrain

>>42

Please

>>43

 

Back to the topic!

print "?\n" while(<>)

Of course, VALID PERL CODE

[code]
#!/usr/bin/perl
#
#       interjection.pl
#
#   Run in a loop, automating the following sequence of actions:
#
#   1.  Scan front page of selected boards, collect list of threads.
#   2.  Scan thread for erroneous usage of "Linux", in the context of
#       describing a complete operating system.
#   3.  Interject with random Stallman picture and apt pasta, then sleep.
#   4.  At the end of each sweep, sleep for a few minutes before repeating
#       again, ad nauseam.

use warnings;
use strict;

use LWP::UserAgent;
use HTML::Form;
use Data::Dumper;
use DateTime;


my @threads;

my $iteration = 0;
my %boards = ( g => 'zip' );                        # Hash containing boards to sweep.
my $log_file = "$ENV{HOME}/log_interjection";       # Log file location
my @ns_headers = (
    'User-Agent' => 'Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.0.9) Gecko/2009050519 Iceweasel/3.0.9 (Debian-3.0.9-1)',
    'Accept-Charset' => 'iso-8859-1,*,utf-8',
    'Accept-Language' => 'en-US',
);

our $logging_enabled = 1;
our $pic_path = "/mu-nfs/pic/stallman/";            # Directory holding delicious Stallman pictures
our $scan_interval = 240;                           # Interval between each sweep of all boards
our $min_post_interval = 30;                        # Minimum delay after each individual interjection
our $post_interval_variation = 15;                  # Upper threshold of random additional delay after interjecting

our $total_posts = 0;
our @handsome_rms_pics = <$pic_path*>;
our @interjected;                                   # Track posts already responded to.
our $browser = LWP::UserAgent->new;
our $rms_pasta =<<FIN;

open LOGGING, ">", $log_file or die $!;  
print LOGGING "...logging to $log_file\n";



&log_msg("### ------------ interjection.pl ------------ ###");
&log_msg("###");
&log_msg("### \$pic_path:\t\t\t$pic_path");
&log_msg("### \$scan_interval:\t\t$scan_interval");
&log_msg("### \$min_post_interval:\t\t$min_post_interval");
&log_msg("### \$post_interval_variation:\t$post_interval_variation");
&log_msg("###");
&log_msg("### ----------------------------------------- ###");
&log_msg("Entering main loop...");

while (1) {
    &log_msg("Iteration $iteration");
    for (sort keys %boards) {
        # Aggregate listing of threads on front page of board,
        # pass each thread to &scan_posts to read.

        my ($srvr, $board) = ($boards{$_}, $_);
        my $board_url = "http://$boards{$board}.4chan.org/$board/imgboard.html";
        my $page = ($browser->get($board_url, @ns_headers))->content;
        $@ and print STDERR "$!\n";
        push @threads, $page =~ /<span id="nothread(\d+)">/g;

        &scan_posts("http://$srvr.4chan.org/$board/res/$_.html") for @threads;
    }

    &log_msg("Ending iteration $iteration. Will resume in $scan_interval seconds.\n");
    sleep($scan_interval);  # long pause between sweeps.
    $iteration++;
}

sub scan_posts {
    my $thread_url = shift;
    my %posts;
    my $page = ($browser->get($thread_url, @ns_headers))->content;


    # 'name' attribute holds post number, post body is inside blockquote tags.
    %posts = $page =~
        /<a name="(\d+)"><\/a>.*?<blockquote>(.*?)<\/blockquote>/gs;


    for my $no (sort keys %posts) {
        $_ = $posts{$no};
              
        # Strip any remaining tags in post body.
        s/<.*?>.*?<\/.*?>//g;
        s/<.*?>//g;


        # If post contains 'Linux' or some obvious variant, not followed
        # by 'kernel' **AND** no mention of GNU/Linux or GNU plus Linux,
        # then respond.

        if (/L\s*                                   # (L)inux
                (
                    [1i]\W*n\W*u\W*             |   # L(inu)x
                    u\W*n\W*[1i]\W*             |   # L(uni)x
                    [0o]\W*[0o]\W*n\W*[1i]\W*       # L(ooni)x
                )
            x                                       # Linu(x)
            (?!\s+kernel)/ix
                && ! /GNU\s*(\/|plus|with|and|\+)\s*(Linux|Lunix)/i) {

            my $transpose = $1 =~ /u\s*n\s*i\s*/i;
            next if grep {$_ == $no} @interjected;

            &log_msg("URL: $thread_url post: $no");
            &log_msg("POST: $_");
            &log_msg("* Transposed! *") if $transpose;

            &interject($thread_url, $no, $page, $transpose);
            push @interjected, $no;
            $total_posts++;
            &log_msg("Interjection to post $no successful. Freedom delivered! Total posts: $total_posts");
        }
    }
}

sub interject {
    # Prepare pasta, fill form fields, find submit
    # button and click it, then sleep for a semi-
    # random amount of time.

    my ($url, $post_no, $page, $transpose) = @_;
    my ($form, $interjection, $submit_button, $pic);

    $interjection = ">>$post_no\n\n" . $rms_pasta;
    $interjection =~ s/Linux/Lunix/g if $transpose;
    $pic = &select_pic;
    &log_msg("attached pic: $pic"); 

    $form = HTML::Form->parse($page, $url);
    $form->value('com', $interjection);
    $form->value('upfile', $pic);
    $submit_button = (grep {$_->type eq 'submit'} $form->inputs)[0];
    $browser->request($submit_button->click($form));

    sleep($min_post_interval + rand($post_interval_variation));
}

sub log_msg {
    my $msg = shift;
    exit if ! $logging_enabled;
    my $now = DateTime->now;
    syswrite LOGGING, $now->ymd . " " . $now->hms . ": $msg\n" or die $!;
}

sub select_pic {
    # Select a file from the array and remove its entry.

    &log_msg("No more sexy RMS pictures left... ;_;\n") && exit if ! @handsome_rms_pics;
    return splice @handsome_rms_pics, int(rand(@handsome_rms_pics)), 1;
}
[code]

>>48
Great spambot bro. Its feels like /g/ has 50% more neckbeard.

>>48
#/usr/bin/perl

use strict;
use utf8;

use Board::Request;
use Board::Errors;

# exports $board object, consumes some parts of @ARGV
use Board::Utilities;

$USAGE_ARGS        = "BOARD [OPTIONS]";
$USAGE_TEXT        = <<HERE;
Scans board for replies cintaining "GNU/Linux*" and replies "linux" to them.
HERE

while(1){
    my @threads=@{ ($board->content(PAGE 0) or {})->{threads} or [] };

    for my $thread(@threads){
        my @posts=@{ $thread->{posts} };
       
        my %replied;
       
        for(reverse @posts){
            my $num=$_->{num};
           
            if($_->{comment}=~/^>>(\d+)\s*linux$/s){
                $replied{$1}=1;
                next;
            }
           
            next unless $_->{comment}=~m!GNU/Linux\*!;
            next if $replied{$num};
           
            $board->post(
                parent        => $_->{parent},
                password    => 'qwerty',
                comment        => ">>$num\nlinux",
            );
           
            print ucfirst $board->errstr,"\n" and next if $board->error;
           
            print "[$_->{num}]\n";
        }
    }
   
    sleep 10;
}

>>50
EXPERT PERL PROGRAMMER

Still no ed…

Xarn is a bad boyfriend

54 Name: Anonymous 2011-04-01 15:10

?