view release on metacpan or  search on metacpan

perllib/sdf/home/stdlib/langdefs.sdm  view on Meta::CPAN

    catch class const delete friend inline new operator overload private\
    protected public throw try virtual:

# Note: extensible is a Visibroker extension to the OMG standard
idl:\
	:pb=^\d?*?\d?\p\d?\(\a?\)(\d|{):bb={:be=}:cb=/*:ce=*/:ab=//:\
	:ae=$:sb=":se=\e":lb=':\
	:le=\e':tl:\
	:kw=any attribute boolean case char const context default double\
	enum exception extensible float in inout interface long module octet oneway\
	out raises readonly sequence short string struct switch typedef\
	unsigned union void FALSE Object TRUE #define #undef #include #if\
	#ifdef #ifndef #elif #else #endif #defined #error #pragma:

fortran|f77|fc|f|for:\
    :pb=(function|subroutine|program)\d\p\d?\(\a?\):\
    :bb=(function|subroutine|program)\d\p\d?\(\a?\):be=^\dend:\
    :cb=^c:\
    :ce=$:\
    :sb=':\
    :se=':\
    :oc:\
    :kw=call common complex continue dimension do double else elseif\
    end endif equivalence format function\
    goto if include integer \
    parameter precision real return stop subroutine:

delphi|pascal|pas|int:\
    :pb=(^\d?procedure|function|program\d\p\d|\(|;|\:)|(=\d?record\d):\
    :bb=\dcase|begin\d:be=\dend|forward\d|;:\
    :cb={:ce=}:\
    :ab=\(*:ae=*\):\
    :sb=':se=':\
    :kw=absolute abstract and array as asm assembler at begin case cdcel\
    class const constructor default destructor div do downto dynamic else\
    end except export exports external far file finally for forward\
    function goto if implementation in index inherited initialization\
    inline interface interrupt is label library messages mod name near\
    nil nodefault not object of on or override packed private procedure\
    program property protected public published raise read record repeat\
    resident set shl shr stored string then to try type unit until uses\
    var virtual while with write xor

sh:\
    :pb=(;|^)\d?\p\(\)(\d|{):\
    :ab=\$#:ae=(\d?|\a?):\
    :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\
    :le=\e':tl:\
    :kw=break case cd continue do done \
    elif else esac eval exec exit export \
    fi for if in then while until \
    read readonly set shift test trap umask wait:

csh:\
    :cb=#:ce=$:sb=":se=\e":lb=':\
    :ab=\$\a?#:ae=(\d?|\a?):\
    :le=\e':tl:\
    :kw=alias alloc break breaksw case cd chdir continue default\
    echo else end endif endsw exec exit foreach \
    glob goto history if logout nice nohup onintr repeat set\
    setenv shift source switch then time \
    while umask unalias unset wait while @ env \
    argv child home ignoreeof noclobber noglob \
    nomatch path prompt shell status verbose :

# From Programming Python
python|jpython|py:\
        :pb=^\d?\p\d?\(\a?\)(\d|\:):cb=""":ce=""":ab=#:\
        :ae=$:sb=":se=\e":lb=':\
        :le=\e':tl:\
        :kw=print del pass break continue return raise import from \
            global access exec in if elif else while for try finally \
            except class def or and not is lambda:

# TJH added in a quick set of COBOL things ... why not!
cobol:\
    :ab=*:ae=$:
    :kw=SECTION CALL PERFORM VARYING FROM BY UNTIL\
    IF END-IF ELSE NOT LESS AND OR EQUAL COMPUTE ADD SUBTRACT\
    MOVE TO EXIT SEARCH DIVISION AUTHOR GO TO GOTO\
    PIC COMP COMP-5 STRING PROGRAM-ID
mimscobol|pcom|precom:\
    :ab=*:ae=$:
    :kw=SECTION CALL PERFORM VARYING FROM BY UNTIL\
    IF END-IF ELSE NOT LESS AND OR EQUAL COMPUTE ADD SUBTRACT\
    MOVE TO EXIT SEARCH DIVISION AUTHOR GO TO GOTO\
    PIC COMP COMP-5 STRING PROGRAM-ID\
    EXEC END-EXEC MACRO MEND
!endblock