#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <libg1m.h>
#define DIM (FC_MAX_UNI * 8 + 1)

int main(int ac, char **av)
{
    if (ac != 2 || !strcmp(av[1], "-h") || !strcmp(av[1], "--help")) {
        fprintf(stderr, "Usage: %s <path/to/file>\n", av[0]);
        return (1);
    }

    g1m_t *handle = NULL;
    int err = g1m_open(&handle, argv[1], g1m_type_mcs);
    if (err) {
        fprintf(stderr, "An error occured: %s\n", err == g1m_error_nostream
            ? strerror(errno) : g1m_strerror(err));
        return (1);
    }

    for (int i = 0; i < handle->count; i++) {
        g1m_mcsfile_t *f = handle->files[i];
        if (!f || f->head.type != g1m_mcstype_program)
            continue;

        /* on suppose que les multi-caractères d'une longueur supérieure à 1
         * caractère ne sont pas autorisés dans les noms de fichiers et
         * mots de passe. */
        wchar_t name[DIM], pass[DIM];
        fc_mbstous(name, f->head.name, DIM);
        fc_mbstous(pass, f->head.password, DIM);

        printf("* %ls (", name);
        if (pass[0]) printf("mot de passe: %ls)\n", pass);
        else printf("pas de mot de passe)\n");
    }

    g1m_free(handle);
    return (0);
}

cake@66 :: lib/libg1m » mcsfile tests/TSAVE.g2m
$GLOBAL/ALPHAMEM:  alpha memory
$GLOBAL/SETUP:     setup
@CONICS/conicmem:  unknown content (4 octets)
@DYNA/COND:        unknown content (44 octets)
@E-CON2/Econ3Now:  unknown content (300 octets)
@FINANCE/fina_mem: unknown content (252 octets)
@RECUR/RECRG:      unknown content (168 octets)
@REV2/CLIP:        unknown content (8 octets)
@REV2/NAT_CLIP:    unknown content (8 octets)
@RUNMAT/REPLAY:    unknown content (16 octets)
@RUNMAT/RUN2D1:    unknown content (772 octets)
@SSHEET/SHEET:     spreadsheet (0 columns, 0 rows)
@SSHEET/SS:        spreadsheet (4 columns, 2 rows)
@STAT/C_CND:       unknown content (12 octets)
@STAT/G_CND:       unknown content (96 octets)
@STAT/G_CNDEX:     unknown content (448 octets)
@STAT/STATap:      unknown content (312 octets)
@STAT/STATapX:     unknown content (196 octets)
@TABLE/RANGE:      unknown content (36 octets)
main/1:            unknown content (16 octets)
main/1LIST1:       list 1 (1 columns)
main/1LIST1:       list 1 (from listfile 1, 1 columns)
main/1LIST2:       list 2 (1 columns)
main/1LIST2:       list 2 (from listfile 1, 1 columns)
main/FACTOR:       unknown content (24 octets)
main/MAT_A:        matrix A (13 columns, 7 rows)
main/MAT_B:        matrix B (4 columns, 4 rows)
main/PICT1:        picture 1 (double 128x64 image)
main/STATV0:       unknown content (160 octets)
main/STATV1:       unknown content (28 octets)
main/STR1:         string 1
main/STR2:         string 2
main/VWIN:         unknown content (132 octets)
system/DESSIN:     program (no password)
system/G'BLCKJK:   program (no password)
system/G'DEMIN:    program (no password)
system/G'OHNO:     program (no password)
system/G'POM:      program (no password)
system/G'SNAKE:    program (no password)
system/G'SQUEST:   program (no password)
system/H'BITDEV:   program (no password)
system/H'TETDEV:   program (no password)
system/M'CBEZ:     program (no password)
system/M'PGCD:     program (no password)
system/M'PREM:     program (no password)
system/MINI:       program (no password)
system/T'BITE:     program (no password)
system/T'KEY:      program (no password)
system/T'STR:      program (no password)
system/Z'BALL:     program (no password)
system/Z'BAZ:      program (no password)
system/Z'BAZR:     program (no password)
system/Z'DD:       program (no password)
system/Z'DEPRIM:   program (no password)
system/Z'DOG:      program (no password)
system/Z'DVTEST:   program (no password)
system/Z'EXE:      program (no password)
system/Z'FLECHE:   program (no password)
system/Z'HACKR:    program (no password)
system/Z'IE:       program (no password)
system/Z'IENU:     program (no password)
system/Z'NON:      program (no password)
system/Z'OUI:      program (no password)
system/Z'PELLE:    program (no password)
system/Z'REACT:    program (no password)
system/Z'SELEC:    program (no password)
system/Z'SH:       program (no password)
system/Z'SHTDWN:   program (no password)
system/Z'UTILE:    program (no password)
system/Z'YOLO:     program (no password)
cake@66 :: lib/libg1m » mcsfile tests/cas/EULER.CAS
EULER: program (no password)
cake@66 :: lib/libg1m » mcsfile tests/casemul/test.cas
List 1:   list 1 (1 columns)
Mat C:    matrix C (1 columns, 1 rows)
Picture1: capture 1 (128x64)

#include <libg1m.h>
#include <string.h>
#include <errno.h>

int main(int ac, char **av)
{
    if (ac != 3) return (0);

    /* get file */
    g1m_t *handle; int err;
    if ((err = g1m_open(&handle, av[1], 0))) {
        printf("Could not open file: %s\n", g1m_strerror(err));
        if (err == g1m_error_nostream)
            printf("Errno was %d: %s\n", errno, strerror(errno));
    }

    /* write file */
    if ((err = g1m_write(handle, av[2])))
        printf("Encountered an error while writing: %s\n", g1m_strerror(err));

    /* free the handle */
    g1m_free(handle);
    return (0);
}