← Back to branch summary

~ubuntu-branches/ubuntu/wily/slof/wily

« back to all changes in this revision

Viewing changes to board-js2x/slof/helper.fs

  • Committer: Package Import Robot
  • Author(s): Aurelien Jarno
  • Date: 2012-09-16 23:05:23 UTC
  • Revision ID: package-import@ubuntu.com-20120916230523-r2ynulqmp2tyu2e5
Tags: upstream-20120217+dfsg
Import upstream version 20120217+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
board-js2x/slof/helper.fs
 
1
\ *****************************************************************************
 
2
\ * Copyright (c) 2004, 2008 IBM Corporation
 
3
\ * All rights reserved.
 
4
\ * This program and the accompanying materials
 
5
\ * are made available under the terms of the BSD License
 
6
\ * which accompanies this distribution, and is available at
 
7
\ * http://www.opensource.org/licenses/bsd-license.php
 
8
\ *
 
9
\ * Contributors:
 
10
\ *     IBM Corporation - initial implementation
 
11
\ ****************************************************************************/
 
12
 
 
13
: slof-build-id  ( -- str len )
 
14
   flash-header 10 + a
 
15
;
 
16
 
 
17
: slof-revision s" 001" ;
 
18
 
 
19
: read-version-and-date
 
20
   flash-header 0= IF
 
21
   s"  " encode-string
 
22
   ELSE
 
23
   flash-header 10 + 10
 
24
   here swap rmove
 
25
   here 10
 
26
   s" , " $cat
 
27
   bdate2human $cat encode-string THEN
 
28
;