Der Code-Schnippsel-Thread

[thosch97]

DosAmp schrieb:  

thosch97 schrieb:  Gut, wusst ich nicht. Wo krieg ich die KCodes her?

Die Bedienungsanleitung ist dein Freund (und niemand kann einen TI-Taschenrechner zu Beginn ernsthaft ohne solche programmieren).
[IMaGe]http://www.img-share.net/uploads/218getKey.jpg[/IMaGe]
Ich glaub, das Schema sollte leicht verständlich sein.

Kurzanleitung
Trotzdem Danke!
EDIT: Gut, jetzt hab ich auch die richtige Bedienungsanleitung als PDF. Aber 715 Seiten sind schon heftig...

[thosch97]

So, WUERFEL v2.1

Code:

PROGRAM:WUERFEL
:Lbl A
:ClrHome
:Disp randInt(1,6)
:Disp "Weiter: ENTER"
:Disp "Stop: CLEAR"
:Repeat K≠0
:getKey→K
:End
:If K=105:Goto A

Jeder, der auch nur ein bisschen programmieren kann, wird wahrsceinlich sagen: "Hey, Moment mal! Man kann das doch auc h mit etwas anderem als CLEAR beenden!" Richtig. Sowas nennt sich Code einsparen.

[LukeGee]

Ist zwar ein wenig mehr, als ein Code-Schnipsel, aber egal.

Hab mal für mich ein Config-Deploy-and-Check Script geschrieben.

Aus dem ganz einfachen Grund, dass ich oft z.B. Testsysteme einrichte und ich da aber nicht auf meine Configfiles verzichten will. Ich hab ja meine Configfiles alle in einem Git-Repo, aber das ganze ist trotzden ziemlich lästig, weil ich jedes mal die ganzen Files an die richtige Stelle legen muss.

Man legt sich für das Skript eine Profil-Datei an (Beispiel anbei) wo man definiert, wo die Source-File liegt und wo die hinkommen soll. Das Skript liest das aus und kopiert die Dateien eben an die Stelle. Außerdem kann man damit eben Checken, ob noch alle Files up-to-date sind.

Die Profil-Dateien sind einfach ne Perl-Datenstruktur, weil ich mir damit dämliches parsen erspare und die auch nicht so wirklich umständlich sind zu editieren, sollte selbsterklärend sein.

Sehr sehr gut möglich, dass das Skript irgendwo Quirks und Bugs hat weil mir diese ganze Filepath-Friemelei schon wieder ziemlich auf den Senkel ging. Habs ein paar mal getestet, da gings soweit, aber ich bin mir ziemlich sicher, dass ich irgendwas irgendwo vergeigt hab :>

Es ist aber immerhin so klever, dass wenn man im Profil nur ein Verzeichnis angibt (wie in der Beispiel-Datei, z.B. '.vim' oder '.mutt') dass es das Verzeichnis nach Dateien durchsucht, diese kopiert und auch für jede einzelne nen Integritätscheck macht.

HF.

//EDIT: Hab mal ein Repo dafür angelegt.
http://github.com/lukasg/configDeploy

[LukeGee]

Langeweile-Ultra-Thin-cat mit diet libc und libowfat.

/opt/diet/bin/diet gcc -Wall -Os -o mycat mycat.c -static -lowfat

lukas@q9400-arch:~ $ du -bh mycat
5.3K mycat

Code:

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

#include <buffer.h>
#include <open.h>

#define PROGRAM "mycat"
#define VERSION "0.1"

#define FD_STDIN  0
#define FD_STDOUT 1

void cat( const char *filename )
{
    int fd, len;
    char buf[BUFSIZ];

    if ( *filename == '-' )
        fd = FD_STDIN;
    else
        fd = open_read( filename );

    while ( ( len = read( fd, buf, sizeof( buf ) ) ) > 0 ) {
        if ( write( FD_STDOUT, buf, len ) != len ) {
            buffer_puts( buffer_2, "Fatal: short write" );
            buffer_putnlflush( buffer_2 );
            exit( EXIT_FAILURE );
        }
    }

    close( fd );
}

int main( int argc, char *argv[] )
{
    int i;
    for ( i = 1; i < argc; i++ ) {
        if ( argv[i][0] == '-' && argv[i][1] != 0 ) {
            switch ( argv[i][1] ) {
                case 'h':
                    buffer_puts( buffer_1, PROGRAM " [-hv] filename ..." );
                    buffer_putnlflush( buffer_1 );
                    return EXIT_SUCCESS;
                case 'v':
                    buffer_puts( buffer_1, PROGRAM " version " VERSION );
                    buffer_putnlflush( buffer_1 );
                    return EXIT_SUCCESS;
                default:
                    return EXIT_FAILURE;
            }
        }
    }

    for ( i = 1; i < argc; i++ ) {
        if ( argv[i][0] == '-' && argv[i][1] != 0 )
            cat( "-" );
        else
            cat( argv[i] );
    }

    return EXIT_SUCCESS;
}

[windowsneptune]

thosch97 schrieb:  So, WUERFEL v2.1

Code:

PROGRAM:WUERFEL
:Lbl A
:ClrHome
:Disp randInt(1,6)
:Disp "Weiter: ENTER"
:Disp "Stop: CLEAR"
:Repeat K≠0
:getKey→K
:End
:If K=105:Goto A

Jeder, der auch nur ein bisschen programmieren kann, wird wahrsceinlich sagen: "Hey, Moment mal! Man kann das doch auc h mit etwas anderem als CLEAR beenden!" Richtig. Sowas nennt sich Code einsparen.

TI 84 oder 83?

[thosch97]

TI-84 Plus

[windowsneptune]

Hab nen Voyage 200, Buchse tot, löten hilft nicht------>Muss alles selbst schreiben und keine Games

[DosAmp]

Kleiner PHP-Codefetzen, um zum Beispiel auf einem Freehoster ein großes hochgeladenes Zip-Archiv zu entpacken, anstatt hunderte winzige Dateien hochzuladen. Benötigt das zip-Modul.

PHP-Code:

<?php
$zip = new ZipArchive();
if ($zip->open('/home/dosamp/public_html/www/blog.zip') == TRUE) {
    $zip->extractTo('/home/dosamp/public_html/www/');
    $zip->close ();
    echo "OK";
}
else {
    echo "Error";
}
?>

[Blue]

DosAmp schrieb:  Kleiner PHP-Codefetzen, um zum Beispiel auf einem Freehoster ein großes hochgeladenes Zip-Archiv zu entpacken, anstatt hunderte winzige Dateien hochzuladen. Benötigt das zip-Modul.

PHP-Code:

<?php
$zip = new ZipArchive();
if ($zip->open('/home/dosamp/public_html/www/blog.zip') == TRUE) {
    $zip->extractTo('/home/dosamp/public_html/www/');
    $zip->close ();
    echo "OK";
}
else {
    echo "Error";
}
?>

rockt

[chiaki]

kaum jemand hatn zipmodul