Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: f0be2045f4
Fetching contributors…

Cannot retrieve contributors at this time

76 lines (69 sloc) 3.023 kB
;;; -*- Mode: Lisp; Syntax: Common-Lisp; Base: 10 -*-
(defpackage CLAWK
#+:Genera (:use COMMON-LISP CLOS REGEX)
#-:Genera (:use COMMON-LISP REGEX)
#+:Genera (:import-from "SCL" DEFINE-SYMBOL-MACRO)
(:export
;; install the #/../ reader
"INSTALL-REGEX-SYNTAX"
;; convert any accepted representation of a pattern into a compiled pattern
"GET-MATCHER-FOR-PATTERN"
;; Specials
"*CURFILE*" "*CURLINE*" "*FS*" "*RSTART*" "*RLENGTH*" "*REND*"
"*REGS*" "*FIELDS*"
"*NR*" "*FNR*" "*NF*" "*SUBSEP*"
"*LAST-MATCH*" "*LAST-SUCCESSFUL-MATCH*"
;; AWK-like functions
"SUB" "GSUB" "SPLIT" "INDEX" "MATCH" "SUBSTR"
"$SUB" "$GSUB" "$SPLIT" "$INDEX" "$MATCH" "$SUBSTR"
"$SUBSTR" "~" "/~" "!~"
;; Handy macros
"WITH-PATTERNS" "WITH-FIELDS" "WITH-REGS" "WITH-SUBMATCHES"
"IF-MATCH" "WITH-MATCH" "MATCH-CASE" "MATCH-WHEN"
"TOKENIZE"
;; iterate across a stream or file, evaluating the body for each
;; line
"FOR-STREAM-LINES" "FOR-FILE-LINES"
;; iterate across a stream or file, splitting the lines and
;; evaluating the body for each line
"FOR-STREAM-FIELDS" "FOR-FILE-FIELDS"
;; iterate across the lines in a stream or file, splitting the lines
;; and evaluating the AWK-like clauses for each line.
"WHEN-STREAM-FIELDS" "WHEN-FILE-FIELDS"
;; define a function on a set of files that closely mimics the
;; structure of an AWK program.
"DEFAWK"
;; handy generic functions
"$+" "$-" "$*" "$/" "$REM" "$++" "$==" "$<" "$>" "$<=" "$>=" "$/="
"$MIN" "$MAX" "$ZEROP" "$LENGTH"
;; arithmetic functions
"$ATAN2" "$COS" "$SIN" "$EXP" "$EXPT" "$INT" "$LOG" "$SQRT" "$SRAND" "$RAND"
;; AWK-like I/O
"$PRINT" "$FPRINT"
;; hashtable-based "arrays"
"$ARRAY" "$AREF" "$FOR" "$IN" "$DELETE"
;; Fields access. These don't follow the *..* convention, but they
;; still stand out visually, so I think the goal of that convention
;; is still met
"$N" "$0" "$1" "$2" "$3" "$4" "$5" "$6" "$7" "$8" "$9" "$10"
"$11" "$12" "$13" "$14" "$15" "$16" "$17" "$18" "$19" "$20" "$NF"
;; Fields access, as numbers
"$#N" "$#0" "$#1" "$#2" "$#3" "$#4" "$#5" "$#6" "$#7" "$#8" "$#9" "$#10"
"$#11" "$#12" "$#13" "$#14" "$#15" "$#16" "$#17" "$#18" "$#19" "$#20" "$#NF"
;; Coercion routines, although the generic functions above reduce
;; the need for them.
"STR" "NUM" "INT"
;; Register access.
"%N" "%0" "%1" "%2" "%3" "%4" "%5" "%6" "%7" "%8" "%9"
"%10" "%11" "%12" "%13" "%14" "%15" "%16" "%17" "%18" "%19" "%20"
;; Register access, as numbers
"%#N" "%#0" "%#1" "%#2" "%#3" "%#4" "%#5" "%#6" "%#7" "%#8" "%#9"
"%#10" "%#11" "%#12" "%#13" "%#14" "%#15" "%#16" "%#17" "%#18" "%#19" "%#20"
))
(defpackage CLAWK-USER
(:use COMMON-LISP CLAWK))
(defpackage CLAWK-TEST
(:use COMMON-LISP CLAWK))
(defun delete-clawk ()
(delete-package :CLAWK-TEST)
(delete-package :CLAWK))
Jump to Line
Something went wrong with that request. Please try again.