joachim/racket-random
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

css securitylab & fop parser

Browse source
This commit is contained in:
joachimschmidt557 2020-02-16 12:53:58 +01:00
parent 7bbf3a5070
commit 1eadfe70da
5 changed files with 283 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

102
infix-parser-left-assoc-2.rkt Normal file
View file

@ -0,0 +1,102 @@
;; The first three lines of this file were inserted by DrRacket. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-advanced-reader.ss" "lang")((modname infix-parser-left-assoc-2) (read-case-sensitive #t) (teachpacks ((lib "gui.rkt" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "gui.rkt" "teachpack" "htdp")) #f)))
(define (alt2 parser1 parser2)
(lambda (lst)
(cond [(not (empty? (parser1 lst))) (parser1 lst)]
[else (parser2 lst)])))
(define (alt3 parser1 parser2 parser3)
(lambda (lst)
(cond [(not (empty? (parser1 lst))) (parser1 lst)]
[(not (empty? (parser2 lst))) (parser2 lst)]
[else (parser3 lst)])))
(define (seq2 parser1 parser2)
(lambda (lst)
(cond [(empty? (parser1 lst)) empty]
[(empty? (parser2 (second (parser1 lst)))) empty]
[else (list (list (first (parser1 lst))
(first (parser2 (second (parser1 lst)))))
(second (parser2 (second (parser1 lst)))))])))
(define (seq3 parser1 parser2 parser3)
(lambda (lst)
(cond [(empty? (parser1 lst)) empty]
[(empty? (parser2 (second (parser1 lst)))) empty]
[(empty? (parser3 (second (parser2 (second (parser1 lst)))))) empty]
[else (list (list (first (parser1 lst))
(first (parser2 (second (parser1 lst))))
(first (parser3 (second (parser2 (second (parser1 lst)))))))
(second (parser3 (second (parser2 (second (parser1 lst)))))))])))
(define (accept-itm itm)
(lambda (lst)
(cond [(empty? lst) empty]
[(equal? (first lst) itm) (list itm (rest lst))]
[else empty])))
(define (accept-digit)
(lambda (lst)
(cond [(empty? lst) empty]
[(or (equal? "0" (first lst))
(equal? "1" (first lst))
(equal? "2" (first lst))
(equal? "3" (first lst))
(equal? "4" (first lst))
(equal? "5" (first lst))
(equal? "6" (first lst))
(equal? "7" (first lst))
(equal? "8" (first lst))
(equal? "9" (first lst)))
(list (first lst) (rest lst))]
[else empty])))
(define (accept-empty)
(lambda (lst)
(cond [(empty? lst) (list empty empty)]
[else empty])))
(define (infix->prefix str)
(infix->prefix-expl (explode str)))
(define (infix->prefix-expl lst)
(cond [(empty? (parse-add-sub lst)) empty]
[else (tree->prefix (first (parse-add-sub lst)))]))
(define (parse-add-sub lst)
(parse-add-sub-x (second (parse-mul-div lst))
(first (parse-mul-div lst))))
(define (parse-add-sub-x lst expr)
(cond [(not (empty? ((accept-itm "+") lst))) (parse-add-sub-x (second (parse-mul-div (second ((accept-itm "+") lst))))
(list expr "+" (first (parse-mul-div (second ((accept-itm "+") lst))))))]
[(not (empty? ((accept-itm "-") lst))) (parse-add-sub-x (second (parse-mul-div (second ((accept-itm "-") lst))))
(list expr "-" (first (parse-mul-div (second ((accept-itm "-") lst))))))]
[else (list expr lst)]))
(define (parse-mul-div lst)
(parse-mul-div-x (second (parse-number lst))
(first (parse-number lst))))
(define (parse-mul-div-x lst expr)
(cond [(not (empty? ((accept-itm "*") lst))) (parse-mul-div-x (second (parse-number (second ((accept-itm "*") lst))))
(list expr "*" (first (parse-number (second ((accept-itm "*") lst))))))]
[(not (empty? ((accept-itm "/") lst))) (parse-mul-div-x (second (parse-number (second ((accept-itm "/") lst))))
(list expr "/" (first (parse-number (second ((accept-itm "/") lst))))))]
[else (list expr lst)]))
(define parse-number (accept-digit))
(define (tree->prefix tree)
(cond [(string? tree) tree]
[else (string-append (second tree)
(tree->prefix (first tree))
(tree->prefix (third tree)))]))