Skip to content

Commit

Permalink
Add package info and raco command information
Browse files Browse the repository at this point in the history
Additionally:
1) Changes the #:args from _ to () to declare no args are accepted,
rather than all args are ignored. Improves the command help output
2) Adds compiled/ to the git ignore, which is the directory created by
DrRacket for zo files
3) Adds a notice to the license file indicating the copyright to my
patch is owned by Google (wrote this on corp laptop). This does not
change the MIT license in any way or affect any part of the project
other than this patch.
  • Loading branch information
jackfirth committed Apr 9, 2016
1 parent 90b2da2 commit f51ca14
Show file tree
Hide file tree
Showing 5 changed files with 15 additions and 2 deletions.
1 change: 1 addition & 0 deletions .gitignore
Expand Up @@ -9,6 +9,7 @@ compile/nr*.c
compile/nr*.out
compile/nr.json
compile/cost
compiled/
ml-toy
papers
www/demo
Expand Down
1 change: 1 addition & 0 deletions LICENSE.md
@@ -1,4 +1,5 @@
Copyright (c) 2015 Herbie Project
Modified work Copyright 2016 Google Inc.

Permission is hereby granted, free of charge, to any person obtaining
a copy of this software and associated documentation files (the
Expand Down
2 changes: 1 addition & 1 deletion herbie/compile/results-to-csv.rkt
@@ -1,7 +1,7 @@
#lang racket

(require "../common.rkt")
(require reports/datafile)
(require "../reports/datafile.rkt")

(define (results-to-csv infile outfile)
(let ([lines (read-datafile infile)])
Expand Down
11 changes: 11 additions & 0 deletions herbie/info.rkt
@@ -0,0 +1,11 @@
#lang info
(define collection "herbie")
(define compile-omit-paths '("test" "reports/bash-pred-test.rkt" "herbie-web" "util.rkt"))
(define raco-commands '(("herbie" (submod herbie/interface/inout main) "improve floating point expression accuracy" 75)))
(define deps '("base"
"math-lib"
"plot-lib"
"profile-lib"
"rackunit-lib"
"srfi-lite-lib"
"web-server-lib"))
2 changes: 1 addition & 1 deletion herbie/interface/inout.rkt
Expand Up @@ -54,5 +54,5 @@
(when (not (= 2 (length split-strings)))
(error "Badly formatted input " tf))
(toggle-flag! (string->symbol (car split-strings)) (string->symbol (cadr split-strings))))]
#:args _
#:args ()
(run #:print-points print-points)))

0 comments on commit f51ca14

Please sign in to comment.