XT Git

Repository browser, commits, branches, diffs, and smart HTTP Git transport inside the XT desktop.

Signed in as

guest

Signed in Read

Repositories

BearSSL
themaster • Read
elks-enhanced
themaster • Read
SSH Daemon Project
themaster • Read
Word Unperfect
themaster • Read

elks-enhanced

publicRead

Owner: themasterBranch: masterCommits: 6893Updated: 2026-04-19 00:15

Git CLI clone URL

git clone https://www.xt-emporium.com/git/elks-enhanced.git

Fullscreen desktop URL

Code Commits History Branches Bug Reports Discussions Compare Settings

elks-enhanced / elkscmd / unused / prems / prem / enlit.c

File editor

/*
 * Enigi literalon.
 * Redonas 1, se la literalo estis ne maksimume longa,
 *    alie 0.
 *
 * $Header$
 * $Log$
 */

#include "enbit.h"

int en_lit(void)
{
    NIVEL lon;
    register FRAZ d;

    EN_LLON( lon );
    ++lon;
    for ( d=mn_l; d<mfin && d-mn_l<lon; d++ ){
#ifdef X_KOD
        *d = x_malkod();
#else 
        { register int i, j = 0;
            for ( i=0x80; i; i >>= 1 ){
                if ( EN_BIT() ) j += i;
            }
            *d = j;
        }
#endif /* X_KOD */
        mkre_litf( d );
    }
    if ( d-mn_l < lon ) longjmp( meraro, -1 );
    mn_l = d;
    return( lon < MAKSLITLON );
}

Commit message

This repository is read-only for this account.

Repository snapshot

Current branch
master
Visibility
public
Your access
Read
Remote
Configured

File activity

View file history