Looks like it has the relevent info. Steve Meier
On Fri, 2007-12-07 at 11:15 -0700, Steven Ball wrote: > I was doing some digging today, and look what I found: > > http://www.cedcc.psu.edu/cadtools/pcaddoc/pdif.pdf > > Documentation on the format of the PDIF output from PCAD. Hope it is > helpful. > > See also: http://www.cedcc.psu.edu/cadtools/interfaces.html > > -Steve > > > On Nov 28, 2007, at 6:43 PM, Steve Meier wrote: > > > Just to show off what I have been working. The two attached files > > include a script for reading in a schematic file. The second is my > > attempt to document the api that either exists or that I have been > > implementing. Comments, suggestions are always welcome. If we can > > figure > > out the pcad file formats I would be happy to modify or tweek the api > > for the sake of translating the pcad files. > > > > Depending on interest I can do a code release either (as i had > > planned) > > after I have the vhdl, spice, verilog netlist formats, or earlier > > (after > > i complete the basic schematic, symbol file io migration to guile) > > and a > > trivial translation application. > > > > Steve Meier > > > > > > > > Dan McMahill wrote: > >> Steven Ball wrote: > >> > >>> The PDIF writer seems to be able to convert anything to an ASCII > >>> output. > >>> > >>> http://snurkle.net/~hamster/geda/ > >>> > >> > >> By any chance does the documentation for PCAD have details on that > >> format? If not, it looks like it could largely be figured out. > >> > >> > >>> I'll dig around and see if I can find a .pcb file to convert and > >>> post > >>> as well. Let me know what you think and how I can be of help. > >>> > >> > >> just to clarify, pcad uses .pcb too as the suffix. The format you'll > >> get there is similar in style to the schematics. > >> > >> > >> > >> > >> _______________________________________________ > >> geda-user mailing list > >> geda-user@moria.seul.org > >> http://www.seul.org/cgi-bin/mailman/listinfo/geda-user > >> > >> > > > > ;;; AKEDA - Alaskan Electronic Design Automation > > ;;; aknetlist - GNU Netlist > > ;;; Copyright (C) 2007 Stephen F Meier > > ;;; > > ;;; This program is free software; you can redistribute it and/or > > modify > > ;;; it under the terms of the GNU General Public License as > > published by > > ;;; the Free Software Foundation; either version 2 of the License, or > > ;;; (at your option) any later version. > > ;;; > > ;;; This program is distributed in the hope that it will be useful, > > ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of > > ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the > > ;;; GNU General Public License for more details. > > ;;; > > ;;; You should have received a copy of the GNU General Public License > > ;;; along with this program; if not, write to the Free Software > > ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. > > > > ;; Inport an AKEDA style schematic as a page in libakeda > > > > (use-modules (srfi srfi-13)) > > (use-modules (ice-9 popen)) > > (use-modules (ice-9 rdelim)) > > > > > > (define OBJ_LINE "L" ); > > (define OBJ_BOX "B" ); > > (define OBJ_PICTURE "G" ); > > (define OBJ_CIRCLE "V" ); > > (define OBJ_NET_SEGMENT "N" ); > > (define OBJ_BUS_SEGMENT "U" ); > > (define OBJ_COMPLEX "C" ); > > (define OBJ_TEXT "T" ); > > (define OBJ_PIN "P" ); > > (define OBJ_ARC "A" ); > > (define OBJ_ROUTE "R" ); > > (define OBJ_THRU_HOLE "H" ); > > (define OBJ_BUSRIPPER "S" ); > > (define OBJ_EMPTY "0" ); > > (define OBJ_VERSION "v" ); > > (define OBJ_PLACEHOLDER "X" ); > > > > (define STARTATTACH_ATTR "{" ); > > (define ENDATTACH_ATTR "}" ); > > (define START_EMBEDDED "[" ); > > (define END_EMBEDDED "]" ); > > > > (define (akeda-sch-read sch-filename tl_bool) > > (let ((port (open-input-file sch-filename))) > > (define my_page (ak-toplevel-new-page sch-filename tl_bool)) > > (define buffer "") > > (define buf_str "") > > (define my_line "") > > (define new_obj_smob "") > > (define attach_obj_smob "") > > (define embed_obj_smob "") > > > > (define str_list "") > > (define my_string "") > > (define index 0) > > (define num_lines 0) > > > > (define selected "0") > > (define visible "0") > > (define locked "0") > > > > (define schematic_attrib_type "1") > > (define symbol_attrib_type "0") > > > > (define state_attach #f) > > (define state_embed #f) > > (define state_text #f) > > > > (define x2 0) > > (define y2 0) > > > > (while (not (eof-object? buf_str)) > > (set! buffer (%read-line port)) > > > > (set! buf_str (car buffer)) > > > > (if (not (eof-object? buf_str)) > > (begin > > (set! my_line (string-split buf_str #\space)) > > > > (if (string=? (list-ref my_line 0) STARTATTACH_ATTR) > > (begin > > (set! state_attach #t) > > (set! attach_obj_smob new_obj_smob) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) ENDATTACH_ATTR) > > (begin > > (set! state_attach #f) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) START_EMBEDDED) > > (begin > > (set! state_embed #t) > > (set! embed_obj_smob new_obj_smob) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) END_EMBEDDED) > > (begin > > (set! state_embed #f) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) OBJ_TEXT) > > (begin > > > > (set! new_obj_smob (ak-object-new OBJ_TEXT selected > > visible > > locked)) > > > > (ak-text-new new_obj_smob (list-ref my_line 1) (list-ref > > > > my_line 2) (list-ref my_line 4) (list-ref my_line 8) > > (list-ref my_line 7) (list-ref my_line 9) > > (list-ref my_line > > 5) (list-ref my_line 6) (list-ref my_line 3)) > > > > (set! index 0) > > > > (set! num_lines (list-ref my_line 9)) > > > > (set! num_lines (string->number (list-ref my_line 9))) > > > > (set! str_list (make-list num_lines)) > > > > (while (< index num_lines) > > (begin > > (set! my_string (car (%read-line port))) > > (display my_string) > > (display "\n") > > (list-set! str_list index my_string) > > (set! index (+ index 1)) > > ) > > ) > > > > (set! my_string (string-join str_list " ")) > > > > (ak-text-set-string new_obj_smob my_string) > > > > (if state_attach > > (begin > > (ak-object-attrib-new attach_obj_smob new_obj_smob > > > > schematic_attrib_type) > > ) > > (begin > > (if state_embed > > (begin > > (ak-complex-attach-object embed_obj_smob > > new_obj_smob) > > (ak-object-attrib-new embed_obj_smob > > new_obj_smob > > symbol_attrib_type) > > ) > > (begin > > (ak-page-attach-object my_page new_obj_smob) > > ) > > ) > > ) > > ) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) OBJ_BUS_SEGMENT) > > (begin > > (set! new_obj_smob (ak-object-new OBJ_BUS_SEGMENT > > selected > > visible locked)) > > (ak-segment-new new_obj_smob (list-ref my_line 1) > > (list-ref > > my_line 2) (list-ref my_line 3) (list-ref my_line 4) "1") > > (ak-page-attach-object my_page new_obj_smob) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) OBJ_COMPLEX) > > (begin > > (set! new_obj_smob (ak-object-new OBJ_COMPLEX selected > > visible locked)) > > (ak-complex-new new_obj_smob (list-ref my_line 1) > > (list-ref > > my_line 2) "0" "0" "0" (list-ref my_line 6)) > > (ak-page-attach-object my_page new_obj_smob) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) OBJ_NET_SEGMENT) > > (begin > > (set! new_obj_smob (ak-object-new OBJ_NET_SEGMENT > > selected > > visible locked)) > > (ak-segment-new new_obj_smob (list-ref my_line 1) > > (list-ref > > my_line 2) (list-ref my_line 3) (list-ref my_line 4) "0") > > (ak-page-attach-object my_page new_obj_smob) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) OBJ_ARC) > > (begin > > (set! new_obj_smob (ak-object-new OBJ_ARC selected > > visible > > locked)) > > (ak-arc-new new_obj_smob (list-ref my_line 1) (list-ref > > my_line 2) (list-ref my_line 1) (list-ref my_line 2) > > (list-ref my_line 1) (list-ref my_line 2) > > (list-ref my_line 1)) > > > > (if state_embed > > (begin > > (ak-complex-attach-object embed_obj_smob > > new_obj_smob) > > ) > > (begin > > (ak-page-attach-object my_page new_obj_smob) > > ) > > ) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) OBJ_BOX) > > (begin > > (set! new_obj_smob (ak-object-new OBJ_BOX selected > > visible > > locked)) > > > > (set! x2 (+ (string->number (list-ref my_line 1)) > > (string- > > >number (list-ref my_line 3)))) > > > > (set! y2 (+ (string->number (list-ref my_line 2)) > > (string- > > >number (list-ref my_line 4)))) > > > > (ak-box-new new_obj_smob (list-ref my_line 1) (list-ref > > my_line 2) (number->string x2) (number->string y2) > > (list-ref my_line 5) (list-ref my_line 8) > > (list-ref my_line 6)) > > > > (if state_embed > > (begin > > (ak-complex-attach-object embed_obj_smob > > new_obj_smob) > > ) > > (begin > > (ak-page-attach-object my_page new_obj_smob) > > ) > > ) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) OBJ_CIRCLE) > > (begin > > (set! new_obj_smob (ak-object-new OBJ_CIRCLE selected > > visible locked)) > > > > (if state_embed > > (begin > > (ak-complex-attach-object embed_obj_smob > > new_obj_smob) > > ) > > (begin > > (ak-page-attach-object my_page new_obj_smob) > > ) > > ) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) OBJ_LINE) > > (begin > > (set! new_obj_smob (ak-object-new OBJ_LINE selected > > visible > > locked)) > > (ak-line-new new_obj_smob (list-ref my_line 5) (list-ref > > > > my_line 8) > > (list-ref my_line 1) (list-ref my_line 2) > > (list-ref my_line 3) > > (list-ref my_line 4) (list-ref my_line 7)) > > > > (if state_embed > > (begin > > (ak-complex-attach-object embed_obj_smob > > new_obj_smob) > > ) > > (begin > > (ak-page-attach-object my_page new_obj_smob) > > ) > > ) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) OBJ_PICTURE) > > (begin > > (set! new_obj_smob (ak-object-new OBJ_PICTURE selected > > visible locked)) > > > > (if state_embed > > (begin > > (ak-complex-attach-object embed_obj_smob > > new_obj_smob) > > ) > > (begin > > (ak-page-attach-object my_page new_obj_smob) > > ) > > ) > > ) > > ) > > > > (if (string=? (list-ref my_line 0) OBJ_PIN) > > (begin > > (set! new_obj_smob (ak-object-new OBJ_PIN selected > > visible > > locked)) > > > > (if state_embed > > (begin > > (ak-complex-attach-object embed_obj_smob > > new_obj_smob) > > ) > > (begin > > (ak-page-attach-object my_page new_obj_smob) > > ) > > ) > > ) > > ) > > > > > > ) > > ) > > ) > > > > (close-input-port port) > > ) > > ) > > <guile_interface_rev0.02.odt> > > > > _______________________________________________ > > geda-user mailing list > > geda-user@moria.seul.org > > http://www.seul.org/cgi-bin/mailman/listinfo/geda-user > > > > _______________________________________________ > geda-user mailing list > geda-user@moria.seul.org > http://www.seul.org/cgi-bin/mailman/listinfo/geda-user _______________________________________________ geda-user mailing list geda-user@moria.seul.org http://www.seul.org/cgi-bin/mailman/listinfo/geda-user
